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

LCL: Win32: fixed PaintTo for not themes enabled controls and older OS then Windows 7. Issue #25448

Browse Source 
git-svn-id: trunk@54033 -
This commit is contained in:
michl 2017-01-30 06:48:05 +00:00
parent 936f671ee4
commit 7cc7749739
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -544,7 +544,12 @@ var
begin
SavedDC := SaveDC(ADC);
MoveWindowOrgEx(ADC, X, Y);
PrintWindow(AWinControl.Handle, ADC, 0);
if (Windowsversion < wv7)
or ((Windowsversion = wv7) and not ThemeServices.ThemesEnabled) then
SendMessage(AWinControl.Handle, WM_PRINT, WParam(ADC),
PRF_CHECKVISIBLE or PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT or PRF_OWNED)
else
PrintWindow(AWinControl.Handle, ADC, 0);
RestoreDC(ADC, SavedDC);
end;