paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 16:00:23 +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;
end;
FormToGenerator;
FGenerator.Code.Clear;
FGenerator.Execute;
FGenerator.Code.SaveToFile(FECode.FileName);
ModalResult:=mrOK;
@ -93,6 +94,7 @@ begin
If PCCode.ActivePage=TSCode then
begin
FormToGenerator;
FGenerator.Code.Clear;
FGenerator.Execute;
SECode.Lines:=FGenerator.Code;
end;