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

trunk/UGame.pas

@@ -426 +426 @@
   SUnfinishedBattle = 'Unfinished battle';
   SNewGameFile = 'New game.xtg';
+  SZeroZoomNotAlowed = 'Zero zoom not allowed';
 
 procedure InitStrings;
@@ -1429 +1430 @@
 begin
   if FZoom = AValue then Exit;
+  if AValue = 0 then
+    raise Exception.Create(SZeroZoomNotAlowed);
   FZoom := AValue;
   SourceRect := Bounds(Trunc(SourceRect.Left + (SourceRect.Right - SourceRect.Left) div 2 - (DestRect.Right - DestRect.Left) / Zoom / 2),