Procedure

TfrmOptions.btnNotesNotesClick

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Display Notes Options

Visibility

Public/Published

Owner

TfrmOptions

Declaration

procedure btnNotesNotesClick(Sender: TObject);

Calls Hierarchy


TfrmOptions.btnNotesNotesClick
 ├TfrmOptions.Offset
 └DialogOptionsNotes
   └TfrmBase508Form.Create
     ├TfrmBase508Form.UpdateAccessibilityActions
     ├UnfocusableControlEnter
     └AdjustControls
       ├TfrmBase508Form.ModifyUnfocusableControl
       └..(rec)..

Calls

Name Declaration Comments
DialogOptionsNotes procedure DialogOptionsNotes(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); -
TfrmOptions.Offset procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); -


Source

654   procedure TfrmOptions.btnNotesNotesClick(Sender: TObject);
655   // display Notes Options
656   var
657     topsize, leftsize, value: integer;
658   begin
659     value := 0;
660     Offset(topsize, -60, leftsize, -60);
661     DialogOptionsNotes(topsize, leftsize, Font.Size, value);
662   end;