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

LCL: Implemented TTreeView.MultiSelectStyle for Delphi compatibility.Implementation is TODO for this property and will be opened as separate issue for 1.0. Fixes issue #8351

Browse Source 
git-svn-id: trunk@28464 -
This commit is contained in:
zeljko 2010-11-24 17:51:35 +00:00
parent ac69cf5cee
commit 091d03bee1
2 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/comctrls.pp
View File

@ -1959,6 +1959,10 @@ type
TAddMode = (taAddFirst, taAdd, taInsert);
TMultiSelectStyles = (msControlSelect, msShiftSelect,
msVisibleOnly, msSiblingOnly);
TMultiSelectStyle = set of TMultiSelectStyles;
TTreeNodeArray = ^TTreeNode;
ETreeNodeError = class(Exception);
@ -2364,6 +2368,7 @@ const
DefaultTreeViewOptions = [tvoShowRoot, tvoShowLines, tvoShowButtons,
tvoHideSelection, tvoToolTips,
tvoKeepCollapsedNodes, tvoAutoItemHeight, tvoThemedDraw];
DefaultMultiSelectStyle = [msControlSelect];
type
TTreeViewExpandSignType = (
@ -2400,6 +2405,7 @@ type
FMaxLvl: integer; // maximum level of all nodes
FMaxRight: integer; // maximum text width of all nodes (needed for horizontal scrolling)
fMouseDownPos: TPoint;
FMultiSelectStyle: TMultiSelectStyle;
FOnAddition: TTVExpandedEvent;
FOnAdvancedCustomDraw: TTVAdvancedCustomDrawEvent;
FOnAdvancedCustomDrawItem: TTVAdvancedCustomDrawItemEvent;
@ -2475,6 +2481,7 @@ type
procedure SetInsertMarkType(const AValue: TTreeViewInsertMarkType);
procedure SetKeepCollapsedNodes(Value: Boolean);
procedure SetMultiSelect(const AValue: Boolean);
procedure SetMultiSelectStyle(const AValue: TMultiSelectStyle);
procedure SetReadOnly(Value: Boolean);
procedure SetRightClickSelect(Value: Boolean);
procedure SetRowSelect(Value: Boolean);
@ -2672,12 +2679,14 @@ type
property InsertMarkType: TTreeViewInsertMarkType read FInsertMarkType write SetInsertMarkType;
property KeepCollapsedNodes: boolean
read GetKeepCollapsedNodes write SetKeepCollapsedNodes;
property MultiSelectStyle: TMultiSelectStyle read FMultiSelectStyle
write SetMultiSelectStyle default DefaultMultiSelectStyle;
property Options: TTreeViewOptions read FOptions write SetOptions default DefaultTreeViewOptions;
property ScrollBars: TScrollStyle
read FScrollBars write SetScrollBars default ssBoth;
property Selected: TTreeNode read GetSelection write SetSelection;
property SelectionCount: Cardinal read GetSelectionCount;
property SelectionColor: TColor read FSelectedColor write SetSelectedColor default clHighlight;
property SelectionCount: Cardinal read GetSelectionCount;
property Selections[AIndex: Integer]: TTreeNode read GetSelections;
property SeparatorColor: TColor read fSeparatorColor write SetSeparatorColor default clGray;
property TopItem: TTreeNode read GetTopItem write SetTopItem;
@ -2715,6 +2724,7 @@ type
property Images;
property Indent;
property MultiSelect;
property MultiSelectStyle;
//property ParentBiDiMode;
property ParentColor default False;
property ParentFont;

11
lcl/include/treeview.inc
View File

@ -2817,6 +2817,7 @@ begin
FTreeNodes := TTreeNodes.Create(Self);
BorderStyle := bsSingle;
BorderWidth := 0;
FMultiSelectStyle := DefaultMultiSelectStyle;
FOptions := DefaultTreeViewOptions;
Items.KeepCollapsedNodes:=KeepCollapsedNodes;
FScrollBars:=ssBoth;
@ -3312,6 +3313,16 @@ begin
end;
end;
procedure TCustomTreeView.SetMultiSelectStyle(const AValue: TMultiSelectStyle);
begin
if FMultiSelectStyle=AValue then exit;
FMultiSelectStyle:=AValue;
// there must be at least one multiselectstyle according to docs
// http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/ComCtrls_TCustomTreeView_MultiSelectStyle.html
if FMultiSelectStyle = [] then
FMultiSelectStyle := DefaultMultiSelectStyle;
end;
procedure TCustomTreeView.SetReadOnly(Value: Boolean);
begin
if ReadOnly = Value then exit;