paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-25 20:11:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

Revert the r35872 #c293be9ecf. It solved the windows problem but created another redraw problem with GTK2.

Browse Source 
git-svn-id: trunk@35873 -
This commit is contained in:
juha 2012-03-10 16:01:25 +00:00
parent c293be9ecf
commit d7dc003371
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/control.inc
View File

@ -3280,6 +3280,7 @@ end;
procedure TControl.InvalidateControl(CtrlIsVisible, CtrlIsOpaque: Boolean);
var
Rect: TRect;
Pt: TPoint;
function BackgroundClipped: Boolean;
var
@ -3316,8 +3317,11 @@ begin
// Note: it should invalidate, when this control is loaded/destroyed, but parent not
if (CtrlIsVisible or ((csDesigning in ComponentState)
and not (csNoDesignVisible in ControlStyle))) then begin
and not (csNoDesignVisible in ControlStyle)))
then begin
Pt := Parent.GetClientScrollOffset;
Rect := BoundsRect;
OffsetRect(Rect, -Pt.X, -Pt.Y);
InvalidateRect(Parent.Handle, @Rect, not (CtrlIsOpaque or
(csOpaque in Parent.ControlStyle) or BackgroundClipped));
end;