Changeset 829 for cprs/trunk/CPRS-Chart/Templates/fTemplateFieldEditor.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Templates/fTemplateFieldEditor.pas (modified) (6 diffs)

cprs/trunk/CPRS-Chart/Templates/fTemplateFieldEditor.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ORCtrls, StdCtrls, ExtCtrls, Menus, ComCtrls, uTemplateFields, ORFn,
-  ToolWin, MenuBar, ORClasses, ORDtTm;
+  ToolWin, MenuBar, ORClasses, ORDtTm, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmTemplateFieldEditor = class(TForm)
+  TfrmTemplateFieldEditor = class(TfrmBase508Form)
     pnlBottom: TPanel;
     btnOK: TButton;
@@ -184 +184 @@
 
 uses rTemplates, fTemplateDialog, Clipbrd, uSpell, uConst,
-     fTemplateFields;
+     fTemplateFields, VAUtils;
 
 {$R *.DFM}
@@ -470 +470 @@
   FUpdating := TRUE;
   try
-    cbxDefault.Items.Assign(reItems.Lines);
+    QuickCopy(reItems, cbxDefault);
     idx := -1;
     if(assigned(FFld)) and reItems.Visible and cbxDefault.Visible then
@@ -509 +509 @@
   tmp := TORStringList.Create;
   try
-    tmp.Assign(SubSetOfTemplateFields(StartFrom, Direction));
+    FastAssign(SubSetOfTemplateFields(StartFrom, Direction), tmp);
     for i := 0 to FDeleted.Count-1 do
     begin
@@ -516 +516 @@
         tmp.delete(idx);
     end;
-    ConvertCodes2Text(tmp, TRUE);
+    ConvertCodes2Text(tmp, FALSE);
     cbxObjs.ForDataUse(tmp);
   finally
@@ -815 +815 @@
     if FDeleted.IndexOfPiece(FFld.FldName, U, 2) >= 0 then
     begin
-      ShowMessage('Template field can not be named the same as a deleted' + CRLF +
+      ShowMsg('Template field can not be named the same as a deleted' + CRLF +
                   'field until OK or Apply has been pressed.');
       bad := TRUE;