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

Merged revision(s) 53790 #b77917bbc2 from trunk:

Browse Source 
LCL: TWinControl: refreshing RawImage data after painting on canvas. Issue #25448
........

git-svn-id: branches/fixes_1_6@53794 -
This commit is contained in:
maxim 2016-12-28 21:36:26 +00:00
parent fe536bad5f
commit bbcff6b780
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customform.inc
View File

@ -2573,8 +2573,7 @@ var
begin
Result := TBitmap.Create;
try
Result.Width := ClientWidth;
Result.Height := ClientHeight;
Result.SetSize(ClientWidth, ClientHeight);
LCLIntf.GetWindowRect(Handle, ARect);
with GetClientOrigin do
PaintTo(Result.Canvas, ARect.Left - X, ARect.Top - Y);

1
lcl/include/wincontrol.inc
View File

@ -5027,6 +5027,7 @@ end;
procedure TWinControl.PaintTo(ACanvas: TCanvas; X, Y: Integer);
begin
PaintTo(ACanvas.Handle, X, Y);
ACanvas.Changed;
end;
procedure TWinControl.SetShape(AShape: TBitmap);