Procedure

TfrmTemplateEditor.pnlBoilerplateResize

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure pnlBoilerplateResize(Sender: TObject);

Called-By Hierarchy


            TfrmTemplateEditor.pnlBoilerplateResize
                      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┘ │ 
                      TfrmTemplateEditor.FormShow┤ 
                  TfrmTemplateEditor.splBoilMoved┤ 
                  TfrmTemplateEditor.cbNotesClick┤ 
              TfrmTemplateEditor.cbLongLinesClick┤ 
               TfrmTemplateEditor.reResizeRequest┘ 

Called-By

Name Declaration Comments
TfrmTemplateEditor.cbLongLinesClick procedure cbLongLinesClick(Sender: TObject); -
TfrmTemplateEditor.cbNotesClick procedure cbNotesClick(Sender: TObject); -
TfrmTemplateEditor.DisplayBoilerplate procedure DisplayBoilerplate(Node: TTreeNode); -
TfrmTemplateEditor.FormShow procedure FormShow(Sender: TObject); -
TfrmTemplateEditor.reResizeRequest procedure reResizeRequest(Sender: TObject; Rect: TRect); -
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -
TfrmTemplateEditor.splBoilMoved procedure splBoilMoved(Sender: TObject); -


Source

1240  procedure TfrmTemplateEditor.pnlBoilerplateResize(Sender: TObject);
1241  var
1242    Max: integer;
1243  
1244  begin
1245    if (pnlGroupBP.Visible) and (pnlGroupBP.Height > (pnlBoilerplate.Height - 29)) then
1246    begin
1247      pnlGroupBP.Height := pnlBoilerplate.Height - 29;
1248    end;
1249    if cbLongLines.checked then
1250      Max := 240
1251    else
1252      Max := MAX_ENTRY_WIDTH - 1;
1253    LimitEditWidth(reBoil, Max);
1254    LimitEditWidth(reNotes, MAX_ENTRY_WIDTH);
1255  end;