home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 January
/
Chip_1999-01_cd.bin
/
zkuste
/
delphi
/
D1
/
PRINTP43.ZIP
/
UNIT2.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1995-11-06
|
2KB
|
78 lines
unit Unit2;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, StdCtrls, ExtCtrls, Grids, Calendar, VBXCtrl,
Chart2fx, Buttons, TabNotBk;
type
TForm2 = class(TForm)
Label1: TLabel;
Shape1: TShape;
Calendar1: TCalendar;
RadioGroup1: TRadioGroup;
ComboBox1: TComboBox;
Label2: TLabel;
Memo1: TMemo;
ChartFX1: TChartFX;
CheckBox1: TCheckBox;
BitBtn1: TBitBtn;
Edit1: TEdit;
CheckBox2: TCheckBox;
TabbedNotebook1: TTabbedNotebook;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
CheckBox3: TCheckBox;
procedure RadioGroup1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
Calendar1.Month := RadioGroup1.ItemIndex + 1;
ComboBox1.ItemIndex := RadioGroup1.ItemIndex;
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
Calendar1.Month := ComboBox1.ItemIndex + 1;
RadioGroup1.ItemIndex := ComboBox1.ItemIndex;
end;
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
ChartFX1.Visible := CheckBox1.Checked;
end;
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
TabbedNotebook1.Visible := CheckBox2.Checked;
end;
procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then Calendar1.Tag := 0
else Calendar1.Tag := -1;
end;
end.