source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsPrimaryList.pas@ 667

Last change on this file since 667 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

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