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

Win32: small optimization in TWin32WSCustomListView.SetProperty.

Browse Source 
Add comment to explain why this code is there in the first place, since on first sight it might not make much sense.
This commit is contained in:
Bart 2024-02-26 22:27:39 +01:00
parent 57bb5a13e1
commit 0261f3b5ee
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1429,13 +1429,13 @@ begin
if AIsSet
then UpdateExStyle(ALV.Handle, LV_STYLES[AProp].Style, LV_STYLES[AProp].Style)
else UpdateExStyle(ALV.Handle, LV_STYLES[AProp].Style, 0);
if(aProp=lvpCheckboxes)and aIsSet
then ReCreateWnd(ALV) // otherwise wrong size of checkbox, issue #26690
end;
lsRecreate: begin
ReCreateWnd(ALV);
end;
end;
if(aProp=lvpCheckboxes)and aIsSet
then ReCreateWnd(ALV)
end;
class procedure TWin32WSCustomListView.SetProperties(const ALV: TCustomListView; const AProps: TListViewProperties);