paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: default values of ListItem and TreeNode image index set to -1 for Delphi compatibility (bug #9192)

Browse Source 
git-svn-id: trunk@11416 -
This commit is contained in:
vincents 2007-07-03 13:26:02 +00:00
parent 6402384028
commit 0e34ed8982
4 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/listviewpropedit.pp
View File

@ -199,7 +199,7 @@ procedure TListViewItemsEditorForm.edtIndexStateEditingDone(
begin
if Assigned(TreeView1.Selected) then
begin
TreeView1.Selected.ImageIndex := StrToIntDef(edtIndexImg.Text, 0);
TreeView1.Selected.ImageIndex := StrToIntDef(edtIndexImg.Text, -1);
TreeView1.Selected.StateIndex := StrToIntDef(edtIndexState.Text, -1);
edtIndexImg.Text := IntToStr(TreeView1.Selected.ImageIndex);

4
ideintf/treeviewpropedit.pas
View File

@ -208,8 +208,8 @@ procedure TTreeViewItemsEditorForm.edtIndexStateEditingDone(Sender: TObject);
begin
if Assigned(TreeView1.Selected) then
begin
TreeView1.Selected.ImageIndex := StrToIntDef(edtIndexImg.Text, 0);
TreeView1.Selected.SelectedIndex := StrToIntDef(edtIndexSel.Text, 0);
TreeView1.Selected.ImageIndex := StrToIntDef(edtIndexImg.Text, -1);
TreeView1.Selected.SelectedIndex := StrToIntDef(edtIndexSel.Text, -1);
TreeView1.Selected.StateIndex := StrToIntDef(edtIndexState.Text, -1);
edtIndexImg.Text := IntToStr(TreeView1.Selected.ImageIndex);

8
lcl/comctrls.pp
View File

@ -1889,20 +1889,20 @@ type
property Handle: THandle read GetHandle;
property HasChildren: Boolean read GetHasChildren write SetHasChildren;
property Height: integer read GetHeight write SetHeight;
property ImageIndex: integer read FImageIndex write SetImageIndex;
property ImageIndex: integer read FImageIndex write SetImageIndex default -1;
property Index: Integer read GetIndex write SetIndex;
property IsVisible: Boolean read IsNodeVisible;
property IsFullHeightVisible: Boolean read IsNodeHeightFullVisible;
property Items[ItemIndex: Integer]: TTreeNode read GetItems write SetItems; default;
property Level: Integer read GetLevel;
property MultiSelected: Boolean read GetMultiSelected write SetMultiSelected;
property OverlayIndex: Integer read FOverlayIndex write SetOverlayIndex;
property OverlayIndex: Integer read FOverlayIndex write SetOverlayIndex default -1;
property Owner: TTreeNodes read FOwner;
property Parent: TTreeNode read FParent;
property Selected: Boolean read GetSelected write SetSelected;
property SelectedIndex: Integer read FSelectedIndex write SetSelectedIndex;
property SelectedIndex: Integer read FSelectedIndex write SetSelectedIndex default -1;
property SubTreeCount: integer read FSubTreeCount;
property StateIndex: Integer read FStateIndex write SetStateIndex;
property StateIndex: Integer read FStateIndex write SetStateIndex default -1;
property Text: string read FText write SetText;
property TreeNodes: TTreeNodes read GetTreeNodes;
property TreeView: TCustomTreeView read GetTreeView;

2
lcl/include/treeview.inc
View File

@ -255,7 +255,9 @@ end;
constructor TTreeNode.Create(AnOwner: TTreeNodes);
begin
inherited Create;
FImageIndex := -1;
FOverlayIndex := -1;
FSelectedIndex := -1;
FStateIndex := -1;
FStates := [];
FOwner := AnOwner;