2015-12-28 14:25:15 +03:00
|
|
|
// Модуль ABCObjects. Изменение свойств объекта
|
2015-05-14 22:35:07 +03:00
|
|
|
uses ABCObjects,GraphABC;
|
|
|
|
|
|
|
|
|
|
const delay = 300;
|
|
|
|
|
|
|
|
|
|
procedure Pause;
|
|
|
|
|
begin
|
|
|
|
|
Sleep(delay);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
r: RectangleABC;
|
|
|
|
|
z: StarABC;
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
Window.Title := 'ABCObjects: свойства графических объектов';
|
2015-05-14 22:35:07 +03:00
|
|
|
z := new StarABC(Window.Center.X,Window.Center.Y,70,30,6,Color.Green);
|
|
|
|
|
r := new RectangleABC(100,100,200,100,Color.Gold);
|
|
|
|
|
Pause;
|
|
|
|
|
r.Center := Window.Center;
|
|
|
|
|
Pause;
|
|
|
|
|
r.Height := 70;
|
|
|
|
|
Pause;
|
|
|
|
|
r.Width := 220;
|
|
|
|
|
Pause;
|
|
|
|
|
z.Radius := 150;
|
|
|
|
|
Pause;
|
|
|
|
|
z.Color := Color.LightCoral;
|
|
|
|
|
Pause;
|
|
|
|
|
z.Count := 5;
|
|
|
|
|
Pause;
|
|
|
|
|
|
|
|
|
|
r.Text := 'PascalABC.NET';
|
|
|
|
|
r.Color := Color.Gainsboro;
|
|
|
|
|
Pause;
|
|
|
|
|
r.BorderWidth := 3;
|
|
|
|
|
r.BorderColor := Color.Blue;
|
|
|
|
|
Pause;
|
|
|
|
|
r.Center := Window.Center;
|
|
|
|
|
end.
|
