Class

TfrmGraphData

Module

fGraphData

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmGraphData = class(TfrmBase508Form)
  btnData: TButton;
  btnRefresh: TButton;
  btnTesting: TButton;
  lblCurrent: TLabel;
  lblInfo: TLabel;
  lblInfoCurrent: TLabel;
  lblInfoPersonal: TLabel;
  lblInfoPublic: TLabel;
  lblPersonal: TLabel;
  lblPublic: TLabel;
  memTesting: TMemo;
  pnlData: TPanel;
  pnlInfo: TPanel;

  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormDestroy(Sender: TObject);

  procedure btnDataClick(Sender: TObject);
  procedure btnRefreshClick(Sender: TObject);
  procedure btnTestingClick(Sender: TObject);
private
  procedure ClearMemos;
  procedure FillMemos;
  procedure MakeMemos(aName: string; aList: TStrings; aTag, left, top, width, height: integer);
public
  procedure ClearGtsl;
  procedure ClearPtData;
  procedure FreeGtsl;
  procedure MakeGtsl;
  procedure MakeUserSettings;
  procedure MakeGraphActivity;

  function AllowContextChange(var WhyNot: string): Boolean;
end;

DFM Objects


frmGraphData : TfrmGraphData
 ├pnlData : TPanel
 ├pnlInfo : TPanel
 │ ├lblInfo : TLabel
 │ ├lblInfoPersonal : TLabel
 │ ├lblInfoPublic : TLabel
 │ ├lblPublic : TLabel
 │ ├lblPersonal : TLabel
 │ ├lblCurrent : TLabel
 │ ├lblInfoCurrent : TLabel
 │ ├btnData : TButton
 │ ├btnRefresh : TButton
 │ ├btnTesting : TButton
 │ └memTesting : TMemo
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnData TButton Public/Published -
btnRefresh TButton Public/Published -
btnTesting TButton Public/Published -
lblCurrent TLabel Public/Published -
lblInfo TLabel Public/Published -
lblInfoCurrent TLabel Public/Published -
lblInfoPersonal TLabel Public/Published -
lblInfoPublic TLabel Public/Published -
lblPersonal TLabel Public/Published -
lblPublic TLabel Public/Published -
memTesting TMemo Public/Published -
pnlData TPanel Public/Published -
pnlInfo TPanel Public/Published -

Methods

Name Declaration Scope Comments
AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; Public -
btnDataClick procedure btnDataClick(Sender: TObject); Public/Published ----------------------------- displays when testing
btnRefreshClick procedure btnRefreshClick(Sender: TObject); Public/Published -
btnTestingClick procedure btnTestingClick(Sender: TObject); Public/Published -
ClearGtsl procedure ClearGtsl; Public -
ClearMemos procedure ClearMemos; Private -
ClearPtData procedure ClearPtData; Public -
FillMemos procedure FillMemos; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published ---------------------------------------------------
FormCreate procedure FormCreate(Sender: TObject); Public/Published
Procedure GraphDataForm;            // not used - perhaps with separate object for data
var
  frmGraphData: TfrmGraphData;
begin
  frmGraphData := TfrmGraphData.Create(Application);
  try
    with frmGraphData do
    begin
      ResizeAnchoredFormToFont(frmGraphData);
      ShowModal;
    end;
  finally
    frmGraphData.Release;
  end;
end;
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FreeGtsl procedure FreeGtsl; Public -
MakeGraphActivity procedure MakeGraphActivity; Public -
MakeGtsl procedure MakeGtsl; Public ----------------------------- Gtsl* are tstringlists used to hold data - global in scope
MakeMemos procedure MakeMemos(aName: string; aList: TStrings; aTag, left, top, width, height: integer); Private -
MakeUserSettings procedure MakeUserSettings; Public -

Referenced By (2)

Module (line) Referrer Type
fFrame (897) - Read
fGraphData (48) frmGraphData Read