mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-26 21:00:34 +02:00
Fix window positioning for dual screen, and systems with negative coordinates
git-svn-id: trunk@31784 -
This commit is contained in:
parent
fa696d1067
commit
538f8eaff1
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user