Fix window positioning for dual screen, and systems with negative coordinates

git-svn-id: trunk@31784 -

ide/frames/window_options.lfm

@@ -3,7 +3,6 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
   Width = 566
   ClientHeight = 473
   ClientWidth = 566
-  TabOrder = 0
   Visible = False
   DesignLeft = 319
   DesignTop = 171
@@ -12,9 +11,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideTop.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 22
+    Height = 19
     Top = 0
-    Width = 227
+    Width = 181
     Caption = 'SingleTaskBarButtonCheckBox'
     Enabled = False
     TabOrder = 0
@@ -25,9 +24,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 22
-    Top = 22
-    Width = 187
+    Height = 19
+    Top = 19
+    Width = 151
     Caption = 'HideIDEOnRunCheckBox'
     TabOrder = 1
   end
@@ -40,14 +39,14 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 357
-    Top = 116
+    Height = 372
+    Top = 101
     Width = 566
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Top = 6
     Caption = 'WindowPositionsGroupBox'
-    ClientHeight = 336
-    ClientWidth = 558
+    ClientHeight = 354
+    ClientWidth = 562
     TabOrder = 2
     object Bevel1: TBevel
       AnchorSideLeft.Control = WindowPositionsGroupBox
@@ -55,7 +54,7 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Side = asrCenter
       Left = 6
       Height = 3
-      Top = 169
+      Top = 168
       Width = 50
       BorderSpacing.Left = 6
     end
@@ -66,10 +65,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = WindowPositionsGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 215
+      Left = 178
       Height = 3
-      Top = 169
-      Width = 337
+      Top = 168
+      Width = 378
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
       BorderSpacing.Right = 6
@@ -79,9 +78,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = WindowPositionsListBox
       AnchorSideTop.Side = asrBottom
       Left = 70
-      Height = 18
+      Height = 16
       Top = 161
-      Width = 139
+      Width = 102
       BorderSpacing.Left = 70
       BorderSpacing.Top = 6
       Caption = 'lblWindowCaption'
@@ -93,10 +92,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = LeftEdit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = LeftEdit
-      Left = 278
-      Height = 18
-      Top = 189
-      Width = 61
+      Left = 294
+      Height = 16
+      Top = 186
+      Width = 49
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 3
       Caption = 'LeftLabel'
@@ -106,10 +105,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = TopEdit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = TopEdit
-      Left = 281
-      Height = 18
-      Top = 222
-      Width = 58
+      Left = 293
+      Height = 16
+      Top = 215
+      Width = 50
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 3
       Caption = 'TopLabel'
@@ -119,10 +118,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = WidthEdit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = WidthEdit
-      Left = 400
-      Height = 18
-      Top = 189
-      Width = 74
+      Left = 417
+      Height = 16
+      Top = 186
+      Width = 61
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 3
       Caption = 'WidthLabel'
@@ -132,10 +131,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = HeightEdit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = HeightEdit
-      Left = 395
-      Height = 18
-      Top = 222
-      Width = 79
+      Left = 413
+      Height = 16
+      Top = 215
+      Width = 65
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 3
       Caption = 'HeightLabel'
@@ -149,7 +148,7 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       Left = 6
       Height = 149
       Top = 6
-      Width = 546
+      Width = 550
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 6
       ItemHeight = 0
@@ -161,80 +160,79 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = lblWindowCaption
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 185
-      Width = 288
+      Height = 19
+      Top = 183
+      Width = 233
       BorderSpacing.Around = 6
       Caption = 'UseWindowManagerSettingRadioButton'
       Checked = True
-      State = cbChecked
       TabOrder = 1
+      TabStop = True
     end
     object DefaultRadioButton: TRadioButton
       AnchorSideLeft.Control = WindowPositionsGroupBox
       AnchorSideTop.Control = UseWindowManagerSettingRadioButton
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 213
-      Width = 156
+      Height = 19
+      Top = 208
+      Width = 124
       BorderSpacing.Around = 6
       Caption = 'DefaultRadioButton'
       TabOrder = 2
