paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:39:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reset code before regenerating code

Browse Source 
git-svn-id: trunk@58551 -
This commit is contained in:
michael 2018-07-17 18:44:24 +00:00
parent 69599a3f54
commit 6f01c07364
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/jsonviewer/frmcreatecode.pp
View File

@ -83,6 +83,7 @@ begin
exit; exit;
end; end;
FormToGenerator; FormToGenerator;
FGenerator.Code.Clear;
FGenerator.Execute; FGenerator.Execute;
FGenerator.Code.SaveToFile(FECode.FileName); FGenerator.Code.SaveToFile(FECode.FileName);
ModalResult:=mrOK; ModalResult:=mrOK;
@ -93,6 +94,7 @@ begin
If PCCode.ActivePage=TSCode then If PCCode.ActivePage=TSCode then
begin begin
FormToGenerator; FormToGenerator;
FGenerator.Code.Clear;
FGenerator.Execute; FGenerator.Execute;
SECode.Lines:=FGenerator.Code; SECode.Lines:=FGenerator.Code;
end; end;