paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-26 07:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Correction from Theo to create new object in correct location

Browse Source 
git-svn-id: trunk@62330 -
This commit is contained in:
michael 2019-12-05 21:47:18 +00:00
parent e26a38a047
commit 0586de550a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tools/jsonviewer/frmmain.pp
View File

@ -686,8 +686,6 @@ begin
Result.DocNo:=DC;
Result.FileName:='';
Result.ImageIndex:=16;
If FOptions.FNewObject then
Result.Root:=TJSONObject.Create;
end;
procedure TMainForm.SetCaption;
@ -706,8 +704,11 @@ begin
end;
procedure TMainForm.ANewExecute(Sender: TObject);
var Tab:TJSONTab;
begin
NewDocument;
Tab:=NewDocument;
If FOptions.FNewObject then
Tab.Root:=TJSONObject.Create;
end;
function TMainForm.NewDocument: TJSONTab;