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

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

Adding foia-cprs branch

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