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

PoChecker: don't autocreate the GraphStat form (fixes crash when run as tool from IDE).

Browse Source 
git-svn-id: trunk@46236 -
This commit is contained in:
bart 2014-09-14 17:46:26 +00:00
parent 679d20a26e
commit 4145473e3d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/pochecker/Proj/pochecker.lpr
View File

@ -16,7 +16,6 @@ begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TPoCheckerForm, PoCheckerForm);
Application.CreateForm(TGraphStatForm, GraphStatForm);
Application.Run;
end.

3
components/pochecker/resultdlg.pp
View File

@ -94,9 +94,10 @@ end;
procedure TResultDlgForm.GraphStatBtnClick(Sender: TObject);
begin
Debugln('TResultDlgForm.GraphStatBtnClick: Assigned(GraphStatForm) = ',DbgS(Assigned(GraphStatForm)));
GraphStatForm := TGraphStatForm.Create(nil);
GraphStatForm.PoFamilyStats := Self.PoFamilyStats;
GraphStatForm.ShowModal;
FreeAndNil(GraphStatForm);
end;
procedure TResultDlgForm.SaveBtnClick(Sender: TObject);