TTBXLabel Paint bug on XE2

GoogleCodeExporter commented 9 years ago

What steps will reproduce the problem?
1. Place TPageControl on form
2. Create new Page
3. Place TTBXLabel on new Page of PageControl

Sometime is graphics bug (see on attached picture)

RAD studio XE2 (Upd4 HotFix1)

Original issue reported on code.google.com by pa...@tresnakovi.cz on 8 Apr 2013 at 6:49

Attachments:

TBXLabel_PaintBug.jpg

GoogleCodeExporter commented 9 years ago

Replace this code to remove BUG in unit TBXDkPanels.

Message.wParam and Message.lParam are different types !

procedure TTBXPanelObject.WMEraseBkgnd(var Message: TMessage);
begin
  if not DoubleBuffered or (LPARAM(Message.wParam) = Message.lParam) then
  begin
    if Color = clNone then
      DrawParentBackground(Self, TWMEraseBkgnd(Message).DC, ClientRect)
    else
      FillRectEx(TWMEraseBkgnd(Message).DC, ClientRect, Color);
  end;
  Message.Result := 1;
end;

Original comment by pa...@tresnakovi.cz on 10 Apr 2013 at 6:50

GoogleCodeExporter commented 9 years ago

Thank you very much!
I exported this issue to GitHub: https://github.com/plashenkov/TBX/issues/2
and will apply the patch as soon as possible.

Original comment by plashen...@gmail.com on 10 Feb 2014 at 9:24

Changed state: Done

kabyeon / tbxlib

TTBXLabel Paint bug on XE2 #4