Changeset 1679 for cprs/trunk/CPRS-Chart/fLabTestGroups.pas

Timestamp:

May 7, 2015, 12:34:29 PM (10 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fLabTestGroups.pas (modified) (2 diffs)

cprs/trunk/CPRS-Chart/fLabTestGroups.pas

@@ -173 +173 @@
 
 procedure TfrmLabTestGroups.cmdClearClick(Sender: TObject);
+//var
+  //i: integer;
 begin
   lstList.Clear;
   lstListClick(self);
+  lstTestGroups.ClearSelection;
+  //for i := 0 to lstTestGroups.Count - 1 do
+  //  lstTestGroups.Selected[i] := false;
 end;
 
@@ -192 +197 @@
   end;
   lstListClick(self);
+  lstTestGroups.ClearSelection;
 end;