[JVCL-Checkins] dev/JVCL3/run JvStringGrid.pas,1.38,1.39 - ClearSelection method

[Warren P. <wp...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24776/run

Modified Files:
	JvStringGrid.pas 
Log Message:
ClearSelection method


Index: JvStringGrid.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvStringGrid.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** JvStringGrid.pas	6 Nov 2004 07:24:15 -0000	1.38
--- JvStringGrid.pas	8 Dec 2004 16:47:18 -0000	1.39
***************
*** 146,149 ****
--- 146,151 ----
      procedure MoveRow(FromIndex, ToIndex: Longint);
  
+     procedure ClearSelection; // Clears selection rectangle!
+ 
      property InplaceEditor;
      // Calculates and sets the width of a specific column or all columns if Index < 0
***************
*** 1287,1290 ****
--- 1289,1306 ----
  end;
  
+ 
+ procedure TJvStringGrid.ClearSelection; // Clears selection rectangle!
+ var
+  s:TGridRect;
+ begin
+   s.Left := -1;
+   s.Top := -1;
+   s.Right := -1;
+   s.Bottom := -1;
+   Self.Selection  := s;
+   Refresh;
+ end;
+ 
+ 
  procedure TJvStringGrid.ShowAll(AWidth, AHeight: Integer);
  var