- Timestamp:
- May 8, 2015, 7:52:55 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fLabTestGroups.pas
r830 r1693 173 173 174 174 procedure TfrmLabTestGroups.cmdClearClick(Sender: TObject); 175 //var 176 //i: integer; 175 177 begin 176 178 lstList.Clear; 177 179 lstListClick(self); 180 lstTestGroups.ClearSelection; 181 //for i := 0 to lstTestGroups.Count - 1 do 182 // lstTestGroups.Selected[i] := false; 178 183 end; 179 184 … … 192 197 end; 193 198 lstListClick(self); 199 lstTestGroups.ClearSelection; 194 200 end; 195 201
Note:
See TracChangeset
for help on using the changeset viewer.