Changeset 58 for trunk/UGame.pas

Timestamp:

Sep 25, 2014, 3:24:18 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Background drawing problems of cells and arrows.
• Added: Zooming actions added also to toolbar.
• Added: Toolbar and statusbar visibility settings.

File:

• trunk/UGame.pas (modified) (2 diffs)

trunk/UGame.pas

@@ -540 +540 @@
     Points[I] := Point(Trunc(FPoints[I].X + Pos.X), Trunc(FPoints[I].Y + Pos.Y));
   with Canvas do begin
+    Brush.Style := bsSolid;
     Polygon(Points);
     Brush.Style := bsClear;
@@ -660 +661 @@
     for I := 0 to Length(Points) - 1 do
       Points[I] := View.CellToCanvasPos(Cell.Polygon[I]);
-
+    Brush.Style := bsSolid;
     Polygon(Points, False, 0, Length(Points));
     Pen.Style := psSolid;