-      TabStop = False
     end
     object RestoreWindowGeometryRadioButton: TRadioButton
       AnchorSideLeft.Control = WindowPositionsGroupBox
       AnchorSideTop.Control = DefaultRadioButton
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 241
-      Width = 274
+      Height = 19
+      Top = 233
+      Width = 221
       BorderSpacing.Around = 6
       Caption = 'RestoreWindowGeometryRadioButton'
       TabOrder = 3
-      TabStop = False
     end
     object CustomPositionRadioButton: TRadioButton
       AnchorSideLeft.Control = WindowPositionsGroupBox
       AnchorSideTop.Control = RestoreWindowGeometryRadioButton
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 269
-      Width = 210
+      Height = 19
+      Top = 258
+      Width = 171
       BorderSpacing.Around = 6
       Caption = 'CustomPositionRadioButton'
       TabOrder = 4
-      TabStop = False
     end
     object LeftEdit: TSpinEdit
       AnchorSideTop.Control = lblWindowCaption
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = WidthEdit
-      Left = 342
-      Height = 27
-      Top = 185
+      Left = 346
+      Height = 23
+      Top = 183
       Width = 75
       Anchors = [akTop, akRight]
       BorderSpacing.Top = 6
       BorderSpacing.Right = 60
       MaxValue = 4096
+      MinValue = -5000
       TabOrder = 5
     end
     object TopEdit: TSpinEdit
       AnchorSideTop.Control = LeftEdit
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = HeightEdit
-      Left = 342
-      Height = 27
-      Top = 218
+      Left = 346
+      Height = 23
+      Top = 212
       Width = 75
       Anchors = [akTop, akRight]
       BorderSpacing.Top = 6
       BorderSpacing.Right = 60
       MaxValue = 4096
+      MinValue = -5000
       TabOrder = 6
     end
     object WidthEdit: TSpinEdit
@@ -242,9 +240,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = WindowPositionsGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 477
-      Height = 27
-      Top = 185
+      Left = 481
+      Height = 23
+      Top = 183
       Width = 75
       Anchors = [akTop, akRight]
       BorderSpacing.Top = 6
@@ -257,9 +255,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = WindowPositionsGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 477
-      Height = 27
-      Top = 218
+      Left = 481
+      Height = 23
+      Top = 212
       Width = 75
       Anchors = [akTop, akRight]
       BorderSpacing.Top = 6
@@ -271,10 +269,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Control = TopEdit
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ApplyButton
-      Left = 260
-      Height = 27
-      Top = 251
-      Width = 188
+      Left = 290
+      Height = 25
+      Top = 241
+      Width = 167
       Anchors = [akTop, akRight]
       AutoSize = True
       BorderSpacing.Around = 6
@@ -288,10 +286,10 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = WindowPositionsGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 454
-      Height = 27
-      Top = 251
-      Width = 98
+      Left = 463
+      Height = 25
+      Top = 241
+      Width = 93
       Anchors = [akTop, akRight]
       AutoSize = True
       BorderSpacing.Around = 6
@@ -306,9 +304,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideTop.Control = HideIDEOnRunCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 0
-    Height = 22
-    Top = 44
-    Width = 222
+    Height = 19
+    Top = 38
+    Width = 176
     Caption = 'HideMessagesIconsCheckBox'
     TabOrder = 3
   end
@@ -317,9 +315,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideTop.Control = HideMessagesIconsCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 0
-    Height = 22
-    Top = 66
-    Width = 235
+    Height = 19
+    Top = 57
+    Width = 186
     Caption = 'TitleStartsWithProjectCheckBox'
     ParentShowHint = False
     ShowHint = True
@@ -330,9 +328,9 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideTop.Control = TitleStartsWithProjectCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 0
-    Height = 22
-    Top = 88
-    Width = 218
+    Height = 19
+    Top = 76
+    Width = 173
     Caption = 'ProjectDirInIdeTitleCheckBox'
     ParentShowHint = False
     ShowHint = True