Class

TfrmLabs

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmHSplit

Declaration


  TfrmLabs = class(TfrmHSplit)
    popChart: TPopupMenu;
    popValues: TMenuItem;
    pop3D: TMenuItem;
    popZoom: TMenuItem;
    N1: TMenuItem;
    popCopy: TMenuItem;
    popZoomBack: TMenuItem;
    popDetails: TMenuItem;
    N2: TMenuItem;
    calLabRange: TORDateRangeDlg;
    dlgWinPrint: TPrintDialog;
    N3: TMenuItem;
    popPrint: TMenuItem;
    Timer1: TTimer;
    pnlRightBottom: TPanel;
    Memo1: TMemo;
    memLab: TRichEdit;
    pnlRightTop: TPanel;
    bvlHeader: TBevel;
    pnlHeader: TORAutoPanel;
    lblDateFloat: TLabel;
    pnlWorksheet: TORAutoPanel;
    chkValues: TCheckBox;
    chk3D: TCheckBox;
    ragHorV: TRadioGroup;
    chkAbnormals: TCheckBox;
    ragCorG: TRadioGroup;
    chkZoom: TCheckBox;
    pnlGraph: TORAutoPanel;
    lblGraphInfo: TLabel;
    chkGraph3D: TCheckBox;
    chkGraphValues: TCheckBox;
    chkGraphZoom: TCheckBox;
    pnlButtons: TORAutoPanel;
    lblMostRecent: TLabel;
    lblDate: TVA508StaticText;
    cmdNext: TButton;
    cmdPrev: TButton;
    cmdRecent: TButton;
    cmdOld: TButton;
    grdLab: TCaptionStringGrid;
    pnlChart: TPanel;
    lblGraph: TLabel;
    lstTestGraph: TORListBox;
    chtChart: TChart;
    serHigh: TLineSeries;
    serLow: TLineSeries;
    serTest: TLineSeries;
    pnlRightTopHeader: TPanel;
    PopupMenu2: TPopupMenu;
    Print1: TMenuItem;
    Copy1: TMenuItem;
    SelectAll1: TMenuItem;
    PopupMenu3: TPopupMenu;
    Print2: TMenuItem;
    Copy2: TMenuItem;
    SelectAll2: TMenuItem;
    GoToTop1: TMenuItem;
    GoToBottom1: TMenuItem;
    FreezeText1: TMenuItem;
    UnFreezeText1: TMenuItem;
    sptHorzRight: TSplitter;
    pnlFooter: TORAutoPanel;
    lblSpecimen: TLabel;
    lblSingleTest: TLabel;
    lblFooter: TOROffsetLabel;
    lstTests: TORListBox;
    lvReports: TCaptionListView;
    pnlLefTop: TPanel;
    lblReports: TOROffsetLabel;
    tvReports: TORTreeView;
    pnlLeftBottom: TPanel;
    lstQualifier: TORListBox;
    lblQualifier: TOROffsetLabel;
    lblHeaders: TOROffsetLabel;
    lstHeaders: TORListBox;
    lblDates: TOROffsetLabel;
    lstDates: TORListBox;
    Splitter1: TSplitter;
    pnlOtherTests: TORAutoPanel;
    bvlOtherTests: TBevel;
    cmdOtherTests: TButton;
    TabControl1: TTabControl;
    pnlRightTopHeaderTop: TPanel;
    lblHeading: TOROffsetLabel;
    chkMaxFreq: TCheckBox;
    lblTitle: TOROffsetLabel;
    Label1: TLabel;
    lblSample: TLabel;
    Label2: TLabel;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure DisplayHeading(aRanges: string);
    procedure lstHeadersClick(Sender: TObject);
    procedure lstDatesClick(Sender: TObject);
    procedure cmdOtherTestsClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure cmdNextClick(Sender: TObject);
    procedure cmdPrevClick(Sender: TObject);
    procedure cmdRecentClick(Sender: TObject);
    procedure cmdOldClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure pnlRightResize(Sender: TObject);
    procedure chkValuesClick(Sender: TObject);
    procedure chk3DClick(Sender: TObject);
    procedure ragHorVClick(Sender: TObject);
    procedure ragCorGClick(Sender: TObject);
    procedure lstTestGraphClick(Sender: TObject);
    procedure chkGraphValuesClick(Sender: TObject);
    procedure chkGraph3DClick(Sender: TObject);
    procedure chkGraphZoomClick(Sender: TObject);
    procedure GotoTop1Click(Sender: TObject);
    procedure GotoBottom1Click(Sender: TObject);
    procedure FreezeText1Click(Sender: TObject);
    procedure UnfreezeText1Click(Sender: TObject);
    procedure chkZoomClick(Sender: TObject);
    procedure chtChartUndoZoom(Sender: TObject);
    procedure popCopyClick(Sender: TObject);
    procedure popChartPopup(Sender: TObject);
    procedure popValuesClick(Sender: TObject);
    procedure pop3DClick(Sender: TObject);
    procedure popZoomClick(Sender: TObject);
    procedure popZoomBackClick(Sender: TObject);
    procedure chtChartMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure chtChartClickSeries(Sender: TCustomChart;
      Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure chtChartClickLegend(Sender: TCustomChart;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure popDetailsClick(Sender: TObject);
    procedure popPrintClick(Sender: TObject);
    procedure BeginEndDates(var ADate1, ADate2: TFMDateTime; var ADaysBack: integer);
    procedure Timer1Timer(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Memo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure UpdateRemoteStatus(aSiteID, aStatus: string);
    procedure lblDateEnter(Sender: TObject);
    procedure LoadTreeView;
    procedure LoadListView(aReportData: TStringList);
    procedure tvReportsClick(Sender: TObject);
    procedure lstQualifierClick(Sender: TObject);
    procedure tvReportsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tvReportsCollapsing(Sender: TObject; Node: TTreeNode;
      var AllowCollapse: Boolean);
    procedure tvReportsExpanding(Sender: TObject; Node: TTreeNode;
      var AllowExpansion: Boolean);
    procedure lvReportsKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState); 
    procedure SelectAll1Click(Sender: TObject);
    procedure Print1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Copy2Click(Sender: TObject);
    procedure Print2Click(Sender: TObject);
    procedure lvReportsCompare(Sender: TObject; Item1, Item2: TListItem;
      Data: Integer; var Compare: Integer);
    procedure lvReportsColumnClick(Sender: TObject; Column: TListColumn);
    procedure lvReportsSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure sptHorzRightCanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);
    procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);
    procedure SelectAll2Click(Sender: TObject);
    procedure chkMaxFreqClick(Sender: TObject);
    procedure PopupMenu3Popup(Sender: TObject);
    procedure grdLabTopLeftChanged(Sender: TObject);
    procedure grdLabClick(Sender: TObject);
    procedure grdLabMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure grdLabMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure grdLabMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
  private
    { Private declarations }
    SortIdx1, SortIdx2, SortIdx3: Integer;
    grdLab508Manager : TGrdLab508Manager;
    procedure AlignList;
    procedure HGrid(griddata: TStrings);
    procedure VGrid(griddata: TStrings);
    procedure FillGrid(agrid: TStringGrid; aitems: TStrings);
    procedure GridComments(aitems: TStrings);
    procedure FillComments(amemo: TRichEdit; aitems:TStrings);
    procedure GetInterimGrid(adatetime: TFMDateTime; direction: integer);
    procedure WorksheetChart(test: string; aitems: TStrings);
    procedure GetStartStop(var start, stop: string; aitems: TStrings);
    procedure GraphChart(test: string; aitems: TStrings);
    procedure GraphList(griddata: TStrings);
    procedure ProcessNotifications;
    procedure PrintLabGraph;
    procedure GoRemoteOld(Dest: TStringList; AItem, AReportID: Int64; AQualifier, ARpc, AHSType, ADaysBack, ASection: string; ADate1, ADate2: TFMDateTime);
    procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string);
    procedure ShowTabControl;
    procedure HideTabControl;
    procedure ChkBrowser;
    procedure CommonComponentVisible(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12: Boolean);
    procedure BlankWeb;
  public
    procedure ClearPtData; override;
    function AllowContextChange(var WhyNot: string): Boolean; override;
    procedure DisplayPage; override;
    procedure SetFontSize(NewFontSize: Integer); override;
    function FMToDateTime(FMDateTime: string): TDateTime;
    procedure RequestPrint; override;

