АСОИ, Delphi, много вариантов 2 сем / 1классы / Машинка с фарами / Main

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MyRec,MyCar, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
{function Lighter(Color:TColor; Percent:Byte):TColor;}
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Rectangle:TRec;
Auto:TCar;
Ris:Tcanvas;

implementation

{$R *.dfm}
var
okno1:Timage;
pxm1,pym1:word;
colrBack:Tcolor;
Midx,Midy:word;
i:integer;
f,d,CD:boolean;

function Lighter(Color:TColor; Percent:Byte):TColor;
var
r, g, b: Byte;
begin
Color:=ColorToRGB(Color);
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
r:=r+muldiv(255-r,Percent,100); //процент% увеличения яркости
g:=g+muldiv(255-g,Percent,100);
b:=b+muldiv(255-b,Percent,100);
result:=RGB(r,g,b);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:Tcolor;
begin

if not CD then begin
{Rectangle:=TRec.create(midx,midy,0,clBlack,okno1.Canvas); }
{Rectangle.show(clBlack,clBlack);}
a:=Lighter(clBlack,20);
Auto:=Tcar.Create(midx,midy,0,a,okno1.Canvas);
Auto.Show(clblack,a);
button1.Caption:='Destroy';
CD:=True;
button2.Enabled:=True;
button3.Enabled:=True;
button4.Enabled:=True;
button5.Enabled:=True;
end
else begin
with okno1.canvas do begin
pen.color:=colrBack;
brush.color:=colrBack;
Rectangle(0,0,Pxm1,Pym1);
// Заливка всего окна цветом фона
end;
Auto.Free;
button1.Caption:='Create';
CD:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=i-1;
auto.move(0,-10);
if i= -10 then
button2.Enabled:=false;
if i< 10 then
button3.Enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
i:=i+1;
if i= 10 then
button3.Enabled:=false;
if i> -10 then
button2.Enabled:=true;
auto.move(0,10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;

CD:=False;
D:=False;
f:=false;
i:=0;
okno1:=Form1.Image1;
colrBack:=clWhite; // Цвет фона - белый
pxm1:=okno1.ClientWidth; // Считывание размеров окна
pym1:=okno1.ClientHeight;
with okno1.canvas do begin
pen.color:=colrBack;
brush.color:=colrBack;
Rectangle(0,0,Pxm1,Pym1); // Заливка всего окна цветом фона
end;
midx:=pxm1 div 2;
midy:=pym1 div 2;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if not F then
begin
auto.Lights(clYellow);
Button4.Caption:='LightsOff';
f:= True;
auto.ch:=f;
end
else
begin
auto.LightsOff;
Button4.Caption:='Lights';
f:=false;
auto.ch:=f;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
a:integer;
begin
if not D then begin
Auto.DoorsOpen;
button2.Enabled:=false;
button3.Enabled:=False;
D:=true;
Button5.Caption:='DoorsClose';
end
else begin
D:=False;
Auto.DoorsClose;
button2.Enabled:=True;
button3.Enabled:=True;
Button5.Caption:='DoorsOpen';
end;
end;

end.