Подсказки
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm5 = class(TForm)
TrackBar1: TTrackBar;
TrackBar2: TTrackBar;
CheckBox1: TCheckBox;
Button1: TButton;
ColorBox1: TColorBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Label4: TLabel;
Label5: TLabel;
procedure ColorBox1Change(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure TrackBar2Change(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.ColorBox1Change(Sender: TObject);
begin
Application.HintColor:=ColorBox1.Selected;
end;
procedure TForm5.TrackBar1Change(Sender: TObject);
begin
Application.HintPause:=100*TrackBar1.Position;
end;
procedure TForm5.TrackBar2Change(Sender: TObject);
begin
Application.HintHidePause:=500*TrackBar2.Position;
end;
procedure TForm5.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Application.ShowHint:=true
else
Application.ShowHint:=false;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
Application.HintColor:= clInfoBk;
end;
end.
Диаграмма
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
TForm6 = class(TForm)
Chart1: TChart;
Series1: TPieSeries;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.Timer1Timer(Sender: TObject);
begin
Series1.RotationAngle:=Series1.RotationAngle+1;
end;
end.
Об авторе
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm7 = class(TForm)
Label1: TLabel;
Bevel1: TBevel;
Button1: TButton;
Label2: TLabel;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
Form7.Close;
end;
end.
Настройка времени и даты
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm8 = class(TForm)
Label1: TLabel;
RadioGroup1: TRadioGroup;
Label2: TLabel;
RadioGroup2: TRadioGroup;
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
private
{ Private declarations }
public
Time_string:string;
Date_String: string;
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
Form1.Date_String:=Date_string;
Form1.Time_String:=Time_string;
Close;
end;
procedure TForm8.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm8.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime(Date_string, Date);
Label2.Caption:=FormatDateTime(Time_string,Time);
end;
procedure TForm8.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Date_String:='dd.mm.yyyy';
1: Date_String:='dd\mm\yyyy';
2: Date_String:='dd mmmm yyyy';
end;
end;
procedure TForm8.RadioGroup2Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0: Time_String:='hh:nn:ss';
1: Time_String:='hh.nn.ss';
2: Time_String:='hh-nn-ss';
3: Time_String:='hh:nn';
4: Time_String:='hh.nn';
5: Time_String:='hh-nn';
6: Time_String:='hh:nn:ss AM/PM';
7: Time_String:='hh.nn.ss AM/PM';
8: Time_String:='hh-nn-ss AM/PM';
end;
end;
end.
