Procedure

TfrmOptions.btnTeamsClick

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Display Team Options

Visibility

Public/Published

Owner

TfrmOptions

Declaration

procedure btnTeamsClick(Sender: TObject);

Calls Hierarchy


TfrmOptions.btnTeamsClick
 ├TfrmOptions.Offset
 └DialogOptionsTeams
   └TfrmBase508Form.Create
     ├TfrmBase508Form.UpdateAccessibilityActions
     ├UnfocusableControlEnter
     └AdjustControls
       ├TfrmBase508Form.ModifyUnfocusableControl
       └..(rec)..

Calls

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


Source

340   procedure TfrmOptions.btnTeamsClick(Sender: TObject);
341   // display Team Options
342   var
343     topsize, leftsize, value: integer;
344   begin
345     value := 0;
346     Offset(topsize, -60, leftsize, -60);
347     DialogOptionsTeams(topsize, leftsize, Font.Size, value);
348   end;