Changeset 91 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 4, 2014, 10:18:13 PM (10 years ago)

Author:

chronos

Message:

• Added: Partial support for high DPI screens. Disabled.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -73 +73 @@
     procedure AZoomOutExecute(Sender: TObject);
     procedure FormActivate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure FormShow(Sender: TObject);
-    procedure MenuItem19Click(Sender: TObject);
     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
@@ -244 +243 @@
   Factor: TFloatPoint;
   MapRect: TRect;
+  NewZoom: Single;
 begin
   with Core, Game, Player, View do begin
@@ -249 +249 @@
     Factor := FloatPoint((DestRect.Right - DestRect.Left) / (MapRect.Right - MapRect.Left),
       (DestRect.Bottom - DestRect.Top) / (MapRect.Bottom - MapRect.Top));
-    if Factor.X < Factor.Y then Zoom := Factor.X
-      else Zoom := Factor.Y;
+    if Factor.X < Factor.Y then NewZoom := Factor.X
+      else NewZoom := Factor.Y;
+    //if NewZoom <> 0 then
+    Zoom := NewZoom;
     CenterMap;
   end;
@@ -326 +328 @@
   ReloadView;
   Redraw;
-end;
-
-procedure TFormMain.MenuItem19Click(Sender: TObject);
-begin
-
 end;