source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsSubscribe.pas@ 1802

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

Initial upload of TMG-CPRS 1.0.26.69

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