paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 20:47:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: OI: show property name for persistents

Browse Source 
git-svn-id: trunk@39100 -
This commit is contained in:
mattias 2012-10-16 10:18:10 +00:00
parent 29f2e1409d
commit bb0271b1c9
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ideintf/componenttreeview.pas
View File

@ -61,7 +61,7 @@ type
procedure DragDrop(Source: TObject; X, Y: Integer); override;
procedure RebuildComponentNodes; virtual;
procedure UpdateComponentNodesValues; virtual;
function CreateNodeCaption(APersistent: TPersistent): string; virtual;
function CreateNodeCaption(APersistent: TPersistent; DefaultName: string = ''): string; virtual;
public
property Selection: TPersistentSelectionList read GetSelection
write SetSelection;
@ -83,7 +83,7 @@ type
Added: boolean;
end;
TGetPersistentProc = procedure(APersistent: TPersistent) of object;
TGetPersistentProc = procedure(APersistent: TPersistent; PropName: string) of object;
{ TComponentWalker }
@ -100,7 +100,7 @@ type
ARootComponent: TComponent; ANode: TTreeNode);
procedure Walk(AComponent: TComponent);
procedure AddOwnedPersistent(APersistent: TPersistent);
procedure AddOwnedPersistent(APersistent: TPersistent; PropName: string);
end;
TComponentAccessor = class(TComponent);
@ -138,7 +138,7 @@ begin
if GetLookupRootForComponent(Pers)<>FRootComponent then continue;
PropEdit:=GetEditorClass(PropInfo,AComponent);
if (PropEdit=nil) then continue;
AProc(Pers);
AProc(Pers,PropInfo^.Name);
end;
finally
FreeMem(PropList);
@ -191,7 +191,8 @@ begin
FNode.Expanded := True;
end;
procedure TComponentWalker.AddOwnedPersistent(APersistent: TPersistent);
procedure TComponentWalker.AddOwnedPersistent(APersistent: TPersistent;
PropName: string);
var
TVNode, ItemNode: TTreeNode;
i: integer;
@ -200,7 +201,8 @@ var
begin
if GetLookupRootForComponent(APersistent) <> FRootComponent then Exit;
TVNode := FTreeView.Items.AddChild(FNode, FTreeView.CreateNodeCaption(APersistent));
TVNode := FTreeView.Items.AddChild(FNode,
FTreeView.CreateNodeCaption(APersistent,PropName));
TVNode.Data := APersistent;
TVNode.ImageIndex := FTreeView.GetImageFor(APersistent);
TVNode.SelectedIndex := TVNode.ImageIndex;
@ -693,7 +695,8 @@ begin
UpdateComponentNode(Items.GetFirstNode);
end;
function TComponentTreeView.CreateNodeCaption(APersistent: TPersistent): string;
function TComponentTreeView.CreateNodeCaption(APersistent: TPersistent;
DefaultName: string): string;
function GetCollectionName(ACollection: TCollection): String;
var
@ -726,8 +729,9 @@ begin
else
if APersistent is TCollection then
Result := GetCollectionName(TCollection(APersistent)) + ': ' + Result
else
if APersistent is TCollectionItem then
else if DefaultName<>'' then
Result := DefaultName + ':' + Result
else if APersistent is TCollectionItem then
Result := IntToStr(TCollectionItem(APersistent).Index) + ' - ' + TCollectionItem(APersistent).DisplayName;
end;