Module

fOptionsPrimaryList

Path

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

Last Modified

7/15/2014 3:26:40 PM

Units Used in Interface

Name Comments
fBase508Form -

Classes

Name Comments
TfrmOptionsPrimaryList -

Procedures

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

Global Variables

Name Type Declaration Comments
frmOptionsPrimaryList TfrmOptionsPrimaryList frmOptionsPrimaryList: TfrmOptionsPrimaryList; -


Module Source

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

Module Calls (2 levels)


fOptionsPrimaryList
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)

-