[Qt] Compiling with 2.3.1

[Den Jean]

Hi,

on OS X I need to compile with fpc 2.3.1. (bug in 2.2.0 OS X release)

But the fpc 2.3.1 is much more strict and the current 
lazarus qt code base does not compile with fpc 2.3.1

Can you fix the different small mistakes that prevent 
from compiling with 2.3.1?

And also commit V1.57 qt4.pas/qt43.pas please :-)


for example:
define a GUID for IQtEdit

Index: lcl/interfaces/qt/qtwidgets.pas
===================================================================
--- lcl/interfaces/qt/qtwidgets.pas	(revision 13629)
+++ lcl/interfaces/qt/qtwidgets.pas	(working copy)
@@ -59,6 +59,7 @@
   { IQtTextEdit }
 
   IQtEdit = interface
+    ['{9348d2c8-f5ac-455a-ac41-f4cace18102d}']
     function getMaxLength: Integer;
     function getSelectionStart: Integer;
     function getSelectionLength: Integer;



the function results in the interface and the implementation section 
sometimes differ:

Index: lcl/interfaces/qt/qtwinapih.inc
===================================================================
--- lcl/interfaces/qt/qtwinapih.inc	(revision 13629)
+++ lcl/interfaces/qt/qtwinapih.inc	(working copy)
@@ -59,7 +59,7 @@
 function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
 function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
 function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: 
string): HFONT; override;
-function CreatePenIndirect(const LogPen: TLogPen): HBRUSH; override;
+function CreatePenIndirect(const LogPen: TLogPen): HPen; override;
 function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: 
integer): HRGN; override;
 function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; override;

Index: lcl/interfaces/qt/qtwscomctrls.pp
===================================================================
--- lcl/interfaces/qt/qtwscomctrls.pp	(revision 13629)
+++ lcl/interfaces/qt/qtwscomctrls.pp	(working copy)
@@ -80,7 +80,7 @@
   protected
   public
     class function  CreateHandle(const AWinControl: TWinControl;
-     const AParams: TCreateParams): TLCLIntfHandle; override;
+     const AParams: TCreateParams): HWnd; override;
   public
     class procedure ColumnDelete(const ALV: TCustomListView; const AIndex: 
Integer); override;
     class procedure ColumnInsert(const ALV: TCustomListView; const AIndex: 
Integer; const AColumn: TListColumn); override;


Index: lcl/interfaces/qt/qtwsstdctrls.pp
===================================================================
--- lcl/interfaces/qt/qtwsstdctrls.pp	(revision 13629)
+++ lcl/interfaces/qt/qtwsstdctrls.pp	(working copy)
@@ -52,7 +52,7 @@
   protected
   public
     class function  CreateHandle(const AWinControl: TWinControl;
-      const AParams: TCreateParams): TLCLIntfHandle; override;
+      const AParams: TCreateParams): HWnd; override;
     class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
   end;
 
@@ -114,7 +114,7 @@
   protected
   public
     class function  CreateHandle(const AWinControl: TWinControl;
-     const AParams: TCreateParams): TLCLIntfHandle; override;
+     const AParams: TCreateParams): HWnd; override;
   public
     class function GetIndexAtY(const ACustomListBox: TCustomListBox; y: 
integer): integer; override;
     class function GetItemIndex(const ACustomListBox: TCustomListBox): 
integer; override;