Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fHFSearch.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/Encounter/fHFSearch.pas (modified) (6 diffs)

cprs/trunk/CPRS-Chart/Encounter/fHFSearch.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, ORFn, StdCtrls, ComCtrls, ORCtrls, ExtCtrls;
+  fAutoSz, ORFn, StdCtrls, ComCtrls, ORCtrls, ExtCtrls,
+  VA508AccessibilityManager, VA508ImageListLabeler;
 
 type
@@ -16 +17 @@
     splMain: TSplitter;
     lblCat: TLabel;
+    imgListHFtvSearch: TVA508ImageListLabeler;
     procedure FormCreate(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
@@ -115 +117 @@
   HFList: TStringList;
   i: integer;
-  Node :TORTreeNode;
+  Node, Child :TORTreeNode;
   CAT: string;
 
@@ -135 +137 @@
         begin
           StringData := HFList[i];
-          StateIndex := 2;
+          ImageIndex := 2;
+          SelectedIndex := 2;
         end;
       end;
@@ -151 +154 @@
           Node := TORTreeNode(Node.GetNextSibling);
         end;
-        TORTreeNode(tvSearch.Items.AddChild(Node, '')).StringData := Pieces(HFList[i],U,1,2);
+        Child := TORTreeNode(tvSearch.Items.AddChild(Node, ''));
+        Child.StringData := Pieces(HFList[i],U,1,2);
+        Child.ImageIndex := -1;
+        Child.StateIndex := -1;
       end;
     end;
@@ -181 +187 @@
   begin
     if(Node.Expanded) then
-      Node.StateIndex := 3
+      Node.ImageIndex := 3
     else
-      Node.StateIndex := 2;
-  end;
+      Node.ImageIndex := 2;
+  end
+  else
+    Node.ImageIndex := -1;
+  Node.SelectedIndex := Node.ImageIndex;
 //  tvSearch.Invalidate;
 end;