[JVCL-Checkins] dev/JVCL3/run JvDBGrid.pas,1.11,1.12 - - read removed AlternRowColor property froom dfm without rai

[Peter T. <pe...@pr...>]

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

Modified Files:
	JvDBGrid.pas 
Log Message:
- read removed AlternRowColor property froom dfm without raising errors


Index: JvDBGrid.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDBGrid.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** JvDBGrid.pas	29 Jan 2004 11:06:59 -0000	1.11
--- JvDBGrid.pas	29 Jan 2004 11:22:45 -0000	1.12
***************
*** 157,162 ****
--- 157,164 ----
      procedure ShowSelectColumnClick;
      procedure SetAlternateRowColor(const Value: TColor);
+     procedure ReadAlternRowColor(Reader: TReader);
      // End Lionel
    protected
+     
      procedure MouseLeave(Control: TControl); override;
      function AcquireFocus: Boolean;
***************
*** 208,211 ****
--- 210,214 ----
      procedure FocusCell(ACol, ARow: Longint; MoveAnchor: Boolean);
      {$ENDIF !COMPILER6_UP}
+     procedure DefineProperties(Filer: TFiler); override;
    public
      constructor Create(AOwner: TComponent); override; // Modified by Lionel
***************
*** 2442,2445 ****
--- 2445,2464 ----
  end;
  
+ procedure TJvDBGrid.ReadAlternRowColor(Reader:TReader);
+ var b:boolean;
+ begin
+   b := Reader.ReadBoolean;
+   if b then
+     AlternateRowColor := $00DDDDDD
+   else
+     AlternateRowColor := clNone;
+ end;
+ 
+ procedure TJvDBGrid.DefineProperties(Filer: TFiler);
+ begin
+   inherited;
+   Filer.DefineProperty('AlternRowColor', ReadAlternRowColor, nil, false);
+ end;
+ 
  initialization