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

Win32: make ListView columns not-clickable if ColumnClick is False. Issue .

Browse Source
This commit is contained in:
Bart 2024-02-26 18:28:05 +01:00
parent d6b0e5c07d
commit 57bb5a13e1
1 changed files with 12 additions and 7 deletions

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

@ -12,7 +12,7 @@
{ TWin32WSCustomListView }
type
TLVStyleType = (lsStyle, lsInvert, lsExStyle);
TLVStyleType = (lsStyle, lsInvert, lsExStyle, lsRecreate);
const
LV_STYLES: array[TListViewProperty] of record
@ -21,7 +21,7 @@ const
end = (
(StyleType: lsStyle; Style: LVS_AUTOARRANGE), // lvpAutoArrange
(StyleType: lsExStyle; Style: LVS_EX_CHECKBOXES), // lvpCheckboxes
(StyleType: lsInvert; Style: LVS_NOSORTHEADER), // lvpColumnClick
(StyleType: lsRecreate;Style: LVS_NOSORTHEADER), // lvpColumnClick
(StyleType: lsExStyle; Style: LVS_EX_FLATSB), // lvpFlatScrollBars
(StyleType: lsExStyle; Style: LVS_EX_HEADERDRAGDROP), // lvpFullDrag
(StyleType: lsExStyle; Style: LVS_EX_GRIDLINES), // lvpGridLines
@ -996,6 +996,8 @@ begin
Flags := Flags or LVS_OWNERDRAWFIXED;
if TCustomListView(AWinControl).BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
if not TCustomListViewAccess(AWinControl).ColumnClick then
Flags := Flags or LVS_NOSORTHEADER;
end;
// create window
FinishCreateWindow(AWinControl, Params, false);
@ -1402,7 +1404,6 @@ class procedure TWin32WSCustomListView.SetProperty(const ALV: TCustomListView; c
begin
if not WSCheckHandleAllocated(ALV, 'SetProperty')
then Exit;
case LV_STYLES[AProp].StyleType of
lsStyle: begin
if AIsSet
@ -1418,16 +1419,20 @@ begin
if (AProp = lvpReadOnly) then
UpdateStyle(ALV.Handle, LV_STYLES[AProp].Style, 0)
else
if AIsSet then
UpdateStyle(ALV.Handle, LV_STYLES[AProp].Style, 0)
else
UpdateStyle(ALV.Handle, LV_STYLES[AProp].Style, LV_STYLES[AProp].Style);
begin
if AIsSet
then UpdateStyle(ALV.Handle, LV_STYLES[AProp].Style, 0)
else UpdateStyle(ALV.Handle, LV_STYLES[AProp].Style, LV_STYLES[AProp].Style);
end;
end;
lsExStyle: begin
if AIsSet
then UpdateExStyle(ALV.Handle, LV_STYLES[AProp].Style, LV_STYLES[AProp].Style)
else UpdateExStyle(ALV.Handle, LV_STYLES[AProp].Style, 0);
end;
lsRecreate: begin
ReCreateWnd(ALV);
end;
end;
if(aProp=lvpCheckboxes)and aIsSet
then ReCreateWnd(ALV)