paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:29:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32 TListView: fix wrong size of checkboxes on Windows XP. Issue #26690, patch from Andrew G. Khodotov.

Browse Source 
git-svn-id: trunk@46240 -
This commit is contained in:
juha 2014-09-15 15:39:59 +00:00
parent 2d6147eb18
commit 6acfc0801e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -780,6 +780,8 @@ begin
Params.WindowInfo^.ParentMsgHandler := @ListViewParentMsgHandler; Params.WindowInfo^.ParentMsgHandler := @ListViewParentMsgHandler;
Params.WindowInfo^.needParentPaint := false; Params.WindowInfo^.needParentPaint := false;
Result := Params.Window; Result := Params.Window;
if TCustomListView(AWinControl).checkboxes
then UpdateExStyle(result,lvs_ex_SubitemImages or lvs_Ex_Checkboxes,lvs_ex_SubitemImages or lvs_Ex_Checkboxes) else
UpdateExStyle(Result, LVS_EX_SUBITEMIMAGES, LVS_EX_SUBITEMIMAGES); UpdateExStyle(Result, LVS_EX_SUBITEMIMAGES, LVS_EX_SUBITEMIMAGES);
end; end;
@ -1196,6 +1198,8 @@ begin
else UpdateExStyle(ALV.Handle, LV_STYLES[AProp].Style, 0); else UpdateExStyle(ALV.Handle, LV_STYLES[AProp].Style, 0);
end; end;
end; end;
if(aProp=lvpCheckboxes)and aIsSet
then ReCreateWnd(ALV)
end; end;
class procedure TWin32WSCustomListView.SetProperties(const ALV: TCustomListView; const AProps: TListViewProperties); class procedure TWin32WSCustomListView.SetProperties(const ALV: TCustomListView; const AProps: TListViewProperties);