Procedure

DialogOptionsSubscribe

Module

fOptionsSubscribe

Last Modified

7/15/2014 3:26:40 PM

Comments

Create the form and make it modal, return an action

Scope

Interfaced

Declaration

procedure DialogOptionsSubscribe(fontsize: integer; var actiontype: Integer);

Calls Hierarchy


DialogOptionsSubscribe
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -


Source

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;