Changeset 238 for trunk/UMap.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/UMap.pas (modified) (2 diffs)

trunk/UMap.pas

@@ -155 +155 @@
     Areas: TMapAreas;
     Cyclic: Boolean;
-    procedure DrawArrow(Canvas: TCanvas; Pos: TPoint; Angle: Double;
-      Text: string; Zoom: Double);
     function IsOutsideShape(Coord: TPoint): Boolean; virtual;
     function IsCellsNeighbor(Cell1, Cell2: TCell): Boolean; virtual;
@@ -549 +547 @@
 end;
 
-procedure TMap.DrawArrow(Canvas: TCanvas; Pos: TPoint;
-  Angle: Double; Text: string; Zoom: Double);
-var
-  Points: array of Classes.TPoint;
-  FPoints: array of TPointF;
-  I: Integer;
-  ArrowSize: TPoint;
-begin
-  Canvas.Brush.Color := clWhite;
-  Canvas.Pen.Color := clBlack;
-  SetLength(Points, 8);
-  SetLength(FPoints, 8);
-  ArrowSize := TPoint.Create(Trunc(DefaultCellSize.X / 3 * Zoom),
-    Trunc(DefaultCellSize.Y / 3 * Zoom));
-  FPoints[0] := TPointF.Create(+0.5 * ArrowSize.X, +0 * ArrowSize.Y);
-  FPoints[1] := TPointF.Create(+0 * ArrowSize.X, +0.5 * ArrowSize.Y);
-  FPoints[2] := TPointF.Create(+0 * ArrowSize.X, +0.25 * ArrowSize.Y);
-  FPoints[3] := TPointF.Create(-0.5 * ArrowSize.X, +0.25 * ArrowSize.Y);
-  FPoints[4] := TPointF.Create(-0.5 * ArrowSize.X, -0.25 * ArrowSize.Y);
-  FPoints[5] := TPointF.Create(+0 * ArrowSize.X, -0.25 * ArrowSize.Y);
-  FPoints[6] := TPointF.Create(+0 * ArrowSize.X, -0.5 * ArrowSize.Y);
-  FPoints[7] := TPointF.Create(+0.5 * ArrowSize.X, 0 * ArrowSize.Y);
-  // Rotate
-  for I := 0 to Length(Points) - 1 do
-    FPoints[I] := TPointF.Create(FPoints[I].X * Cos(Angle) - FPoints[I].Y * Sin(Angle),
-      FPoints[I].X * Sin(Angle) + FPoints[I].Y * Cos(Angle));
-  // Shift
-  for I := 0 to Length(Points) - 1 do
-    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;
-    Font.Color := clBlack;
-    Font.Size := Trunc(26 * Zoom);
-    TextOut(Pos.X - TextWidth(Text) div 2,
-      Pos.Y - TextHeight(Text) div 2, Text);
-    Pen.Width := 1;
-  end;
-end;
-
 function TMap.IsCellsNeighbor(Cell1, Cell2: TCell): Boolean;
 begin