Function

TTemplate.DialogProperties

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TTemplate

Declaration

function DialogProperties(Parent: TTemplate = nil): string;

Calls Hierarchy


TTemplate.DialogProperties
 ├TTemplate.GetBoilerplate
 │ └GetTemplateBoilerplate
 └TTemplate.DlgID

Called-By Hierarchy


                               TTemplate.DialogProperties
                              TTemplate.ItemBoilerplate┤ 
                            TTemplate.FullBoilerplate┘ │ 
                                  TTemplate.GetText┤   │ 
                     ExecuteTemplateOrBoilerPlate┤ │   │ 
                           TfrmDrawers.InsertText┤ │   │ 
                TfrmDrawers.tvTemplatesDblClick┤ │ │   │ 
                 TfrmDrawers.tvTemplatesKeyDown┤ │ │   │ 
                     TfrmDrawers.NewRECDragDrop┤ │ │   │ 
               TfrmDrawers.SetRichEditControl┘ │ │ │   │ 
                      TfrmDCSumm.FormCreate┤   │ │ │   │ 
                    TfrmConsults.FormCreate┤   │ │ │   │ 
                     TfrmSurgery.FormCreate┤   │ │ │   │ 
                       TfrmNotes.FormCreate┘   │ │ │   │ 
             TfrmDrawers.mnuInsertTemplateClick┘ │ │   │ 
       TfrmDCSumm.popSummMemoInsTemplateClick┤   │ │   │ 
     TfrmConsults.popNoteMemoInsTemplateClick┤   │ │   │ 
      TfrmSurgery.popNoteMemoInsTemplateClick┤   │ │   │ 
        TfrmNotes.popNoteMemoInsTemplateClick┘   │ │   │ 
              TfrmDrawers.mnuPreviewTemplateClick┤ │   │ 
             TfrmDCSumm.popSummMemoPreviewClick┤ │ │   │ 
           TfrmConsults.popNoteMemoPreviewClick┤ │ │   │ 
            TfrmSurgery.popNoteMemoPreviewClick┤ │ │   │ 
              TfrmNotes.popNoteMemoPreviewClick┘ │ │   │ 
                 TfrmDrawers.mnuCopyTemplateClick┤ │   │ 
                 TfrmTemplateEditor.mnuBPTryClick┘ │   │ 
               TfrmTemplateEditor.tvTreeKeyDown┘   │   │ 
              TfrmTemplateEditor.DisplayBoilerplate┤   │ 
                      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.edtGapChange┘ │   │ 
                    TfrmTemplateEditor.reBoilChange┘   │ 
                           TTemplate.FullBoilerplate...┘ 

Calls

Name Declaration Comments
TTemplate.DlgID function DlgID: string; -
TTemplate.GetBoilerplate function GetBoilerplate: string; -

Called-By

Name Declaration Comments
TTemplate.FullBoilerplate function FullBoilerplate: string; -
TTemplate.ItemBoilerplate function ItemBoilerplate: string; -


Source

2390  function TTemplate.DialogProperties(Parent: TTemplate = nil): string;
2391  var
2392    Show, ToggleItems: boolean;
2393    bGap: integer;
2394    GroupIdx: string;
2395  
2396  begin
2397    GroupIdx := '0';
2398    bGap := 0;
2399    if(assigned(parent)) then
2400    begin
2401      Show := ((not Parent.HideDlgItems) or (Parent.Boilerplate = ''));
2402  //    if(Parent.Boilerplate <> '') and (Parent.OneItemOnly) then
2403      if(Parent.OneItemOnly) then
2404        GroupIdx := Parent.DlgID;
2405      if(Parent.RealType = ttGroup) then
2406        bGap := Parent.Gap;
2407    end
2408    else
2409      Show := TRUE;
2410  
2411    ToggleItems := ((HideDlgItems) and (Boilerplate <> ''));
2412  
2413    Result := BOOLCHAR[DisplayOnly] +
2414              BOOLCHAR[FirstLine] +
2415              BOOLCHAR[Show] +
2416              BOOLCHAR[ToggleItems] +
2417              IntToStr(bGap) +  // Depends on Gap being 1 character in length
2418              ';' + GroupIdx + ';' + DlgID;
2419    if(assigned(Parent)) then
2420      SetPiece(Result, ';', 4, Parent.DlgID);
2421    SetPiece(Result,';',5, inttostr(uIndentLevel));
2422  end;