paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 12:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@31784 -
This commit is contained in:
martin 2011-07-23 10:56:47 +00:00
parent fa696d1067
commit 538f8eaff1
1 changed files with 76 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

154
ide/frames/window_options.lfm
View File

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