Changeset 2 for trunk/UFormMain.pas

Timestamp:

Dec 11, 2020, 11:42:27 PM (3 years ago)

Author:

chronos

Message:

• Added: Token movement animation.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (4 diffs)

trunk/UFormMain.pas

@@ -68 +68 @@
 procedure TGameCanvas.TextOut(const Pos: TPoint; Text: string);
 begin
-  if Brush.Opacity = 0 then Canvas.Brush.Style := Graphics.bsClear
+  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
     else Canvas.Brush.Style := Graphics.bsSolid;
   Canvas.Brush.Color := Brush.Color;
@@ -77 +77 @@
 procedure TGameCanvas.Rectangle(const Rect: TRect);
 begin
-  //Canvas.Brush.Style := Brush.Style;
+  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
+    else Canvas.Brush.Style := Graphics.bsSolid;
   Canvas.Brush.Color := Brush.Color;
-  //Canvas.Pen.Style := Pen.Style;
+  if Brush.Style = bsClear then Canvas.Pen.Style := Graphics.psClear
+    else Canvas.Pen.Style := Graphics.psSolid;
   Canvas.Pen.Color := Pen.Color;
   Canvas.FillRect(Rect);
@@ -86 +88 @@
 procedure TGameCanvas.Line(const P1, P2: TPoint);
 begin
+  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
+    else Canvas.Brush.Style := Graphics.bsSolid;
+  Canvas.Brush.Color := Brush.Color;
+  if Brush.Style = bsClear then Canvas.Pen.Style := Graphics.psClear
+    else Canvas.Pen.Style := Graphics.psSolid;
+  Canvas.Pen.Color := Pen.Color;
   Canvas.Pen.Width := Pen.Width;
   Canvas.Line(P1, P2);
@@ -92 +100 @@
 procedure TGameCanvas.Ellipse(const Bounds: TRect);
 begin
+  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
+    else Canvas.Brush.Style := Graphics.bsSolid;
+  Canvas.Brush.Color := Brush.Color;
+  if Brush.Style = bsClear then Canvas.Pen.Style := Graphics.psClear
+    else Canvas.Pen.Style := Graphics.psSolid;
+  Canvas.Pen.Color := Pen.Color;
   Canvas.Pen.Width := Pen.Width;
-  Canvas.Brush.Color := Brush.Color;
   Canvas.Ellipse(Bounds);
 end;