paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 22:23:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Revert Changes from 31132 (and partly 31577) which replaced TGraphicControl.Update by Invalidate

Browse Source 
git-svn-id: trunk@40364 -
This commit is contained in:
martin 2013-02-22 16:05:54 +00:00
parent 56c09d1ad1
commit 51657166be
2 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -2217,8 +2217,6 @@ type
procedure DoOnChangeBounds; override;
procedure DoOnParentHandleDestruction; override;
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
public
procedure Update; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

16
lcl/include/graphiccontrol.inc
View File

@ -111,21 +111,5 @@ begin
TControlCanvas(Canvas).FreeHandle;
end;
procedure TGraphicControl.Update;
var
R: TRect;
Pt: TPoint;
begin
if Assigned(Parent) and Parent.HandleAllocated and Parent.Visible then
begin
R := ClientRect;
Pt := Parent.GetClientScrollOffset;
OffsetRect(R, Left - Pt.X, Top - Pt.Y);
R.Right := R.Right + Pt.X;
R.Bottom := R.Bottom + Pt.Y;
LCLIntf.InvalidateRect(Parent.Handle, @R, True);
end;
end;
// included by controls.pp