You've already forked lazarus-ccr
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:
@ -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
|
||||
|
@ -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;
|
||||
|
||||
|
Reference in New Issue
Block a user