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

published TListView.HideSelection

Browse Source 
git-svn-id: trunk@8845 -
This commit is contained in:
vincents 2006-02-28 11:03:48 +00:00
parent 94c7280557
commit 8e1ecbd222
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -950,7 +950,7 @@ type
property Font;
// property FullDrag;
// property GridLines;
// property HideSelection;
property HideSelection;
// property HotTrack;
// property HotTrackStyles;
// property HoverTime;

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

@ -695,11 +695,14 @@ begin
Windows.SetWindowLong(AHandle, GWL_STYLE, NewStyle);
// fix header if needed
if NewStyle and LVS_NOSCROLL = 0 then Exit;
if (NewStyle and LVS_NOSCROLL)<> 0 then begin
if (OldStyle and LVS_NOSCROLL = 0)
or (NewStyle and LVS_REPORT <> 0)
then PositionHeader(AHandle);
end;
if (OldStyle and LVS_NOSCROLL = 0)
or (NewStyle and LVS_REPORT <> 0)
then PositionHeader(AHandle);
//Invalidate Listview, so that changes are made visible
Windows.InvalidateRect(AHandle, nil, true);
end;
procedure TWin32WSCustomListView.UpdateExStyle(const AHandle: THandle; const AMask, AStyle: Integer);
@ -713,6 +716,8 @@ begin
if OldStyle = NewStyle then Exit;
ListView_SetExtendedListViewStyle(AHandle, NewStyle);
//Invalidate Listview, so that changes are made visible
Windows.InvalidateRect(AHandle, nil, true);
end;