pascalabcnet/InstallerSamples/Graphics/WPFObjects/gr_All_Brown_WPF.pas

// Изменение свойств графических объектов
// Броуновское движение графических объектов
uses WPFObjects;

procedure MoveAll(a,b: integer);
begin
  for var j:=0 to Objects.Count-1 do
    Objects[j].moveBy(a,b);
end;

begin
  Window.Title := 'Броуновское движение объектов';
  var sq := new SquareWPF(30,5,90,Colors.SkyBlue,1);
  var r := new RectangleWPF(10,10,100,180,RGB(255,100,100),1);
  var rr := new RoundRectWPF(200,180,180,50,20,RandomColor,1);
  var rsq:= new RoundSquareWPF(20,180,80,10,RandomColor,1);
  var c := new CircleWPF(160,55,70,Colors.Green);
  var z := new StarWPF(200,150,70,135,5,EmptyColor,1);  
  var el := new EllipseWPF(5,55,65,50,RandomColor,2,RandomColor);
  var t := new TextWPF(100,170,40,'Hello, WPFObjects!'); //
  t.BackgroundColor := Colors.Yellow;
  t.FontName := 'Times New Roman';
  //var br := new BoardWPF(200,20,7,5,20,20);
  //br.Filled := False;
  z.Height := 220;
  z.Radius := 160;
  sq.Width := 120;
  //t.FontSize := 40;
  c.Height := 50;
  c.Scale(2);
  MoveAll(160,110);
  
  while True do
  begin
    for var j:=0 to Objects.Count-1 do
      Objects[j].MoveBy(Random(-1,1),Random(-1,1));
    Sleep(10);
  end;
end.