end;

DFM Objects


frmLabs : TfrmLabs
 ├shpPageBottom : TShape
 ├sptHorz : TSplitter
 ├Label1 : TLabel
 ├Label2 : TLabel
 ├pnlLeft : TPanel
 │ ├Splitter1 : TSplitter
 │ ├pnlLefTop : TPanel
 │ │ ├lblReports : TOROffsetLabel
 │ │ └tvReports : TORTreeView
 │ └pnlLeftBottom : TPanel
 │   ├lblQualifier : TOROffsetLabel
 │   ├lblHeaders : TOROffsetLabel
 │   ├lblDates : TOROffsetLabel
 │   ├lstQualifier : TORListBox
 │   ├lstHeaders : TORListBox
 │   ├lstDates : TORListBox
 │   └pnlOtherTests : TORAutoPanel
 │     ├bvlOtherTests : TBevel
 │     └cmdOtherTests : TButton
 ├pnlRight : TPanel
 │ ├sptHorzRight : TSplitter
 │ ├pnlRightBottom : TPanel
 │ │ ├Memo1 : TMemo
 │ │ ├memLab : TRichEdit
 │ │ └WebBrowser1 : TWebBrowser
 │ ├pnlRightTop : TPanel
 │ │ ├bvlHeader : TBevel
 │ │ ├pnlHeader : TORAutoPanel
 │ │ │ ├lblDateFloat : TLabel
 │ │ │ ├pnlWorksheet : TORAutoPanel
 │ │ │ │ ├chkValues : TCheckBox
 │ │ │ │ ├chk3D : TCheckBox
 │ │ │ │ ├ragHorV : TRadioGroup
 │ │ │ │ ├chkAbnormals : TCheckBox
 │ │ │ │ ├ragCorG : TRadioGroup
 │ │ │ │ └chkZoom : TCheckBox
 │ │ │ ├pnlGraph : TORAutoPanel
 │ │ │ │ ├lblGraphInfo : TLabel
 │ │ │ │ ├chkGraph3D : TCheckBox
 │ │ │ │ ├chkGraphValues : TCheckBox
 │ │ │ │ └chkGraphZoom : TCheckBox
 │ │ │ └pnlButtons : TORAutoPanel
 │ │ │   ├lblMostRecent : TLabel
 │ │ │   ├lblSample : TLabel
 │ │ │   ├lblDate : TVA508StaticText
 │ │ │   ├cmdNext : TButton
 │ │ │   ├cmdPrev : TButton
 │ │ │   ├cmdRecent : TButton
 │ │ │   └cmdOld : TButton
 │ │ ├grdLab : TCaptionStringGrid
 │ │ ├pnlChart : TPanel
 │ │ │ ├lblGraph : TLabel
 │ │ │ ├lstTestGraph : TORListBox
 │ │ │ └chtChart : TChart
 │ │ │   ├serHigh : TLineSeries
 │ │ │   ├serLow : TLineSeries
 │ │ │   └serTest : TLineSeries
 │ │ └lvReports : TCaptionListView
 │ ├pnlRightTopHeader : TPanel
 │ │ ├pnlRightTopHeaderTop : TPanel
 │ │ │ ├lblHeading : TOROffsetLabel
 │ │ │ ├lblTitle : TOROffsetLabel
 │ │ │ └chkMaxFreq : TCheckBox
 │ │ └TabControl1 : TTabControl
 │ └pnlFooter : TORAutoPanel
 │   ├lblSpecimen : TLabel
 │   ├lblSingleTest : TLabel
 │   ├lblFooter : TOROffsetLabel
 │   └lstTests : TORListBox
 ├amgrMain : TVA508AccessibilityManager
 ├popChart : TPopupMenu
 │ ├popValues : TMenuItem
 │ ├pop3D : TMenuItem
 │ ├popZoom : TMenuItem
 │ ├popZoomBack : TMenuItem
 │ ├N1 : TMenuItem
 │ ├popCopy : TMenuItem
 │ ├N2 : TMenuItem
 │ ├popDetails : TMenuItem
 │ ├N3 : TMenuItem
 │ └popPrint : TMenuItem
 ├calLabRange : TORDateRangeDlg
 ├dlgWinPrint : TPrintDialog
 ├Timer1 : TTimer
 ├PopupMenu2 : TPopupMenu
 │ ├Print1 : TMenuItem
 │ ├Copy1 : TMenuItem
 │ └SelectAll1 : TMenuItem
 └PopupMenu3 : TPopupMenu
   ├Print2 : TMenuItem
   ├Copy2 : TMenuItem
   ├SelectAll2 : TMenuItem
   ├GoToTop1 : TMenuItem
   ├GoToBottom1 : TMenuItem
   ├FreezeText1 : TMenuItem
   └UnFreezeText1 : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
