diff --git a/tools/lazdatadesktop/dicteditor.pp b/tools/lazdatadesktop/dicteditor.pp index 82797d20cc..614758f96f 100644 --- a/tools/lazdatadesktop/dicteditor.pp +++ b/tools/lazdatadesktop/dicteditor.pp @@ -71,6 +71,7 @@ Type FDomainsNode : TTreeNode; {$endif} Function AddNewItemPopup(ObjectType: TEditObjectType; AImageIndex : Integer) : TMenuItem; + procedure CreateGUI; procedure DoDoubleClick(Sender: TObject); procedure DoNewObject(Sender: TObject); procedure DoDeleteObject(Sender: TObject); @@ -111,7 +112,6 @@ Type Constructor Create(AOwner : TComponent); override; Destructor Destroy; override; // General methods. - procedure CreateGUI; Procedure ShowDictionary; Procedure LoadFromFile(AFileName : String); Procedure SaveToFile(AFileName : String); diff --git a/tools/lazdatadesktop/frmmain.pp b/tools/lazdatadesktop/frmmain.pp index 6e956410e6..14361bb4eb 100644 --- a/tools/lazdatadesktop/frmmain.pp +++ b/tools/lazdatadesktop/frmmain.pp @@ -1440,7 +1440,6 @@ begin Result.ImageIndex:=15; PCDD.ActivePage:=Result; Result.DataDictionary.OnProgress:=@DoDDEprogress; - Result.CreateGUI; end; { ---------------------------------------------------------------------