Changeset 829 for cprs/trunk/CPRS-Chart/Templates/fTemplateObjects.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/fTemplateObjects.pas (modified) (2 diffs)

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ORCtrls, StdCtrls, ExtCtrls, ComCtrls, ORFn, dShared;
+  ORCtrls, StdCtrls, ExtCtrls, ComCtrls, ORFn, dShared, uTemplates, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmTemplateObjects = class(TForm)
+  TfrmTemplateObjects = class(TfrmBase508Form)
     cboObjects: TORComboBox;
     pnlBottom: TPanel;
@@ -93 +94 @@
 
 procedure TfrmTemplateObjects.btnRefreshClick(Sender: TObject);
+var
+  i: integer;
+  DoIt: boolean;
 begin
-cboObjects.SelectAll;
-cboObjects.Clear;
-dmodShared.RefreshObject := true;
-dmodShared.LoadTIUObjects;
-CboOBJECTS.Items.AddStrings(dmodShared.TIUObjects);
+  cboObjects.Clear;
+  dmodShared.RefreshObject := true;
+  dmodShared.LoadTIUObjects;
+  //---------- CQ #8665 - RV ----------------
+  DoIt := TRUE;
+  UpdatePersonalObjects;
+  if uPersonalObjects.Count > 0 then
+  begin
+    DoIt := FALSE;
+    for i := 0 to dmodShared.TIUObjects.Count-1 do
+      if uPersonalObjects.IndexOf(Piece(dmodShared.TIUObjects[i],U,2)) >= 0 then
+        cboObjects.Items.Add(dmodShared.TIUObjects[i]);
+  end;
+  if DoIt then
+  //---------- end CQ #8665 ------------------
+    cboObjects.Items.Assign(dmodShared.TIUObjects);
 end;
 
 end.
+