Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (9 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Templates/fTemplateEditor.pas

    r829 r1679  
    3131    btnCancel: TButton;
    3232    btnOK: TButton;
    33     pnlBoilerplate: TPanel;
    34     reBoil: TRichEdit;
    3533    pnlTop: TPanel;
    3634    pnlRightTop: TPanel;
    … …  
    6664    mnuBPErrorCheck: TMenuItem;
    6765    mnuBPSpellCheck: TMenuItem;
    68     pnlGroupBP: TPanel;
    69     reGroupBP: TRichEdit;
    70     lblGroupBP: TLabel;
    71     splBoil: TSplitter;
    72     pnlGroupBPGap: TPanel;
    7366    tmrAutoScroll: TTimer;
    7467    popGroup: TPopupMenu;
    … …  
    154147    mnuAutoGen: TMenuItem;
    155148    mnuNodeAutoGen: TMenuItem;
    156     pnlNotes: TPanel;
    157     reNotes: TRichEdit;
    158     splNotes: TSplitter;
    159     lblNotes: TLabel;
    160149    popNotes: TPopupMenu;
    161150    mnuNotesUndo: TMenuItem;
    … …  
    193182    N17: TMenuItem;
    194183    mnuTemplateIconLegend: TMenuItem;
    195     pnlBP: TPanel;
    196     lblBoilerplate: TLabel;
    197     cbLongLines: TCheckBox;
    198184    cbLock: TORCheckBox;
    199185    mnuRefresh: TMenuItem;
    200     lblBoilRow: TLabel;
    201     lblGroupRow: TLabel;
    202     lblBoilCol: TLabel;
    203     lblGroupCol: TLabel;
    204186    pnlCOM: TPanel;
    205187    lblCOMParam: TLabel;
    … …  
    211193    lblLink: TLabel;
    212194    imgLblTemplates: TVA508ImageListLabeler;
     195    Panel1: TPanel;
     196    pnlBoilerplate: TPanel;
     197    splBoil: TSplitter;
     198    splNotes: TSplitter;
     199    reBoil: TRichEdit;
     200    pnlGroupBP: TPanel;
     201    lblGroupBP: TLabel;
     202    lblGroupRow: TLabel;
     203    lblGroupCol: TLabel;
     204    reGroupBP: TRichEdit;
     205    pnlGroupBPGap: TPanel;
     206    pnlBP: TPanel;
     207    lblBoilerplate: TLabel;
     208    lblBoilRow: TLabel;
     209    lblBoilCol: TLabel;
     210    cbLongLines: TCheckBox;
     211    pnlNotes: TPanel;
     212    lblNotes: TLabel;
     213    reNotes: TRichEdit;
    213214    procedure btnNewClick(Sender: TObject);
    214215    procedure btnApplyClick(Sender: TObject);
    215216    procedure FormCreate(Sender: TObject);
    216     procedure cboOwnerNeedData(Sender: TObject; const StartFrom: String;
     217    procedure cboOwnerNeedData(Sender: TObject; const StartFrom: string;
    217218      Direction, InsertAt: Integer);
    218219    procedure cboOwnerChange(Sender: TObject);
    … …  
    232233    procedure tvTreeEnter(Sender: TObject);
    233234    procedure tvTreeNodeEdited(Sender: TObject; Node: TTreeNode;
    234       var S: String);
     235      var S: string);
    235236    procedure cbShHideClick(Sender: TObject);
    236237    procedure cbPerHideClick(Sender: TObject);
    … …  
    338339    procedure cbxCOMObjChange(Sender: TObject);
    339340    procedure edtCOMParamChange(Sender: TObject);
    340     procedure cbxLinkNeedData(Sender: TObject; const StartFrom: String;
     341    procedure cbxLinkNeedData(Sender: TObject; const StartFrom: string;
    341342      Direction, InsertAt: Integer);
    342     procedure cbxLinkChange(Sender: TObject);
     343    procedure cbxLinkExit(Sender: TObject);
    343344    procedure reBoilKeyUp(Sender: TObject; var Key: Word;
    344345      Shift: TShiftState);
    … …  
    347348      Shift: TShiftState);
    348349    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     350    procedure splMainCanResize(Sender: TObject; var NewSize: Integer;
     351      var Accept: Boolean);
    349352  private
    350353    FLastRect: TRect;
    … …  
    366369    FCurTree: TTreeView;
    367370    FTreeControl: array[TTemplateTreeType, TTemplateTreeControl] of TControl;
    368     FInternalHiddenExpand :boolean;
     371    FInternalHiddenExpand: boolean;
    369372    FFindShOn: boolean;
    370373    FFindShNext: boolean;
    … …  
    451454  PropText = ' Template Properties ';
    452455//  GroupTag = 5;
    453   BPDisplayOnlyFld  = 0;
    454   BPFirstLineFld    = 1;
    455   BPOneItemOnlyFld  = 2;
     456  BPDisplayOnlyFld = 0;
     457  BPFirstLineFld = 1;
     458  BPOneItemOnlyFld = 2;
    456459  BPHideDlgItemsFld = 3;
    457   BPHideItemsFld    = 4;
    458   BPIndentFld       = 5;
    459   BPLockFld         = 6;
     460  BPHideItemsFld = 4;
     461  BPIndentFld = 5;
     462  BPLockFld = 6;
    460463  NoIE5 = 'You must have Internet Explorer 5 or better installed to %s Templates';
    461464  NoIE5Header = 'Need Internet Explorer 5';
    462   VK_A              = Ord('A');
    463   VK_C              = Ord('C');
    464   VK_E              = Ord('E');
    465   VK_F              = Ord('F');
    466   VK_G              = Ord('G');
    467   VK_I              = Ord('I');
    468   VK_S              = Ord('S');
    469   VK_T              = Ord('T');
    470   VK_V              = Ord('V');
    471   VK_X              = Ord('X');
    472   VK_Z              = Ord('Z');
     465  VK_A = Ord('A');
     466  VK_C = Ord('C');
     467  VK_E = Ord('E');
     468  VK_F = Ord('F');
     469  VK_G = Ord('G');
     470  VK_I = Ord('I');
     471  VK_S = Ord('S');
     472  VK_T = Ord('T');
     473  VK_V = Ord('V');
     474  VK_X = Ord('X');
     475  VK_Z = Ord('Z');
    473476
    474477type
    … …  
    481484
    482485  TypeTag: array[TTypeIndex] of TTemplateType = (ttDoc, ttClass, ttGroup, ttDialog, ttDoc, ttDoc);
    483   ForcedIdx: array[boolean, TTypeIndex] of integer = ((0,1,2,3,4,5),(-1,0,1,2,-1,-1));
     486  ForcedIdx: array[boolean, TTypeIndex] of integer = ((0, 1, 2, 3, 4, 5), (-1, 0, 1, 2, -1, -1));
    484487  IdxForced: array[boolean, 0..5] of TTypeIndex = ((tiTemplate, tiFolder, tiGroup, tiDialog, tiRemDlg, tiCOMObj),
    485                                                    (tiFolder, tiGroup, tiDialog, tiNone, tiNone, tiNone));
     488    (tiFolder, tiGroup, tiDialog, tiNone, tiNone, tiNone));
    486489  iMessage = 'This template has one or more new fields, and you are not authorized to create new fields.  ' +
    487              'If you continue, the program will import the new template without the new fields.  Do you wish ' +
    488              'to do this?';
     490    'If you continue, the program will import the new template without the new fields.  Do you wish ' +
     491    'to do this?';
    489492  iMessage2 = 'The imported template fields had XML errors.  ';
    490493  iMessage3 = 'No Fields were imported.';
    … …  
    495498
    496499procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE;
    497                         CopiedText: string = ''; Shared: boolean = FALSE);
     500  CopiedText: string = ''; Shared: boolean = FALSE);
    498501var
    499502  frmTemplateEditor: TfrmTemplateEditor;
    … …  
    504507
    505508begin
    506   if(UserTemplateAccessLevel in [taReadOnly, taNone]) then exit;
     509  if (UserTemplateAccessLevel in [taReadOnly, taNone]) then exit;
    507510
    508511  ExpandStr := '';
    509512  SelectStr := '';
    510513  Drawers := nil;
    511   if(not NewTemplate) and (CopiedText = '') then
     514  if (not NewTemplate) and (CopiedText = '') then
    512515  begin
    513516    if Form is TfrmDrawers then
    514517      Drawers := TFrmDrawers(Form)
    515518    else
    516     if IsPublishedProp(Form, DrawersProperty) then
    517       Drawers := TFrmDrawers(GetOrdProp(Form, DrawersProperty));
     519      if IsPublishedProp(Form, DrawersProperty) then
     520        Drawers := TFrmDrawers(GetOrdProp(Form, DrawersProperty));
    518521  end;
    519522
    … …  
    521524  begin
    522525    ExpandStr := Drawers.tvTemplates.GetExpandedIDStr(1, ';');
    523     SelectStr := Drawers.tvTemplates.GetNodeID(TORTreeNode(Drawers.tvTemplates.Selected),1,';');
     526    SelectStr := Drawers.tvTemplates.GetNodeID(TORTreeNode(Drawers.tvTemplates.Selected), 1, ';');
    524527  end;
    525528
    … …  
    533536      reNotes.Font.Size := Form.Font.Size;
    534537      dmodShared.ExpandTree(tvShared, ExpandStr, FSharedEmptyNodeCount);
    535       SelNode := tvShared.FindPieceNode(SelectStr,1,';');
     538      SelNode := tvShared.FindPieceNode(SelectStr, 1, ';');
    536539      SelShared := assigned(SelNode);
    537540      dmodShared.ExpandTree(tvPersonal, ExpandStr, FPersonalEmptyNodeCount);
    538541      if not SelShared then
    539         SelNode := tvPersonal.FindPieceNode(SelectStr,1,';');
    540 
    541       if(SelShared and (not Shared)) then
     542        SelNode := tvPersonal.FindPieceNode(SelectStr, 1, ';');
     543
     544      if (SelShared and (not Shared)) then
    542545        Shared := TRUE;
    543546
    544       if(Shared and (UserTemplateAccessLevel = taEditor)) then
     547      if (Shared and (UserTemplateAccessLevel = taEditor)) then
    545548      begin
    546549        cbEditShared.Checked := TRUE;
    … …  
    552555      end
    553556      else
    554       if(not SelShared) and (assigned(SelNode)) then
    555         tvPersonal.Selected := SelNode;
    556       if(NewTemplate) then
     557        if (not SelShared) and (assigned(SelNode)) then
     558          tvPersonal.Selected := SelNode;
     559      if (NewTemplate) then
    557560      begin
    558561        btnNewClick(frmTemplateEditor);
    559         if(CopiedText <> '') then
     562        if (CopiedText <> '') then
    560563        begin
    561564          TTemplate(FBtnNewNode.Data).Boilerplate := CopiedText;
    … …  
    580583
    581584begin
    582   if((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    583   begin
    584     if(FCurTree = tvShared) and (FCanEditShared) then
     585  if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     586  begin
     587    if (FCurTree = tvShared) and (FCanEditShared) then
    585588      ok := TRUE
    586589    else
    587     if(FCurTree = tvPersonal) and (FCanEditPersonal) then
    588       ok := TRUE
    589     else
    590       ok := FALSE;
    591     if(ok) then
     590      if (FCurTree = tvPersonal) and (FCanEditPersonal) then
     591        ok := TRUE
     592      else
     593        ok := FALSE;
     594    if (ok) then
    592595    begin
    593596      Node := FCurTree.Selected;
    594597      PNode := Node;
    595       if(TTemplate(Node.Data).RealType = ttDoc) then
     598      if (TTemplate(Node.Data).RealType = ttDoc) then
    596599        PNode := Node.Parent;
    597600      if CanClone(PNode) then
    … …  
    605608          else
    606609            idx := Owner.Items.IndexOf(Node.Data) + 1;
    607           if(FCurTree = tvShared) then
    608             begin
    609               ownr := '';
    610               ACheckBox := cbShHide;
    611             end
     610          if (FCurTree = tvShared) then
     611          begin
     612            ownr := '';
     613            ACheckBox := cbShHide;
     614          end
    612615          else
    613             begin
    614               ownr := IntToStr(User.DUZ);
    615               ACheckBox := cbPerHide;
    616             end;
     616          begin
     617            ownr := IntToStr(User.DUZ);
     618            ACheckBox := cbPerHide;
     619          end;
    617620          if FImportingFromXML then
    618621          begin
    … …  
    622625          else
    623626          begin
    624             Tmp := TTemplate.Create('0^T^A^'+NewTemplateName+'^^^'+ownr);
     627            Tmp := TTemplate.Create('0^T^A^' + NewTemplateName + '^^^' + ownr);
    625628            Tmp.BackupItems;
    626629            Templates.AddObject(Tmp.ID, Tmp);
    627630          end;
    628631          btnApply.Enabled := TRUE;
    629           if(idx >= Owner.Items.Count) then
     632          if (idx >= Owner.Items.Count) then
    630633            Owner.Items.Add(Tmp)
    631634          else
    … …  
    633636          Resync([Owner]);
    634637          Node := FCurTree.Selected;
    635           if(Node.Data <> Tmp) then
     638          if (Node.Data <> Tmp) then
    636639          begin
    637             if(TTemplate(Node.Data).RealType = ttDoc) then
     640            if (TTemplate(Node.Data).RealType = ttDoc) then
    638641              Node := Node.GetNextSibling
    639642            else
    … …  
    645648          end;
    646649          FBtnNewNode := Node;
    647           if(FFirstShow) then
     650          if (FFirstShow) then
    648651            FFocusName := TRUE
    649652          else
    … …  
    660663procedure TfrmTemplateEditor.btnApplyClick(Sender: TObject);
    661664begin
    662   if(ScanNames) then
     665  if (ScanNames) then
    663666  begin
    664667    SaveAllTemplates;
    … …  
    671674procedure TfrmTemplateEditor.FormCreate(Sender: TObject);
    672675begin
     676  SetFormPosition(Self);
    673677  ResizeAnchoredFormToFont(self);
    674678  //Now fix everything the resize messed up
    … …  
    681685
    682686  FSavePause := Application.HintHidePause;
    683   Application.HintHidePause := FSavePause*2;
     687  Application.HintHidePause := FSavePause * 2;
    684688  if InteractiveRemindersActive then
    685689  begin
    … …  
    696700  FFirstShow := TRUE;
    697701
    698   FTreeControl[ttShared,   tcDel] := sbShDelete;
    699   FTreeControl[ttShared,   tcUp]  := sbShUp;
    700   FTreeControl[ttShared,   tcDown] := sbShDown;
    701   FTreeControl[ttShared,   tcLbl] := lblCopy;
    702   FTreeControl[ttShared,   tcCopy] := sbCopyRight;
    703   FTreeControl[ttPersonal, tcDel]  := sbPerDelete;
    704   FTreeControl[ttPersonal, tcUp]   := sbPerUp;
     702  FTreeControl[ttShared, tcDel] := sbShDelete;
     703  FTreeControl[ttShared, tcUp] := sbShUp;
     704  FTreeControl[ttShared, tcDown] := sbShDown;
     705  FTreeControl[ttShared, tcLbl] := lblCopy;
     706  FTreeControl[ttShared, tcCopy] := sbCopyRight;
     707  FTreeControl[ttPersonal, tcDel] := sbPerDelete;
     708  FTreeControl[ttPersonal, tcUp] := sbPerUp;
    705709  FTreeControl[ttPersonal, tcDown] := sbPerDown;
    706   FTreeControl[ttPersonal, tcLbl]  := lblCopy;
     710  FTreeControl[ttPersonal, tcLbl] := lblCopy;
    707711  FTreeControl[ttPersonal, tcCopy] := sbCopyLeft;
    708712  dmodShared.InEditor := TRUE;
    … …  
    739743
    740744  BtnApply.Enabled := BackupDiffers;
    741   SetFormPosition(Self);
     745  //SetFormPosition(Self);
    742746end;
    743747
    … …  
    745749begin
    746750  sbCopyRight.Visible := FCanEditPersonal;
    747   if(not FCanEditPersonal) then
     751  if (not FCanEditPersonal) then
    748752    cbPerHide.Checked := TRUE;
    749753  cbPerHide.Visible := FCanEditPersonal;
    … …  
    756760
    757761procedure TfrmTemplateEditor.cboOwnerNeedData(Sender: TObject;
    758   const StartFrom: String; Direction, InsertAt: Integer);
     762  const StartFrom: string; Direction, InsertAt: Integer);
    759763begin
    760764//  cboOwner.ForDataUse(SubSetOfTemplateOwners(StartFrom, Direction));
    … …  
    773777  FCurrentPersonalUser := UsrIEN;
    774778  NewEdit := (FCurrentPersonalUser = User.DUZ);
    775   if(FCanEditPersonal <> NewEdit) then
     779  if (FCanEditPersonal <> NewEdit) then
    776780  begin
    777781    FCanEditPersonal := NewEdit;
    … …  
    784788begin
    785789  AllowExpansion := dmodShared.ExpandNode(tvPersonal, Node,
    786                     FPersonalEmptyNodeCount, not cbPerHide.Checked);
    787   if(AllowExpansion and FInternalHiddenExpand) then
     790    FPersonalEmptyNodeCount, not cbPerHide.Checked);
     791  if (AllowExpansion and FInternalHiddenExpand) then
    788792    AllowExpansion := FALSE;
    789793end;
    … …  
    793797begin
    794798  AllowExpansion := dmodShared.ExpandNode(tvShared, Node,
    795                     FSharedEmptyNodeCount, not cbShHide.Checked);
    796   if(AllowExpansion and FInternalHiddenExpand) then
     799    FSharedEmptyNodeCount, not cbShHide.Checked);
     800  if (AllowExpansion and FInternalHiddenExpand) then
    797801    AllowExpansion := FALSE;
    798802end;
    … …  
    813817var
    814818  Template: TTemplate;
    815  
     819
    816820begin
    817821  Result := FALSE;
    … …  
    822826      Result := TRUE
    823827    else
    824     if (Template.PersonalOwner = 0) then
    825     begin
    826       if RootTemplate.IsLocked then
    827         Result := TRUE
    828       else
    829       begin
    830         Result := TTemplate(Node.Data).IsLocked;
    831         if (not Result) and assigned(Node.Parent) and
    832            (TTemplate(Node.Parent).PersonalOwner = 0) then
    833           Result := IsTemplateLocked(Node.Parent);
     828      if (Template.PersonalOwner = 0) then
     829      begin
     830        if RootTemplate.IsLocked then
     831          Result := TRUE
     832        else
     833        begin
     834          Result := TTemplate(Node.Data).IsLocked;
     835          if (not Result) and assigned(Node.Parent) and
     836            (TTemplate(Node.Parent).PersonalOwner = 0) then
     837            Result := IsTemplateLocked(Node.Parent);
     838        end;
    834839      end;
    835     end;
    836840  end;
    837841end;
    … …  
    852856    if Something then
    853857    begin
    854       if(Sender = tvPersonal) then
     858      if (Sender = tvPersonal) then
    855859      begin
    856860        ok := FCanEditPersonal;
    … …  
    875879begin
    876880  cbLock.Enabled := ok and (FCurTree = tvShared);
    877   if(ok and Root) then
     881  if (ok and Root) then
    878882  begin
    879883    ok := FALSE;
    … …  
    925929begin
    926930  tmpHeight := tvShared.Height;
    927   dec(tmpHeight,lblCopy.Height);
    928   if(sbCopyLeft.Visible) then
    929     dec(tmpHeight, sbCopyLeft.Height+5);
    930   if(sbCopyRight.Visible) then
    931     dec(tmpHeight, sbCopyRight.Height+5);
     931  dec(tmpHeight, lblCopy.Height);
     932  if (sbCopyLeft.Visible) then
     933    dec(tmpHeight, sbCopyLeft.Height + 5);
     934  if (sbCopyRight.Visible) then
     935    dec(tmpHeight, sbCopyRight.Height + 5);
    932936  tmpHeight := (tmpHeight div 2) + tvShared.Top;
    933937  lblCopy.Top := tmpHeight;
    934   inc(tmpHeight,lblCopy.height+5);
    935   if(sbCopyLeft.Visible) then
     938  inc(tmpHeight, lblCopy.height + 5);
     939  if (sbCopyLeft.Visible) then
    936940  begin
    937941    sbCopyLeft.Top := tmpHeight;
    938     inc(tmpHeight, sbCopyLeft.Height+5);
    939   end;
    940   if(sbCopyRight.Visible) then
     942    inc(tmpHeight, sbCopyLeft.Height + 5);
     943  end;
     944  if (sbCopyRight.Visible) then
    941945    sbCopyRight.Top := tmpHeight;
     946end;
     947
     948procedure TfrmTemplateEditor.splMainCanResize(Sender: TObject;
     949  var NewSize: Integer; var Accept: Boolean);
     950begin
     951  inherited;
     952  if (pnlGroupBP.Height - (NewSize - splMain.Top) <= pnlGroupBP.Constraints.MinHeight) and (NewSize > splMain.Top) then begin
     953    //Moving Down
     954    Accept := False;
     955    NewSize := splMain.Top;
     956  end else Accept := True; //Moving Up
    942957end;
    943958
    … …  
    962977    pnlGroupBP.Align := alBottom;
    963978    reBoil.Align := alClient;
     979    pnlNotes.Constraints.MaxHeight := 0;
    964980  end;
    965981end;
    … …  
    977993  FUpdating := TRUE;
    978994  try
    979     if(assigned(Node)) then
     995    if (assigned(Node)) then
    980996    begin
    981997      FShowingTemplate := TTemplate(Node.Data);
    … …  
    9871003        ShowTemplateType(TTemplate(Node.Data));
    9881004        lt := GetLinkType(Node);
    989         if(lt = ltNone) or (IsReminderDialog and (not (lt in [ltNone, ltTitle]))) then
     1005        if (lt = ltNone) or (IsReminderDialog and (not (lt in [ltNone, ltTitle]))) then
    9901006          pnlLink.Visible := FALSE
    9911007        else
    … …  
    9941010          pnlLink.Tag := ord(lt);
    9951011          case lt of
    996             ltTitle:     lts := 'Title';
    997             ltConsult:   lts := 'Consult Service';
     1012            ltTitle: lts := 'Title';
     1013            ltConsult: lts := 'Consult Service';
    9981014            ltProcedure: lts := 'Procedure';
    999             else        lts := '';
     1015          else lts := '';
    10001016          end;
    10011017          cbxLink.Clear;
    … …  
    10241040        edtName.Text := PrintName;
    10251041        reNotes.Lines.Text := Description;
    1026         if(PersonalOwner = 0) and (FCurTree = tvShared) and (cbEditShared.Checked) then
     1042        if (PersonalOwner = 0) and (FCurTree = tvShared) and (cbEditShared.Checked) then
    10271043        begin
    10281044          cbLock.Checked := IsLocked;
    … …  
    10361052        end;
    10371053        CanDoCom := FCanDoCOMObjects and (PersonalOwner = 0);
    1038         if(RealType in AllTemplateRootTypes) then
     1054        if (RealType in AllTemplateRootTypes) then
    10391055        begin
    10401056          ClearRB := TRUE;
    … …  
    10451061          case RealType of
    10461062            ttDoc: begin
    1047                      if IsReminderDialog then
    1048                        Idx := tiRemDlg
    1049                      else
    1050                      if IsCOMObject then
    1051                        Idx := tiCOMObj
    1052                      else
    1053                        Idx := tiTemplate;
    1054                    end;
     1063                if IsReminderDialog then
     1064                  Idx := tiRemDlg
     1065                else
     1066                  if IsCOMObject then
     1067                    Idx := tiCOMObj
     1068                  else
     1069                    Idx := tiTemplate;
     1070              end;
    10551071            ttGroup: begin
    1056                        if(Dialog) then
    1057                          Idx := tiDialog
    1058                        else
    1059                          Idx := tiGroup;
    1060                      end;
     1072                if (Dialog) then
     1073                  Idx := tiDialog
     1074                else
     1075                  Idx := tiGroup;
     1076              end;
    10611077            ttClass: Idx := tiFolder;
    1062             else Idx := tiNone;
     1078          else Idx := tiNone;
    10631079          end;
    10641080          FForceContainer := ((RealType in [ttGroup, ttClass]) and (Children <> tcNone));
    … …  
    10711087          if (not FForceContainer) then
    10721088          begin
    1073             if(FCanDoReminders or CanDoCOM) then
     1089            if (FCanDoReminders or CanDoCOM) then
    10741090              cbxType.Items.Add('Reminder Dialog');
    1075             if(CanDoCOM) then
     1091            if (CanDoCOM) then
    10761092              cbxType.Items.Add('COM Object');
    10771093          end;
    10781094          cbxType.ItemIndex := ForcedIdx[FForceContainer, Idx];
    1079           if(Idx = tiRemDlg) and FCanDoReminders then
     1095          if (Idx = tiRemDlg) and FCanDoReminders then
    10801096            cbxRemDlgs.SelectByID(ReminderDialogIEN)
    10811097          else
    … …  
    10981114          end;
    10991115          cbActive.Checked := Active;
    1100           if(RealType in [ttClass, ttGroup]) then
     1116          if (RealType in [ttClass, ttGroup]) then
    11011117            cbHideItems.Checked := HideItems
    11021118          else
    … …  
    11051121            cbHideItems.Enabled := FALSE;
    11061122          end;
    1107           if((RealType in [ttDoc, ttGroup]) and (assigned(Node.Parent)) and
    1108              (TTemplate(Node.Parent.Data).RealType = ttGroup) and
    1109              (not IsReminderDialog) and (not IsCOMObject)) then
     1123          if ((RealType in [ttDoc, ttGroup]) and (assigned(Node.Parent)) and
     1124            (TTemplate(Node.Parent.Data).RealType = ttGroup) and
     1125            (not IsReminderDialog) and (not IsCOMObject)) then
    11101126            cbExclude.Checked := Exclude
    11111127          else
    … …  
    11261142            cbFirstLine.Enabled := FALSE;
    11271143          end;
    1128           if(RealType in [ttGroup, ttClass]) and (Children <> tcNone) and
     1144          if (RealType in [ttGroup, ttClass]) and (Children <> tcNone) and
    11291145            (dmodShared.InDialog(Node)) then
    11301146          begin
    11311147            cbOneItemOnly.Checked := OneItemOnly;
    11321148            cbIndent.Checked := IndentItems;
    1133             if(RealType = ttGroup) and (Boilerplate <> '') then
     1149            if (RealType = ttGroup) and (Boilerplate <> '') then
    11341150            begin
    11351151              cbHideDlgItems.Checked := HideDlgItems;
    … …  
    11501166            cbIndent.Enabled := FALSE;
    11511167          end;
    1152           if(RealType = ttGroup) then
     1168          if (RealType = ttGroup) then
    11531169            edtGap.Text := IntToStr(Gap)
    11541170          else
    … …  
    11711187      gbProperties.Caption := PropText;
    11721188    end;
    1173     if(ClearName) then
     1189    if (ClearName) then
    11741190    begin
    11751191      edtName.Text := '';
    11761192      reNotes.Clear;
    11771193    end;
    1178     if(ClearRB) then
     1194    if (ClearRB) then
    11791195    begin
    11801196      cbxType.ItemIndex := Ord(tiNone);
    11811197    end;
    1182     if(ClearAll) then
     1198    if (ClearAll) then
    11831199    begin
    11841200      cbActive.Checked := FALSE;
    … …  
    11971213      pnlLink.Visible := FALSE;
    11981214    end;
    1199     if cbDisplayOnly.Enabled  or
    1200        cbFirstLine.Enabled    or
    1201        cbIndent.Enabled      or
    1202        cbOneItemOnly.Enabled or
    1203        cbHideDlgItems.Enabled then
     1215    if cbDisplayOnly.Enabled or
     1216      cbFirstLine.Enabled or
     1217      cbIndent.Enabled or
     1218      cbOneItemOnly.Enabled or
     1219      cbHideDlgItems.Enabled then
    12041220      gbDialogProps.Font.Color := clWindowText
    12051221    else
    … …  
    12151231
    12161232begin
    1217   if(pnlGroupBP.Visible) and (pnlGroupBP.Height > (pnlBoilerplate.Height-29)) then
    1218   begin
    1219     pnlGroupBP.Height := pnlBoilerplate.Height-29;
     1233  if (pnlGroupBP.Visible) and (pnlGroupBP.Height > (pnlBoilerplate.Height - 29)) then
     1234  begin
     1235    pnlGroupBP.Height := pnlBoilerplate.Height - 29;
    12201236  end;
    12211237  if cbLongLines.checked then
    12221238    Max := 240
    12231239  else
    1224     Max := MAX_ENTRY_WIDTH;
     1240    Max := MAX_ENTRY_WIDTH - 1;
    12251241  LimitEditWidth(reBoil, Max);
    12261242  LimitEditWidth(reNotes, MAX_ENTRY_WIDTH);
    … …  
    12341250
    12351251begin
    1236   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     1252  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    12371253  begin
    12381254    if CanClone(FCurTree.Selected) then
    … …  
    12441260        Template.PrintName := edtName.Text;
    12451261        UpdateApply(Template);
    1246         for i := 0 to Template.Nodes.Count-1 do
     1262        for i := 0 to Template.Nodes.Count - 1 do
    12471263          TTreeNode(Template.Nodes.Objects[i]).Text := Template.PrintName;
    1248         if(DoRefresh) then
     1264        if (DoRefresh) then
    12491265        begin
    12501266          tvShared.Invalidate;
    … …  
    12631279
    12641280begin
    1265   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     1281  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    12661282  begin
    12671283    if CanClone(FCurTree.Selected) then
    … …  
    12731289        Template.Active := cbActive.Checked;
    12741290        UpdateApply(Template);
    1275         for i := 0 to Template.Nodes.Count-1 do
     1291        for i := 0 to Template.Nodes.Count - 1 do
    12761292        begin
    12771293          Node := TTreeNode(Template.Nodes.Objects[i]);
    12781294          Node.Cut := not Template.Active;
    12791295        end;
    1280         if(FCurTree = tvShared) then
     1296        if (FCurTree = tvShared) then
    12811297        begin
    12821298          cbPerHideClick(Sender);
    … …  
    13041320
    13051321begin
    1306   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     1322  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    13071323  begin
    13081324    if CanClone(FCurTree.Selected) then
    … …  
    13141330        Template.Exclude := cbExclude.Checked;
    13151331        UpdateApply(Template);
    1316         for i := 0 to Template.Nodes.Count-1 do
     1332        for i := 0 to Template.Nodes.Count - 1 do
    13171333        begin
    13181334          Node := TTreeNode(Template.Nodes.Objects[i]);
    … …  
    13331349
    13341350begin
    1335   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     1351  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    13361352  begin
    13371353    if CanClone(FCurTree.Selected) then
    … …  
    13441360        UpdateApply(Template);
    13451361        DisplayBoilerPlate(FCurTree.Selected);
    1346         if(DoRefresh) then
     1362        if (DoRefresh) then
    13471363        begin
    13481364          tvShared.Invalidate;
    … …  
    13621378  tvShared.HideSelection := TRUE;
    13631379  tvPersonal.HideSelection := TRUE;
    1364   if(NewTree <> FCurTree) then
     1380  if (NewTree <> FCurTree) then
    13651381  begin
    13661382    Result := TRUE;
    1367     if(assigned(FCurTree)) then
     1383    if (assigned(FCurTree)) then
    13681384    begin
    13691385      for i := low(TTemplateTreeControl) to high(TTemplateTreeControl) do
    … …  
    13721388    FCurTree := NewTree;
    13731389  end;
    1374   if(assigned(FCurTree)) then
     1390  if (assigned(FCurTree)) then
    13751391  begin
    13761392    FCurTree.HideSelection := FALSE;
    1377     if(FCurTree = tvPersonal) and (Screen.ActiveControl = tvShared) then
     1393    if (FCurTree = tvPersonal) and (Screen.ActiveControl = tvShared) then
    13781394      tvPersonal.SetFocus
    13791395    else
    1380     if(FCurTree = tvShared) and (Screen.ActiveControl = tvPersonal) then
    1381       tvShared.SetFocus;
     1396      if (FCurTree = tvShared) and (Screen.ActiveControl = tvPersonal) then
     1397        tvShared.SetFocus;
    13821398  end;
    13831399end;
    … …  
    13851401procedure TfrmTemplateEditor.tvTreeEnter(Sender: TObject);
    13861402begin
    1387   if((Sender is TTreeView) and (ChangeTree(TTreeView(Sender)))) then
     1403  if ((Sender is TTreeView) and (ChangeTree(TTreeView(Sender)))) then
    13881404    tvTreeChange(Sender, TTreeView(Sender).Selected);
    13891405end;
    13901406
    13911407procedure TfrmTemplateEditor.tvTreeNodeEdited(Sender: TObject;
    1392   Node: TTreeNode; var S: String);
     1408  Node: TTreeNode; var S: string);
    13931409begin
    13941410  FUpdating := TRUE;
    … …  
    14191435begin
    14201436  dmodShared.Resync(tvPersonal.Items.GetFirstNode, not cbPerHide.Checked,
    1421                                                           FPersonalEmptyNodeCount);
     1437    FPersonalEmptyNodeCount);
    14221438  tvTreeChange(tvPersonal, tvPersonal.Selected);
    14231439  EnableNavControls;
    … …  
    14401456    with Node, TTemplate(Node.Data) do
    14411457    begin
    1442       if(RealType in [ttDoc, ttGroup]) then
     1458      if (RealType in [ttDoc, ttGroup]) then
    14431459      begin
    14441460        TmpSL := TStringList.Create;
    14451461        try
    1446           if(RealType = ttGroup) and (not reBoil.ReadOnly) then
     1462          if (RealType = ttGroup) and (not reBoil.ReadOnly) then
    14471463          begin
    14481464            ItemOK := TRUE;
    … …  
    14541470            TmpSL.Text := FullBoilerplate;
    14551471          LongLines := FALSE;
    1456           for i := 0 to TmpSL.Count-1 do
     1472          for i := 0 to TmpSL.Count - 1 do
    14571473          begin
    14581474            if length(TmpSL[i]) > MAX_ENTRY_WIDTH then
    … …  
    14751491      end;
    14761492      ShowGroupBoilerplate(ItemOK);
    1477       if(not ItemOK) and (IsReminderDialog or IsCOMObject) then
     1493      if (not ItemOK) and (IsReminderDialog or IsCOMObject) then
    14781494        BPOK := FALSE;
    14791495      pnlBoilerplateResize(Self);
    … …  
    14911507  KillObj(@FConsultServices);
    14921508  Application.HintHidePause := FSavePause;
    1493   if(assigned(frmTemplateObjects)) then
     1509  if (assigned(frmTemplateObjects)) then
    14941510  begin
    14951511    frmTemplateObjects.Free;
    14961512    frmTemplateObjects := nil;
    14971513  end;
    1498   if(assigned(frmTemplateFields)) then
     1514  if (assigned(frmTemplateFields)) then
    14991515  begin
    15001516    frmTemplateFields.Free;
    … …  
    15271543
    15281544begin
    1529   if((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    1530                               (assigned(FCurTree.Selected.Parent))) then
     1545  if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     1546    (assigned(FCurTree.Selected.Parent))) then
    15311547  begin
    15321548    Node := FCurTree.Selected;
    … …  
    15361552    idx := Template.Items.IndexOf(NodeTemplate);
    15371553    ChangeLevel := (idx < 1);
    1538     if(not ChangeLevel) then
    1539     begin
    1540       if(TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
     1554    if (not ChangeLevel) then
     1555    begin
     1556      if (TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
    15411557        Hide := cbShHide.Checked
    15421558      else
    15431559        Hide := cbPerHide.Checked;
    15441560      First := TRUE;
    1545       while(idx > 0) do
     1561      while (idx > 0) do
    15461562      begin
    15471563        if First then
    … …  
    15511567          if CanClone(ParentNode) then
    15521568          begin
    1553             if(Clone(ParentNode)) then
     1569            if (Clone(ParentNode)) then
    15541570              Template := TTemplate(ParentNode.Data);
    15551571            if Template.CanModify then
    … …  
    15611577        if ok then
    15621578        begin
    1563           Template.Items.Exchange(idx-1, idx);
    1564           if(Hide and (not TTemplate(Template.Items[idx]).Active)) then
     1579          Template.Items.Exchange(idx - 1, idx);
     1580          if (Hide and (not TTemplate(Template.Items[idx]).Active)) then
    15651581          begin
    15661582            dec(idx);
    … …  
    15741590      end;
    15751591    end;
    1576     if(ChangeLevel) then
     1592    if (ChangeLevel) then
    15771593    begin
    15781594      ParentsParent := ParentNode.Parent;
    1579       if(assigned(ParentsParent)) then
     1595      if (assigned(ParentsParent)) then
    15801596      begin
    15811597        ParentTemplate := TTemplate(ParentsParent.Data);
    1582         if(ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
     1598        if (ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
    15831599          InfoBox(ParentsParent.Text + ' already contains the ' +
    15841600            NodeTemplate.PrintName + ' template.',
    … …  
    15881604          if CanClone(ParentNode) then
    15891605          begin
    1590             if(Clone(ParentNode)) then
     1606            if (Clone(ParentNode)) then
    15911607              Template := TTemplate(ParentNode.Data);
    15921608            if Template.CanModify and CanClone(ParentsParent) then
    15931609            begin
    1594               if(Clone(ParentsParent)) then
     1610              if (Clone(ParentsParent)) then
    15951611                ParentTemplate := TTemplate(ParentsParent.Data);
    15961612              if ParentTemplate.CanModify then
    … …  
    15981614                Template.Items.Delete(idx);
    15991615                idx := ParentTemplate.Items.IndexOf(Template);
    1600                 if(idx >= 0) then
     1616                if (idx >= 0) then
    16011617                begin
    16021618                  ParentTemplate.Items.Insert(idx, NodeTemplate);
    … …  
    16271643
    16281644begin
    1629   if((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    1630                               (assigned(FCurTree.Selected.Parent))) then
     1645  if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     1646    (assigned(FCurTree.Selected.Parent))) then
    16311647  begin
    16321648    Node := FCurTree.Selected;
    … …  
    16351651    Template := TTemplate(ParentNode.Data);
    16361652    idx := Template.Items.IndexOf(NodeTemplate);
    1637     max := Template.Items.Count-1;
     1653    max := Template.Items.Count - 1;
    16381654    ChangeLevel := (idx >= max);
    1639     if(not ChangeLevel) then
    1640     begin
    1641       if(TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
     1655    if (not ChangeLevel) then
     1656    begin
     1657      if (TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
    16421658        Hide := cbShHide.Checked
    16431659      else
    16441660        Hide := cbPerHide.Checked;
    16451661      First := TRUE;
    1646       while(idx < max) do
     1662      while (idx < max) do
    16471663      begin
    16481664        if First then
    … …  
    16521668          if CanClone(ParentNode) then
    16531669          begin
    1654             if(Clone(ParentNode)) then
     1670            if (Clone(ParentNode)) then
    16551671              Template := TTemplate(ParentNode.Data);
    16561672            if Template.CanModify then
    … …  
    16621678        if ok then
    16631679        begin
    1664           Template.Items.Exchange(idx, idx+1);
    1665           if(Hide and (not TTemplate(Template.Items[idx]).Active)) then
     1680          Template.Items.Exchange(idx, idx + 1);
     1681          if (Hide and (not TTemplate(Template.Items[idx]).Active)) then
    16661682          begin
    16671683            inc(idx);
    … …  
    16751691      end;
    16761692    end;
    1677     if(ChangeLevel) then
     1693    if (ChangeLevel) then
    16781694    begin
    16791695      ParentsParent := ParentNode.Parent;
    1680       if(assigned(ParentsParent)) then
     1696      if (assigned(ParentsParent)) then
    16811697      begin
    16821698        ParentTemplate := TTemplate(ParentsParent.Data);
    1683         if(ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
     1699        if (ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
    16841700          InfoBox(ParentsParent.Text + ' already contains the ' +
    16851701            NodeTemplate.PrintName + ' template.',
    … …  
    16891705          if CanClone(ParentNode) then
    16901706          begin
    1691             if(Clone(ParentNode)) then
     1707            if (Clone(ParentNode)) then
    16921708              Template := TTemplate(ParentNode.Data);
    16931709            if Template.CanModify and CanClone(ParentsParent) then
    16941710            begin
    1695               if(Clone(ParentsParent)) then
     1711              if (Clone(ParentsParent)) then
    16961712                ParentTemplate := TTemplate(ParentsParent.Data);
    16971713              if ParentTemplate.CanModify then
    … …  
    16991715                Template.Items.Delete(idx);
    17001716                idx := ParentTemplate.Items.IndexOf(Template);
    1701                 if(idx >= 0) then
     1717                if (idx >= 0) then
    17021718                begin
    1703                   if(idx = (ParentTemplate.Items.Count-1)) then
     1719                  if (idx = (ParentTemplate.Items.Count - 1)) then
    17041720                    ParentTemplate.Items.Add(NodeTemplate)
    17051721                  else
    1706                     ParentTemplate.Items.Insert(idx+1, NodeTemplate);
     1722                    ParentTemplate.Items.Insert(idx + 1, NodeTemplate);
    17071723                  Resync([ParentTemplate, Template]);
    17081724                  btnApply.Enabled := TRUE;
    … …  
    17301746
    17311747begin
    1732   if((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    1733                               (assigned(FCurTree.Selected.Parent))) then
     1748  if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     1749    (assigned(FCurTree.Selected.Parent))) then
    17341750  begin
    17351751    Node := FCurTree.Selected;
    … …  
    17371753    PNode := Node.Parent;
    17381754    Parent := TTemplate(PNode.Data);
    1739     if(AutoDel(Template)) then
     1755    if (AutoDel(Template)) then
    17401756      DoIt := TRUE
    17411757    else
    1742     if(Template.Active) and (cbActive.Checked) then
    1743     begin
    1744       DoIt := FALSE;
    1745       Answer := MessageDlg('Once you delete a template you may not be able to retrieve it.' + CRLF +
    1746                            'Rather than deleting, you may want to inactivate a template instead.' + CRLF +
    1747                            'You may inactivate this template by pressing the Ignore button now.' + CRLF +
    1748                            'Are you sure you want to delete the "' + Node.Text +
    1749                            '" Template?', mtConfirmation, [mbYes, mbNo, mbIgnore], 0);
    1750       if(Answer = mrYes) then
    1751         DoIt := TRUE
     1758      if (Template.Active) and (cbActive.Checked) then
     1759      begin
     1760        DoIt := FALSE;
     1761        Answer := MessageDlg('Once you delete a template you may not be able to retrieve it.' + CRLF +
     1762          'Rather than deleting, you may want to inactivate a template instead.' + CRLF +
     1763          'You may inactivate this template by pressing the Ignore button now.' + CRLF +
     1764          'Are you sure you want to delete the "' + Node.Text +
     1765          '" Template?', mtConfirmation, [mbYes, mbNo, mbIgnore], 0);
     1766        if (Answer = mrYes) then
     1767          DoIt := TRUE
     1768        else
     1769          if (Answer = mrIgnore) then
     1770            cbActive.Checked := FALSE;
     1771      end
    17521772      else
    1753       if(Answer = mrIgnore) then
    1754         cbActive.Checked := FALSE;
    1755     end
    1756     else
    1757       DoIt := InfoBox('Are you sure you want to delete the "' + Node.Text +
    1758               '" Template?', 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES;
    1759     if(DoIt and CanClone(PNode)) then
    1760     begin
    1761       if(Clone(PNode)) then
     1773        DoIt := InfoBox('Are you sure you want to delete the "' + Node.Text +
     1774          '" Template?', 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES;
     1775    if (DoIt and CanClone(PNode)) then
     1776    begin
     1777      if (Clone(PNode)) then
    17621778        Parent := TTemplate(PNode.Data);
    17631779      if assigned(Parent) and Parent.CanModify then
    … …  
    17821798  OldActiveControl: TControl;
    17831799begin
    1784   if(Assigned(FCurTree)) then
     1800  if (Assigned(FCurTree)) then
    17851801  begin
    17861802    Tree := TTemplateTreeType(FCurTree.Tag);
    17871803    Node := FCurTree.Selected;
    1788     if(Assigned(Node)) then
     1804    if (Assigned(Node)) then
    17891805      Curok := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass])
    17901806    else
    17911807      Curok := FALSE;
    1792     if(Curok) then
     1808    if (Curok) then
    17931809    begin
    17941810      OldActiveControl := ActiveControl;
    17951811      FTreeControl[Tree, tcDel].Enabled := TRUE;
    17961812      AllowSet := FALSE;
    1797       if(Node.Index > 0) then
     1813      if (Node.Index > 0) then
    17981814        AllowUp := TRUE
    17991815      else
    … …  
    18041820      FTreeControl[Tree, tcUp].Enabled := AllowUp;
    18051821      AllowDown := AllowUp;
    1806       if(Node.Index < (Node.Parent.Count-1)) then
     1822      if (Node.Index < (Node.Parent.Count - 1)) then
    18071823        AllowDown := TRUE
    18081824      else
    18091825      begin
    1810         if(not AllowSet) then
     1826        if (not AllowSet) then
    18111827          AllowDown := AllowMove(Node.Parent.Parent, Node);
    18121828      end;
    … …  
    18161832      if not AllowDown and (OldActiveControl = FTreeControl[Tree, tcDown]) then
    18171833        (FTreeControl[Tree, tcUp] as TWinControl).SetFocus;
    1818       FTreeControl[Tree, tcCopy].Enabled := FTreeControl[TTemplateTreeType(1-ord(Tree)), tcDel].Visible;
    1819       if(FTreeControl[Tree, tcCopy].Enabled) then
    1820       begin
    1821         if(Tree = ttShared) then
     1834      FTreeControl[Tree, tcCopy].Enabled := FTreeControl[TTemplateTreeType(1 - ord(Tree)), tcDel].Visible;
     1835      if (FTreeControl[Tree, tcCopy].Enabled) then
     1836      begin
     1837        if (Tree = ttShared) then
    18221838          Node := tvPersonal.Selected
    18231839        else
    18241840          Node := tvShared.Selected;
    1825         if(assigned(Node)) then
     1841        if (assigned(Node)) then
    18261842        begin
    1827           if(TTemplate(Node.Data).RealType = ttDoc) then
     1843          if (TTemplate(Node.Data).RealType = ttDoc) then
    18281844            Node := Node.Parent;
    18291845          FTreeControl[Tree, tcCopy].Enabled := AllowMove(Node, FCurTree.Selected);
    … …  
    18391855        FTreeControl[Tree, i].Enabled := FALSE;
    18401856    end;
    1841     if(FCurTree = tvShared) and (FCanEditShared) then
     1857    if (FCurTree = tvShared) and (FCanEditShared) then
    18421858      btnNew.Enabled := TRUE
    18431859    else
    1844     if(FCurTree = tvPersonal) and (FCanEditPersonal) then
    1845       btnNew.Enabled := TRUE
    1846     else
    1847       btnNew.Enabled := FALSE;
     1860      if (FCurTree = tvPersonal) and (FCanEditPersonal) then
     1861        btnNew.Enabled := TRUE
     1862      else
     1863        btnNew.Enabled := FALSE;
    18481864  end
    18491865  else
    … …  
    18561872begin
    18571873  CanDrag := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass]);
    1858   if(CanDrag) then
     1874  if (CanDrag) then
    18591875    FDragNode := Node
    18601876  else
    … …  
    18711887  FDropNode := nil;
    18721888  Accept := FALSE;
    1873   if(Source is TTreeView) and (assigned(FDragNode)) then
     1889  if (Source is TTreeView) and (assigned(FDragNode)) then
    18741890  begin
    18751891    Tree := TTreeView(Sender);
    1876     FDropNode := Tree.GetNodeAt(X,Y);
    1877     if(((Tree = tvShared)  and (FCanEditShared)) or
    1878        ((Tree = tvPersonal) and (FCanEditPersonal))) then
    1879     begin
    1880       if(assigned(FDropNode)) then
     1892    FDropNode := Tree.GetNodeAt(X, Y);
     1893    if (((Tree = tvShared) and (FCanEditShared)) or
     1894      ((Tree = tvPersonal) and (FCanEditPersonal))) then
     1895    begin
     1896      if (assigned(FDropNode)) then
    18811897      begin
    18821898        FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
    1883         if(FDropInto) then
     1899        if (FDropInto) then
    18841900          TmpNode := FDropNode
    18851901        else
    … …  
    18991915
    19001916begin
    1901   if(assigned(FDragNode)) and (assigned(FDropNode)) and (FDragNode <> FDropNode) then
     1917  if (assigned(FDragNode)) and (assigned(FDropNode)) and (FDragNode <> FDropNode) then
    19021918  begin
    19031919    Item := TTemplate(FDragNode.Data);
    1904     if(FDropInto) then
     1920    if (FDropInto) then
    19051921    begin
    19061922      TmpNode := FDropNode;
    … …  
    19121928      idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data);
    19131929    end;
    1914     if(AllowMove(TmpNode, FDragNode) and (idx >= 0)) then
     1930    if (AllowMove(TmpNode, FDragNode) and (idx >= 0)) then
    19151931    begin
    19161932      Template := TTemplate(TmpNode.Data);
    1917       if(Template <> FDragNode.Parent.Data) and
     1933      if (Template <> FDragNode.Parent.Data) and
    19181934        (Template.Items.IndexOf(Item) >= 0) then
    19191935        InfoBox(Template.PrintName + ' already contains the ' +
    … …  
    19261942        if CanClone(TmpNode) then
    19271943        begin
    1928           if(Clone(TmpNode)) then
     1944          if (Clone(TmpNode)) then
    19291945            Template := TTemplate(TmpNode.Data);
    19301946          if assigned(Template) and Template.CanModify then
    19311947          begin
    1932             if(Sidx >= 0) and (FDragNode.TreeView = FDropNode.TreeView) and
     1948            if (Sidx >= 0) and (FDragNode.TreeView = FDropNode.TreeView) and
    19331949              (not FCopying) then // if same tree delete source
    19341950            begin
    19351951              if CanClone(FDragNode.Parent) then
    19361952              begin
    1937                 if(Clone(FDragNode.Parent)) then
     1953                if (Clone(FDragNode.Parent)) then
    19381954                  Src := TTemplate(FDragNode.Parent.Data);
    19391955                if assigned(Src) and Src.CanModify then
    19401956                begin
    19411957                  Src.Items.Delete(Sidx);
    1942                   if(Template = Src) then
     1958                  if (Template = Src) then
    19431959                    Src := nil;
    19441960                end
    … …  
    19511967            else
    19521968              Src := nil;
    1953             if(idx > 0) then
     1969            if (idx > 0) then
    19541970              idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data);
    19551971            Template.Items.Insert(idx, Item);
    1956             if(TTreeView(FDropNode.TreeView) = tvShared) then
     1972            if (TTreeView(FDropNode.TreeView) = tvShared) then
    19571973            begin
    19581974              Item.PersonalOwner := 0;
    … …  
    19872003      begin
    19882004        tmpl := Templates[i];
    1989         if(assigned(tmpl)) then
     2005        if (assigned(tmpl)) then
    19902006        begin
    1991           for j := 0 to tmpl.Nodes.Count-1 do
     2007          for j := 0 to tmpl.Nodes.Count - 1 do
    19922008          begin
    19932009            Node := TTreeNode(tmpl.Nodes.Objects[j]);
    1994             if(NodeList.IndexOfObject(Node) < 0) then
     2010            if (NodeList.IndexOfObject(Node) < 0) then
    19952011            begin
    19962012              NodeID := IntToStr(Node.Level);
    1997               NodeID := copy('000',1,4-length(NodeID))+NodeID+U+tmpl.Nodes[j];
    1998               TemplateList.AddObject(NodeID,tmpl);
    1999               NodeList.AddObject(NodeId,Node);
     2013              NodeID := copy('000', 1, 4 - length(NodeID)) + NodeID + U + tmpl.Nodes[j];
     2014              TemplateList.AddObject(NodeID, tmpl);
     2015              NodeList.AddObject(NodeId, Node);
    20002016            end;
    20012017          end;
    … …  
    20082024      NodeList.Sort;
    20092025
    2010       for i := 0 to NodeList.Count-1 do
     2026      for i := 0 to NodeList.Count - 1 do
    20112027      begin
    20122028        NodeID := NodeList[i];
    20132029        Node := TTreeNode(NodeList.Objects[i]);
    20142030        j := TemplateList.IndexOf(NodeID);
    2015         if(j >= 0) then
     2031        if (j >= 0) then
    20162032        begin
    20172033          tmpl := TTemplate(TemplateList.Objects[j]);
    2018           NodeID := Piece(NodeID,U,2);
    2019           if(tmpl.Nodes.IndexOf(NodeID) >= 0) then
     2034          NodeID := Piece(NodeID, U, 2);
     2035          if (tmpl.Nodes.IndexOf(NodeID) >= 0) then
    20202036          begin
    2021             if(Node.TreeView = tvShared) then
     2037            if (Node.TreeView = tvShared) then
    20222038              dmodShared.Resync(Node, not cbShHide.Checked, FSharedEmptyNodeCount)
    20232039            else
    2024             if(Node.TreeView = tvPersonal) then
    2025               dmodShared.Resync(Node, not cbPerHide.Checked, FPersonalEmptyNodeCount);
     2040              if (Node.TreeView = tvPersonal) then
     2041                dmodShared.Resync(Node, not cbPerHide.Checked, FPersonalEmptyNodeCount);
    20262042          end;
    20272043        end;
    … …  
    20342050  end;
    20352051  EnableNavControls;
    2036   if((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     2052  if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    20372053    tvTreeChange(FCurTree, FCurTree.Selected)
    20382054  else
    … …  
    20432059procedure TfrmTemplateEditor.sbCopyLeftClick(Sender: TObject);
    20442060begin
    2045   if(assigned(tvPersonal.Selected)) then
    2046   begin
    2047     if(not assigned(tvShared.Selected)) then
     2061  if (assigned(tvPersonal.Selected)) then
     2062  begin
     2063    if (not assigned(tvShared.Selected)) then
    20482064      tvShared.Selected := tvShared.Items.GetFirstNode;
    20492065    FDragNode := tvPersonal.Selected;
    20502066    FDropNode := tvShared.Selected;
    20512067    FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
    2052     tvTreeDragDrop(tvPersonal, tvShared, 0,0);
     2068    tvTreeDragDrop(tvPersonal, tvShared, 0, 0);
    20532069  end;
    20542070end;
    … …  
    20562072procedure TfrmTemplateEditor.sbCopyRightClick(Sender: TObject);
    20572073begin
    2058   if(assigned(tvShared.Selected)) then
    2059   begin
    2060     if(not assigned(tvPersonal.Selected)) then
     2074  if (assigned(tvShared.Selected)) then
     2075  begin
     2076    if (not assigned(tvPersonal.Selected)) then
    20612077      tvPersonal.Selected := tvPersonal.Items.GetFirstNode;
    20622078    FDragNode := tvShared.Selected;
    20632079    FDropNode := tvPersonal.Selected;
    20642080    FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
    2065     tvTreeDragDrop(tvShared, tvPersonal, 0,0);
     2081    tvTreeDragDrop(tvShared, tvPersonal, 0, 0);
    20662082  end;
    20672083end;
    … …  
    21022118
    21032119begin
    2104   if(assigned(ADropNode) and assigned(ADragNode)) then
     2120  if (assigned(ADropNode) and assigned(ADragNode)) then
    21052121  begin
    21062122    DropTemplate := TTemplate(ADropNode.Data);
    … …  
    21102126    else
    21112127      Result := (DragTemplate.RealType in [ttDoc, ttGroup, ttClass]);
    2112     if(Result) then
    2113     begin
    2114       if(FCopying) then
    2115       begin
    2116         if(DropTemplate.Items.IndexOf(DragTemplate) >= 0) then
     2128    if (Result) then
     2129    begin
     2130      if (FCopying) then
     2131      begin
     2132        if (DropTemplate.Items.IndexOf(DragTemplate) >= 0) then
    21172133          Result := FALSE;
    21182134      end
    21192135      else
    2120       if((assigned(ADragNode.Parent)) and (ADropNode <> ADragNode.Parent) and
    2121          (DropTemplate.Items.IndexOf(DragTemplate) >= 0)) then
    2122         Result := FALSE;
    2123     end;
    2124     if(Result) then
    2125     begin
    2126       for i := 0 to DropTemplate.Nodes.Count-1 do
     2136        if ((assigned(ADragNode.Parent)) and (ADropNode <> ADragNode.Parent) and
     2137          (DropTemplate.Items.IndexOf(DragTemplate) >= 0)) then
     2138          Result := FALSE;
     2139    end;
     2140    if (Result) then
     2141    begin
     2142      for i := 0 to DropTemplate.Nodes.Count - 1 do
    21272143      begin
    21282144        TmpNode := TTreeNode(DropTemplate.Nodes.Objects[i]);
    21292145        while (Result and (assigned(TmpNode.Parent))) do
    21302146        begin
    2131           if(TmpNode.Data = DragTemplate) then
     2147          if (TmpNode.Data = DragTemplate) then
    21322148            Result := FALSE
    21332149          else
    21342150            TmpNode := TmpNode.Parent;
    21352151        end;
    2136         if(not Result) then break;
     2152        if (not Result) then break;
    21372153      end;
    21382154    end;
    … …  
    21512167begin
    21522168  Result := FALSE;
    2153   if((assigned(Node)) and (TTreeView(Node.TreeView) = tvPersonal)) then
     2169  if ((assigned(Node)) and (TTreeView(Node.TreeView) = tvPersonal)) then
    21542170  begin
    21552171    OldT := TTemplate(Node.Data);
    2156     if(OldT.PersonalOwner <> User.DUZ) then
     2172    if (OldT.PersonalOwner <> User.DUZ) then
    21572173    begin
    21582174      PNode := Node.Parent;
    … …  
    21792195        Node.Data := NewT;
    21802196        NewT.AddNode(Node);
    2181         if(assigned(Prnt)) then
     2197        if (assigned(Prnt)) then
    21822198        begin
    21832199          idx := Prnt.Items.IndexOf(OldT);
    2184           if(idx >= 0) then
     2200          if (idx >= 0) then
    21852201            Prnt.Items[idx] := NewT;
    21862202        end;
    … …  
    22002216
    22012217begin
    2202   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     2218  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    22032219  begin
    22042220    Template := TTemplate(FCurTree.Selected.Data);
    22052221    TmpBPlate := reBoil.Lines.Text;
    2206     if(Template.Boilerplate <> TmpBPlate) then
     2222    if (Template.Boilerplate <> TmpBPlate) then
    22072223    begin
    22082224      if CanClone(FCurTree.Selected) then
    22092225      begin
    22102226        DoRefresh := Clone(FCurTree.Selected);
    2211         if(DoRefresh) then
     2227        if (DoRefresh) then
    22122228          Template := TTemplate(FCurTree.Selected.Data);
    22132229        if assigned(Template) and Template.CanModify then
    22142230        begin
    22152231          DoInfo := FALSE;
    2216           if(Template.Boilerplate = '') or (TmpBPlate = '') then
     2232          if (Template.Boilerplate = '') or (TmpBPlate = '') then
    22172233            DoInfo := TRUE;
    22182234          Template.Boilerplate := TmpBPlate;
    22192235          TTemplate(FCurTree.Selected.Data).Gap := StrToIntDef(edtGap.Text, 0);
    2220           if(Template.RealType = ttGroup) then
     2236          if (Template.RealType = ttGroup) then
    22212237          begin
    22222238            reGroupBP.Text := Template.FullBoilerplate;
    22232239          end;
    2224           if(DoRefresh) then
     2240          if (DoRefresh) then
    22252241          begin
    22262242            tvShared.Invalidate;
    22272243            tvPersonal.Invalidate;
    22282244          end;
    2229           if(DoInfo) then
     2245          if (DoInfo) then
    22302246          begin
    22312247            x := reBoil.SelStart;
    … …  
    22512267{$ENDIF}
    22522268  sbCopyLeft.Visible := FCanEditShared;
    2253   if(not FCanEditShared) then
     2269  if (not FCanEditShared) then
    22542270    cbShHide.Checked := TRUE;
    22552271  cbShHide.Visible := FCanEditShared;
    … …  
    22832299  Tree.Selected := Node; // This line prevents selected from changing after menu closes
    22842300  mnuCollapseTree.Enabled := dmodShared.NeedsCollapsing(Tree);
    2285   if(Tree = tvShared) then
     2301  if (Tree = tvShared) then
    22862302  begin
    22872303    Txt := 'Shared';
    … …  
    22962312  end;
    22972313  mnuFindTemplates.Checked := FindOn;
    2298   mnuCollapseTree.Caption := 'Collapse '+Txt+' &Tree';
    2299   mnuFindTemplates.Caption := '&Find '+Txt+' Templates';
    2300 
    2301   if(assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
     2314  mnuCollapseTree.Caption := 'Collapse ' + Txt + ' &Tree';
     2315  mnuFindTemplates.Caption := '&Find ' + Txt + ' Templates';
     2316
     2317  if (assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
    23022318  begin
    23032319    mnuNodeCopy.Enabled := (TTemplate(Tree.Selected.Data).RealType in [ttDoc, ttGroup, ttClass]);
    23042320    mnuNodeSort.Enabled := (TTemplate(Tree.Selected.Data).RealType in AllTemplateFolderTypes) and
    2305                            (Tree.Selected.HasChildren) and
    2306                            (Tree.Selected.GetFirstChild.GetNextSibling <> nil);
     2321      (Tree.Selected.HasChildren) and
     2322      (Tree.Selected.GetFirstChild.GetNextSibling <> nil);
    23072323  end
    23082324  else
    … …  
    23192335procedure TfrmTemplateEditor.mnuCollapseTreeClick(Sender: TObject);
    23202336begin
    2321   if(GetTree = tvShared) then
     2337  if (GetTree = tvShared) then
    23222338  begin
    23232339    tvShared.Selected := tvShared.Items.GetFirstNode;
    … …  
    23372353begin
    23382354  Tree := GetTree;
    2339   if(Tree = tvShared) then
     2355  if (Tree = tvShared) then
    23402356  begin
    23412357    FFindShOn := not FFindShOn;
    23422358    pnlShSearch.Visible := FFindShOn;
    2343     if(FFindShOn) then
     2359    if (FFindShOn) then
    23442360    begin
    23452361      edtShSearch.SetFocus;
    … …  
    23512367    FFindPerOn := not FFindPerOn;
    23522368    pnlPerSearch.Visible := FFindPerOn;
    2353     if(FFindPerOn) then
     2369    if (FFindPerOn) then
    23542370    begin
    23552371      edtPerSearch.SetFocus;
    … …  
    23622378procedure TfrmTemplateEditor.ShowTemplateType(Template: TTemplate);
    23632379begin
    2364   if(Template.PersonalOwner > 0) then
     2380  if (Template.PersonalOwner > 0) then
    23652381    gbProperties.Caption := 'Personal'
    23662382  else
    … …  
    23712387function TfrmTemplateEditor.GetTree: TTreeView;
    23722388begin
    2373   if(FFromMainMenu) then
     2389  if (FFromMainMenu) then
    23742390    Result := FMainMenuTree
    23752391  else
    23762392  begin
    2377     if(TTemplateTreeType(PopupComponent(popTemplates, popTemplates).Tag) = ttShared) then
     2393    if (TTemplateTreeType(PopupComponent(popTemplates, popTemplates).Tag) = ttShared) then
    23782394      Result := tvShared
    23792395    else
    … …  
    23952411
    23962412begin
    2397   if(TTemplateTreeType(TButton(Sender).Tag) = ttShared) then
     2413  if (TTemplateTreeType(TButton(Sender).Tag) = ttShared) then
    23982414  begin
    23992415    Tree := tvShared;
    … …  
    24132429    LastFoundNode := FLastFoundPerNode;
    24142430  end;
    2415   if(edtSearch.text <> '') then
    2416   begin
    2417     IsNext := ((FindNext) and assigned (LastFoundNode));
     2431  if (edtSearch.text <> '') then
     2432  begin
     2433    IsNext := ((FindNext) and assigned(LastFoundNode));
    24182434    if IsNext then
    2419    
     2435
    24202436      TmpNode := LastFoundNode
    24212437    else
    … …  
    24242440    try
    24252441      Found := FindTemplate(edtSearch.Text, Tree, Self, TmpNode,
    2426                             IsNext, not FindCase, FindWholeWords);
     2442        IsNext, not FindCase, FindWholeWords);
    24272443    finally
    24282444      FInternalHiddenExpand := FALSE;
    … …  
    24312447    begin
    24322448      Tree.Selected := Found;
    2433       if(Tree = tvShared) then
     2449      if (Tree = tvShared) then
    24342450        FLastFoundShNode := Found
    24352451      else
    … …  
    24432459procedure TfrmTemplateEditor.edtSearchChange(Sender: TObject);
    24442460begin
    2445   if(TTemplateTreeType(TEdit(Sender).Tag) = ttShared) then
     2461  if (TTemplateTreeType(TEdit(Sender).Tag) = ttShared) then
    24462462  begin
    24472463    btnShFind.Enabled := (edtShSearch.Text <> '');
    … …  
    24572473procedure TfrmTemplateEditor.SetFindNext(const Tree: TTreeView; const Value: boolean);
    24582474begin
    2459   if(Tree = tvShared) then
    2460   begin
    2461     if(FFindShNext <> Value) then
     2475  if (Tree = tvShared) then
     2476  begin
     2477    if (FFindShNext <> Value) then
    24622478    begin
    24632479      FFindShNext := Value;
    2464       if(FFindShNext) then btnShFind.Caption := 'Find Next'
     2480      if (FFindShNext) then btnShFind.Caption := 'Find Next'
    24652481      else btnShFind.Caption := 'Find';
    24662482    end;
    … …  
    24682484  else
    24692485  begin
    2470     if(FFindPerNext <> Value) then
     2486    if (FFindPerNext <> Value) then
    24712487    begin
    24722488      FFindPerNext := Value;
    2473       if(FFindPerNext) then btnPerFind.Caption := 'Find Next'
     2489      if (FFindPerNext) then btnPerFind.Caption := 'Find Next'
    24742490      else btnPerFind.Caption := 'Find';
    24752491    end;
    … …  
    24992515procedure TfrmTemplateEditor.btnOKClick(Sender: TObject);
    25002516begin
    2501   if(ScanNames) then
    2502   begin
    2503     if(SaveAllTemplates) then
     2517  if (ScanNames) then
     2518  begin
     2519    if (SaveAllTemplates) then
    25042520    begin
    25052521      FOK2Close := TRUE;
    … …  
    25132529procedure TfrmTemplateEditor.FormShow(Sender: TObject);
    25142530begin
    2515   if(FFirstShow) then
     2531  if (FFirstShow) then
    25162532  begin
    25172533    FUpdating := FALSE;
    25182534    FFirstShow := FALSE;
    2519     if(FFocusName) then
     2535    if (FFocusName) then
    25202536    begin
    25212537      edtName.SetFocus;
    … …  
    25342550
    25352551begin
    2536   if(not assigned(frmTemplateObjects)) then
     2552  if (not assigned(frmTemplateObjects)) then
    25372553  begin
    25382554    dmodShared.LoadTIUObjects;
    … …  
    25422558    begin
    25432559      UpdatePersonalObjects;
    2544       if uPersonalObjects.Count > 0 then                                                  // -------- CQ #8665 - RV ------------
     2560      if uPersonalObjects.Count > 0 then // -------- CQ #8665 - RV ------------
    25452561      begin
    25462562        DoIt := FALSE;
    2547         for i := 0 to dmodShared.TIUObjects.Count-1 do
    2548           if uPersonalObjects.IndexOf(Piece(dmodShared.TIUObjects[i],U,2)) >= 0 then      // -------- CQ #8665 - RV ------------
     2563        for i := 0 to dmodShared.TIUObjects.Count - 1 do
     2564          if uPersonalObjects.IndexOf(Piece(dmodShared.TIUObjects[i], U, 2)) >= 0 then // -------- CQ #8665 - RV ------------
    25492565            frmTemplateObjects.cboObjects.Items.Add(dmodShared.TIUObjects[i]);
    25502566      end;
    … …  
    25622578begin
    25632579  FBPOK := FALSE;
    2564   if(reBoil.Lines.Count > 0) then
    2565   begin
    2566     if(dmodShared.TemplateOK(FCurTree.Selected.Data,'OK')) then
     2580  if (reBoil.Lines.Count > 0) then
     2581  begin
     2582    if (dmodShared.TemplateOK(FCurTree.Selected.Data, 'OK')) then
    25672583    begin
    25682584      TestBoilerplate(reBoil.Lines);
    2569       if(RPCBrokerV.Results.Count > 0) then
    2570         InfoBox('Boilerplate Contains Errors:'+CRLF+CRLF+
     2585      if (RPCBrokerV.Results.Count > 0) then
     2586        InfoBox('Boilerplate Contains Errors:' + CRLF + CRLF +
    25712587          RPCBrokerV.Results.Text, 'Error', MB_OK or MB_ICONERROR)
    25722588      else
    25732589      begin
    25742590        FBPOK := TRUE;
    2575         if(assigned(Sender)) then
     2591        if (assigned(Sender)) then
    25762592          InfoBox('No Errors Found in Boilerplate.', 'Information', MB_OK or MB_ICONINFORMATION);
    25772593      end;
    … …  
    25902606
    25912607  mnuBPPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT));
    2592   if(ok) then
     2608  if (ok) then
    25932609    ok := (reBoil.Lines.Count > 0);
    25942610  tryOK := (reBoil.Lines.Count > 0) or ((pnlGroupBP.Visible) and (reGroupBP.Lines.Count > 0));
    … …  
    26162632    while (assigned(Node)) do
    26172633    begin
    2618       if(Node.Text <> EmptyNodeText) and (assigned(Node.Data)) then
    2619       begin
    2620         if(BadTemplateName(Node.Text)) then
     2634      if (Node.Text <> EmptyNodeText) and (assigned(Node.Data)) then
     2635      begin
     2636        if (BadTemplateName(Node.Text)) then
    26212637          Errors.Add(Node);
    26222638      end;
    … …  
    26302646    ScanTree(tvShared);
    26312647    ScanTree(tvPersonal);
    2632     if(Errors.Count > 0) then
    2633     begin
    2634       if(Errors.Count > 1) then
     2648    if (Errors.Count > 0) then
     2649    begin
     2650      if (Errors.Count > 1) then
    26352651        msg := IntToStr(Errors.Count) + ' Templates have invalid names'
    26362652      else
    26372653        msg := 'Template has an invalid name';
    26382654      msg := msg + ': ';
    2639       for i := 0 to Errors.Count-1 do
    2640       begin
    2641         if(i > 0) then msg := msg + ', ';
     2655      for i := 0 to Errors.Count - 1 do
     2656      begin
     2657        if (i > 0) then msg := msg + ', ';
    26422658        Node := TTreeNode(Errors[i]);
    26432659        msg := msg + Node.Text;
    … …  
    26712687
    26722688begin
    2673   if(not FOK2Close) and (BackupDiffers) then
     2689  if (not FOK2Close) and (BackupDiffers) then
    26742690  begin
    26752691    ans := InfoBox('Save Changes?', 'Confirmation', MB_YESNOCANCEL or MB_ICONQUESTION);
    2676     if(ans = IDCANCEL) then
     2692    if (ans = IDCANCEL) then
    26772693      CanClose := FALSE
    26782694    else
    2679     if(ans = IDYES) then
    2680     begin
    2681       CanClose := FALSE;
    2682       if(ScanNames) then
    2683       begin
    2684         if(SaveAllTemplates) then
    2685           CanClose := TRUE
    2686         else
    2687           BtnApply.Enabled := BackupDiffers;
     2695      if (ans = IDYES) then
     2696      begin
     2697        CanClose := FALSE;
     2698        if (ScanNames) then
     2699        begin
     2700          if (SaveAllTemplates) then
     2701            CanClose := TRUE
     2702          else
     2703            BtnApply.Enabled := BackupDiffers;
     2704        end;
    26882705      end;
    2689     end;
    26902706  end;
    26912707end;
    … …  
    27032719    tmplEditorSplitterNotes := pnlNotes.Height;
    27042720  pnlBoilerplateResize(Self);
     2721  if not PnlNotes.visible and (PnlNotes.Top <= pnlGroupBP.Top - pnlGroupBP.Constraints.MinHeight) then
     2722    tmplEditorSplitterNotes := (pnlGroupBP.Height - pnlGroupBP.Constraints.MinHeight) - splNotes.Height - 10;
     2723  if not pnlGroupBP.visible and (pnlGroupBP.Top >= pnlNotes.Top + pnlGroupBP.Constraints.MinHeight) then
     2724    tmplEditorSplitterBoil := reBoil.Height - pnlGroupBP.Constraints.MinHeight - 10;
    27052725end;
    27062726
    … …  
    27082728  var Key: Char);
    27092729begin
    2710   if(not (Key in ['0','1','2','3'])) then Key := #0;
     2730  if (not (Key in ['0', '1', '2', '3'])) then Key := #0;
    27112731end;
    27122732
    … …  
    27172737begin
    27182738  Warn := (ActiveControl <> btnCancel) and (BadTemplateName(edtName.Text));
    2719   if(Warn and ((ActiveControl = sbShDelete) or (ActiveControl = sbPerDelete))) then
    2720   begin
    2721     if((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     2739  if (Warn and ((ActiveControl = sbShDelete) or (ActiveControl = sbPerDelete))) then
     2740  begin
     2741    if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    27222742      Warn := not AutoDel(TTemplate(FCurTree.Selected.Data));
    27232743  end;
    2724   if(Warn) then
     2744  if (Warn) then
    27252745  begin
    27262746    InfoBox('Template has an invalid name: ' + edtName.Text + '.' + BadNameText, 'Error', MB_OK or MB_ICONERROR);
    … …  
    27412761
    27422762begin
    2743   if(assigned(FDropNode)) then
     2763  if (assigned(FDropNode)) then
    27442764  begin
    27452765    TopNode := FDropNode.TreeView.TopItem;
    27462766    Redraw := FALSE;
    27472767    TmpPt := FDropNode.TreeView.ScreenToClient(Mouse.CursorPos);
    2748     if(TopNode = FDropNode) and (TopNode <> TTreeView(FDropNode.TreeView).Items.GetFirstNode) then
     2768    if (TopNode = FDropNode) and (TopNode <> TTreeView(FDropNode.TreeView).Items.GetFirstNode) then
    27492769    begin
    27502770      FDropNode.TreeView.TopItem := TopNode.GetPrevVisible;
    … …  
    27542774    begin
    27552775      RMax := FDropNode.TreeView.ClientHeight - EdgeScroll;
    2756       if((TmpPt.Y > RMax) and (FDropNode.GetNextVisible <> nil)) then
     2776      if ((TmpPt.Y > RMax) and (FDropNode.GetNextVisible <> nil)) then
    27572777      begin
    27582778        TORTreeView(FDropNode.TreeView).VertScrollPos :=
    2759         TORTreeView(FDropNode.TreeView).VertScrollPos + 1;
     2779          TORTreeView(FDropNode.TreeView).VertScrollPos + 1;
    27602780        Redraw := TRUE;
    27612781      end;
    27622782    end;
    2763     if(FLastDropNode <> FDropNode) then
    2764     begin
    2765       if((assigned(FDropNode)) and (FDropNode.GetNext = nil)) then
     2783    if (FLastDropNode <> FDropNode) then
     2784    begin
     2785      if ((assigned(FDropNode)) and (FDropNode.GetNext = nil)) then
    27662786        Redraw := TRUE
    27672787      else
    2768       if((assigned(FLastDropNode)) and (FLastDropNode.GetNext = nil)) then
    2769         Redraw := TRUE;
     2788        if ((assigned(FLastDropNode)) and (FLastDropNode.GetNext = nil)) then
     2789          Redraw := TRUE;
    27702790      FLastDropNode := FDropNode;
    27712791      FDragOverCount := 0;
    … …  
    27732793    else
    27742794    begin
    2775       if(FDropNode.HasChildren) and (not FDropNode.Expanded) then
     2795      if (FDropNode.HasChildren) and (not FDropNode.Expanded) then
    27762796      begin
    27772797        ht := FDropNode.TreeView.GetHitTestInfoAt(TmpPt.X, TmpPt.Y);
    2778         if(htOnButton in ht) then
     2798        if (htOnButton in ht) then
    27792799        begin
    27802800          inc(FDragOverCount);
    2781           if(FDragOverCount > 4) then
     2801          if (FDragOverCount > 4) then
    27822802          begin
    27832803            TopNode := FDropNode.TreeView.TopItem;
    … …  
    27912811          FDragOverCount := 0;
    27922812      end;
    2793       if(not Redraw) then
     2813      if (not Redraw) then
    27942814      begin
    27952815        HPos := TORTreeView(FDropNode.TreeView).HorzScrollPos;
    2796         if(HPos > 0) and (TmpPt.X < EdgeScroll) then
     2816        if (HPos > 0) and (TmpPt.X < EdgeScroll) then
    27972817        begin
    27982818          TORTreeView(FDropNode.TreeView).HorzScrollPos :=
    2799           TORTreeView(FDropNode.TreeView).HorzScrollPos - EdgeScroll;
     2819            TORTreeView(FDropNode.TreeView).HorzScrollPos - EdgeScroll;
    28002820          Redraw := TRUE;
    28012821        end
    … …  
    28032823        begin
    28042824          RMax := FDropNode.TreeView.ClientWidth - EdgeScroll;
    2805           if(TmpPt.X > RMax) then
     2825          if (TmpPt.X > RMax) then
    28062826          begin
    28072827            TORTreeView(FDropNode.TreeView).HorzScrollPos :=
    2808             TORTreeView(FDropNode.TreeView).HorzScrollPos + EdgeScroll;
     2828              TORTreeView(FDropNode.TreeView).HorzScrollPos + EdgeScroll;
    28092829            Redraw := TRUE;
    28102830          end;
    … …  
    28122832      end;
    28132833    end;
    2814     if(Redraw) then
     2834    if (Redraw) then
    28152835    begin
    28162836      TmpPt := Mouse.CursorPos; // Wiggling the mouse causes needed windows messages to fire
    … …  
    28772897procedure TfrmTemplateEditor.mnuNodeDeleteClick(Sender: TObject);
    28782898begin
    2879   if(FCurTree = tvShared) and (sbShDelete.Visible) and (sbShDelete.Enabled) then
     2899  if (FCurTree = tvShared) and (sbShDelete.Visible) and (sbShDelete.Enabled) then
    28802900    sbDeleteClick(sbShDelete)
    28812901  else
    2882   if(FCurTree = tvPersonal) and (sbPerDelete.Visible) and (sbPerDelete.Enabled) then
    2883     sbDeleteClick(sbPerDelete);
     2902    if (FCurTree = tvPersonal) and (sbPerDelete.Visible) and (sbPerDelete.Enabled) then
     2903      sbDeleteClick(sbPerDelete);
    28842904end;
    28852905
    28862906procedure TfrmTemplateEditor.mnuNodeCopyClick(Sender: TObject);
    28872907begin
    2888   if(assigned(FCurTree)) then
     2908  if (assigned(FCurTree)) then
    28892909    FCopyNode := FCurTree.Selected
    28902910  else
    … …  
    28942914procedure TfrmTemplateEditor.mnuNodePasteClick(Sender: TObject);
    28952915begin
    2896   if(PasteOK) then
     2916  if (PasteOK) then
    28972917  begin
    28982918    FDragNode := FCopyNode;
    … …  
    29162936begin
    29172937  Result := assigned(FCopyNode) and assigned(FPasteNode);
    2918   if(Result) then
     2938  if (Result) then
    29192939    Result := (FTreeControl[TTemplateTreeType(FPasteNode.TreeView.Tag), tcDel].Visible);
    2920   if(Result) then
     2940  if (Result) then
    29212941  begin
    29222942    OldCopying := FCopying;
    … …  
    29242944    try
    29252945      Node := FPasteNode;
    2926       if(TTemplate(Node.Data).RealType = ttDoc) then
     2946      if (TTemplate(Node.Data).RealType = ttDoc) then
    29272947        Node := Node.Parent;
    29282948      Result := AllowMove(Node, FCopyNode);
    … …  
    29422962begin
    29432963
    2944   if(Key = VK_DELETE) then
    2945   begin
    2946     if(Sender = tvShared) then
    2947     begin
    2948       if(sbShDelete.Visible and sbShDelete.Enabled) then
     2964  if (Key = VK_DELETE) then
     2965  begin
     2966    if (Sender = tvShared) then
     2967    begin
     2968      if (sbShDelete.Visible and sbShDelete.Enabled) then
    29492969        sbDeleteClick(sbShDelete);
    29502970    end
    29512971    else
    29522972    begin
    2953       if(sbPerDelete.Visible and sbPerDelete.Enabled) then
     2973      if (sbPerDelete.Visible and sbPerDelete.Enabled) then
    29542974        sbDeleteClick(sbPerDelete);
    29552975    end;
    … …  
    29572977   //Code Added to provide CTRL Key access for 508 compliance  GRE 3/03
    29582978  if (ssCtrl in Shift) and (Key = VK_A) then
    2959       reBoil.SelectAll
     2979    reBoil.SelectAll
    29602980  else
    2961   if (ssCtrl in Shift) and (Key = VK_C) then
     2981    if (ssCtrl in Shift) and (Key = VK_C) then
    29622982      reBoil.CopyToClipboard
    2963   else
    2964   if (ssCtrl in Shift) and (Key = VK_E) then
    2965       mnuBPErrorCheckClick(Self)
    2966   else
    2967   if (ssCtrl in Shift) and (Key = VK_F) then
    2968       mnuBPInsertFieldClick(Self)
    2969   else
    2970   if (ssCtrl in Shift) and (Key = VK_G) then
    2971       GrammarCheckForControl(reBoil)
    2972   else
    2973   if (ssCtrl in Shift) and (Key = VK_I) then
    2974       mnuBPInsertObjectClick(Self)
    2975   else
    2976   if (ssCtrl in Shift) and (Key = VK_S) then
    2977       SpellCheckForControl(reBoil)
    2978   else
    2979   if (ssCtrl in Shift) and (Key = VK_T) then
    2980       mnuBPTryClick(Self)
    2981   else
    2982   if (ssCtrl in Shift) and (Key = VK_V) then
    2983       reBoil.SelText := Clipboard.AsText
    2984   else
    2985   if (ssCtrl in Shift) and (Key = VK_X) then
    2986       reBoil.CutToClipboard
    2987   else
    2988   if (ssCtrl in Shift) and (Key = VK_Z) then
    2989       reBoil.Perform(EM_UNDO, 0, 0);
     2983    else
     2984      if (ssCtrl in Shift) and (Key = VK_E) then
     2985        mnuBPErrorCheckClick(Self)
     2986      else
     2987        if (ssCtrl in Shift) and (Key = VK_F) then
     2988          mnuBPInsertFieldClick(Self)
     2989        else
     2990          if (ssCtrl in Shift) and (Key = VK_G) then
     2991            GrammarCheckForControl(reBoil)
     2992          else
     2993            if (ssCtrl in Shift) and (Key = VK_I) then
     2994              mnuBPInsertObjectClick(Self)
     2995            else
     2996              if (ssCtrl in Shift) and (Key = VK_S) then
     2997                SpellCheckForControl(reBoil)
     2998              else
     2999                if (ssCtrl in Shift) and (Key = VK_T) then
     3000                  mnuBPTryClick(Self)
     3001                else
     3002                  if (ssCtrl in Shift) and (Key = VK_V) then
     3003                    reBoil.SelText := Clipboard.AsText
     3004                  else
     3005                    if (ssCtrl in Shift) and (Key = VK_X) then
     3006                      reBoil.CutToClipboard
     3007                    else
     3008                      if (ssCtrl in Shift) and (Key = VK_Z) then
     3009                        reBoil.Perform(EM_UNDO, 0, 0);
    29903010  //End of ---- Code Added to provide CTRL Key access for 508 compliance  GRE 3/03
    29913011end;
    … …  
    30023022    mnuInsertField.Enabled := ok;
    30033023    mnuPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT));
    3004     if(ok) then
     3024    if (ok) then
    30053025      ok := (reBoil.Lines.Count > 0);
    30063026    tryOK := (reBoil.Lines.Count > 0) or ((pnlGroupBP.Visible) and (reGroupBP.Lines.Count > 0));
    … …  
    30183038  else
    30193039  begin
    3020     mnuInsertObject.Enabled     := FALSE;
    3021     mnuInsertField.Enabled      := FALSE;
    3022     mnuPaste.Enabled            := FALSE;
    3023     mnuErrorCheck.Enabled       := FALSE;
    3024     mnuTry.Enabled              := FALSE;
    3025     mnuSpellCheck.Enabled       := FALSE;
    3026     mnuCheckGrammar.Enabled     := FALSE;
    3027     mnuCopy.Enabled             := FALSE;
    3028     mnuCut.Enabled              := FALSE;
    3029     mnuSelectAll.Enabled        := FALSE;
    3030     mnuUndo.Enabled             := FALSE;
     3040    mnuInsertObject.Enabled := FALSE;
     3041    mnuInsertField.Enabled := FALSE;
     3042    mnuPaste.Enabled := FALSE;
     3043    mnuErrorCheck.Enabled := FALSE;
     3044    mnuTry.Enabled := FALSE;
     3045    mnuSpellCheck.Enabled := FALSE;
     3046    mnuCheckGrammar.Enabled := FALSE;
     3047    mnuCopy.Enabled := FALSE;
     3048    mnuCut.Enabled := FALSE;
     3049    mnuSelectAll.Enabled := FALSE;
     3050    mnuUndo.Enabled := FALSE;
    30313051    mnuGroupBoilerplate.Enabled := FALSE;
    30323052  end;
    … …  
    30423062begin
    30433063  SetFindNext(tvShared, FALSE);
    3044   if(pnlShSearch.Visible) then edtShSearch.SetFocus;
     3064  if (pnlShSearch.Visible) then edtShSearch.SetFocus;
    30453065end;
    30463066
    … …  
    30483068begin
    30493069  SetFindNext(tvPersonal, FALSE);
    3050   if(pnlPerSearch.Visible) then edtPerSearch.SetFocus;
     3070  if (pnlPerSearch.Visible) then edtPerSearch.SetFocus;
    30513071end;
    30523072
    … …  
    30583078  FFromMainMenu := TRUE;
    30593079  Tree := FCurTree;
    3060   if(assigned(Tree) and assigned(Tree.Selected)) then
    3061   begin
    3062     if(Tree = tvShared) then
     3080  if (assigned(Tree) and assigned(Tree.Selected)) then
     3081  begin
     3082    if (Tree = tvShared) then
    30633083      mnuTDelete.Enabled := ((sbShDelete.Visible) and (sbShDelete.Enabled))
    30643084    else
    30653085      mnuTDelete.Enabled := ((sbPerDelete.Visible) and (sbPerDelete.Enabled));
    3066     if(assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
     3086    if (assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
    30673087    begin
    30683088      mnuTCopy.Enabled := (TTemplate(Tree.Selected.Data).RealType in [ttDoc, ttGroup, ttClass]);
    30693089      mnuSort.Enabled := (TTemplate(Tree.Selected.Data).RealType in AllTemplateFolderTypes) and
    3070                          (Tree.Selected.HasChildren) and
    3071                          (Tree.Selected.GetFirstChild.GetNextSibling <> nil);
     3090        (Tree.Selected.HasChildren) and
     3091        (Tree.Selected.GetFirstChild.GetNextSibling <> nil);
    30723092    end
    30733093    else
    … …  
    31203140procedure TfrmTemplateEditor.pnlShSearchResize(Sender: TObject);
    31213141begin
    3122   if((cbShMatchCase.Width + cbShWholeWords.Width) > pnlShSearch.Width) then
     3142  if ((cbShMatchCase.Width + cbShWholeWords.Width) > pnlShSearch.Width) then
    31233143    cbShWholeWords.Left := cbShMatchCase.Width
    31243144  else
    … …  
    31283148procedure TfrmTemplateEditor.pnlPerSearchResize(Sender: TObject);
    31293149begin
    3130   if((cbPerMatchCase.Width + cbPerWholeWords.Width) > pnlPerSearch.Width) then
     3150  if ((cbPerMatchCase.Width + cbPerWholeWords.Width) > pnlPerSearch.Width) then
    31313151    cbPerWholeWords.Left := cbPerMatchCase.Width
    31323152  else
    … …  
    31563176begin
    31573177  Tree := FCurTree;
    3158   if(assigned(Tree) and assigned(Tree.Selected) and Tree.Selected.HasChildren) then
     3178  if (assigned(Tree) and assigned(Tree.Selected) and Tree.Selected.HasChildren) then
    31593179  begin
    31603180    TTemplate(Tree.Selected.Data).SortChildren;
    … …  
    31673187  var NewWidth, NewHeight: Integer; var Resize: Boolean);
    31683188begin
    3169   if(NewHeight < 40) then Resize := FALSE;
     3189  if (NewHeight < 40) then Resize := FALSE;
    31703190end;
    31713191
    31723192function TfrmTemplateEditor.AutoDel(Template: TTemplate): boolean;
    31733193begin
    3174   if(assigned(Template)) then
     3194  if (assigned(Template)) then
    31753195    Result := (((Template.ID = '0') or (Template.ID = '')) and
    3176                 (Template.PrintName = NewTemplateName) and
    3177                 (Template.Boilerplate = ''))
     3196      (Template.PrintName = NewTemplateName) and
     3197      (Template.Boilerplate = ''))
    31783198  else
    3179     Result := FALSE;           
     3199    Result := FALSE;
    31803200end;
    31813201
    … …  
    31853205  Move: boolean;
    31863206  tmpl: TTemplate;
    3187   txt: String;
     3207  txt: string;
    31883208
    31893209begin
    31903210  mnuBPErrorCheckClick(nil);
    3191   if(FBPOK) or (reBoil.Lines.Count = 0) then
     3211  if (FBPOK) or (reBoil.Lines.Count = 0) then
    31923212  begin
    31933213    Move := assigned(frmTemplateView);
    3194     if(Move) then
     3214    if (Move) then
    31953215    begin
    31963216      R := frmTemplateView.BoundsRect;
    … …  
    32013221    tmpl.TemplatePreviewMode := TRUE; // Prevents "Are you sure?" dialog when canceling
    32023222    txt := tmpl.Text;
    3203     if(not tmpl.DialogAborted) then
    3204       ShowTemplateData(Self, tmpl.PrintName ,txt);
    3205     if(Move) then
     3223    if (not tmpl.DialogAborted) then
     3224      ShowTemplateData(Self, tmpl.PrintName, txt);
     3225    if (Move) then
    32063226      frmTemplateView.BoundsRect := R;
    32073227    tmpl.TemplatePreviewMode := FALSE;
    … …  
    32163236  dmodShared.LoadTIUObjects;
    32173237  UpdatePersonalObjects;
    3218   GetAutoGenText(AName, AText, uPersonalObjects);   // -------- CQ #8665 - RV ------------
    3219   if(AName <> '') and (AText <> '') then
     3238  GetAutoGenText(AName, AText, uPersonalObjects); // -------- CQ #8665 - RV ------------
     3239  if (AName <> '') and (AText <> '') then
    32203240  begin
    32213241    btnNewClick(Self);
    … …  
    32333253
    32343254begin
    3235   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     3255  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    32363256  begin
    32373257    if CanClone(FCurTree.Selected) then
    … …  
    32433263        Template.Description := reNotes.Lines.Text;
    32443264        UpdateApply(Template);
    3245         if(DoRefresh) then
     3265        if (DoRefresh) then
    32463266        begin
    32473267          tvShared.Invalidate;
    … …  
    32973317  ok := not reNotes.ReadOnly;
    32983318  mnuNotesPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT));
    3299   if(ok) then
     3319  if (ok) then
    33003320    ok := (reNotes.Lines.Count > 0);
    33013321  mnuNotesSpelling.Enabled := ok and SpellCheckAvailable;
    … …  
    33083328
    33093329procedure TfrmTemplateEditor.cbNotesClick(Sender: TObject);
     3330var
     3331  ScreenPoint: TPoint;
     3332  NewHeight: Integer;
    33103333begin
    33113334  pnlNotes.Visible := cbNotes.Checked;
    … …  
    33153338    pnlNotes.Height := tmplEditorSplitterNotes;
    33163339    pnlNotes.Top := pnlBottom.Top - pnlNotes.Height;
    3317     splNotes.Top := pnlNotes.Top-3;
     3340    splNotes.Top := pnlNotes.Top - 3;
     3341    if pnlGroupBP.Height <= pnlGroupBP.Constraints.MinHeight then begin
     3342      //Clear the points
     3343      ScreenPoint.Y := 0;
     3344      ScreenPoint.X := 0;
     3345      if pnlNotes.ClientToScreen(ScreenPoint).Y + 30 > pnlBottom.Top then begin
     3346        if pnlNotes.ClientToScreen(ScreenPoint).Y > pnlBottom.Top then
     3347          NewHeight := pnlNotes.Height + (pnlNotes.ClientToScreen(ScreenPoint).Y - pnlBottom.Top)
     3348        else
     3349          NewHeight := pnlNotes.Height - (pnlNotes.ClientToScreen(ScreenPoint).Y - pnlBottom.Top);
     3350        Reboil.Height := Reboil.Height - (NewHeight + 10);
     3351        PnlNotes.Constraints.MinHeight := 30;
     3352        pnlNotes.Height := PnlNotes.Constraints.MinHeight;
     3353        if reboil.Height = reboil.Constraints.MinHeight then
     3354          PnlTop.height := PnlTop.height - 100;
     3355      end;
     3356    end;
     3357  end else begin
     3358    pnlNotes.Constraints.MinHeight := 1;
     3359    pnlNotes.Height := 1;
    33183360  end;
    33193361  pnlBoilerplateResize(Self);
    … …  
    33483390var
    33493391  Template: TTemplate;
    3350  
    3351 begin
    3352   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     3392
     3393begin
     3394  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    33533395  begin
    33543396    if CanClone(FCurTree.Selected) then
    … …  
    33593401      begin
    33603402        case Index of
    3361           BPDisplayOnlyFld:   Template.DisplayOnly  := Sender.Checked;
    3362           BPFirstLineFld:     Template.FirstLine    := Sender.Checked;
    3363           BPOneItemOnlyFld:   Template.OneItemOnly  := Sender.Checked;
    3364           BPHideDlgItemsFld:  Template.HideDlgItems := Sender.Checked;
    3365           BPHideItemsFld:     Template.HideItems    := Sender.Checked;
    3366           BPIndentFld:        Template.IndentItems  := Sender.Checked;
    3367           BPLockFld:          Template.Lock          := Sender.Checked;
     3403          BPDisplayOnlyFld: Template.DisplayOnly := Sender.Checked;
     3404          BPFirstLineFld: Template.FirstLine := Sender.Checked;
     3405          BPOneItemOnlyFld: Template.OneItemOnly := Sender.Checked;
     3406          BPHideDlgItemsFld: Template.HideDlgItems := Sender.Checked;
     3407          BPHideItemsFld: Template.HideItems := Sender.Checked;
     3408          BPIndentFld: Template.IndentItems := Sender.Checked;
     3409          BPLockFld: Template.Lock := Sender.Checked;
    33683410        end;
    33693411        UpdateApply(Template);
    … …  
    33833425  mnuImportTemplate.Enabled := btnNew.Enabled;
    33843426  mnuExportTemplate.Enabled := (assigned(FCurTree) and assigned(FCurTree.Selected) and
    3385                                 assigned(FCurTree.Selected.Data));
     3427    assigned(FCurTree.Selected.Data));
    33863428end;
    33873429
    … …  
    33983440procedure TfrmTemplateEditor.mnuBPInsertFieldClick(Sender: TObject);
    33993441begin
    3400   if(not assigned(frmTemplateFields)) then
     3442  if (not assigned(frmTemplateFields)) then
    34013443  begin
    34023444    frmTemplateFields := TfrmTemplateFields.Create(Self);
    … …  
    34253467begin
    34263468  err := FALSE;
    3427   if(assigned(FCurTree) and assigned(FCurTree.Selected) and assigned(FCurTree.Selected.Data)) then
     3469  if (assigned(FCurTree) and assigned(FCurTree.Selected) and assigned(FCurTree.Selected.Data)) then
    34283470  begin
    34293471    dlgExport.FileName := ValidFileName(TTemplate(FCurTree.Selected.Data).PrintName);
    … …  
    34343476        Flds := TStringList.Create;
    34353477        try
    3436           Tmpl.Add('<'+XMLHeader+'>');
     3478          Tmpl.Add('<' + XMLHeader + '>');
    34373479          if TTemplate(FCurTree.Selected.Data).CanExportXML(Tmpl, Flds, 2) then
    34383480          begin
    … …  
    34403482              ExpandEmbeddedFields(Flds);
    34413483              FastAssign(ExportTemplateFields(Flds), Flds);
    3442               for i := 0 to Flds.Count-1 do
     3484              for i := 0 to Flds.Count - 1 do
    34433485                Flds[i] := '  ' + Flds[i];
    34443486              FastAddStrings(Flds, Tmpl);
    34453487            end; {if}
    3446             Tmpl.Add('</'+XMLHeader+'>');
     3488            Tmpl.Add('</' + XMLHeader + '>');
    34473489            try
    34483490              XMLDoc := CoDOMDocument.Create;
    … …  
    34603502            if not err then
    34613503              InfoBox('Template ' + TTemplate(FCurTree.Selected.Data).PrintName +
    3462                       ' Exported.', 'Template Exported', MB_OK);
     3504                ' Exported.', 'Template Exported', MB_OK);
    34633505          end;
    34643506        finally
    … …  
    34833525  ImportedTemplate: TTemplate;
    34843526  AppData, Flds, ResultSet: TStringList;
    3485   tmp,j,p3: string;
     3527  tmp, j, p3: string;
    34863528  err, ok, changes, xmlerr: boolean;
    34873529  i: integer;
    … …  
    35043546  begin
    35053547    tmp := ExtractFileExt(dlgImport.FileName);
    3506     if(WordImportActive and ((CompareText(tmp,'.doc') = 0) or
    3507                              (CompareText(tmp,'.dot') = 0))) then
     3548    if (WordImportActive and ((CompareText(tmp, '.doc') = 0) or
     3549      (CompareText(tmp, '.dot') = 0))) then
    35083550      AppData := TStringList.Create
    35093551    else
    … …  
    35393581            XMLImportError(0);
    35403582          try
    3541             if(RootElement.tagName <> XMLHeader)then
     3583            if (RootElement.tagName <> XMLHeader) then
    35423584              XMLImportError(0)
    35433585            else
    … …  
    35483590              begin
    35493591                FXMLFieldElement := FindXMLElement(RootElement, XMLTemplateFieldsTag);
    3550                 if(assigned(FXMLFieldElement)) then
     3592                if (assigned(FXMLFieldElement)) then
    35513593                begin
    35523594                  Flds := TStringList.Create;
    … …  
    35573599                    changes := FALSE;
    35583600                    Application.ProcessMessages;
    3559                     if not BuildTemplateFields(Flds) then  //Calls RPC to transfer all field XML
    3560                       choice := IDCANCEL;                  //for processing
     3601                    if not BuildTemplateFields(Flds) then //Calls RPC to transfer all field XML
     3602                      choice := IDCANCEL; //for processing
    35613603                    Flds.Text := '';
    35623604                    Application.ProcessMessages;
    … …  
    35643606                      CheckTemplateFields(Flds);
    35653607                    if Flds.Count > 0 then
     3608                    begin
     3609                      for i := 1 to Flds.Count do
    35663610                      begin
    3567                         for i := 1 to Flds.Count do
    3568                           begin
    3569                           j := piece(Flds[i-1],U,2);
    3570                           if (j = '0') or (j = '2') then
    3571                             begin
    3572                               p3 := piece(Flds[i-1],U,3);
    3573                               if p3 = 'XML FORMAT ERROR' then
    3574                                 choice := IDCANCEL;
    3575                               changes := TRUE;
    3576                               if j = '2' then begin
    3577                                 j := Flds[i-1];
    3578                                 SetPiece(j,U,2,'1');
    3579                                 Flds[i-1] := j
    3580                               end;
    3581                             end;
     3611                        j := piece(Flds[i - 1], U, 2);
     3612                        if (j = '0') or (j = '2') then
     3613                        begin
     3614                          p3 := piece(Flds[i - 1], U, 3);
     3615                          if p3 = 'XML FORMAT ERROR' then
     3616                            choice := IDCANCEL;
     3617                          changes := TRUE;
     3618                          if j = '2' then begin
     3619                            j := Flds[i - 1];
     3620                            SetPiece(j, U, 2, '1');
     3621                            Flds[i - 1] := j
    35823622                          end;
    3583                       end
     3623                        end;
     3624                      end;
     3625                    end
    35843626                    else
    35853627                      choice := IDCANCEL;
    35863628                    if choice <> IDOK then
    3587                       InfoBox(iMessage2+iMessage3, 'Error', MB_OK or MB_ICONERROR)
     3629                      InfoBox(iMessage2 + iMessage3, 'Error', MB_OK or MB_ICONERROR)
    35883630                    else
    3589                       if (not CanEditTemplateFields) AND
    3590                          changes {(there is at least one new field)} then
    3591                         begin
    3592                           choice := InfoBox(iMessage, 'Warning', MB_OKCANCEL or MB_ICONWARNING);
    3593                           Flds.Text := '';
    3594                         end;
     3631                      if (not CanEditTemplateFields) and
     3632                        changes {(there is at least one new field)} then
     3633                      begin
     3634                        choice := InfoBox(iMessage, 'Warning', MB_OKCANCEL or MB_ICONWARNING);
     3635                        Flds.Text := '';
     3636                      end;
    35953637                    if choice <> IDCANCEL then
    3596                       begin
     3638                    begin
    35973639                      FImportingFromXML := TRUE;
    35983640                      try
    … …  
    36053647                      if assigned(ImportedTemplate) and (Flds.Count > 0) then
    36063648                        if not ImportLoadedFields(ResultSet) then begin
    3607                           InfoBox(iMessage2+iMessage3, 'Error', MB_OK or MB_ICONERROR);
     3649                          InfoBox(iMessage2 + iMessage3, 'Error', MB_OK or MB_ICONERROR);
    36083650                          ClearFields;
    36093651                          choice := IDCANCEL;
    3610                         end;//if
     3652                        end; //if
    36113653                      if Flds.Count = 0 then
    36123654                        choice := IDCANCEL;
    3613                       end {if choice <> mrCancel}
     3655                    end {if choice <> mrCancel}
    36143656                    else
    36153657                      ClearFields;
    … …  
    36173659                    xmlerr := FALSE;
    36183660                    if (Flds.Count > 0) and
    3619                        (ResultSet.Count > 0) and
    3620                        (Flds.Count = ResultSet.Count) then
    3621                       for i := 0 to Flds.Count-1 do begin
    3622                         if piece(ResultSet[i],U,2) = '0' then begin
    3623                           j := piece(Flds[i],U,1) + U + '0' + U + piece(ResultSet[i],U,3);
     3661                      (ResultSet.Count > 0) and
     3662                      (Flds.Count = ResultSet.Count) then
     3663                      for i := 0 to Flds.Count - 1 do begin
     3664                        if piece(ResultSet[i], U, 2) = '0' then begin
     3665                          j := piece(Flds[i], U, 1) + U + '0' + U + piece(ResultSet[i], U, 3);
    36243666                          Flds[i] := j;
    36253667                        end
    … …  
    36393681                      else
    36403682                        inc(i);
    3641                     end;//while
    3642                     if(Flds.Count > 0) then
     3683                    end; //while
     3684                    if (Flds.Count > 0) then
    36433685                    begin
    36443686                      if assigned(frmTemplateFields) then
    … …  
    36473689                      if not assigned(AppData) then
    36483690                      begin
    3649                         for i := 0 to Flds.Count-1 do
    3650                           Flds[i] := '  Field "' + Piece(Flds[i],U,1) + '" has been renamed to "'+
    3651                                                    Piece(Flds[i],U,3) + '"';
     3691                        for i := 0 to Flds.Count - 1 do
     3692                          Flds[i] := '  Field "' + Piece(Flds[i], U, 1) + '" has been renamed to "' +
     3693                            Piece(Flds[i], U, 3) + '"';
    36523694                        if Flds.Count = 1 then
    36533695                          tmp := 'A template field has'
    36543696                        else
    36553697                          tmp := IntToStr(Flds.Count) + ' template fields have';
    3656                         Flds.Insert(0,tmp + ' been imported with the same name as');
    3657                         Flds.Insert(1,'existing template fields, but with different field definitions.');
    3658                         Flds.Insert(2,'These imported template fields have been renamed as follows:');
    3659                         Flds.Insert(3,'');
     3698                        Flds.Insert(0, tmp + ' been imported with the same name as');
     3699                        Flds.Insert(1, 'existing template fields, but with different field definitions.');
     3700                        Flds.Insert(2, 'These imported template fields have been renamed as follows:');
     3701                        Flds.Insert(3, '');
    36603702                        InfoBox(Flds.Text, 'Information', MB_OK or MB_ICONINFORMATION);
    36613703                      end;
    … …  
    36923734        AppData.Free;
    36933735        if err then
    3694           InfoBox('An error occured while Importing Word Document.  Make sure Word is closed and try again.','Import Error', MB_OK);
     3736          InfoBox('An error occured while Importing Word Document.  Make sure Word is closed and try again.', 'Import Error', MB_OK);
    36953737      end;
    36963738    end;
    … …  
    37073749  case IdxForced[FForceContainer, Index] of
    37083750    tiTemplate: ImgIdx := 4;
    3709     tiFolder:   ImgIdx := 3;
    3710     tiGroup:    ImgIdx := 5;
    3711     tiDialog:   ImgIdx := 23;
    3712     tiRemDlg:   ImgIdx := 27;
    3713     tiCOMObj:   ImgIdx := 28;
    3714     else
    3715       ImgIdx := ord(tiNone);
     3751    tiFolder: ImgIdx := 3;
     3752    tiGroup: ImgIdx := 5;
     3753    tiDialog: ImgIdx := 23;
     3754    tiRemDlg: ImgIdx := 27;
     3755    tiCOMObj: ImgIdx := 28;
     3756  else
     3757    ImgIdx := ord(tiNone);
    37163758  end;
    37173759  if ImgIdx >= 0 then
    3718     dmodShared.imgTemplates.Draw(cbxType.Canvas, Rect.Left+1, Rect.Top+1, ImgIdx);
     3760    dmodShared.imgTemplates.Draw(cbxType.Canvas, Rect.Left + 1, Rect.Top + 1, ImgIdx);
    37193761  if Index >= 0 then
    3720     cbxType.Canvas.TextOut(Rect.Left+21, Rect.Top+2, cbxType.Items[Index]);
     3762    cbxType.Canvas.TextOut(Rect.Left + 21, Rect.Top + 2, cbxType.Items[Index]);
    37213763end;
    37223764
    37233765procedure TfrmTemplateEditor.cbxTypeChange(Sender: TObject);
    37243766var
    3725   i,tg: integer;
     3767  i, tg: integer;
    37263768  Template: TTemplate;
    37273769  ttyp: TTemplateType;
    … …  
    37303772
    37313773begin
    3732   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
     3774  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
    37333775  begin
    37343776    tg := cbxType.ItemIndex;
    … …  
    37383780      begin
    37393781        idx := IdxForced[FForceContainer, tg];
    3740         if(idx = tiRemDlg) and (not (GetLinkType(FCurTree.Selected) in [ltNone, ltTitle])) then
     3782        if (idx = tiRemDlg) and (not (GetLinkType(FCurTree.Selected) in [ltNone, ltTitle])) then
    37413783        begin
    37423784          FUpdating := TRUE;
    … …  
    37553797          begin
    37563798            ttyp := TypeTag[idx];
    3757             if(not FForceContainer) or (not (idx in [tiTemplate, tiRemDlg])) then
     3799            if (not FForceContainer) or (not (idx in [tiTemplate, tiRemDlg])) then
    37583800            begin
    3759               if(ttyp = ttDialog) then
     3801              if (ttyp = ttDialog) then
    37603802              begin
    37613803                Template.Dialog := TRUE;
    … …  
    37653807                Template.Dialog := FALSE;
    37663808              Template.RealType := ttyp;
    3767               if(Template.RealType = ttDoc) and (idx = tiRemDlg) then
     3809              if (Template.RealType = ttDoc) and (idx = tiRemDlg) then
    37683810                Template.IsReminderDialog := TRUE
    37693811              else
    37703812                Template.IsReminderDialog := FALSE;
    3771               if(Template.RealType = ttDoc) and (idx = tiCOMObj) then
     3813              if (Template.RealType = ttDoc) and (idx = tiCOMObj) then
    37723814                Template.IsCOMObject := TRUE
    37733815              else
    … …  
    37753817              UpdateApply(Template);
    37763818            end;
    3777             for i := 0 to Template.Nodes.Count-1 do
     3819            for i := 0 to Template.Nodes.Count - 1 do
    37783820            begin
    37793821              Node := TTreeNode(Template.Nodes.Objects[i]);
    … …  
    37973839
    37983840begin
    3799   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    3800      FCanDoReminders) then
     3841  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     3842    FCanDoReminders) then
    38013843  begin
    38023844    if CanClone(FCurTree.Selected) then
    … …  
    38793921{ Returns TRUE if Cloning is not needed or if Cloning is needed and
    38803922  the top personal Node in the tree is locked. }
     3923
    38813924function TfrmTemplateEditor.CanClone(const Node: TTreeNode): boolean;
    38823925var
    … …  
    38913934
    38923935begin
    3893   if(assigned(Node)) and assigned(Node.Data) then
     3936  if (assigned(Node)) and assigned(Node.Data) then
    38943937  begin
    38953938    if (TTreeView(Node.TreeView) = tvPersonal) then
    … …  
    39103953procedure TfrmTemplateEditor.UpdateApply(Template: TTemplate);
    39113954begin
    3912   if(not btnApply.Enabled) then
     3955  if (not btnApply.Enabled) then
    39133956    btnApply.Enabled := Template.Changed;
    39143957end;
    … …  
    39303973  begin
    39313974    if InfoBox('All changes must be saved before you can Refresh.  Save Changes?',
    3932         'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES then
     3975      'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES then
    39333976      exit;
    39343977  end;
    … …  
    39493992  exp1 := tvShared.GetExpandedIDStr(1, ';');
    39503993  exp2 := tvPersonal.GetExpandedIDStr(1, ';');
    3951   s1 := tvShared.GetNodeID(TORTreeNode(tvShared.Selected),1,';');
    3952   s2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.Selected),1,';');
    3953   t1 := tvShared.GetNodeID(TORTreeNode(tvShared.TopItem),1,';');
    3954   t2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.TopItem),1,';');
     3994  s1 := tvShared.GetNodeID(TORTreeNode(tvShared.Selected), 1, ';');
     3995  s2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.Selected), 1, ';');
     3996  t1 := tvShared.GetNodeID(TORTreeNode(tvShared.TopItem), 1, ';');
     3997  t2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.TopItem), 1, ';');
    39553998  tvPersonal.Items.BeginUpdate;
    39563999  try
    … …  
    39624005      InitTrees;
    39634006      tvShared.SetExpandedIDStr(1, ';', exp1);
    3964       tvShared.TopItem := tvShared.FindPieceNode(t1,1,';');
    3965       tvShared.Selected := tvShared.FindPieceNode(s1,1,';');
     4007      tvShared.TopItem := tvShared.FindPieceNode(t1, 1, ';');
     4008      tvShared.Selected := tvShared.FindPieceNode(s1, 1, ';');
    39664009      tvPersonal.SetExpandedIDStr(1, ';', exp2);
    3967       tvPersonal.TopItem := tvPersonal.FindPieceNode(t2,1,';');
    3968       tvPersonal.Selected := tvPersonal.FindPieceNode(s2,1,';');
     4010      tvPersonal.TopItem := tvPersonal.FindPieceNode(t2, 1, ';');
     4011      tvPersonal.Selected := tvPersonal.FindPieceNode(s2, 1, ';');
    39694012    finally
    39704013      tvShared.Items.EndUpdate;
    … …  
    39794022begin
    39804023  LoadTemplateData;
    3981   if(not assigned(RootTemplate)) then
    3982     SaveTemplate(AddTemplate('0^R^A^Shared Templates'),-1);
    3983   if(not assigned(MyTemplate)) then
    3984     AddTemplate('0^P^A^My Templates^^^'+IntToStr(User.DUZ));
     4024  if (not assigned(RootTemplate)) then
     4025    SaveTemplate(AddTemplate('0^R^A^Shared Templates'), -1);
     4026  if (not assigned(MyTemplate)) then
     4027    AddTemplate('0^P^A^My Templates^^^' + IntToStr(User.DUZ));
    39854028  dmodShared.AddTemplateNode(tvPersonal, FPersonalEmptyNodeCount, MyTemplate);
    39864029  dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, RootTemplate);
    … …  
    40044047  R := TRichEdit(Sender).ClientRect;
    40054048  if (FLastRect.Right <> R.Right) or
    4006      (FLastRect.Bottom <> R.Bottom) or
    4007      (FLastRect.Left <> R.Left) or
    4008      (FLastRect.Top <> R.Top) then
     4049    (FLastRect.Bottom <> R.Bottom) or
     4050    (FLastRect.Left <> R.Left) or
     4051    (FLastRect.Top <> R.Top) then
    40094052  begin
    40104053    FLastRect := R;
    … …  
    40384081
    40394082begin
    4040   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    4041      FCanDoCOMObjects and (FCurTree = tvShared)) then
     4083  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     4084    FCanDoCOMObjects and (FCurTree = tvShared)) then
    40424085  begin
    40434086    Template := TTemplate(FCurTree.Selected.Data);
    … …  
    40584101
    40594102begin
    4060   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    4061      FCanDoCOMObjects and (FCurTree = tvShared)) then
     4103  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     4104    FCanDoCOMObjects and (FCurTree = tvShared)) then
    40624105  begin
    40634106    Template := TTemplate(FCurTree.Selected.Data);
    … …  
    40784121  if assigned(ANode) then
    40794122  begin
    4080     if(not assigned(ANode.Data)) or (TTemplate(ANode.Data).RealType <> ttClass) then
     4123    if (not assigned(ANode.Data)) or (TTemplate(ANode.Data).RealType <> ttClass) then
    40814124    begin
    40824125      Node := ANode.Parent;
    … …  
    40874130            Node := nil
    40884131          else
    4089           if (TTemplate(Node.Data).RealType in AllTemplateLinkTypes) then
    4090           begin
    4091             case TTemplate(Node.Data).RealType of
    4092               ttTitles:    Result := ltTitle;
    4093               ttConsults:  Result := ltConsult;
    4094               ttProcedures: Result := ltProcedure;
    4095             end;
    4096           end
    4097           else
    4098             Node := Node.Parent;
     4132            if (TTemplate(Node.Data).RealType in AllTemplateLinkTypes) then
     4133            begin
     4134              case TTemplate(Node.Data).RealType of
     4135                ttTitles: Result := ltTitle;
     4136                ttConsults: Result := ltConsult;
     4137                ttProcedures: Result := ltProcedure;
     4138              end;
     4139            end
     4140            else
     4141              Node := Node.Parent;
    40994142        end
    41004143        else
    41014144          Node := nil;
    4102       until(Result <> ltNone) or (not assigned(Node));
     4145      until (Result <> ltNone) or (not assigned(Node));
    41034146    end;
    41044147  end;
    … …  
    41064149
    41074150procedure TfrmTemplateEditor.cbxLinkNeedData(Sender: TObject;
    4108   const StartFrom: String; Direction, InsertAt: Integer);
     4151  const StartFrom: string; Direction, InsertAt: Integer);
    41094152var
    41104153  tmpSL: TStringList;
    … …  
    41164159  try
    41174160    case TTemplateLinkType(pnlLink.Tag) of
    4118       ltTitle:     FastAssign(SubSetOfAllTitles(StartFrom, Direction), tmpSL);
     4161      ltTitle: FastAssign(SubSetOfAllTitles(StartFrom, Direction), tmpSL);
    41194162//      ltConsult:
    41204163      ltProcedure:
    41214164        begin
    41224165          FastAssign(SubSetOfProcedures(StartFrom, Direction), tmpSL);
    4123           for i := 0 to tmpSL.Count-1 do
     4166          for i := 0 to tmpSL.Count - 1 do
    41244167          begin
    41254168            tmp := tmpSL[i];
    4126             setpiece(tmp,U,1,piece(piece(tmp,U,4),';',1));
     4169            setpiece(tmp, U, 1, piece(piece(tmp, U, 4), ';', 1));
    41274170            tmpSL[i] := tmp;
    41284171          end;
    … …  
    41354178end;
    41364179
    4137 procedure TfrmTemplateEditor.cbxLinkChange(Sender: TObject);
    4138 var
    4139   Template,LinkTemplate: TTemplate;
     4180procedure TfrmTemplateEditor.cbxLinkExit(Sender: TObject);
     4181var
     4182  Template, LinkTemplate: TTemplate;
    41404183  update: boolean;
    41414184
    41424185begin
    4143   if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
    4144      (FCurTree = tvShared)) then
     4186  if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
     4187    (FCurTree = tvShared)) then
    41454188  begin
    41464189    Template := TTemplate(FCurTree.Selected.Data);
    … …  
    41544197        begin
    41554198          ShowMsg(GetLinkName(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag)) +
    4156                       ' is already assigned to another template.');
     4199            ' is already assigned to another template.');
     4200          cbxLink.SetFocus;
    41574201          cbxLink.SelectByID(Template.LinkIEN);
    41584202          update := False;
    … …  
    41624206          Template.FileLink := ConvertFileLink(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag));
    41634207          if Template.LinkName <> '' then
    4164             edtName.Text := copy(Template.LinkName,1,edtName.MaxLength);
     4208            edtName.Text := copy(Template.LinkName, 1, edtName.MaxLength);
    41654209        end;
    41664210      end
    … …  
    41804224    if ssShift in Shift then
    41814225      FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control
    4182     else if ssCtrl      in Shift then
     4226    else if ssCtrl in Shift then
    41834227      FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control
    41844228    FNavigatingTab := False;
    … …  
    41944238begin
    41954239  if FNavigatingTab then
    4196     Key := #0;  //Disable shift-tab processinend;
     4240    Key := #0; //Disable shift-tab processinend;
    41974241end;
    41984242
    … …  
    42024246  //The navigating tab controls were inadvertantently adding tab characters
    42034247  //This should fix it
    4204   FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []);
     4248  FNavigatingTab := (Key = VK_TAB) and ([ssShift, ssCtrl] * Shift <> []);
    42054249  if FNavigatingTab then
    42064250    Key := 0;
Note: See TracChangeset for help on using the changeset viewer.