paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed ButtonPanel height in Mouse Action dialog

Browse Source 
git-svn-id: trunk@41041 -
This commit is contained in:
maxim 2013-05-05 15:48:52 +00:00
parent e63627537c
commit daba7b658a
1 changed files with 82 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

168
ide/mouseactiondialog.lfm
View File

@ -1,17 +1,17 @@
object MouseaActionDialog: TMouseaActionDialog object MouseaActionDialog: TMouseaActionDialog
Left = 314 Left = 314
Height = 267 Height = 255
Top = 217 Top = 217
Width = 362 Width = 374
AutoSize = True AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'MouseaActionDialog' Caption = 'MouseaActionDialog'
ClientHeight = 267 ClientHeight = 255
ClientWidth = 362 ClientWidth = 374
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31' LCLVersion = '1.1'
object BtnLabel: TLabel object BtnLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ButtonBox AnchorSideTop.Control = ButtonBox
@ -19,9 +19,9 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideRight.Control = ActionLabel AnchorSideRight.Control = ActionLabel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 16 Height = 13
Top = 143 Top = 136
Width = 64 Width = 55
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'BtnLabel' Caption = 'BtnLabel'
@ -32,9 +32,9 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Control = ActionBox AnchorSideTop.Control = ActionBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 13
Top = 9 Top = 10
Width = 64 Width = 55
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ActionLabel' Caption = 'ActionLabel'
ParentColor = False ParentColor = False
@ -45,10 +45,10 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 76 Left = 67
Height = 16 Height = 16
Top = 60 Top = 56
Width = 280 Width = 301
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -61,9 +61,9 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Control = PriorSpin AnchorSideTop.Control = PriorSpin
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 13
Top = 108 Top = 103
Width = 54 Width = 47
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'PriorLabel' Caption = 'PriorLabel'
ParentColor = False ParentColor = False
@ -73,29 +73,29 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Control = ShiftCheck AnchorSideTop.Control = ShiftCheck
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnDefault AnchorSideRight.Control = BtnDefault
AnchorSideBottom.Control = BtnDefault AnchorSideBottom.Control = ButtonPanel1
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 27
Top = 194 Top = 182
Width = 262 Width = 279
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BevelOuter = bvLowered BevelOuter = bvLowered
BevelWidth = 2 BevelWidth = 2
ClientHeight = 25 ClientHeight = 27
ClientWidth = 262 ClientWidth = 279
Color = clBtnShadow Color = clBtnShadow
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
OnMouseDown = CapturePanelMouseDown OnMouseDown = CapturePanelMouseDown
object PaintBox1: TPaintBox object PaintBox1: TPaintBox
Left = 2 Left = 2
Height = 21 Height = 23
Top = 2 Top = 2
Width = 258 Width = 275
Align = alClient Align = alClient
OnMouseDown = CapturePanelMouseDown OnMouseDown = CapturePanelMouseDown
OnMouseWheel = PaintBox1MouseWheel OnMouseWheel = PaintBox1MouseWheel
@ -105,10 +105,10 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Control = ButtonBox AnchorSideLeft.Control = ButtonBox
AnchorSideTop.Control = ButtonBox AnchorSideTop.Control = ButtonBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 76 Left = 67
Height = 19 Height = 17
Top = 169 Top = 159
Width = 77 Width = 69
AllowGrayed = True AllowGrayed = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ShiftCheck' Caption = 'ShiftCheck'
@ -119,10 +119,10 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShiftCheck AnchorSideTop.Control = ShiftCheck
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 159 Left = 142
Height = 19 Height = 17
Top = 169 Top = 159
Width = 68 Width = 60
AllowGrayed = True AllowGrayed = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AltCheck' Caption = 'AltCheck'
@ -133,30 +133,28 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShiftCheck AnchorSideTop.Control = ShiftCheck
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 233 Left = 208
Height = 19 Height = 17
Top = 169 Top = 159
Width = 72 Width = 64
AllowGrayed = True AllowGrayed = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'CtrlCheck' Caption = 'CtrlCheck'
TabOrder = 8 TabOrder = 8
end end
object BtnDefault: TButton object BtnDefault: TButton
AnchorSideLeft.Control = CtrlCheck
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShiftCheck AnchorSideTop.Control = CapturePanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 274 Left = 291
Height = 25 Height = 23
Top = 194 Top = 184
Width = 82 Width = 77
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'BtnDefault' Caption = 'BtnDefault'
@ -168,10 +166,10 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ClickBox AnchorSideTop.Control = ClickBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 288 Left = 279
Height = 19 Height = 17
Top = 142 Top = 134
Width = 68 Width = 60
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DirCheck' Caption = 'DirCheck'
TabOrder = 5 TabOrder = 5
@ -180,12 +178,12 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Control = ButtonBox AnchorSideLeft.Control = ButtonBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ButtonBox AnchorSideTop.Control = ButtonBox
Left = 182 Left = 173
Height = 23 Height = 21
Top = 140 Top = 132
Width = 100 Width = 100
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 15 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
end end
@ -194,13 +192,13 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PriorSpin AnchorSideTop.Control = PriorSpin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 76 Left = 67
Height = 23 Height = 21
Top = 140 Top = 132
Width = 100 Width = 100
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 12 BorderSpacing.Top = 12
ItemHeight = 15 ItemHeight = 13
OnChange = ButtonBoxChange OnChange = ButtonBoxChange
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 3
@ -209,10 +207,10 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Control = ActionBox AnchorSideLeft.Control = ActionBox
AnchorSideTop.Control = ActionBox AnchorSideTop.Control = ActionBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 76 Left = 67
Height = 19 Height = 17
Top = 35 Top = 33
Width = 81 Width = 74
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CaretCheck' Caption = 'CaretCheck'
TabOrder = 1 TabOrder = 1
@ -223,30 +221,28 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 76 Left = 67
Height = 23 Height = 21
Top = 6 Top = 6
Width = 280 Width = 301
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 15 ItemHeight = 13
OnChange = ActionBoxChange OnChange = ActionBoxChange
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = BtnDefault
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 36 Height = 34
Top = 225 Top = 215
Width = 350 Width = 362
Anchors = [akTop, akLeft, akRight, akBottom]
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
@ -264,14 +260,14 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 76 Left = 67
Height = 23 Height = 21
Top = 76 Top = 72
Width = 280 Width = 301
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Enabled = False Enabled = False
ItemHeight = 15 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 11 TabOrder = 11
end end
@ -279,9 +275,9 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideLeft.Control = OptLabel AnchorSideLeft.Control = OptLabel
AnchorSideTop.Control = OptBox AnchorSideTop.Control = OptBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 76 Left = 67
Height = 23 Height = 21
Top = 105 Top = 99
Width = 60 Width = 60
BorderSpacing.Top = 6 BorderSpacing.Top = 6
MaxValue = 3 MaxValue = 3
@ -293,9 +289,9 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 296 Left = 308
Height = 23 Height = 21
Top = 105 Top = 99
Width = 60 Width = 60
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -308,10 +304,10 @@ object MouseaActionDialog: TMouseaActionDialog
AnchorSideTop.Control = Opt2Spin AnchorSideTop.Control = Opt2Spin
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Opt2Spin AnchorSideRight.Control = Opt2Spin
Left = 235 Left = 253
Height = 16 Height = 13
Top = 108 Top = 103
Width = 55 Width = 49
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6