Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26

SpinEdit3: TSpinEdit;

Label_UpLimit: TLabel;

Label_PointsNumber: TLabel;

Label_Intervals: TLabel;

Label_1: TLabel;

BitBtn_Ok: TBitBtn;

BitBtn_Cancel: TBitBtn;

SpinEdit0: TSpinEdit;

Label1: TLabel;

Bevel1: TBevel; procedure SpinEdit0Change(Sender: TObject); procedure SpinEdit2Change(Sender: TObject); procedure CheckBox_LinkClick(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form_Options: TForm_Options;

implementation

uses MainUnit, SubUnit;

{$R *.DFM}

procedure TForm_Options.SpinEdit0Change(Sender: TObject); begin

SpinEdit1.MinValue := Succ(SpinEdit0.Value); if SpinEdit1.Value < SpinEdit1.MinValue then SpinEdit1.Value:=
SpinEdit1.MinValue; end;

procedure TForm_Options.SpinEdit2Change(Sender: TObject); begin

SpinEdit3.MinValue := SpinEdit2.Value; if SpinEdit3.Value < SpinEdit3.MinValue then SpinEdit3.Value:=
SpinEdit3.MinValue; end;

procedure TForm_Options.CheckBox_LinkClick(Sender: TObject); begin if CheckBox_Link.State = cbChecked then Form_Main.BindGrids else Form_Main.UnBindGrids end;

end.

Скачали данный реферат: Никольников, Koliuh, Kudel'kin, Эраст, Ripsimija, Осин, Sajanskij, Евфимий.
Последние просмотренные рефераты на тему: древния греция реферат, реферат по экономике, книга изложение, стратегия реферат.



Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26

Поделитесь этой записью или добавьте в закладки