Class

TfrmReports

Module

fReports

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmHSplit

Declaration


TfrmReports = class(TfrmHSplit)
  PopupMenu1: TPopupMenu;
  GotoTop1: TMenuItem;
  GotoBottom1: TMenuItem;
  FreezeText1: TMenuItem;
  UnFreezeText1: TMenuItem;
  calApptRng: TORDateRangeDlg;
  Timer1: TTimer;
  pnlLefTop: TPanel;
  lblTypes: TOROffsetLabel;
  Splitter1: TSplitter;
  pnlLeftBottom: TPanel;
  lblQualifier: TOROffsetLabel;
  lblHeaders: TLabel;
  lstHeaders: TORListBox;
  lstQualifier: TORListBox;
  pnlRightTop: TPanel;
  pnlRightBottom: TPanel;
  pnlRightMiddle: TPanel;
  TabControl1: TTabControl;
  lvReports: TCaptionListView;
  Memo1: TMemo;
  WebBrowser1: TWebBrowser;
  memText: TRichEdit;
  sptHorzRight: TSplitter;
  tvReports: TORTreeView;
  PopupMenu2: TPopupMenu;
  Print1: TMenuItem;
  Copy1: TMenuItem;
  Print2: TMenuItem;
  Copy2: TMenuItem;
  SelectAll1: TMenuItem;
  SelectAll2: TMenuItem;
  pnlProcedures: TPanel;
  lblProcedures: TOROffsetLabel;
  tvProcedures: TORTreeView;
  lblProcTypeMsg: TOROffsetLabel;
  pnlViews: TORAutoPanel;
  chkDualViews: TCheckBox;
  btnChangeView: TORAlignButton;
  btnGraphSelections: TORAlignButton;
  lblDateRange: TLabel;
  lstDateRange: TORListBox;
  pnlTopViews: TPanel;
  pnlTopRtLabel: TPanel;
  lblTitle: TOROffsetLabel;
  chkMaxFreq: TCheckBox;
  imgLblImages: TVA508ImageListLabeler;
  procedure lstQualifierClick(Sender: TObject);
  procedure GotoTop1Click(Sender: TObject);
  procedure GotoBottom1Click(Sender: TObject);
  procedure FreezeText1Click(Sender: TObject);
  procedure UnFreezeText1Click(Sender: TObject);
  procedure PopupMenu1Popup(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure DisplayHeading(aRanges: string);
  procedure FormShow(Sender: TObject);
  procedure Timer1Timer(Sender: TObject);
  procedure TabControl1Change(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string);
  procedure lstHeadersClick(Sender: TObject);
  procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure WebBrowser1DocumentComplete(Sender: TObject;
    const pDisp: IDispatch; var URL: OleVariant);
  procedure sptHorzRightCanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure lstQualifierDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure tvReportsClick(Sender: TObject);
  procedure lvReportsColumnClick(Sender: TObject; Column: TListColumn);
  procedure lvReportsCompare(Sender: TObject; Item1, Item2: TListItem;
    Data: Integer; var Compare: Integer);
  procedure lvReportsSelectItem(Sender: TObject; Item: TListItem;
    Selected: Boolean);
  procedure LoadListView(aReportData: TStringList);
  procedure LoadTreeView;
  procedure tvReportsExpanding(Sender: TObject; Node: TTreeNode;
    var AllowExpansion: Boolean);
  procedure tvReportsCollapsing(Sender: TObject; Node: TTreeNode;
    var AllowCollapse: Boolean);
  procedure Print1Click(Sender: TObject);
  procedure Copy1Click(Sender: TObject);
  procedure Copy2Click(Sender: TObject);
  procedure Print2Click(Sender: TObject);
  procedure UpdateRemoteStatus(aSiteID, aStatus: string);
  procedure lvReportsKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure SelectAll1Click(Sender: TObject);
  procedure SelectAll2Click(Sender: TObject);
  procedure tvReportsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure Memo1KeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure LoadProceduresTreeView(x: string; var CurrentParentNode: TTreeNode;       
    var CurrentNode: TTreeNode);                                                      
  procedure tvProceduresCollapsing(Sender: TObject; Node: TTreeNode;                  
    var AllowCollapse: Boolean);                                                      
  procedure tvProceduresExpanding(Sender: TObject; Node: TTreeNode;                   
    var AllowExpansion: Boolean);
  procedure tvProceduresClick(Sender: TObject);
  procedure tvProceduresChange(Sender: TObject; Node: TTreeNode);
  procedure tvProceduresKeyDown(Sender: TObject; var Key: Word;                       
    Shift: TShiftState);
  procedure chkDualViewsClick(Sender: TObject);
  procedure btnChangeViewClick(Sender: TObject);
  procedure btnGraphSelectionsClick(Sender: TObject);
  procedure lstDateRangeClick(Sender: TObject);
  procedure sptHorzMoved(Sender: TObject);
  procedure chkMaxFreqClick(Sender: TObject);

private
  SortIdx1, SortIdx2, SortIdx3: Integer;
  procedure ProcessNotifications;
  procedure ShowTabControl;
  procedure Graph(reportien: integer);
  procedure GraphPanel(active: boolean);
  procedure BlankWeb;
public
  procedure ClearPtData; override;
  function AllowContextChange(var WhyNot: string): Boolean; override;
  procedure DisplayPage; override;
  procedure SetFontSize(NewFontSize: Integer); override;
  procedure RequestPrint; override;
end;

DFM Objects


frmReports : TfrmReports
 ├shpPageBottom : TShape
 ├sptHorz : TSplitter
 ├pnlLeft : TPanel
 │ ├Splitter1 : TSplitter
 │ ├pnlLefTop : TPanel
 │ │ ├lblTypes : TOROffsetLabel
 │ │ └tvReports : TORTreeView
 │ ├pnlLeftBottom : TPanel
 │ │ ├lblQualifier : TOROffsetLabel
 │ │ ├lblHeaders : TLabel
 │ │ ├lstHeaders : TORListBox
 │ │ ├lstQualifier : TORListBox
 │ │ └pnlViews : TORAutoPanel
 │ │   ├pnlTopViews : TPanel
 │ │   │ ├lblDateRange : TLabel
 │ │   │ ├chkDualViews : TCheckBox
 │ │   │ ├btnGraphSelections : TORAlignButton
 │ │   │ └btnChangeView : TORAlignButton
 │ │   └lstDateRange : TORListBox
 │ └pnlProcedures : TPanel
 │   ├lblProcedures : TOROffsetLabel
 │   └tvProcedures : TORTreeView
 ├pnlRight : TPanel
 │ ├sptHorzRight : TSplitter
 │ ├pnlRightTop : TPanel
 │ │ ├lblProcTypeMsg : TOROffsetLabel
 │ │ ├TabControl1 : TTabControl
 │ │ └pnlTopRtLabel : TPanel
 │ │   ├lblTitle : TOROffsetLabel
 │ │   └chkMaxFreq : TCheckBox
 │ ├pnlRightBottom : TPanel
 │ │ ├WebBrowser1 : TWebBrowser
 │ │ ├Memo1 : TMemo
 │ │ └memText : TRichEdit
 │ └pnlRightMiddle : TPanel
 │   └lvReports : TCaptionListView
 ├amgrMain : TVA508AccessibilityManager
 ├PopupMenu1 : TPopupMenu
 │ ├Print2 : TMenuItem
 │ ├Copy2 : TMenuItem
 │ ├SelectAll2 : TMenuItem
 │ ├GotoTop1 : TMenuItem
 │ ├GotoBottom1 : TMenuItem
 │ ├FreezeText1 : TMenuItem
 │ └UnFreezeText1 : TMenuItem
 ├calApptRng : TORDateRangeDlg
 ├Timer1 : TTimer
 ├PopupMenu2 : TPopupMenu
 │ ├Print1 : TMenuItem
 │ ├Copy1 : TMenuItem
 │ └SelectAll1 : TMenuItem
 └imgLblImages : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
btnChangeView Simple (unknown) Public/Published -
btnGraphSelections Simple (unknown) Public/Published -
calApptRng Simple (unknown) Public/Published -
chkDualViews TCheckBox Public/Published -
chkMaxFreq TCheckBox Public/Published -
Copy1 TMenuItem Public/Published -
Copy2 TMenuItem Public/Published -
FreezeText1 TMenuItem Public/Published -
GotoBottom1 TMenuItem Public/Published -
GotoTop1 TMenuItem Public/Published -
imgLblImages Simple (unknown) Public/Published -
lblDateRange TLabel Public/Published -
lblHeaders TLabel Public/Published -
lblProcedures TOROffsetLabel Public/Published -
lblProcTypeMsg TOROffsetLabel Public/Published -
lblQualifier TOROffsetLabel Public/Published -
lblTitle TOROffsetLabel Public/Published -
lblTypes TOROffsetLabel Public/Published -
lstDateRange TORListBox Public/Published -
lstHeaders TORListBox Public/Published -
lstQualifier TORListBox Public/Published -
lvReports Simple (unknown) Public/Published -
Memo1 TMemo Public/Published -
memText TRichEdit Public/Published -
pnlLeftBottom TPanel Public/Published -
pnlLefTop TPanel Public/Published -
pnlProcedures TPanel Public/Published -
pnlRightBottom TPanel Public/Published -
pnlRightMiddle TPanel Public/Published -
pnlRightTop TPanel Public/Published -
pnlTopRtLabel TPanel Public/Published -
pnlTopViews TPanel Public/Published -
pnlViews Simple (unknown) Public/Published -
PopupMenu1 TPopupMenu Public/Published -
PopupMenu2 TPopupMenu Public/Published -
Print1 TMenuItem Public/Published -
Print2 TMenuItem Public/Published -
SelectAll1 TMenuItem Public/Published -
SelectAll2 TMenuItem Public/Published -
SortIdx1 Integer Private -
SortIdx2 Integer Private -
SortIdx3 Integer Private -
Splitter1 TSplitter Public/Published -
sptHorzRight TSplitter Public/Published -
TabControl1 Simple (unknown) Public/Published -
Timer1 Simple (unknown) Public/Published -
tvProcedures TORTreeView Public/Published -
tvReports TORTreeView Public/Published -
UnFreezeText1 TMenuItem Public/Published -
WebBrowser1 Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; override; Public -
BlankWeb procedure BlankWeb; Private -
btnChangeViewClick procedure btnChangeViewClick(Sender: TObject); Public/Published -
btnGraphSelectionsClick procedure btnGraphSelectionsClick(Sender: TObject); Public/Published -
chkDualViewsClick procedure chkDualViewsClick(Sender: TObject); Public/Published -
chkMaxFreqClick procedure chkMaxFreqClick(Sender: TObject); Public/Published -
ClearPtData procedure ClearPtData; override; Public -
Copy1Click procedure Copy1Click(Sender: TObject); Public/Published -
Copy2Click procedure Copy2Click(Sender: TObject); Public/Published -
DisplayHeading procedure DisplayHeading(aRanges: string); Public/Published -
DisplayPage procedure DisplayPage; override; Public
OrigDateIEN: Int64;
  OrigDateItemID: Variant;
  OrigReportCat, OrigProcedure: TTreeNode;
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
FreezeText1Click procedure FreezeText1Click(Sender: TObject); Public/Published -
GoRemote procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string); Public/Published -
GotoBottom1Click procedure GotoBottom1Click(Sender: TObject); Public/Published -
GotoTop1Click procedure GotoTop1Click(Sender: TObject); Public/Published -
Graph procedure Graph(reportien: integer); Private -
GraphPanel procedure GraphPanel(active: boolean); Private -
LoadListView procedure LoadListView(aReportData: TStringList); Public/Published -
LoadProceduresTreeView procedure LoadProceduresTreeView(x: string; var CurrentParentNode: TTreeNode; var CurrentNode: TTreeNode); Public/Published -
LoadTreeView procedure LoadTreeView; Public/Published -
lstDateRangeClick procedure lstDateRangeClick(Sender: TObject); Public/Published -
lstHeadersClick procedure lstHeadersClick(Sender: TObject); Public/Published -
lstQualifierClick procedure lstQualifierClick(Sender: TObject); Public/Published -
lstQualifierDrawItem procedure lstQualifierDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
lvReportsColumnClick procedure lvReportsColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lvReportsCompare procedure lvReportsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
lvReportsKeyUp procedure lvReportsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lvReportsSelectItem procedure lvReportsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); Public/Published -
Memo1KeyUp procedure Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
PopupMenu1Popup procedure PopupMenu1Popup(Sender: TObject); Public/Published -
Print1Click procedure Print1Click(Sender: TObject); Public/Published -
Print2Click procedure Print2Click(Sender: TObject); Public/Published -
ProcessNotifications procedure ProcessNotifications; Private -
RequestPrint procedure RequestPrint; override; Public -
SelectAll1Click procedure SelectAll1Click(Sender: TObject); Public/Published -
SelectAll2Click procedure SelectAll2Click(Sender: TObject); Public/Published -
SetFontSize procedure SetFontSize(NewFontSize: Integer); override; Public -
ShowTabControl procedure ShowTabControl; Private -
Splitter1CanResize procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
sptHorzMoved procedure sptHorzMoved(Sender: TObject); Public/Published -
sptHorzRightCanResize procedure sptHorzRightCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
TabControl1Change procedure TabControl1Change(Sender: TObject); Public/Published -
Timer1Timer procedure Timer1Timer(Sender: TObject); Public/Published -
tvProceduresChange procedure tvProceduresChange(Sender: TObject; Node: TTreeNode); Public/Published -
tvProceduresClick procedure tvProceduresClick(Sender: TObject); Public/Published -
tvProceduresCollapsing procedure tvProceduresCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean); Public/Published -
tvProceduresExpanding procedure tvProceduresExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); Public/Published -
tvProceduresKeyDown procedure tvProceduresKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
tvReportsClick procedure tvReportsClick(Sender: TObject); Public/Published -
tvReportsCollapsing procedure tvReportsCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean); Public/Published -
tvReportsExpanding procedure tvReportsExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); Public/Published -
tvReportsKeyDown procedure tvReportsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
UnFreezeText1Click procedure UnFreezeText1Click(Sender: TObject); Public/Published -
UpdateRemoteStatus procedure UpdateRemoteStatus(aSiteID, aStatus: string); Public/Published -
WebBrowser1DocumentComplete procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fFrame (3406) - Read
fReports (140) frmReports Read
fReports (3403) - Read