17 lines
348 B
ObjectPascal
17 lines
348 B
ObjectPascal
|
// Изменение свойств объекта StarWPF
|
|||
|
|
uses WPFObjects, GraphWPF;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var z := new StarWPF(Window.Width / 2, Window.Height / 2, Window.Height / 2 - 5, Window.Height / 4 + 16, 6, Colors.Red);
|
|||
|
|
loop 20 do
|
|||
|
|
begin
|
|||
|
|
Sleep(100);
|
|||
|
|
z.Count += 1;
|
|||
|
|
end;
|
|||
|
|
loop 200 do
|
|||
|
|
begin
|
|||
|
|
Sleep(10);
|
|||
|
|
z.Rotate(1);
|
|||
|
|
end;
|
|||
|
|
end.
|