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

IDE: Options frames, make some button autosize for i18n.

Browse Source
This commit is contained in:
Martin 2025-03-25 00:59:39 +01:00
parent f8e641512b
commit c94adb2673
2 changed files with 43 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
debugger/frames/debugger_class_options.lfm
View File

@ -45,11 +45,13 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideTop.Control = cbBackend AnchorSideTop.Control = cbBackend
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 25
Top = 50 Top = 50
Width = 75 Width = 75
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'btnAdd' Caption = 'btnAdd'
Constraints.MinWidth = 75
TabOrder = 1 TabOrder = 1
OnClick = tbAddNewClick OnClick = tbAddNewClick
end end
@ -58,11 +60,13 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAdd AnchorSideTop.Control = btnAdd
Left = 93 Left = 93
Height = 22 Height = 25
Top = 50 Top = 50
Width = 75 Width = 75
AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'btnCopy' Caption = 'btnCopy'
Constraints.MinWidth = 75
TabOrder = 2 TabOrder = 2
OnClick = tbCopyClick OnClick = tbCopyClick
end end
@ -70,13 +74,15 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideTop.Control = btnAdd AnchorSideTop.Control = btnAdd
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 451 Left = 449
Height = 22 Height = 25
Top = 50 Top = 50
Width = 75 Width = 77
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'btnDelete' Caption = 'btnDelete'
Constraints.MinWidth = 75
TabOrder = 3 TabOrder = 3
OnClick = tbDeleteClick OnClick = tbDeleteClick
end end
@ -88,7 +94,7 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 15
Top = 78 Top = 81
Width = 532 Width = 532
Caption = 'divEditBackend' Caption = 'divEditBackend'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -104,12 +110,12 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 341 Height = 338
Top = 93 Top = 96
Width = 532 Width = 532
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 341 ClientHeight = 338
ClientWidth = 532 ClientWidth = 532
TabOrder = 0 TabOrder = 0
object lblName: TLabel object lblName: TLabel
@ -304,7 +310,7 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideBottom.Control = Panel1 AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 113 Height = 110
Top = 228 Top = 228
Width = 532 Width = 532
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]

48
ide/frames/editor_markup_userdefined.lfm
View File

@ -46,11 +46,13 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideTop.Control = cbGroup AnchorSideTop.Control = cbGroup
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 25
Top = 56 Top = 56
Width = 75 Width = 75
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'btnAdd' Caption = 'btnAdd'
Constraints.MinWidth = 75
TabOrder = 1 TabOrder = 1
OnClick = tbNewListClick OnClick = tbNewListClick
end end
@ -59,11 +61,13 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAdd AnchorSideTop.Control = btnAdd
Left = 93 Left = 93
Height = 22 Height = 25
Top = 56 Top = 56
Width = 75 Width = 75
AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'btnCopy' Caption = 'btnCopy'
Constraints.MinWidth = 75
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
end end
@ -74,12 +78,14 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 174 Left = 174
Height = 22 Height = 25
Top = 56 Top = 56
Width = 75 Width = 77
AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'btnDelete' Caption = 'btnDelete'
Constraints.MinWidth = 75
TabOrder = 3 TabOrder = 3
OnClick = tbDeleteListClick OnClick = tbDeleteListClick
end end
@ -91,7 +97,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 84 Top = 87
Width = 544 Width = 544
Caption = 'divEditGroup' Caption = 'divEditGroup'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -108,14 +114,14 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 536 Height = 533
Top = 105 Top = 108
Width = 556 Width = 556
HorzScrollBar.Page = 556 HorzScrollBar.Page = 556
VertScrollBar.Page = 470 VertScrollBar.Page = 334
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 519 ClientHeight = 516
ClientWidth = 556 ClientWidth = 556
TabOrder = 4 TabOrder = 4
object lbListName: TLabel object lbListName: TLabel
@ -184,7 +190,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = MainPanel AnchorSideBottom.Control = MainPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 294 Height = 291
Top = 219 Top = 219
Width = 1098 Width = 1098
ActivePage = tabMain ActivePage = tabMain
@ -195,17 +201,17 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
OnChange = PageControl1Change OnChange = PageControl1Change
object tabMain: TTabSheet object tabMain: TTabSheet
Caption = 'tabMain' Caption = 'tabMain'
ClientHeight = 266 ClientHeight = 263
ClientWidth = 1090 ClientWidth = 1090
object pnlMain: TPanel object pnlMain: TPanel
Left = 0 Left = 0
Height = 266 Height = 263
Top = 0 Top = 0
Width = 1090 Width = 1090
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 266 ClientHeight = 263
ClientWidth = 1090 ClientWidth = 1090
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = False
@ -228,7 +234,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = pnlMain AnchorSideBottom.Control = pnlMain
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 551 Left = 551
Height = 254 Height = 251
Top = 6 Top = 6
Width = 533 Width = 533
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -239,7 +245,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
Columns = < Columns = <
item item
Title.Caption = 'Title' Title.Caption = 'Title'
Width = 504 Width = 487
end end
item item
ButtonStyle = cbsButtonColumn ButtonStyle = cbsButtonColumn
@ -260,7 +266,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
OnKeyUp = WordListKeyUp OnKeyUp = WordListKeyUp
OnSelection = WordListSelection OnSelection = WordListSelection
ColWidths = ( ColWidths = (
504 487
25 25
) )
end end
@ -306,17 +312,17 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
end end
object tabKeys: TTabSheet object tabKeys: TTabSheet
Caption = 'tabKeys' Caption = 'tabKeys'
ClientHeight = 266 ClientHeight = 263
ClientWidth = 1090 ClientWidth = 1090
object pnlKeys: TPanel object pnlKeys: TPanel
Left = 0 Left = 0
Height = 266 Height = 263
Top = 0 Top = 0
Width = 1090 Width = 1090
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 266 ClientHeight = 263
ClientWidth = 1090 ClientWidth = 1090
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = False
@ -364,12 +370,12 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = pnlKeys AnchorSideBottom.Control = pnlKeys
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 545 Left = 545
Height = 266 Height = 263
Top = 0 Top = 0
Width = 545 Width = 545
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 266 ClientHeight = 263
ClientWidth = 545 ClientWidth = 545
TabOrder = 1 TabOrder = 1
object divKeyAdd: TDividerBevel object divKeyAdd: TDividerBevel