[lazarus] Delphi and FPC compatible LCL version

Andreas Hausladen Andreas.Hausladen at gmx.de
Sat Nov 15 16:35:55 EST 2003

----- Original Message ----- 
From: "Marc Weustink" <marc at dommelstein.net>

> 1) When comparing pointers, they are unsigned
>   function ComparePointer(Data1, Data2: Pointer): integer;
> [...]
> Longint should have been a cardinal here

Where have I used such a function? I cannot find it in my code.

> 2) The handling of compiler directives
> What if warnings were off ?
>       property Owner: TCustomListView read FOwner;

You are right. But I have Warnings and Hints allways on, so I had not notified this "error".

> We (thedevels) have had a litle discussion about it, and the final
> conclusion is that the LCL won't support Delphi.
> The LCL is written to be used with the FPC compiler and environment to
> allow people to build Delphi-like code WITHOUT using Delphi.

You know what this means for me. Now I have two opportunities: to fork or to stop development on the Delphi port. For the first time
I will choose the later...

One last bug fix because it is not that easy to find.

Function TWin32Object.IntSendMessage3(LM_Message: Integer; Sender: TObject; Data: Pointer): Integer;
  Procedure DrawOwnerButton;
      DrawText(_HDC, LPSTR(TBitBtn(Sender).Caption),
        -1, rcItem, TextPosFlags);
**  DeleteObject(BitmapHandle);   <--- this line must be removed

With regards,

Andreas Hausladen

More information about the Lazarus mailing list