paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 09:18:02 +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.Side = asrBottom
Left = 6
Height = 22
Height = 25
Top = 50
Width = 75
AutoSize = True
BorderSpacing.Around = 6
Caption = 'btnAdd'
Constraints.MinWidth = 75
TabOrder = 1
OnClick = tbAddNewClick
end
@ -58,11 +60,13 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAdd
Left = 93
Height = 22
Height = 25
Top = 50
Width = 75
AutoSize = True
BorderSpacing.Left = 12
Caption = 'btnCopy'
Constraints.MinWidth = 75
TabOrder = 2
OnClick = tbCopyClick
end
@ -70,13 +74,15 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideTop.Control = btnAdd
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 451
Height = 22
Left = 449
Height = 25
Top = 50
Width = 75
Width = 77
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'btnDelete'
Constraints.MinWidth = 75
TabOrder = 3
OnClick = tbDeleteClick
end
@ -88,7 +94,7 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 78
Top = 81
Width = 532
Caption = 'divEditBackend'
Anchors = [akTop, akLeft, akRight]
@ -104,12 +110,12 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 341
Top = 93
Height = 338
Top = 96
Width = 532
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 341
ClientHeight = 338
ClientWidth = 532
TabOrder = 0
object lblName: TLabel
@ -304,7 +310,7 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 113
Height = 110
Top = 228
Width = 532
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.Side = asrBottom
Left = 6
Height = 22
Height = 25
Top = 56
Width = 75
AutoSize = True
BorderSpacing.Around = 6
Caption = 'btnAdd'
Constraints.MinWidth = 75
TabOrder = 1
OnClick = tbNewListClick
end
@ -59,11 +61,13 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAdd
Left = 93
Height = 22
Height = 25
Top = 56
Width = 75
AutoSize = True
BorderSpacing.Left = 12
Caption = 'btnCopy'
Constraints.MinWidth = 75
TabOrder = 2
Visible = False
end
@ -74,12 +78,14 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 174
Height = 22
Height = 25
Top = 56
Width = 75
Width = 77
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'btnDelete'
Constraints.MinWidth = 75
TabOrder = 3
OnClick = tbDeleteListClick
end
@ -91,7 +97,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 15
Top = 84
Top = 87
Width = 544
Caption = 'divEditGroup'
Anchors = [akTop, akLeft, akRight]
@ -108,14 +114,14 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 536
Top = 105
Height = 533
Top = 108
Width = 556
HorzScrollBar.Page = 556
VertScrollBar.Page = 470
VertScrollBar.Page = 334
Anchors = [akTop, akLeft, akRight, akBottom]
BorderStyle = bsNone
ClientHeight = 519
ClientHeight = 516
ClientWidth = 556
TabOrder = 4
object lbListName: TLabel
@ -184,7 +190,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = MainPanel
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 294
Height = 291
Top = 219
Width = 1098
ActivePage = tabMain
@ -195,17 +201,17 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
OnChange = PageControl1Change
object tabMain: TTabSheet
Caption = 'tabMain'
ClientHeight = 266
ClientHeight = 263
ClientWidth = 1090
object pnlMain: TPanel
Left = 0
Height = 266
Height = 263
Top = 0
Width = 1090
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 266
ClientHeight = 263
ClientWidth = 1090
ParentBackground = False
ParentColor = False
@ -228,7 +234,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = pnlMain
AnchorSideBottom.Side = asrBottom
Left = 551
Height = 254
Height = 251
Top = 6
Width = 533
Anchors = [akTop, akLeft, akRight, akBottom]
@ -239,7 +245,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
Columns = <
item
Title.Caption = 'Title'
Width = 504
Width = 487
end
item
ButtonStyle = cbsButtonColumn
@ -260,7 +266,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
OnKeyUp = WordListKeyUp
OnSelection = WordListSelection
ColWidths = (
504
487
25
)
end
@ -306,17 +312,17 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
end
object tabKeys: TTabSheet
Caption = 'tabKeys'
ClientHeight = 266
ClientHeight = 263
ClientWidth = 1090
object pnlKeys: TPanel
Left = 0
Height = 266
Height = 263
Top = 0
Width = 1090
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 266
ClientHeight = 263
ClientWidth = 1090
ParentBackground = False
ParentColor = False
@ -364,12 +370,12 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
AnchorSideBottom.Control = pnlKeys
AnchorSideBottom.Side = asrBottom
Left = 545
Height = 266
Height = 263
Top = 0
Width = 545
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 266
ClientHeight = 263
ClientWidth = 545
TabOrder = 1
object divKeyAdd: TDividerBevel