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

git-svn-id: trunk@31784 -
This commit is contained in:
martin 2011-07-23 10:56:47 +00:00
parent fa696d1067
commit 538f8eaff1

View File

@ -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