You've already forked lazarus-ccr
06b3dbaa64
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7448 8e941d3f-bd1b-0410-a28a-d453659cc2b4
416 lines
9.6 KiB
ObjectPascal
416 lines
9.6 KiB
ObjectPascal
unit LatinSpecsUnit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ExtCtrls, Buttons,
|
|
MainUnit, Globals;
|
|
|
|
type
|
|
|
|
{ TLatinSpecsFrm }
|
|
|
|
TLatinSpecsFrm = class(TForm)
|
|
AInBtn: TBitBtn;
|
|
nPerCellEdit: TEdit;
|
|
GrpOutBtn: TBitBtn;
|
|
DataInBtn: TBitBtn;
|
|
DataOutBtn: TBitBtn;
|
|
AOutBtn: TBitBtn;
|
|
BInBtn: TBitBtn;
|
|
BOutBtn: TBitBtn;
|
|
CInBtn: TBitBtn;
|
|
COutBtn: TBitBtn;
|
|
DInBtn: TBitBtn;
|
|
DOutBtn: TBitBtn;
|
|
GrpInBtn: TBitBtn;
|
|
Label8: TLabel;
|
|
PanelA: TPanel;
|
|
PanelB: TPanel;
|
|
PanelC: TPanel;
|
|
PanelD: TPanel;
|
|
PanelGrp: TPanel;
|
|
PanelDep: TPanel;
|
|
Panel7: TPanel;
|
|
ResetBtn: TButton;
|
|
CancelBtn: TButton;
|
|
OKBtn: TButton;
|
|
ACodeEdit: TEdit;
|
|
BCodeEdit: TEdit;
|
|
CCodeEdit: TEdit;
|
|
DCodeEdit: TEdit;
|
|
GrpCodeEdit: TEdit;
|
|
DepVarEdit: TEdit;
|
|
Label1: TLabel;
|
|
ACodeLabel: TLabel;
|
|
BCodeLabel: TLabel;
|
|
CCodeLabel: TLabel;
|
|
DCodeLabel: TLabel;
|
|
GrpCodeLabel: TLabel;
|
|
DepVarLabel: TLabel;
|
|
VarList: TListBox;
|
|
Bevel1: TBevel;
|
|
procedure AInBtnClick(Sender: TObject);
|
|
procedure AOutBtnClick(Sender: TObject);
|
|
procedure BInBtnClick(Sender: TObject);
|
|
procedure BOutBtnClick(Sender: TObject);
|
|
procedure CInBtnClick(Sender: TObject);
|
|
procedure COutBtnClick(Sender: TObject);
|
|
procedure DataInBtnClick(Sender: TObject);
|
|
procedure DataOutBtnClick(Sender: TObject);
|
|
procedure DInBtnClick(Sender: TObject);
|
|
procedure DOutBtnClick(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure GrpInBtnClick(Sender: TObject);
|
|
procedure GrpOutBtnClick(Sender: TObject);
|
|
procedure OKBtnClick(Sender: TObject);
|
|
procedure ResetBtnClick(Sender: TObject);
|
|
procedure VarListSelectionChange(Sender: TObject; User: boolean);
|
|
private
|
|
{ private declarations }
|
|
FAutoSized: Boolean;
|
|
procedure UpdateBtnStates;
|
|
function Validate(out AMsg: String; out AControl: TWinControl): Boolean;
|
|
public
|
|
{ public declarations }
|
|
procedure PrepareForPlan(APlan: integer);
|
|
end;
|
|
|
|
var
|
|
LatinSpecsFrm: TLatinSpecsFrm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Math,
|
|
Utils, LatinSqrsUnit;
|
|
|
|
|
|
{ TLatinSpecsFrm }
|
|
|
|
procedure TLatinSpecsFrm.PrepareForPlan(APlan: Integer);
|
|
begin
|
|
ResetBtnClick(nil);
|
|
case APlan of
|
|
1: begin
|
|
PanelD.Visible := false;
|
|
PanelGrp.Visible := false;
|
|
end;
|
|
2: begin
|
|
PanelD.Visible := true;
|
|
PanelGrp.Visible := false;
|
|
end;
|
|
3: begin
|
|
PanelD.Visible := true;
|
|
PanelGrp.Visible := false;
|
|
end;
|
|
4: begin
|
|
PanelD.Visible := true;
|
|
PanelGrp.Visible := false;
|
|
end;
|
|
5: begin
|
|
PanelD.Visible := false;
|
|
PanelGrp.Visible := true;
|
|
end;
|
|
6: begin
|
|
PanelD.Visible := false;
|
|
PanelGrp.Visible := true;
|
|
end;
|
|
7: begin
|
|
PanelD.Visible := true;
|
|
PanelGrp.Visible := true;
|
|
end;
|
|
9: begin
|
|
PanelD.Visible := true;
|
|
PanelGrp.Visible := true;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.ResetBtnClick(Sender: TObject);
|
|
var
|
|
i: integer;
|
|
begin
|
|
VarList.Clear;
|
|
for i := 1 to NoVariables do
|
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
|
ACodeEdit.Text := '';
|
|
BCodeEdit.Text := '';
|
|
CCodeEdit.Text := '';
|
|
DCodeEdit.Text := '';
|
|
GrpCodeEdit.Text := '';
|
|
DepVarEdit.Text := '';
|
|
nPerCellEdit.Text := '';
|
|
UpdatebtnStates;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.FormActivate(Sender: TObject);
|
|
var
|
|
w: Integer;
|
|
begin
|
|
if FAutoSized then
|
|
exit;
|
|
w := MaxValue([ResetBtn.Width, CancelBtn.Width, OKBtn.Width]);
|
|
ResetBtn.Constraints.MinWidth := w;
|
|
CancelBtn.Constraints.MinWidth := w;
|
|
OKBtn.Constraints.MinWidth := w;
|
|
|
|
VarList.Constraints.MinHeight := Panel7.Height;
|
|
|
|
Constraints.MinWidth := nPerCellEdit.Left + nPerCellEdit.Width + Width - ResetBtn.Left + ResetBtn.BorderSpacing.Left;
|
|
Constraints.MinHeight := Height;
|
|
|
|
FAutoSized := true;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.FormCreate(Sender: TObject);
|
|
begin
|
|
Assert(OS3MainFrm <> nil);
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.FormShow(Sender: TObject);
|
|
begin
|
|
ResetBtnClick(Self);
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.AInBtnClick(Sender: TObject);
|
|
var
|
|
index: integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
if (index > -1) and (ACodeEdit.Text = '') then
|
|
begin
|
|
ACodeEdit.Text := VarList.Items[index];
|
|
VarList.Items.Delete(index);
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.AOutBtnClick(Sender: TObject);
|
|
begin
|
|
if ACodeEdit.Text <> '' then
|
|
begin
|
|
VarList.Items.Add(ACodeEdit.Text);
|
|
ACodeEdit.Text := '';
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.BInBtnClick(Sender: TObject);
|
|
var
|
|
index: integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
if (index > -1) and (BCodeEdit.Text = '') then
|
|
begin
|
|
BCodeEdit.Text := VarList.Items[index];
|
|
VarList.Items.Delete(index);
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.BOutBtnClick(Sender: TObject);
|
|
begin
|
|
if BCodeEdit.Text <> '' then
|
|
begin
|
|
VarList.Items.Add(BCodeEdit.Text);
|
|
BCodeEdit.Text := '';
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.CInBtnClick(Sender: TObject);
|
|
var
|
|
index: integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
if (index > -1) and (CCodeEdit.Text = '') then
|
|
begin
|
|
CCodeEdit.Text := VarList.Items[index];
|
|
VarList.Items.Delete(index);
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.COutBtnClick(Sender: TObject);
|
|
begin
|
|
if CCodeEdit.Text <> '' then
|
|
begin
|
|
VarList.Items.Add(CCodeEdit.Text);
|
|
CCodeEdit.Text := '';
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.DataInBtnClick(Sender: TObject);
|
|
var
|
|
index: integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
if (index > -1) and (DepVarEdit.Text = '') then
|
|
begin
|
|
DepVarEdit.Text := VarList.Items[index];
|
|
VarList.Items.Delete(index);
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.DataOutBtnClick(Sender: TObject);
|
|
begin
|
|
if DepVarEdit.Text <> '' then
|
|
begin
|
|
VarList.Items.Add(DepVarEdit.Text);
|
|
DepVarEdit.Text := '';
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.DInBtnClick(Sender: TObject);
|
|
var
|
|
index: integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
if (index > -1) and (DCodeEdit.Text = '') then
|
|
begin
|
|
DCodeEdit.Text := VarList.Items[index];
|
|
VarList.Items.Delete(index);
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.DOutBtnClick(Sender: TObject);
|
|
begin
|
|
if DCodeEdit.Text <> '' then
|
|
begin
|
|
VarList.Items.Add(DCodeEdit.Text);
|
|
DCodeEdit.Text := '';
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.GrpInBtnClick(Sender: TObject);
|
|
var
|
|
index: integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
if (index > -1) and (GrpCodeEdit.Text = '') then
|
|
begin
|
|
GrpCodeEdit.Text := VarList.Items[index];
|
|
VarList.Items.Delete(index);
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.GrpOutBtnClick(Sender: TObject);
|
|
begin
|
|
if GrpCodeEdit.Text <> '' then
|
|
begin
|
|
VarList.Items.Add(GrpCodeEdit.Text);
|
|
GrpCodeEdit.Text := '';
|
|
UpdateBtnStates;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.OKBtnClick(Sender: TObject);
|
|
var
|
|
C: TWinControl;
|
|
msg: String;
|
|
begin
|
|
if not Validate(msg, C) then begin
|
|
C.SetFocus;
|
|
ErrorMsg(msg);
|
|
ModalResult := mrNone;
|
|
end;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.UpdateBtnStates;
|
|
begin
|
|
AInBtn.Enabled := (VarList.ItemIndex > -1) and (ACodeEdit.Text = '');
|
|
BInBtn.Enabled := (VarList.ItemIndex > -1) and (BCodeEdit.Text = '');
|
|
CInBtn.Enabled := (VarList.ItemIndex > -1) and (CCodeEdit.Text = '');
|
|
DInBtn.Enabled := (VarList.ItemIndex > -1) and (DCodeEdit.Text = '');
|
|
GrpInBtn.Enabled := (VarList.ItemIndex > -1) and (GrpCodeEdit.Text = '');
|
|
DataInBtn.Enabled := (VarList.ItemIndex > -1) and (DepVarEdit.Text = '');
|
|
|
|
AOutBtn.Enabled := (ACodeEdit.Text <> '');
|
|
BOutBtn.Enabled := (BCodeEdit.Text <> '');
|
|
COutBtn.Enabled := (CCodeEdit.Text <> '');
|
|
DOutBtn.Enabled := (DCodeEdit.Text <> '');
|
|
GrpOutBtn.Enabled := (GrpCodeEdit.Text <> '');
|
|
DataOutBtn.Enabled := (DepVarEdit.Text <> '');
|
|
end;
|
|
|
|
function TLatinSpecsFrm.Validate(out AMsg: String; out AControl: TWinControl): Boolean;
|
|
var
|
|
n: Integer;
|
|
begin
|
|
Result := false;
|
|
|
|
if (nPerCellEdit.Text = '') then begin
|
|
AMsg := 'Please specify the number of cases per cell.';
|
|
AControl := nPercellEdit;
|
|
exit;
|
|
end;
|
|
if not TryStrToInt(nPerCellEdit.Text, n) or (n <= 0) then begin
|
|
AMsg := 'Please specify a valid (positive) number for the cases per cell.';
|
|
AControl := nPercellEdit;
|
|
exit;
|
|
end;
|
|
|
|
if PanelA.Visible and (ACodeEdit.Text = '') then
|
|
begin
|
|
AMsg := 'Factor A code variable is not specified.';
|
|
AControl := ACodeEdit;
|
|
exit;
|
|
end;
|
|
if PanelB.Visible and (BCodeEdit.Text = '') then
|
|
begin
|
|
AMsg := 'Factor B code variable is not specified.';
|
|
Acontrol := BCodeEdit;
|
|
exit;
|
|
end;
|
|
if PanelC.Visible and (CCodeEdit.Text = '') then
|
|
begin
|
|
AMsg := 'Factor C code variable is not specified.';
|
|
Acontrol := CCodeEdit;
|
|
exit;
|
|
end;
|
|
if PanelD.Visible and (DCodeEdit.Text = '') then
|
|
begin
|
|
AMsg := 'Factor D code variable is not specified.';
|
|
Acontrol := DCodeEdit;
|
|
exit;
|
|
end;
|
|
if PanelGrp.Visible and (GrpCodeEdit.Text = '') then
|
|
begin
|
|
AMsg := 'Group code variable is not specified.';
|
|
Acontrol := GrpCodeEdit;
|
|
exit;
|
|
end;
|
|
if PanelDep.Visible and (DepVarEdit.Text = '') then
|
|
begin
|
|
AMsg := 'Dependent variable is not specified.';
|
|
Acontrol := DepVarEdit;
|
|
exit;
|
|
end;
|
|
|
|
Result := true;
|
|
end;
|
|
|
|
procedure TLatinSpecsFrm.VarListSelectionChange(Sender: TObject; User: boolean);
|
|
begin
|
|
UpdateBtnStates;
|
|
end;
|
|
|
|
|
|
initialization
|
|
{$I latinspecsunit.lrs}
|
|
|
|
end.
|
|
|