Procedure

TfrmDrawers.sbTemplatesClick

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDrawers

Declaration

procedure sbTemplatesClick(Sender: TObject);

Calls Hierarchy


TfrmDrawers.sbTemplatesClick
 ├TfrmDrawers.ReloadTemplates
 │ ├TfrmDrawers.SetFindNext
 │ ├LoadTemplateData
 │ │ ├GetTemplateRoots
 │ │ └AddTemplate
 │ │   ├TTemplate.Create
 │ │   │ └TTemplate.ReminderDialogIEN
 │ │   └TTemplate.AddChild
 │ │     └TTemplate.GetItems
 │ │       └ExpandTemplate
 │ │         ├TTemplate.GetChildren
 │ │         ├GetTemplateChildren
 │ │         ├AddTemplate...
 │ │         └TTemplate.ItemIENs
 │ │           └TTemplate.GetItems...
 │ ├UserTemplateAccessLevel
 │ │ ├GetTemplateRoots
 │ │ └GetTemplateAccess
 │ ├TTemplate.GetChildren
 │ ├TfrmDrawers.AddTemplateNode
 │ │ └TdmodShared.AddTemplateNode
 │ │   ├AddChildObject
 │ │   │ └TTemplate.AddNode
 │ │   └TTemplate.GetChildren
 │ └TfrmDrawers.OpenToNode
 │   └TdmodShared.SelectNode
 │     ├FindNode
 │     └TdmodShared.ExpandNode
 │       ├ExpandTemplate...
 │       ├TTemplate.GetItems...
 │       ├TdmodShared.AddTemplateNode...
 │       └TTemplate.GetChildren
 └TfrmDrawers.ToggleDrawer
   └TfrmDrawers.OpenDrawer
     ├TfrmDrawers.StartInternalResize
     ├TfrmDrawers.GetDrawerControls
     ├TfrmDrawers.SetSplitterActive
     ├TfrmDrawers.EndInternalResize
     └TfrmDrawers.ResizeToVisible
       ├AllCtrls
       │ └TfrmDrawers.GetDrawerControls
       ├TfrmDrawers.GetDrawerControls
       ├TfrmDrawers.ButtonHeights
       ├TfrmDrawers.MinDrawerControlHeight
       ├TfrmDrawers.StartInternalResize
       └TfrmDrawers.EndInternalResize

Calls

Name Declaration Comments
TfrmDrawers.ReloadTemplates procedure ReloadTemplates; -
TfrmDrawers.ToggleDrawer procedure ToggleDrawer(Drawer: TDrawer); -


Source

535   procedure TfrmDrawers.sbTemplatesClick(Sender: TObject);
536   begin
537     if(FOpenDrawer <> odTemplates) then
538     begin
539       ReloadTemplates;
540       btnFind.Enabled := (edtSearch.Text <> '');
541       pnlTemplateSearch.Visible := mnuFindTemplates.Checked;
542     end;
543     ToggleDrawer(odTemplates);
544     if ScreenReaderActive then
545       pnlTemplatesButton.SetFocus;
546   end;