* Many big changes which removes bucket loads of compiler warnins. These will probably break code, but they are easy to fix in your own code.

* All Grid Columns and Rows are now Longword types and not Integer. We mixed them all over the place, even though the grids do not support negative rows or columns.
* Fixed up the UI Designer because of previous change. Same goes for examples.
* Made some changes to get fpGUI compilable under FPC 2.3.1 (latest trunk), but yet no fpGUI application runs yet. No idea why yet.

1 files changed, 4 insertions, 4 deletions

diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr
index 2b6c891e..79ad595d 100644
--- a/examples/gui/gridtest/gridtest.lpr
+++ b/examples/gui/gridtest/gridtest.lpr
@@ -38,7 +38,7 @@ type
     procedure   chkShowHeaderChange(Sender: TObject);
     procedure   chkShowGridChange(Sender: TObject);
     procedure   btnQuitClick(Sender: TObject);
-    procedure   stringgridDrawCell(Sender: TObject; const ARow, ACol: integer;
+    procedure   stringgridDrawCell(Sender: TObject; const ARow, ACol: Longword;
         const ARect: TfpgRect; AFlags: integer; var ADefaultDrawing: boolean);
   protected
     procedure   HandleShow; override;
@@ -78,7 +78,7 @@ begin
 end;
 
 procedure TMainForm.stringgridDrawCell(Sender: TObject; const ARow,
-  ACol: integer; const ARect: TfpgRect; AFlags: integer;
+  ACol: Longword; const ARect: TfpgRect; AFlags: integer;
   var ADefaultDrawing: boolean);
 begin
   if (ACol = 1) and (ARow = 3) then
@@ -152,12 +152,12 @@ begin
   
   // override default colors
   stringgrid.BackgroundColor:= clKhaki;
-  stringgrid.ColumnBackgroundColor[2] := clLightGrey;
+  stringgrid.ColumnBackgroundColor[2] := clLightGray;
   stringgrid.TextColor:= clBlue;
   stringgrid.ColumnTextColor[1] := clRed;
   
   // Add custom painting
-  stringgrid.OnDrawCell:=@stringgridDrawCell;
+  stringgrid.OnDrawCell := @stringgridDrawCell;
 
   pagecontrol.ActivePageIndex := 0;