SASGIS

# HG changeset patch
# User [email protected]
# Date 1327064503 -14400
# Node ID 4ae0e07d1c5203296b8dc00694b35d472048ce03
# Parent  a449efc4517c9fa9860080a1215f16d2ab656ff2
Fix 180 & 910 bugs

diff -r a449efc4517c -r 4ae0e07d1c52 frm_Main.pas
--- a/frm_Main.pas	Thu Jan 19 22:13:07 2012 +0400
+++ b/frm_Main.pas	Fri Jan 20 17:01:43 2012 +0400
@@ -2228,10 +2228,10 @@
   if VIsFullScreen then begin
     Self.WindowState := wsMaximized;
     SetBounds(
-      Left-ClientOrigin.X,
-      Top-ClientOrigin.Y,
-      GetDeviceCaps(Canvas.handle, HORZRES) + (Width - ClientWidth),
-      GetDeviceCaps(Canvas.handle, VERTRES) + (Height - ClientHeight)
+      Monitor.Left + Left - ClientOrigin.X,
+      Monitor.Top + Top - ClientOrigin.Y,
+      Monitor.Width + (Width - ClientWidth),
+      Monitor.Height + (Height - ClientHeight)
     );
   end else begin
     if VIsMaximized then begin
@@ -2242,10 +2242,10 @@
       end;
       Self.WindowState := wsMaximized;
       SetBounds(
-        0,
-        0,
-        GetDeviceCaps(Canvas.handle, HORZRES),
-        GetDeviceCaps(Canvas.handle, VERTRES)
+        Monitor.Left,
+        Monitor.Top,
+        Monitor.Width,
+        Monitor.Height
       );
     end else begin
       Self.WindowState := wsNormal;