Module

fOptionsSubscribe

Path

C:\CPRS\CPRS30\Options\fOptionsSubscribe.pas

Last Modified

7/15/2014 3:26:40 PM

Units Used in Interface

Name Comments
fBase508Form -

Classes

Name Comments
TfrmOptionsSubscribe -

Procedures

Name Owner Declaration Scope Comments
DialogOptionsSubscribe - procedure DialogOptionsSubscribe(fontsize: integer; var actiontype: Integer); Interfaced Create the form and make it modal, return an action

Global Variables

Name Type Declaration Comments
frmOptionsSubscribe TfrmOptionsSubscribe frmOptionsSubscribe: TfrmOptionsSubscribe; -


Module Source

1     unit fOptionsSubscribe;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       ExtCtrls, StdCtrls, ORFn, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmOptionsSubscribe = class(TfrmBase508Form)
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    
21    var
22      frmOptionsSubscribe: TfrmOptionsSubscribe;
23    
24    procedure DialogOptionsSubscribe(fontsize: integer; var actiontype: Integer);
25    
26    implementation
27    
28    {$R *.DFM}
29    
30    procedure DialogOptionsSubscribe(fontsize: integer; var actiontype: Integer);
31    // create the form and make it modal, return an action
32    var
33      frmOptionsSubscribe: TfrmOptionsSubscribe;
34    begin
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;
47    end;
48    
49    end.

Module Calls (2 levels)


fOptionsSubscribe
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)

-