source: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsPrimaryList.pas

Last change on this file was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch

File size: 1.1 KB
Line 
1unit fOptionsPrimaryList;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 ORCtrls, StdCtrls, ORFn, ExtCtrls;
8
9type
10 TfrmOptionsPrimaryList = class(TForm)
11 pnlBottom: TPanel;
12 btnOK: TButton;
13 btnCancel: TButton;
14 lblPrimaryList: TLabel;
15 cboPrimary: TORComboBox;
16 private
17 { Private declarations }
18 public
19 { Public declarations }
20 end;
21
22procedure DialogOptionsPrimaryList(fontsize: integer; var actiontype: Integer);
23
24var
25 frmOptionsPrimaryList: TfrmOptionsPrimaryList;
26
27implementation
28
29{$R *.DFM}
30
31procedure DialogOptionsPrimaryList(fontsize: integer; var actiontype: Integer);
32// create the form and make in modal, return an action
33var
34 frmOptionsPrimaryList: TfrmOptionsPrimaryList;
35begin
36 frmOptionsPrimaryList := TfrmOptionsPrimaryList.Create(Application);
37 actiontype := 0;
38 try
39 with frmOptionsPrimaryList do
40 begin
41 Position := poScreenCenter;
42 Font.Size := MainFontSize;
43 ShowModal;
44 actiontype := btnOK.Tag;
45 end;
46 finally
47 frmOptionsPrimaryList.Release;
48 end;
49end;
50
51end.
Note: See TracBrowser for help on using the repository browser.