paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 13:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/FPDocWnd: Use TFlowPanel for buttons on the "Inherited" tab

Browse Source
This commit is contained in:
n7800 2025-06-12 07:02:47 +05:00
parent 305c953532
commit 2a163db53a
2 changed files with 67 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
ide/fpdoceditwindow.lfm
View File

@ -148,47 +148,77 @@ object FPDocEditor: TFPDocEditor
TabOrder = 0
Text = 'InheritedShortEdit'
end
object MoveToInheritedButton: TButton
object InheritedFlowPanel: TFlowPanel
AnchorSideLeft.Control = InheritedTabSheet
AnchorSideTop.Control = InheritedShortEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = InheritedTabSheet
AnchorSideRight.Side = asrBottom
Left = 0
Height = 30
Top = 54
Width = 161
Height = 29
Top = 38
Width = 796
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'MoveToInheritedButton'
BevelOuter = bvNone
ControlList = <
item
Control = MoveToInheritedButton
WrapAfter = waAuto
Index = 0
end
item
Control = CopyFromInheritedButton
WrapAfter = waAuto
Index = 1
end
item
Control = AddLinkToInheritedButton
WrapAfter = waAuto
Index = 2
end>
FlowLayout = tlTop
FlowStyle = fsLeftRightTopBottom
TabOrder = 1
OnClick = MoveToInheritedButtonClick
end
object CopyFromInheritedButton: TButton
AnchorSideLeft.Control = MoveToInheritedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MoveToInheritedButton
AnchorSideTop.Side = asrCenter
Left = 171
Height = 30
Top = 54
Width = 174
AutoSize = True
BorderSpacing.Left = 10
Caption = 'CopyFromInheritedButton'
TabOrder = 2
OnClick = CopyFromInheritedButtonClick
end
object AddLinkToInheritedButton: TButton
AnchorSideLeft.Control = CopyFromInheritedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CopyFromInheritedButton
Left = 355
Height = 30
Top = 54
Width = 177
AutoSize = True
BorderSpacing.Left = 10
Caption = 'AddLinkToInheritedButton'
TabOrder = 3
OnClick = AddLinkToInheritedButtonClick
object MoveToInheritedButton: TButton
Left = 0
Height = 23
Top = 6
Width = 140
Align = alLeft
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'MoveToInheritedButton'
TabOrder = 0
OnClick = MoveToInheritedButtonClick
end
object CopyFromInheritedButton: TButton
Left = 146
Height = 23
Top = 6
Width = 151
Align = alLeft
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'CopyFromInheritedButton'
TabOrder = 1
OnClick = CopyFromInheritedButtonClick
end
object AddLinkToInheritedButton: TButton
Left = 303
Height = 23
Top = 6
Width = 151
Align = alLeft
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'AddLinkToInheritedButton'
TabOrder = 2
OnClick = AddLinkToInheritedButtonClick
end
end
end
object DescrTabSheet: TTabSheet

1
ide/fpdoceditwindow.pas
View File

@ -90,6 +90,7 @@ type
ErrorsTabSheet: TTabSheet;
ExampleEdit: TEdit;
ExampleTabSheet: TTabSheet;
InheritedFlowPanel: TFlowPanel;
InheritedShortEdit: TEdit;
InheritedShortLabel: TLabel;
InheritedTabSheet: TTabSheet;