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

Tools/LazDataDesktop: Show icons in all treeviews.

Browse Source
This commit is contained in:
wp_xyz 2023-07-24 17:49:31 +02:00
parent 45f6fcd25c
commit 168ed6ffa0
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/lazdatadesktop/dicteditor.pp
View File

@ -634,6 +634,7 @@ begin
TV.ShowLines:=True;
TV.Parent:=FEdit;
TV.Align:=alClient;
TV.Images := ImgDataModule.AppImages;
ShowGlobalObjectList(TV,Nil,AObjectType,False);
TV.OnDblClick:=@DoDoubleClick;
FAllowDoubleClick:=AObjectType;
@ -650,6 +651,7 @@ begin
TV.ShowLines:=True;
TV.Parent:=FEdit;
TV.Align:=alClient;
TV.Images := ImgDatamodule.AppImages;
ShowTableObjectList(TV,Nil,ATableDef,AObjectType);
TV.OnDblClick:=@DoDoubleClick;
FAllowDoubleClick:=AObjectType;

2
tools/lazdatadesktop/fraconnection.pp
View File

@ -465,6 +465,7 @@ begin
TV:=TTreeView.Create(Self);
TV.Parent:=FDisplay;
TV.Align:=alClient;
TV.Images := ImgDataModule.AppImages;
ShowTables(TV,Nil);
end;
@ -487,6 +488,7 @@ begin
TV:=TTreeView.Create(Self);
TV.Parent:=FDisplay;
TV.Align:=alClient;
TV.Images := ImgDatamodule.AppImages;
TN:=NewNode(TV,Nil,TableName,iiTable);
N:=NewNode(TV,TN,SNodeFields,iiFields);
ShowFields(TableName,TV,N);