bvlHeader TBevel Public/Published -
bvlOtherTests TBevel Public/Published -
calLabRange Simple (unknown) Public/Published -
chk3D TCheckBox Public/Published -
chkAbnormals TCheckBox Public/Published -
chkGraph3D TCheckBox Public/Published -
chkGraphValues TCheckBox Public/Published -
chkGraphZoom TCheckBox Public/Published -
chkMaxFreq TCheckBox Public/Published -
chkValues TCheckBox Public/Published -
chkZoom TCheckBox Public/Published -
chtChart TChart Public/Published -
cmdNext TButton Public/Published -
cmdOld TButton Public/Published -
cmdOtherTests TButton Public/Published -
cmdPrev TButton Public/Published -
cmdRecent TButton Public/Published -
Copy1 TMenuItem Public/Published -
Copy2 TMenuItem Public/Published -
dlgWinPrint Simple (unknown) Public/Published -
FreezeText1 TMenuItem Public/Published -
GoToBottom1 TMenuItem Public/Published -
GoToTop1 TMenuItem Public/Published -
grdLab TCaptionStringGrid Public/Published -
grdLab508Manager TGrdLab508Manager Private -
Label1 TLabel Public/Published -
Label2 TLabel Public/Published -
lblDate TVA508StaticText Public/Published -
lblDateFloat TLabel Public/Published -
lblDates TOROffsetLabel Public/Published -
lblFooter TOROffsetLabel Public/Published -
lblGraph TLabel Public/Published -
lblGraphInfo TLabel Public/Published -
lblHeaders TOROffsetLabel Public/Published -
lblHeading TOROffsetLabel Public/Published -
lblMostRecent TLabel Public/Published -
lblQualifier TOROffsetLabel Public/Published -
lblReports TOROffsetLabel Public/Published -
lblSample TLabel Public/Published -
lblSingleTest TLabel Public/Published -
lblSpecimen TLabel Public/Published -
lblTitle TOROffsetLabel Public/Published -
lstDates TORListBox Public/Published -
lstHeaders TORListBox Public/Published -
lstQualifier TORListBox Public/Published -
lstTestGraph TORListBox Public/Published -
lstTests TORListBox Public/Published -
lvReports Simple (unknown) Public/Published -
memLab TRichEdit Public/Published -
Memo1 TMemo Public/Published -
N1 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
pnlButtons TORAutoPanel Public/Published -
pnlChart TPanel Public/Published -
pnlFooter TORAutoPanel Public/Published -
pnlGraph TORAutoPanel Public/Published -
pnlHeader TORAutoPanel Public/Published -
pnlLeftBottom TPanel Public/Published -
pnlLefTop TPanel Public/Published -
pnlOtherTests TORAutoPanel Public/Published -
pnlRightBottom TPanel Public/Published -
pnlRightTop TPanel Public/Published -
pnlRightTopHeader TPanel Public/Published -
pnlRightTopHeaderTop TPanel Public/Published -
pnlWorksheet TORAutoPanel Public/Published -
pop3D TMenuItem Public/Published -
popChart TPopupMenu Public/Published -
popCopy TMenuItem Public/Published -
popDetails TMenuItem Public/Published -
popPrint TMenuItem Public/Published -
PopupMenu2 TPopupMenu Public/Published -
PopupMenu3 TPopupMenu Public/Published -
popValues TMenuItem Public/Published -
popZoom TMenuItem Public/Published -
popZoomBack TMenuItem Public/Published -
Print1 TMenuItem Public/Published -
Print2 TMenuItem Public/Published -
ragCorG Simple (unknown) Public/Published -
ragHorV Simple (unknown) Public/Published -
SelectAll1 TMenuItem Public/Published -
SelectAll2 TMenuItem Public/Published -
serHigh TLineSeries Public/Published -
serLow TLineSeries Public/Published -
serTest TLineSeries Public/Published -
SortIdx1 Integer Private Private declarations
SortIdx2 Integer Private Private declarations
SortIdx3 Integer Private Private declarations
Splitter1 TSplitter Public/Published -
sptHorzRight TSplitter Public/Published -
TabControl1 Simple (unknown) Public/Published -
Timer1 TTimer Public/Published -
tvReports TORTreeView Public/Published -
UnFreezeText1 TMenuItem Public/Published -
WebBrowser1 Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
AlignList procedure AlignList; Private -
AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; override; Public -
BeginEndDates procedure BeginEndDates(var ADate1, ADate2: TFMDateTime; var ADaysBack: integer); Public/Published -
BlankWeb procedure BlankWeb; Private -
chk3DClick procedure chk3DClick(Sender: TObject); Public/Published -
ChkBrowser procedure ChkBrowser; Private -
chkGraph3DClick procedure chkGraph3DClick(Sender: TObject); Public/Published -
chkGraphValuesClick procedure chkGraphValuesClick(Sender: TObject); Public/Published -
chkGraphZoomClick procedure chkGraphZoomClick(Sender: TObject); Public/Published -
chkMaxFreqClick procedure chkMaxFreqClick(Sender: TObject); Public/Published -
chkValuesClick procedure chkValuesClick(Sender: TObject); Public/Published -
chkZoomClick procedure chkZoomClick(Sender: TObject); Public/Published -
chtChartClickLegend procedure chtChartClickLegend(Sender: TCustomChart; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chtChartClickSeries procedure chtChartClickSeries(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chtChartMouseDown procedure chtChartMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chtChartUndoZoom procedure chtChartUndoZoom(Sender: TObject); Public/Published -
ClearPtData procedure ClearPtData; override; Public -
cmdNextClick procedure cmdNextClick(Sender: TObject); Public/Published -
cmdOldClick procedure cmdOldClick(Sender: TObject); Public/Published -
cmdOtherTestsClick procedure cmdOtherTestsClick(Sender: TObject); Public/Published -
cmdPrevClick procedure cmdPrevClick(Sender: TObject); Public/Published -
cmdRecentClick procedure cmdRecentClick(Sender: TObject); Public/Published -
CommonComponentVisible procedure CommonComponentVisible(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12: Boolean); Private -
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 -
FillComments procedure FillComments(amemo: TRichEdit; aitems:TStrings); Private -
FillGrid procedure FillGrid(agrid: TStringGrid; aitems: TStrings); Private -
FMToDateTime function FMToDateTime(FMDateTime: string): TDateTime; Public -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FreezeText1Click procedure FreezeText1Click(Sender: TObject); Public/Published -
GetInterimGrid procedure GetInterimGrid(adatetime: TFMDateTime; direction: integer); Private -
GetStartStop procedure GetStartStop(var start, stop: string; aitems: TStrings); Private -
GoRemote procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string); Private -
GoRemoteOld procedure GoRemoteOld(Dest: TStringList; AItem, AReportID: Int64; AQualifier, ARpc, AHSType, ADaysBack, ASection: string; ADate1, ADate2: TFMDateTime); Private -
GotoBottom1Click procedure GotoBottom1Click(Sender: TObject); Public/Published -
GotoTop1Click procedure GotoTop1Click(Sender: TObject); Public/Published -
GraphChart procedure GraphChart(test: string; aitems: TStrings); Private -
GraphList procedure GraphList(griddata: TStrings); Private -
grdLabClick procedure grdLabClick(Sender: TObject); Public/Published -
grdLabMouseDown procedure grdLabMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
grdLabMouseUp procedure grdLabMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
grdLabMouseWheelDown procedure grdLabMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); Public/Published -
grdLabTopLeftChanged procedure grdLabTopLeftChanged(Sender: TObject); Public/Published -
GridComments procedure GridComments(aitems: TStrings); Private -
HGrid procedure HGrid(griddata: TStrings); Private -
HideTabControl procedure HideTabControl; Private -
lblDateEnter procedure lblDateEnter(Sender: TObject); Public/Published -
LoadListView procedure LoadListView(aReportData: TStringList); Public/Published -
LoadTreeView procedure LoadTreeView; Public/Published -
lstDatesClick procedure lstDatesClick(Sender: TObject); Public/Published -
lstHeadersClick procedure lstHeadersClick(Sender: TObject); Public/Published -
lstQualifierClick procedure lstQualifierClick(Sender: TObject); Public/Published -
lstTestGraphClick procedure lstTestGraphClick(Sender: TObject); 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 -
pnlRightResize procedure pnlRightResize(Sender: TObject); Public/Published -
pop3DClick procedure pop3DClick(Sender: TObject); Public/Published -
popChartPopup procedure popChartPopup(Sender: TObject); Public/Published -
popCopyClick procedure popCopyClick(Sender: TObject); Public/Published -
popDetailsClick procedure popDetailsClick(Sender: TObject); Public/Published -
popPrintClick procedure popPrintClick(Sender: TObject); Public/Published -
PopupMenu3Popup procedure PopupMenu3Popup(Sender: TObject); Public/Published -
popValuesClick procedure popValuesClick(Sender: TObject); Public/Published -
popZoomBackClick procedure popZoomBackClick(Sender: TObject); Public/Published -
popZoomClick procedure popZoomClick(Sender: TObject); Public/Published -
Print1Click procedure Print1Click(Sender: TObject); Public/Published -
Print2Click procedure Print2Click(Sender: TObject); Public/Published -
PrintLabGraph procedure PrintLabGraph; Private -
ProcessNotifications procedure ProcessNotifications; Private -
ragCorGClick procedure ragCorGClick(Sender: TObject); Public/Published -
ragHorVClick procedure ragHorVClick(Sender: TObject); Public/Published -
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 -
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 -
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 -
VGrid procedure VGrid(griddata: TStrings); Private -
WebBrowser1DocumentComplete procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); Public/Published -
WorksheetChart procedure WorksheetChart(test: string; aitems: TStrings); Private -

Referenced By (3)

Module (line) Referrer Type
fFrame (3402) - Read
fLabs (237) frmLabs Read
fLabs (4766) - Read