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

lcl: added ListView.Tooltips property, implemented for win32 widgetset (bug #9136)

Browse Source 
git-svn-id: trunk@11823 -
This commit is contained in:
vincents 2007-08-15 18:13:43 +00:00
parent fe72c7716c
commit 99f0cddd30
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/comctrls.pp
View File

@ -831,7 +831,8 @@ type
lvpRowSelect,
lvpShowColumnHeaders,
lvpShowWorkAreas,
lvpWrapText
lvpWrapText,
lvpToolTips
);
TListViewProperties = set of TListViewProperty;
@ -967,6 +968,7 @@ type
property SortType: TSortType read FSortType write SetSortType;
property SortColumn: Integer read FSortColumn write SetSortColumn;
property StateImages: TCustomImageList index Ord(lvilState) read GetImageList write SetImageList;
property ToolTips: Boolean index Ord(lvpToolTips) read GetProperty write SetProperty default True;
property ViewStyle: TViewStyle read FViewStyle write SetViewStyle default vsList;
property OnChange: TLVChangeEvent read FOnChange write FOnChange;
property OnColumnClick: TLVColumnClickEvent read FOnColumnClick write FOnColumnClick;
@ -1053,6 +1055,7 @@ type
property StateImages;
property TabStop;
property TabOrder;
property ToolTips;
property Visible;
property ViewStyle;
property OnAdvancedCustomDraw;

2
lcl/include/customlistview.inc
View File

@ -37,7 +37,7 @@ begin
Color := clWindow;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
FProperties := [lvpColumnClick, lvpHideSelection, lvpShowColumnHeaders];
FProperties := [lvpColumnClick, lvpHideSelection, lvpShowColumnHeaders, lvpToolTips];
end;
{------------------------------------------------------------------------------}

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

@ -39,7 +39,8 @@ const
(StyleType: lsExStyle; Style: LVS_EX_FULLROWSELECT), // lvpRowSelect
(StyleType: lsInvert; Style: LVS_NOCOLUMNHEADER), // lvpShowColumnHeaders
(StyleType: lsExStyle; Style: LVS_EX_MULTIWORKAREAS), // lvpShowWorkAreas
(StyleType: lsInvert; Style: LVS_NOLABELWRAP) // lvpWrapText
(StyleType: lsInvert; Style: LVS_NOLABELWRAP), // lvpWrapText
(StyleType: lsExStyle; Style: LVS_EX_LABELTIP) // lvpToolTips
);