From bbcff6b780584469edbeec4f6c5ac7d5a12af161 Mon Sep 17 00:00:00 2001 From: maxim Date: Wed, 28 Dec 2016 21:36:26 +0000 Subject: [PATCH] Merged revision(s) 53790 #b77917bbc2 from trunk: LCL: TWinControl: refreshing RawImage data after painting on canvas. Issue #25448 ........ git-svn-id: branches/fixes_1_6@53794 - --- lcl/include/customform.inc | 3 +-- lcl/include/wincontrol.inc | 1 + 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 19ca4872ad..95041c6b75 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -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); diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index 936f33442d..209448b6fa 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -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);