Class

TfrmReminderTree

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


  TfrmReminderTree = class(TfrmBase508Form)
    pnlTop: TPanel;
    tvRem: TORTreeView;
    hcRem: THeaderControl;
    pnlTopRight: TPanel;
    bvlGap: TBevel;
    lbRem: TORListBox;
    mmMain: TMainMenu;
    memAction: TMenuItem;
    memEvalAll: TMenuItem;
    memEval: TMenuItem;
    N2: TMenuItem;
    memRefresh: TMenuItem;
    memEvalCat: TMenuItem;
    mnuCoverSheet: TMenuItem;
    mnuExit: TMenuItem;
    imgLblReminders: TVA508ImageListLabeler;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure tvRemExpanded(Sender: TObject; Node: TTreeNode);
    procedure tvRemCollapsed(Sender: TObject; Node: TTreeNode);
    procedure pnlTopResize(Sender: TObject);
    procedure lbRemDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure lbRemChange(Sender: TObject);
    procedure lbRemClick(Sender: TObject);
    procedure tvRemEnter(Sender: TObject);
    procedure tvRemExit(Sender: TObject);
    procedure hcRemSectionClick(HeaderControl: THeaderControl;
      Section: THeaderSection);
    procedure tvRemClick(Sender: TObject);
    procedure tvRemChange(Sender: TObject; Node: TTreeNode);
    procedure tvRemMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure memEvalClick(Sender: TObject);
    procedure memEvalAllClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure memRefreshClick(Sender: TObject);
    procedure memActionClick(Sender: TObject);
    procedure memEvalCatClick(Sender: TObject);
    procedure mnuCoverSheetClick(Sender: TObject);
    procedure tvRemNodeCaptioning(Sender: TObject; var Caption: String);
    procedure mnuExitClick(Sender: TObject);
    procedure tvRemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    tvRem508Manager : TtvRem508Manager;
    FLinking: boolean;
    FSortOrder: integer;
    FSortAssending: boolean;
    FSorting: boolean;
    FUpdating: boolean;
    memView: TORMenuItem;
    DateColWidth: integer;
    LastDateColWidth: integer;
    PriorityColWidth: integer;
    procedure SetRemHeaderSectionWidth( SectionIndex: integer; NewWidth: integer);
  protected
    procedure Resync(FromTree: boolean);
    procedure RemindersChanged(Sender: TObject);
    procedure ResetlbItems(RootNode: TTreeNode);
    procedure LinkTopControls(FromTree: boolean);
    procedure SyncTopControls(FromTree: boolean);
    procedure SortNode(const Node: TTreeNode);
    function SortData(Node: TORTreeNode): string;
//    procedure PositionToReminder(Sender: TObject);
    procedure ProcessedRemindersChanged(Sender: TObject);
  public
    procedure EnableActions;
    procedure SetFontSize( NewFontSize: integer);
  end;

DFM Objects


frmReminderTree : TfrmReminderTree
 ├pnlTop : TPanel
 │ ├tvRem : TORTreeView
 │ ├hcRem : THeaderControl
 │ └pnlTopRight : TPanel
 │   ├bvlGap : TBevel
 │   └lbRem : TORListBox
 ├amgrMain : TVA508AccessibilityManager
 ├mmMain : TMainMenu
 │ └memAction : TMenuItem
 │   ├memEval : TMenuItem
 │   ├memEvalCat : TMenuItem
 │   ├memEvalAll : TMenuItem
 │   ├N2 : TMenuItem
 │   ├memRefresh : TMenuItem
 │   ├mnuCoverSheet : TMenuItem
 │   └mnuExit : TMenuItem
 └imgLblReminders : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
