pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

16
applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas
View File

@ -35,7 +35,6 @@ type
procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject);
procedure VarListClick(Sender: TObject);
@ -53,6 +52,7 @@ type
public
{ public declarations }
procedure Reset;
end;
var
@ -77,7 +77,7 @@ const
{ TBoxPlotFrm }
procedure TBoxPlotFrm.ResetBtnClick(Sender: TObject);
procedure TBoxPlotFrm.Reset;
var
i: integer;
begin
@ -89,6 +89,11 @@ begin
end;
procedure TBoxPlotFrm.ResetBtnClick(Sender: TObject);
begin
Reset;
end;
procedure TBoxPlotFrm.VarListClick(Sender: TObject);
var
index: integer;
@ -365,12 +370,7 @@ end;
procedure TBoxPlotFrm.FormCreate(Sender: TObject);
begin
Assert(OS3MainFrm <> nil);
end;
procedure TBoxPlotFrm.FormShow(Sender: TObject);
begin
ResetBtnClick(self);
Reset;
end;