Changeset 575 for trunk/LocalPlayer/TechTree.pas

Timestamp:

May 16, 2024, 12:03:29 AM (4 months ago)

Author:

chronos

Message:

• Added: Allow to scroll tech tree form also with keyboard arrows.

File:

• trunk/LocalPlayer/TechTree.pas (modified) (8 diffs)

trunk/LocalPlayer/TechTree.pas

@@ -17 +17 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormPaint(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -26 +27 @@
     procedure CloseBtnClick(Sender: TObject);
   private
-    xOffset, yOffset, xDown, yDown: Integer;
+    Offset: TPoint;
+    Down: TPoint;
     Image: TBitmap;
     Dragging: Boolean;
+    procedure Move(Diff: TPoint);
   end;
 
@@ -80 +83 @@
 end;
 
+procedure TTechTreeDlg.FormKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+const
+  Diff = 50;
+begin
+  case Key of
+    37: Move(Point(Diff, 0));
+    38: Move(Point(0, Diff));
+    39: Move(Point(-Diff, 0));
+    40: Move(Point(0, -Diff));
+  end;
+end;
+
 procedure TTechTreeDlg.FormPaint(Sender: TObject);
 var
@@ -95 +111 @@
     // texturize empty space
     Brush.Color := $FFFFFF;
-    if xOffset > 0 then
-      FillRectSeamless(Canvas, BlackBorder, BlackBorder, BlackBorder + xOffset,
-        ClientHeight - BlackBorder, -BlackBorder - xOffset,
-        -BlackBorder - yOffset, Paper);
-    if xOffset + Image.Width < ClientWidth - 2 * BlackBorder then
-      FillRectSeamless(Canvas, BlackBorder + xOffset + Image.Width, BlackBorder,
+    if Offset.X > 0 then
+      FillRectSeamless(Canvas, BlackBorder, BlackBorder, BlackBorder + Offset.X,
+        ClientHeight - BlackBorder, -BlackBorder - Offset.X,
+        -BlackBorder - Offset.Y, Paper);
+    if Offset.X + Image.Width < ClientWidth - 2 * BlackBorder then
+      FillRectSeamless(Canvas, BlackBorder + Offset.X + Image.Width, BlackBorder,
         ClientWidth - BlackBorder, ClientHeight - BlackBorder,
-        -BlackBorder - xOffset, -BlackBorder - yOffset, Paper);
-    X := Max(BlackBorder, BlackBorder + xOffset);
-    W := Min(BlackBorder + xOffset + Image.Width, ClientWidth - BlackBorder);
-    if yOffset > 0 then
-      FillRectSeamless(Canvas, X, BlackBorder, W, BlackBorder + yOffset,
-        -BlackBorder - xOffset, -BlackBorder - yOffset, Paper);
-    if yOffset + Image.Height < ClientHeight - 2 * BlackBorder then
-      FillRectSeamless(Canvas, X, BlackBorder + yOffset + Image.Height, W,
-        ClientHeight - BlackBorder, -BlackBorder - xOffset,
-        -BlackBorder - yOffset, Paper);
-  end;
-  BitBltCanvas(Canvas, Max(BlackBorder, BlackBorder + xOffset),
-    Max(BlackBorder, BlackBorder + yOffset),
-    Min(Image.Width, Min(Image.Width + xOffset,
-    Min(ClientWidth - 2 * BlackBorder, ClientWidth - 2 * BlackBorder - xOffset))
-    ), Min(Image.Height, Min(Image.Height + yOffset,
+        -BlackBorder - Offset.X, -BlackBorder - Offset.Y, Paper);
+    X := Max(BlackBorder, BlackBorder + Offset.X);
+    W := Min(BlackBorder + Offset.X + Image.Width, ClientWidth - BlackBorder);
+    if Offset.Y > 0 then
+      FillRectSeamless(Canvas, X, BlackBorder, W, BlackBorder + Offset.Y,
+        -BlackBorder - Offset.X, -BlackBorder - Offset.Y, Paper);
+    if Offset.Y + Image.Height < ClientHeight - 2 * BlackBorder then
+      FillRectSeamless(Canvas, X, BlackBorder + Offset.Y + Image.Height, W,
+        ClientHeight - BlackBorder, -BlackBorder - Offset.X,
+        -BlackBorder - Offset.Y, Paper);
+  end;
+  BitBltCanvas(Canvas, Max(BlackBorder, BlackBorder + Offset.X),
+    Max(BlackBorder, BlackBorder + Offset.Y),
+    Min(Image.Width, Min(Image.Width + Offset.X,
+    Min(ClientWidth - 2 * BlackBorder, ClientWidth - 2 * BlackBorder - Offset.X))
+    ), Min(Image.Height, Min(Image.Height + Offset.Y,
     Min(ClientHeight - 2 * BlackBorder, ClientHeight - 2 * BlackBorder -
-    yOffset))), Image.Canvas, Max(0, -xOffset),
-    Max(0, -yOffset));
+    Offset.Y))), Image.Canvas, Max(0, -Offset.X),
+    Max(0, -Offset.Y));
 end;
 
@@ -179 +195 @@
   CloseBtn.Left := Width - CloseBtn.Width - BlackBorder - 8;
   CloseBtn.Top := BlackBorder + 8;
-  xOffset := (ClientWidth - Image.Width + LeftBorder - RightBorder) div 2 -
+  Offset.X := (ClientWidth - Image.Width + LeftBorder - RightBorder) div 2 -
     BlackBorder;
-  yOffset := ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder;
+  Offset.Y := ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder;
 end;
 
@@ -190 +206 @@
   begin
     Dragging := True;
-    xDown := X;
-    yDown := Y;
+    Down := Point(X, Y);
   end;
 end;
@@ -206 +221 @@
   if Dragging then
   begin
-    xOffset := xOffset + X - xDown;
-    yOffset := yOffset + Y - yDown;
-    xDown := X;
-    yDown := Y;
-
-    if xOffset > LeftBorder then
-      xOffset := LeftBorder;
-    if xOffset < ClientWidth - 2 * BlackBorder - Image.Width - RightBorder then
-      xOffset := ClientWidth - 2 * BlackBorder - Image.Width - RightBorder;
-    if yOffset > TopBorder then
-      yOffset := TopBorder;
-    if yOffset < ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder
-    then
-      yOffset := ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder;
-
-    SmartInvalidate;
+    Move(Point(X - Down.X, Y - Down.Y));
+    Down := Point(X, Y);
   end;
 end;
@@ -230 +231 @@
 end;
 
+procedure TTechTreeDlg.Move(Diff: TPoint);
+begin
+  Offset := Offset + Diff;
+
+  if Offset.X > LeftBorder then
+    Offset.X := LeftBorder;
+  if Offset.X < ClientWidth - 2 * BlackBorder - Image.Width - RightBorder then
+    Offset.X := ClientWidth - 2 * BlackBorder - Image.Width - RightBorder;
+  if Offset.Y > TopBorder then
+    Offset.Y := TopBorder;
+  if Offset.Y < ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder
+  then
+    Offset.Y := ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder;
+
+  SmartInvalidate;
+end;
+
 end.