bvlGap TBevel Public/Published -
DateColWidth Integer Private -
FLinking Boolean Private -
FSortAssending Boolean Private -
FSorting Boolean Private -
FSortOrder Integer Private -
FUpdating Boolean Private -
hcRem THeaderControl Public/Published -
imgLblReminders Simple (unknown) Public/Published -
LastDateColWidth Integer Private -
lbRem TORListBox Public/Published -
memAction TMenuItem Public/Published -
memEval TMenuItem Public/Published -
memEvalAll TMenuItem Public/Published -
memEvalCat TMenuItem Public/Published -
memRefresh TMenuItem Public/Published -
memView Simple (unknown) Private -
mmMain Simple (unknown) Public/Published -
mnuCoverSheet TMenuItem Public/Published -
mnuExit TMenuItem Public/Published -
N2 TMenuItem Public/Published -
pnlTop TPanel Public/Published -
pnlTopRight TPanel Public/Published -
PriorityColWidth Integer Private -
tvRem TORTreeView Public/Published -
tvRem508Manager TtvRem508Manager Private -

Methods

Name Declaration Scope Comments
EnableActions procedure EnableActions; Public -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
hcRemSectionClick procedure hcRemSectionClick(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
lbRemChange procedure lbRemChange(Sender: TObject); Public/Published -
lbRemClick procedure lbRemClick(Sender: TObject); Public/Published -
lbRemDrawItem procedure lbRemDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
LinkTopControls procedure LinkTopControls(FromTree: boolean); Protected -
memActionClick procedure memActionClick(Sender: TObject); Public/Published -
memEvalAllClick procedure memEvalAllClick(Sender: TObject); Public/Published -
memEvalCatClick procedure memEvalCatClick(Sender: TObject); Public/Published -
memEvalClick procedure memEvalClick(Sender: TObject); Public/Published
Procedure TfrmReminderTree.PositionToReminder(Sender: TObject);
begin
  if(assigned(Sender)) then
  begin
    if(Sender is TReminder) then
    begin
      tvRem.Selected := tvRem.FindPieceNode(RemCode + (Sender as TReminder).IEN, 1);
      if(assigned(tvRem.Selected)) then
        TORTreeNode(tvRem.Selected).EnsureVisible;
    end;
  end
  else
    tvRem.Selected := nil;
end;
memRefreshClick procedure memRefreshClick(Sender: TObject); Public/Published -
mnuCoverSheetClick procedure mnuCoverSheetClick(Sender: TObject); Public/Published -
mnuExitClick procedure mnuExitClick(Sender: TObject); Public/Published -
pnlTopResize procedure pnlTopResize(Sender: TObject); Public/Published -
ProcessedRemindersChanged procedure ProcessedRemindersChanged(Sender: TObject); Protected Procedure PositionToReminder(Sender: TObject);
RemindersChanged procedure RemindersChanged(Sender: TObject); Protected -
ResetlbItems procedure ResetlbItems(RootNode: TTreeNode); Protected -
Resync procedure Resync(FromTree: boolean); Protected -
SetFontSize procedure SetFontSize( NewFontSize: integer); Public -
SetRemHeaderSectionWidth procedure SetRemHeaderSectionWidth( SectionIndex: integer; NewWidth: integer); Private -
SortData function SortData(Node: TORTreeNode): string; Protected -
SortNode procedure SortNode(const Node: TTreeNode); Protected -
SyncTopControls procedure SyncTopControls(FromTree: boolean); Protected -
tvRemChange procedure tvRemChange(Sender: TObject; Node: TTreeNode); Public/Published -
tvRemClick procedure tvRemClick(Sender: TObject); Public/Published -
tvRemCollapsed procedure tvRemCollapsed(Sender: TObject; Node: TTreeNode); Public/Published -
tvRemEnter procedure tvRemEnter(Sender: TObject); Public/Published -
tvRemExit procedure tvRemExit(Sender: TObject); Public/Published -
tvRemExpanded procedure tvRemExpanded(Sender: TObject; Node: TTreeNode); Public/Published -
tvRemKeyDown procedure tvRemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
tvRemMouseDown procedure tvRemMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
tvRemNodeCaptioning procedure tvRemNodeCaptioning(Sender: TObject; var Caption: String); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fReminderTree (98) frmReminderTree Read
fReminderTree (125) - Read