1
0
Files
applications
biffexplorer
cactusjukebox
clipanalizer
draw_test
fakecmd
fixlp
foobot
fpbrowser
fpchess
fppkgrepotest
fpsvnsync
fpvviewer
gobject-introspection
idlparser
instantfpc
json_packager
khexeditor
laz_icons
lazclock
lazedit
lazeyes
lazimageeditor
lazspreadsheet
lazstacktrace
lazstats
data
docs
html
icons
source
forms
analysis
comparisons
correlation
cross-classification
descriptive
financial
matrix_manipulation
colinsertunit.lfm
colinsertunit.pas
matmanunit.lfm
matmanunit.pas
rootmethodunit.lfm
rootmethodunit.pas
rowinsertunit.lfm
rowinsertunit.pas
scripteditorunit.lfm
scripteditorunit.pas
scriptoptsunit.lfm
scriptoptsunit.pas
measurement_programs
multiple_regression
multivariate
nonparametric
one_sample_tests
statistical_process_control
help
misc
options
simulations
tools
variables
maindm.lfm
maindm.pas
mainunit.lfm
mainunit.pas
frames
not used by LazStats
units
LazStats.ico
LazStats.inc
LazStats.lpi
LazStats.lpr
LazStats.res
LazStats.chm
LazStats.hlp
README.txt
pyramidtiff
spready
sudoku
tappytux
wikihelp
bindings
components
examples
image_sources
lclbindings
wst
lazarus-ccr/applications/lazstats/source/forms/analysis/matrix_manipulation/rowinsertunit.pas

71 lines
1.3 KiB
ObjectPascal
Raw Normal View History

unit RowInsertUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls;
type
{ TRowInsertFrm }
TRowInsertFrm = class(TForm)
BeforeEdit: TEdit;
AfterEdit: TEdit;
Bevel1: TBevel;
CancelBtn: TButton;
ReturnBtn: TButton;
GridNoEdit: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
RowInsertFrm: TRowInsertFrm;
implementation
uses
Math, MatManUnit;
{ TRowInsertFrm }
procedure TRowInsertFrm.FormActivate(Sender: TObject);
var
w: Integer;
begin
w := MaxValue([CancelBtn.Width, ReturnBtn.Width]);
CancelBtn.Constraints.MinWidth := w;
ReturnBtn.Constraints.MinWidth := w;
end;
procedure TRowInsertFrm.FormCreate(Sender: TObject);
begin
if MatManFrm = nil then
Application.CreateForm(TMatManFrm, MatManFrm);
end;
procedure TRowInsertFrm.FormShow(Sender: TObject);
begin
BeforeEdit.Text := '';
AfterEdit.Text := '';
GridNoEdit.Text := matmanfrm.GridNoEdit.Text;
end;
initialization
{$I rowinsertunit.lrs}
end.