[lazarus] LCL: WMPaint

[Micha Nelissen]

Micha Nelissen wrote:
> Hi,
>
> 2) The WM_ERASEBKGND really needs to be implemented, otherwise it
> will be black on windows. Delphi has:
>
>   if not FDoubleBuffered or
>     (TMessage(Message).wParam = TMessage(Message).lParam) then
>     FillRect(Message.DC, ClientRect, FBrush.Handle);
>   Message.Result := 1;

I have attached a patch that works on windows. These last two patches fix
the TPromptDialog bug I mentioned earlier. In addition to the erase
background implementation I also added color convertion routines for the
font selection. I am unsure whether the interface will accept the special
clBlack and such, a real RGB value is better.

Regards,

Micha.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: bin00042.bin
Type: application/octet-stream
Size: 1925 bytes
Desc: "erase_background.patch"
Url : http://localhost/pipermail/lazarus/attachments/20030629/a7626f2c/bin00042.bin