Procedure

TfrmTemplateEditor.ShowGroupBoilerplate

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TfrmTemplateEditor

Declaration

procedure ShowGroupBoilerplate(Visible: boolean);

Called-By Hierarchy


            TfrmTemplateEditor.ShowGroupBoilerplate
                      TfrmTemplateEditor.ShowInfo┤ 
                                  EditTemplates┤ │ 
          TfrmDCSumm.popSummMemoTemplateClick┤ │ │ 
               TfrmDCSumm.mnuNewTemplateClick┤ │ │ 
             TfrmDCSumm.mnuEditTemplatesClick┤ │ │ 
       TfrmDCSumm.mnuEditSharedTemplatesClick┤ │ │ 
         TfrmDCSumm.mnuNewSharedTemplateClick┤ │ │ 
        TfrmConsults.popNoteMemoTemplateClick┤ │ │ 
           TfrmConsults.mnuEditTemplatesClick┤ │ │ 
             TfrmConsults.mnuNewTemplateClick┤ │ │ 
     TfrmConsults.mnuEditSharedTemplatesClick┤ │ │ 
       TfrmConsults.mnuNewSharedTemplateClick┤ │ │ 
            TfrmDrawers.mnuEditTemplatesClick┤ │ │ 
              TfrmDrawers.mnuNewTemplateClick┤ │ │ 
         TfrmSurgery.popNoteMemoTemplateClick┤ │ │ 
            TfrmSurgery.mnuEditTemplatesClick┤ │ │ 
              TfrmSurgery.mnuNewTemplateClick┤ │ │ 
      TfrmSurgery.mnuEditSharedTemplatesClick┤ │ │ 
        TfrmSurgery.mnuNewSharedTemplateClick┤ │ │ 
           TfrmNotes.popNoteMemoTemplateClick┤ │ │ 
              TfrmNotes.mnuEditTemplatesClick┤ │ │ 
                TfrmNotes.mnuNewTemplateClick┤ │ │ 
        TfrmNotes.mnuEditSharedTemplatesClick┤ │ │ 
          TfrmNotes.mnuNewSharedTemplateClick┘ │ │ 
                TfrmTemplateEditor.tvTreeChange┤ │ 
             TfrmTemplateEditor.cbActiveClick┤ │ │ 
               TfrmTemplateEditor.tvTreeEnter┤ │ │ 
             TfrmTemplateEditor.cbShHideClick┤ │ │ 
           TfrmTemplateEditor.cbActiveClick┘ │ │ │ 
            TfrmTemplateEditor.cbPerHideClick┤ │ │ 
           TfrmTemplateEditor.cbActiveClick┘ │ │ │ 
             TfrmTemplateEditor.sbDeleteClick┤ │ │ 
      TfrmTemplateEditor.mnuNodeDeleteClick┤ │ │ │ 
           TfrmTemplateEditor.tvTreeKeyDown┘ │ │ │ 
                    TfrmTemplateEditor.Resync┤ │ │ 
             TfrmTemplateEditor.btnNewClick┤ │ │ │ 
                         EditTemplates...┤ │ │ │ │ 
       TfrmTemplateEditor.mnuAutoGenClick┤ │ │ │ │ 
TfrmTemplateEditor.mnuImportTemplateClick┘ │ │ │ │ 
           TfrmTemplateEditor.sbMoveUpClick┤ │ │ │ 
         TfrmTemplateEditor.sbMoveDownClick┤ │ │ │ 
        TfrmTemplateEditor.sbDeleteClick...┤ │ │ │ 
          TfrmTemplateEditor.tvTreeDragDrop┤ │ │ │ 
       TfrmTemplateEditor.sbCopyLeftClick┤ │ │ │ │ 
      TfrmTemplateEditor.sbCopyRightClick┤ │ │ │ │ 
     TfrmTemplateEditor.mnuNodePasteClick┘ │ │ │ │ 
            TfrmTemplateEditor.mnuSortClick┤ │ │ │ 
          TfrmTemplateEditor.TemplateLocked┘ │ │ │ 
            TfrmTemplateEditor.FormCreate┘   │ │ │ 
             TfrmTemplateEditor.SharedEditing┤ │ │ 
              TfrmTemplateEditor.FormCreate┤ │ │ │ 
       TfrmTemplateEditor.cbEditSharedClick┘ │ │ │ 
             TfrmTemplateEditor.cbxTypeChange┘ │ │ 
                TfrmTemplateEditor.reBoilChange┤ │ 
             TfrmTemplateEditor.mnuAutoGenClick┤ │ 
      TfrmTemplateEditor.mnuImportTemplateClick┘ │ 
            TfrmTemplateEditor.DisplayBoilerplate┘ 
                 TfrmTemplateEditor.ShowInfo...┤   
                TfrmTemplateEditor.edtGapChange┘   

Called-By

Name Declaration Comments
TfrmTemplateEditor.DisplayBoilerplate procedure DisplayBoilerplate(Node: TTreeNode); -
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -


Source

965   procedure TfrmTemplateEditor.ShowGroupBoilerplate(Visible: boolean);
966   begin
967     pnlGroupBP.Visible := Visible;
968     splBoil.Visible := Visible;
969     if Visible then
970     begin
971       reBoil.Align := alTop;
972       pnlGroupBP.Align := alClient;
973       reBoil.Height := tmplEditorSplitterBoil;
974       splBoil.Top := pnlGroupBP.Top - splBoil.Height;
975     end
976     else
977     begin
978       pnlGroupBP.Align := alBottom;
979       reBoil.Align := alClient;
980       pnlNotes.Constraints.MaxHeight := 0;
981     end;
982   end;