Changeset 241 for trunk/Forms

Timestamp:

Sep 21, 2018, 1:22:52 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Draw cell links under cells in cyclic map mode.

Location:

trunk/Forms

Files:

• UFormClient.lfm (modified) (4 diffs)
• UFormClient.pas (modified) (2 diffs)

trunk/Forms/UFormClient.lfm

@@ -7 +7 @@
   ClientHeight = 621
   ClientWidth = 775
-  DesignTimePPI = 144
+  DesignTimePPI = 120
   OnClose = FormClose
   OnCreate = FormCreate
@@ -13 +13 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '1.8.4.0'
+  LCLVersion = '1.8.2.0'
   WindowState = wsMaximized
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 30
-    Top = 591
+    Height = 28
+    Top = 593
     Width = 775
     Panels = <    
@@ -34 +34 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 591
+    Height = 593
     Top = 0
     Width = 32
@@ -80 +80 @@
   object PaintBox1: TPaintBox
     Left = 32
-    Height = 591
+    Height = 593
     Top = 0
     Width = 743

trunk/Forms/UFormClient.pas

@@ -214 +214 @@
               )
             );
+            Client.DrawCellLinks(PaintBox1.Canvas, TempView);
+          end;
+        end;
+        for Y := 0 to CountP.Y do begin
+          for X := 0 to CountP.X do begin
+            TempView.Assign(View);
+            TempView.DestRect := TRect.Create(
+              TPoint.Create(
+                -StartP.X + R.Size.X * X,
+                -StartP.Y + R.Size.Y * Y
+              ),
+              TPoint.Create(
+                -StartP.X + R.Size.X * X + View.DestRect.Size.X,
+                -StartP.Y + R.Size.Y * Y + View.DestRect.Size.Y
+              )
+            );
             Client.Paint(PaintBox1.Canvas, TempView);
           end;
@@ -235 +251 @@
         TempView.Free;
       end else
+      Client.DrawCellLinks(PaintBox1.Canvas, View);
       Client.Paint(PaintBox1.Canvas, View);
       Client.DrawArrows(PaintBox1.Canvas, View);