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

LazDataDesktop: Undo unintentional changes by r58817 #81bf5300aa

Browse Source 
git-svn-id: trunk@58819 -
This commit is contained in:
wp 2018-09-02 13:30:41 +00:00
parent e01a4c1b40
commit 8e54c9731d
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/lazdatadesktop/dicteditor.pp
View File

@ -71,6 +71,7 @@ Type
FDomainsNode : TTreeNode; FDomainsNode : TTreeNode;
{$endif} {$endif}
Function AddNewItemPopup(ObjectType: TEditObjectType; AImageIndex : Integer) : TMenuItem; Function AddNewItemPopup(ObjectType: TEditObjectType; AImageIndex : Integer) : TMenuItem;
procedure CreateGUI;
procedure DoDoubleClick(Sender: TObject); procedure DoDoubleClick(Sender: TObject);
procedure DoNewObject(Sender: TObject); procedure DoNewObject(Sender: TObject);
procedure DoDeleteObject(Sender: TObject); procedure DoDeleteObject(Sender: TObject);
@ -111,7 +112,6 @@ Type
Constructor Create(AOwner : TComponent); override; Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override; Destructor Destroy; override;
// General methods. // General methods.
procedure CreateGUI;
Procedure ShowDictionary; Procedure ShowDictionary;
Procedure LoadFromFile(AFileName : String); Procedure LoadFromFile(AFileName : String);
Procedure SaveToFile(AFileName : String); Procedure SaveToFile(AFileName : String);

1
tools/lazdatadesktop/frmmain.pp
View File

@ -1440,7 +1440,6 @@ begin
Result.ImageIndex:=15; Result.ImageIndex:=15;
PCDD.ActivePage:=Result; PCDD.ActivePage:=Result;
Result.DataDictionary.OnProgress:=@DoDDEprogress; Result.DataDictionary.OnProgress:=@DoDDEprogress;
Result.CreateGUI;
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------