[SOLVED] PageControl Paint Bug
lazarus / 31-LCL

----------------------------------------------------------------------
Pascal · 2020-02-11 12:15

Attached is a small sample which worked as expected some month ago and
does not now.

Intention is to draw a green bar at the bottom of the second tab.
Now it draws far lower.

What changed? What can i do to fix this?

Lazarus trunk, FPC trunk.

----------------------------------------------------------------------
Pascal · 2020-02-11 12:28

Btw. the old executable is behaving correctly.

----------------------------------------------------------------------
Pascal · 2020-02-11 13:06

After moving origin with MoveWindowOrgExCode: Pascal
 [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i   ... 
ClientBoundRect: TRect;begin  inherited PaintWindow(DC);   if not
GetClientBounds(Handle, ClientBoundRect) then exit; 
MoveWindowOrgEx(DC, -ClientBoundRect.Left, -ClientBoundRect.Top);   l2
:= Scale96ToScreen(2);  ... i got it working again.

But which change caused this? Is this a bug?

----------------------------------------------------------------------
Pascal · 2020-02-12 07:10

Does anyone have an idea?

----------------------------------------------------------------------
Martin_fr · 2020-02-12 08:11

https://bugs.freepascal.org/view.php?id=36412

Trying to find out more at the moment.

----------------------------------------------------------------------
BrunoK · 2020-02-12 14:35

Quote from: Pascal on February 12, 2020, 08:10:14 amDoes anyone have
an idea?
Try reverting \lcl\interfaces\win32\win32pagecontrol.inc back to
revision 62201 and repost if it works.

My bad, blush.

----------------------------------------------------------------------
Pascal · 2020-02-12 15:00

Quote from: BrunoK on February 12, 2020, 03:35:08 pmTry reverting
\lcl\interfaces\win32\win32pagecontrol.inc back to revision 62201 and
repost if it works.

Yes, works as expected.

----------------------------------------------------------------------
Pascal · 2020-02-13 07:38

Solved with r62625.