LazStats: Avoid non-modal forms being reset with every menu click.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7673 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-20 14:15:41 +00:00
parent 2c8c8c7256
commit 2263b9ccd0
15 changed files with 315 additions and 290 deletions

View File

@ -8,7 +8,7 @@ object BasicSPCForm: TBasicSPCForm
ClientWidth = 927
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object SpecsPanel: TPanel
Left = 8

View File

@ -40,7 +40,6 @@ type
procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GroupInBtnClick(Sender: TObject);
procedure GroupOutBtnClick(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
@ -181,11 +180,7 @@ begin
Marks.Source := TListChartSource.Create(self);
Marks.Style := smsLabel;
end;
end;
procedure TBasicSPCForm.FormShow(Sender: TObject);
begin
Reset;
end;