Changeset 238 for trunk/UClientGUI.pas

Timestamp:

Sep 21, 2018, 12:15:23 AM (6 years ago)

Author:

chronos

Message:

• Modified: Enabled back drawing only of visible cells.
• Added: Draw only visible arrows between cells.

File:

• trunk/UClientGUI.pas (modified) (6 diffs)

trunk/UClientGUI.pas

@@ -32 +32 @@
     function CanvasToCellPos(Pos: TPoint): TPoint;
     function CellToCanvasPos(Pos: TPoint): TPoint;
+    function CellToCanvasPosF(Pos: TPointF): TPointF;
     function CanvasToCellRect(Pos: TRect): TRect;
     function CellToCanvasRect(Pos: TRect): TRect;
+    function CellToCanvasRectF(Pos: TRectF): TRectF;
     procedure Assign(Source: TView);
     property DestRect: TRect read FDestRect write SetDestRect;
@@ -46 +48 @@
   public
     View: TView;
+    procedure DrawArrow(Canvas: TCanvas; Pos: TPoint; Angle: Double;
+      Text: string; View: TView);
     procedure PaintCell(Canvas: TCanvas; Pos: TPoint; Text: string; View: TView;
       Cell: TPlayerCell);
@@ -242 +246 @@
 
       if Sign(PosTo.X - PosFrom.X) = -1 then Angle := Angle + Pi;
-      ArrowCenter := View.CellToCanvasPos(TPoint.Create(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 2),
-        Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 2)));
-      TGame(Game).Map.DrawArrow(Canvas, ArrowCenter,
-        Angle, IntToStr(Move.CountOnce), View.Zoom);
-    end;
-  end;
-end;
+      ArrowCenter := View.CellToCanvasPos(TPoint.Create(
+        Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 2),
+        Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 2)
+      ));
+      DrawArrow(Canvas, ArrowCenter,
+        Angle, IntToStr(Move.CountOnce), View);
+    end;
+  end;
+end;
+
+procedure TClientGUI.DrawArrow(Canvas: TCanvas; Pos: TPoint;
+  Angle: Double; Text: string; View: TView);
+var
+  Points: array of Classes.TPoint;
+  Arrow: TPolygonF;
+  I: Integer;
+  ArrowSize: TPoint;
+  RectPolygon: TRectF;
+begin
+  SetLength(Arrow.Points, 8);
+  ArrowSize := TPoint.Create(Trunc(TGame(Game).Map.DefaultCellSize.X / 3 * View.Zoom),
+    Trunc(TGame(Game).Map.DefaultCellSize.Y / 3 * View.Zoom));
+  Arrow.Points[0] := TPointF.Create(+0.5 * ArrowSize.X, +0 * ArrowSize.Y);
+  Arrow.Points[1] := TPointF.Create(+0 * ArrowSize.X, +0.5 * ArrowSize.Y);
+  Arrow.Points[2] := TPointF.Create(+0 * ArrowSize.X, +0.25 * ArrowSize.Y);
+  Arrow.Points[3] := TPointF.Create(-0.5 * ArrowSize.X, +0.25 * ArrowSize.Y);
+  Arrow.Points[4] := TPointF.Create(-0.5 * ArrowSize.X, -0.25 * ArrowSize.Y);
+  Arrow.Points[5] := TPointF.Create(+0 * ArrowSize.X, -0.25 * ArrowSize.Y);
+  Arrow.Points[6] := TPointF.Create(+0 * ArrowSize.X, -0.5 * ArrowSize.Y);
+  Arrow.Points[7] := TPointF.Create(+0.5 * ArrowSize.X, 0 * ArrowSize.Y);
+  // Rotate
+  for I := 0 to Length(Arrow.Points) - 1 do begin
+    Arrow.Points[I] := TPointF.Create(
+      Arrow.Points[I].X * Cos(Angle) - Arrow.Points[I].Y * Sin(Angle),
+      Arrow.Points[I].X * Sin(Angle) + Arrow.Points[I].Y * Cos(Angle)
+    );
+    Arrow.Points[I] := Arrow.Points[I] + TPointF.Create(Pos.X, Pos.Y);
+  end;
+
+  RectPolygon := Arrow.GetRect;
+  if (RectPolygon.P1.X < View.DestRect.Size.X) and
+    (RectPolygon.P2.X > 0) and
+    (RectPolygon.P1.Y < View.DestRect.Size.Y) and
+    (RectPolygon.P2.Y > 0) then begin
+
+    // Convert to standard points
+    SetLength(Points, 8);
+    for I := 0 to Length(Points) - 1 do
+      Points[I] := Point(Trunc(Arrow[I].X), Trunc(Arrow[I].Y));
+    with Canvas do begin
+      Pen.Color := clBlack;
+      Brush.Color := clWhite;
+      Brush.Style := bsSolid;
+      Polygon(Points);
+      Brush.Style := bsClear;
+      Font.Color := clBlack;
+      Font.Size := Trunc(18 * View.Zoom);
+      TextOut(Pos.X - TextWidth(Text) div 2, Pos.Y - TextHeight(Text) div 2, Text);
+      Pen.Width := 1;
+    end;
+  end;
+end;
+
 
 procedure TClientGUI.DrawCells(Canvas: TCanvas; View: TView);
@@ -396 +456 @@
 end;
 
+function TView.CellToCanvasPosF(Pos: TPointF): TPointF;
+begin
+  Result := TPointF.Create((Pos.X - SourceRect.P1.X) * Zoom + DestRect.P1.X,
+    (Pos.Y - SourceRect.P1.Y) * Zoom + DestRect.P1.Y);
+end;
+
 function TView.CanvasToCellRect(Pos: TRect): TRect;
 begin
@@ -406 +472 @@
   Result.P1 := CellToCanvasPos(Pos.P1);
   Result.P2 := CellToCanvasPos(Pos.P2);
+end;
+
+function TView.CellToCanvasRectF(Pos: TRectF): TRectF;
+begin
+  Result.P1 := CellToCanvasPosF(Pos.P1);
+  Result.P2 := CellToCanvasPosF(Pos.P2);
 end;
 
@@ -491 +563 @@
 function TView.IsCellVisible(Cell: TCell): Boolean;
 var
-  RectPolygon, RectView: TRect;
-begin
-  RectPolygon := Cell.Polygon.GetRect;
-  RectView := SourceRect;
+  RectPolygon: TRect;
+begin
+  RectPolygon := CellToCanvasRect(Cell.Polygon.GetRect);
   Result := (
-    (RectPolygon.P1.X < RectView.P2.X) and
-    (RectPolygon.P2.X > RectView.P1.X) and
-    (RectPolygon.P1.Y < RectView.P2.Y) and
-    (RectPolygon.P2.Y > RectView.P1.Y)
+    (RectPolygon.P1.X < DestRect.Size.X) and
+    (RectPolygon.P2.X > 0) and
+    (RectPolygon.P1.Y < DestRect.Size.Y) and
+    (RectPolygon.P2.Y > 0)
   );
-  Result := True;
 end;