gr_All_Brown_WPF.pas

InstallerSamples/Graphics/WPFObjects/gr_All_Brown_WPF.pas

@@ -0,0 +1,41 @@
+// Изменение свойств графических объектов
+// Броуновское движение графических объектов
+uses WPFObjects,GraphWPF;
+
+procedure MoveAll(a,b: integer);
+begin
+  for var j:=0 to Objects.Count-1 do
+    Objects[j].moveOn(a,b);
+end;
+
+begin
+//  LockDrawingObjects; 
+  Window.Title := 'Броуновское движение объектов';
+  var sq := new SquareWPF(30,5,90,Colors.SkyBlue); sq.WithBorder;
+  var r := new RectangleWPF(10,10,100,180,RGB(255,100,100)); r.WithBorder;
+  var rr := new RoundRectWPF(200,180,180,50,20,RandomColor); rr.WithBorder;
+  var rsq:= new RoundSquareWPF(20,180,80,10,RandomColor); rsq.WithBorder;
+  var c := new CircleWPF(160,55,70,Colors.Green);
+  var z := new StarWPF(200,150,70,135,5,EmptyColor); z.WithBorder; //z.Filled := False;
+  var el := new EllipseWPF(5,55,65,50,RandomColor);  //el.Bordered := False;
+  var t := new TextWPF(100,170,'Hello, WPFObjects!'); //
+  t.BackgroundColor := Colors.Yellow;
+  //var br := new BoardWPF(200,20,7,5,20,20);
+  //br.Filled := False;
+  z.Height := 200;
+  //z.Radius := 70;
+  sq.Width := 120;
+  t.BackgroundColor := Colors.Yellow;
+  t.FontName := 'Times New Roman';
+  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].moveOn(Random(-1,1),Random(-1,1));
+    Sleep(10);
+  end;
+end.