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

lazdatadesktop: Fix "Control has no parent error" when creating a new data dictionary.

Browse Source 
git-svn-id: trunk@58820 -
This commit is contained in:
wp 2018-09-02 14:40:17 +00:00
parent 8e54c9731d
commit aad4e0c4e2
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tools/lazdatadesktop/dicteditor.pp
View File

@ -108,6 +108,8 @@ Type
procedure ShowSubLists(TV: TTreeView; ParentNode: TTreeNode; AObject: TObject);
procedure ShowTableObjectList(TV: TTreeView; ParentNode: TTreeNode; ATableDef: TDDTableDef; AObjectType: TEditObjectType);
procedure ShowGlobalObjectList(TV: TTreeView; ParentNode: TTreeNode; AObjectType: TEditObjectType; AShowSubLists : Boolean = False);
Protected
procedure CreateHandle; override;
Public
Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override;
@ -351,7 +353,7 @@ constructor TDataDictEditor.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FDD:=TFPDataDictionary.Create;
//CreateGUI;
CreateGUI;
end;
Procedure TDataDictEditor.CreateGUI;
@ -412,6 +414,11 @@ begin
end;
FTV.Images:=FImgList;
FMenu.Images:=FImgList;
end;
procedure TDataDictEditor.CreateHandle;
begin
inherited;
ShowDictionary;
end;

2
tools/lazdatadesktop/lazdatadesktop.lpi
View File

@ -22,8 +22,6 @@
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>