mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-10-31 07:02:55 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			569 lines
		
	
	
		
			14 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			569 lines
		
	
	
		
			14 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| object FPDocEditor: TFPDocEditor
 | |
|   Left = 284
 | |
|   Height = 156
 | |
|   Top = 355
 | |
|   Width = 753
 | |
|   ActiveControl = ShortPanel
 | |
|   Caption = 'FPDoc editor'
 | |
|   ClientHeight = 156
 | |
|   ClientWidth = 753
 | |
|   KeyPreview = True
 | |
|   OnCreate = FormCreate
 | |
|   OnDestroy = FormDestroy
 | |
|   OnKeyDown = FormKeyDown
 | |
|   LCLVersion = '0.9.29'
 | |
|   object PageControl: TPageControl
 | |
|     Left = 63
 | |
|     Height = 156
 | |
|     Top = 0
 | |
|     Width = 690
 | |
|     ActivePage = DescrTabSheet
 | |
|     Align = alClient
 | |
|     TabIndex = 2
 | |
|     TabOrder = 0
 | |
|     TabPosition = tpBottom
 | |
|     OnChange = PageControlChange
 | |
|     OnPageChanged = PageControlChange
 | |
|     object ShortTabSheet: TTabSheet
 | |
|       Caption = 'ShortTabSheet'
 | |
|       ClientHeight = 129
 | |
|       ClientWidth = 688
 | |
|       object LinkLabel: TLabel
 | |
|         AnchorSideTop.Control = LinkEdit
 | |
|         AnchorSideTop.Side = asrCenter
 | |
|         Left = 6
 | |
|         Height = 18
 | |
|         Top = 33
 | |
|         Width = 60
 | |
|         BorderSpacing.Top = 6
 | |
|         Caption = 'LinkLabel'
 | |
|         ParentColor = False
 | |
|       end
 | |
|       object ShortLabel: TLabel
 | |
|         AnchorSideLeft.Control = ShortTabSheet
 | |
|         AnchorSideTop.Control = ShortEdit
 | |
|         AnchorSideTop.Side = asrCenter
 | |
|         Left = 6
 | |
|         Height = 18
 | |
|         Top = 4
 | |
|         Width = 70
 | |
|         BorderSpacing.Left = 6
 | |
|         Caption = 'ShortLabel'
 | |
|         ParentColor = False
 | |
|       end
 | |
|       object ShortEdit: TEdit
 | |
|         AnchorSideLeft.Control = ShortLabel
 | |
|         AnchorSideLeft.Side = asrBottom
 | |
|         AnchorSideRight.Control = ShortTabSheet
 | |
|         AnchorSideRight.Side = asrBottom
 | |
|         Left = 82
 | |
|         Height = 27
 | |
|         Top = 0
 | |
|         Width = 604
 | |
|         Anchors = [akTop, akLeft, akRight]
 | |
|         AutoSelect = False
 | |
|         BorderSpacing.Left = 6
 | |
|         BorderSpacing.Right = 2
 | |
|         OnChange = ShortEditChange
 | |
|         OnEditingDone = ShortEditEditingDone
 | |
|         TabOrder = 0
 | |
|         Text = 'ShortEdit'
 | |
|       end
 | |
|       object CreateButton: TButton
 | |
|         AnchorSideTop.Control = LinkEdit
 | |
|         AnchorSideTop.Side = asrBottom
 | |
|         Left = 6
 | |
|         Height = 29
 | |
|         Top = 62
 | |
|         Width = 98
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Around = 6
 | |
|         Caption = 'CreateButton'
 | |
|         OnClick = CreateButtonClick
 | |
|         TabOrder = 1
 | |
|       end
 | |
|       object LinkEdit: TEdit
 | |
|         AnchorSideLeft.Control = LinkLabel
 | |
|         AnchorSideLeft.Side = asrBottom
 | |
|         AnchorSideTop.Control = ShortEdit
 | |
|         AnchorSideTop.Side = asrBottom
 | |
|         AnchorSideRight.Control = ShortTabSheet
 | |
|         AnchorSideRight.Side = asrBottom
 | |
|         Left = 72
 | |
|         Height = 27
 | |
|         Top = 29
 | |
|         Width = 614
 | |
|         Anchors = [akTop, akLeft, akRight]
 | |
|         AutoSelect = False
 | |
|         BorderSpacing.Left = 6
 | |
|         BorderSpacing.Top = 2
 | |
|         BorderSpacing.Right = 2
 | |
|         OnChange = LinkEditChange
 | |
|         OnEditingDone = LinkEditEditingDone
 | |
|         TabOrder = 2
 | |
|         Text = 'LinkEdit'
 | |
|       end
 | |
|     end
 | |
|     object InheritedTabSheet: TTabSheet
 | |
|       Caption = 'InheritedTabSheet'
 | |
|       ClientHeight = 99
 | |
|       ClientWidth = 688
 | |
|       object InheritedShortLabel: TLabel
 | |
|         Left = 0
 | |
|         Height = 14
 | |
|         Top = 2
 | |
|         Width = 688
 | |
|         Align = alTop
 | |
|         BorderSpacing.Top = 2
 | |
|         Caption = 'InheritedShortLabel'
 | |
|         ParentColor = False
 | |
|       end
 | |
|       object InheritedShortEdit: TEdit
 | |
|         AnchorSideLeft.Control = InheritedTabSheet
 | |
|         AnchorSideTop.Control = InheritedShortLabel
 | |
|         AnchorSideTop.Side = asrBottom
 | |
|         AnchorSideRight.Control = InheritedTabSheet
 | |
|         AnchorSideRight.Side = asrBottom
 | |
|         Left = 0
 | |
|         Height = 21
 | |
|         Top = 18
 | |
|         Width = 688
 | |
|         Anchors = [akTop, akLeft, akRight]
 | |
|         BorderSpacing.Top = 2
 | |
|         ReadOnly = True
 | |
|         TabOrder = 0
 | |
|         Text = 'InheritedShortEdit'
 | |
|       end
 | |
|       object MoveToInheritedButton: TButton
 | |
|         AnchorSideTop.Control = InheritedShortEdit
 | |
|         AnchorSideTop.Side = asrBottom
 | |
|         Left = 0
 | |
|         Height = 23
 | |
|         Top = 45
 | |
|         Width = 140
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Around = 6
 | |
|         Caption = 'MoveToInheritedButton'
 | |
|         OnClick = MoveToInheritedButtonClick
 | |
|         TabOrder = 1
 | |
|       end
 | |
|       object CopyFromInheritedButton: TButton
 | |
|         AnchorSideLeft.Control = MoveToInheritedButton
 | |
|         AnchorSideLeft.Side = asrBottom
 | |
|         AnchorSideTop.Control = MoveToInheritedButton
 | |
|         AnchorSideTop.Side = asrCenter
 | |
|         Left = 150
 | |
|         Height = 23
 | |
|         Top = 45
 | |
|         Width = 151
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Left = 10
 | |
|         Caption = 'CopyFromInheritedButton'
 | |
|         OnClick = CopyFromInheritedButtonClick
 | |
|         TabOrder = 2
 | |
|       end
 | |
|       object AddLinkToInheritedButton: TButton
 | |
|         AnchorSideLeft.Control = CopyFromInheritedButton
 | |
|         AnchorSideLeft.Side = asrBottom
 | |
|         AnchorSideTop.Control = CopyFromInheritedButton
 | |
|         Left = 311
 | |
|         Height = 23
 | |
|         Top = 45
 | |
|         Width = 151
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Left = 10
 | |
|         Caption = 'AddLinkToInheritedButton'
 | |
|         OnClick = AddLinkToInheritedButtonClick
 | |
|         TabOrder = 3
 | |
|       end
 | |
|     end
 | |
|     object DescrTabSheet: TTabSheet
 | |
|       Caption = 'DescrTabSheet'
 | |
|       ClientHeight = 129
 | |
|       ClientWidth = 688
 | |
|       object DescrMemo: TMemo
 | |
|         Left = 0
 | |
|         Height = 96
 | |
|         Top = 29
 | |
|         Width = 686
 | |
|         Align = alClient
 | |
|         BorderSpacing.Right = 2
 | |
|         BorderSpacing.Bottom = 4
 | |
|         Lines.Strings = (
 | |
|           'DescrMemo'
 | |
|         )
 | |
|         OnChange = DescrMemoChange
 | |
|         OnEditingDone = DescrMemoEditingDone
 | |
|         TabOrder = 0
 | |
|       end
 | |
|       object ShortPanel: TPanel
 | |
|         Left = 0
 | |
|         Height = 29
 | |
|         Top = 0
 | |
|         Width = 688
 | |
|         Align = alTop
 | |
|         Alignment = taLeftJustify
 | |
|         AutoSize = True
 | |
|         Caption = 'Short'
 | |
|         ClientHeight = 29
 | |
|         ClientWidth = 688
 | |
|         TabOrder = 1
 | |
|         object ShortEdit2: TEdit
 | |
|           AnchorSideLeft.Control = ShortPanel
 | |
|           AnchorSideRight.Side = asrBottom
 | |
|           Left = 60
 | |
|           Height = 27
 | |
|           Top = 1
 | |
|           Width = 625
 | |
|           Align = alRight
 | |
|           Anchors = [akTop, akLeft, akRight, akBottom]
 | |
|           AutoSelect = False
 | |
|           BorderSpacing.Left = 60
 | |
|           BorderSpacing.Right = 2
 | |
|           OnChange = ShortEditChange
 | |
|           OnEditingDone = ShortEditEditingDone
 | |
|           ReadOnly = True
 | |
|           TabOrder = 0
 | |
|           Text = 'ShortEdit'
 | |
|         end
 | |
|       end
 | |
|     end
 | |
|     object ErrorsTabSheet: TTabSheet
 | |
|       Caption = 'ErrorsTabSheet'
 | |
|       ClientHeight = 99
 | |
|       ClientWidth = 688
 | |
|       object ErrorsMemo: TMemo
 | |
|         Left = 0
 | |
|         Height = 95
 | |
|         Top = 0
 | |
|         Width = 686
 | |
|         Align = alClient
 | |
|         BorderSpacing.Right = 2
 | |
|         BorderSpacing.Bottom = 4
 | |
|         Lines.Strings = (
 | |
|           'ErrorsMemo'
 | |
|         )
 | |
|         OnChange = ErrorsMemoChange
 | |
|         OnEditingDone = ErrorsMemoEditingDone
 | |
|         TabOrder = 0
 | |
|       end
 | |
|     end
 | |
|     object SeeAlsoTabSheet: TTabSheet
 | |
|       Caption = 'SeeAlsoTabSheet'
 | |
|       ClientHeight = 99
 | |
|       ClientWidth = 688
 | |
|       object SeeAlsoMemo: TMemo
 | |
|         Left = 0
 | |
|         Height = 99
 | |
|         Top = 0
 | |
|         Width = 688
 | |
|         Align = alClient
 | |
|         Lines.Strings = (
 | |
|           'SeeAlsoMemo'
 | |
|         )
 | |
|         OnChange = SeeAlsoMemoChange
 | |
|         OnEditingDone = SeeAlsoMemoEditingDone
 | |
|         TabOrder = 0
 | |
|       end
 | |
|     end
 | |
|     object ExampleTabSheet: TTabSheet
 | |
|       Caption = 'ExampleTabSheet'
 | |
|       ClientHeight = 99
 | |
|       ClientWidth = 688
 | |
|       object ExampleEdit: TEdit
 | |
|         Left = 0
 | |
|         Height = 21
 | |
|         Top = 0
 | |
|         Width = 686
 | |
|         Align = alTop
 | |
|         AutoSelect = False
 | |
|         BorderSpacing.Right = 2
 | |
|         OnChange = ExampleEditChange
 | |
|         OnEditingDone = ExampleEditEditingDone
 | |
|         TabOrder = 0
 | |
|         Text = 'ExampleEdit'
 | |
|       end
 | |
|       object BrowseExampleButton: TButton
 | |
|         AnchorSideTop.Control = ExampleEdit
 | |
|         AnchorSideTop.Side = asrBottom
 | |
|         AnchorSideRight.Control = ExampleTabSheet
 | |
|         AnchorSideRight.Side = asrBottom
 | |
|         Left = 549
 | |
|         Height = 23
 | |
|         Top = 27
 | |
|         Width = 133
 | |
|         Anchors = [akTop, akRight]
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Around = 6
 | |
|         Caption = 'BrowseExampleButton'
 | |
|         OnClick = BrowseExampleButtonClick
 | |
|         TabOrder = 1
 | |
|       end
 | |
|     end
 | |
|     object TopicSheet: TTabSheet
 | |
|       Caption = 'Topics'
 | |
|       ClientHeight = 99
 | |
|       ClientWidth = 688
 | |
|       object Panel1: TPanel
 | |
|         Left = 518
 | |
|         Height = 99
 | |
|         Top = 0
 | |
|         Width = 170
 | |
|         Align = alRight
 | |
|         BorderSpacing.Left = 5
 | |
|         BevelOuter = bvNone
 | |
|         ClientHeight = 99
 | |
|         ClientWidth = 170
 | |
|         TabOrder = 0
 | |
|         object Panel2: TPanel
 | |
|           Left = 0
 | |
|           Height = 25
 | |
|           Top = 0
 | |
|           Width = 170
 | |
|           Align = alTop
 | |
|           AutoSize = True
 | |
|           BevelOuter = bvNone
 | |
|           ClientHeight = 25
 | |
|           ClientWidth = 170
 | |
|           TabOrder = 0
 | |
|           object NewTopicButton: TButton
 | |
|             Left = 100
 | |
|             Height = 25
 | |
|             Top = 0
 | |
|             Width = 70
 | |
|             Align = alRight
 | |
|             AutoSize = True
 | |
|             Caption = 'New'
 | |
|             OnClick = NewTopicButtonClick
 | |
|             TabOrder = 0
 | |
|           end
 | |
|           object NewTopicNameEdit: TEdit
 | |
|             Left = 0
 | |
|             Height = 25
 | |
|             Top = 0
 | |
|             Width = 95
 | |
|             Align = alClient
 | |
|             BorderSpacing.Right = 5
 | |
|             OnEnter = TopicControlEnter
 | |
|             TabOrder = 1
 | |
|           end
 | |
|         end
 | |
|         object TopicListBox: TListBox
 | |
|           Left = 0
 | |
|           Height = 69
 | |
|           Top = 30
 | |
|           Width = 170
 | |
|           Align = alClient
 | |
|           BorderSpacing.Top = 5
 | |
|           ItemHeight = 0
 | |
|           OnClick = TopicListBoxClick
 | |
|           OnEnter = TopicControlEnter
 | |
|           TabOrder = 1
 | |
|           TopIndex = -1
 | |
|         end
 | |
|       end
 | |
|       object Panel3: TPanel
 | |
|         Left = 0
 | |
|         Height = 99
 | |
|         Top = 0
 | |
|         Width = 513
 | |
|         Align = alClient
 | |
|         BevelOuter = bvNone
 | |
|         ClientHeight = 99
 | |
|         ClientWidth = 513
 | |
|         TabOrder = 1
 | |
|         object TopicShort: TEdit
 | |
|           Left = 0
 | |
|           Height = 22
 | |
|           Top = 0
 | |
|           Width = 513
 | |
|           Align = alTop
 | |
|           AutoSelect = False
 | |
|           OnChange = TopicDescrChange
 | |
|           OnEnter = TopicControlEnter
 | |
|           TabOrder = 0
 | |
|         end
 | |
|         object TopicDescr: TMemo
 | |
|           Left = 0
 | |
|           Height = 72
 | |
|           Top = 27
 | |
|           Width = 513
 | |
|           Align = alClient
 | |
|           BorderSpacing.Top = 5
 | |
|           OnChange = TopicDescrChange
 | |
|           OnEnter = TopicControlEnter
 | |
|           TabOrder = 1
 | |
|         end
 | |
|       end
 | |
|     end
 | |
|   end
 | |
|   object LeftBtnPanel: TPanel
 | |
|     Left = 0
 | |
|     Height = 156
 | |
|     Top = 0
 | |
|     Width = 63
 | |
|     Align = alLeft
 | |
|     AutoSize = True
 | |
|     BevelOuter = bvNone
 | |
|     ChildSizing.Layout = cclLeftToRightThenTopToBottom
 | |
|     ChildSizing.ControlsPerLine = 3
 | |
|     ClientHeight = 156
 | |
|     ClientWidth = 63
 | |
|     FullRepaint = False
 | |
|     ParentShowHint = False
 | |
|     ShowHint = True
 | |
|     TabOrder = 1
 | |
|     object BoldFormatButton: TSpeedButton
 | |
|       Left = 0
 | |
|       Height = 23
 | |
|       Top = 0
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|     end
 | |
|     object ItalicFormatButton: TSpeedButton
 | |
|       Tag = 1
 | |
|       Left = 20
 | |
|       Height = 23
 | |
|       Top = 0
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|     end
 | |
|     object UnderlineFormatButton: TSpeedButton
 | |
|       Tag = 2
 | |
|       Left = 40
 | |
|       Height = 23
 | |
|       Top = 0
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|     end
 | |
|     object InsertVarTagButton: TSpeedButton
 | |
|       Tag = 5
 | |
|       Left = 0
 | |
|       Height = 23
 | |
|       Top = 23
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|     end
 | |
|     object InsertParagraphSpeedButton: TSpeedButton
 | |
|       Tag = 6
 | |
|       Left = 20
 | |
|       Height = 23
 | |
|       Top = 23
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Caption = 'P'
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|     end
 | |
|     object InsertLinkSpeedButton: TSpeedButton
 | |
|       Left = 40
 | |
|       Height = 23
 | |
|       Top = 23
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Caption = 'Li'
 | |
|       Color = clBtnFace
 | |
|       Enabled = False
 | |
|       NumGlyphs = 0
 | |
|       OnClick = InsertLinkSpeedButtonClick
 | |
|       ShowHint = True
 | |
|       ParentShowHint = False
 | |
|     end
 | |
|     object InsertCodeTagButton: TSpeedButton
 | |
|       Tag = 3
 | |
|       Left = 0
 | |
|       Height = 23
 | |
|       Top = 46
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|       ShowHint = True
 | |
|       ParentShowHint = False
 | |
|     end
 | |
|     object InsertRemarkButton: TSpeedButton
 | |
|       Tag = 4
 | |
|       Left = 20
 | |
|       Height = 23
 | |
|       Top = 46
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|       ShowHint = True
 | |
|       ParentShowHint = False
 | |
|     end
 | |
|     object InsertPrintShortSpeedButton: TSpeedButton
 | |
|       Tag = 7
 | |
|       Left = 40
 | |
|       Height = 23
 | |
|       Top = 46
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Caption = 'PS'
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|       ShowHint = True
 | |
|       ParentShowHint = False
 | |
|     end
 | |
|     object InsertURLTagSpeedButton: TSpeedButton
 | |
|       Tag = 8
 | |
|       Left = 0
 | |
|       Height = 23
 | |
|       Top = 69
 | |
|       Width = 20
 | |
|       Constraints.MaxHeight = 23
 | |
|       Constraints.MaxWidth = 20
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = FormatButtonClick
 | |
|       ShowHint = True
 | |
|       ParentShowHint = False
 | |
|     end
 | |
|     object SaveButton: TSpeedButton
 | |
|       AnchorSideLeft.Side = asrBottom
 | |
|       Left = 0
 | |
|       Height = 29
 | |
|       Top = 127
 | |
|       Width = 63
 | |
|       Align = alBottom
 | |
|       Caption = 'Save'
 | |
|       Color = clBtnFace
 | |
|       NumGlyphs = 0
 | |
|       OnClick = SaveButtonClick
 | |
|     end
 | |
|   end
 | |
|   object OpenDialog: TOpenDialog
 | |
|     Title = 'Open example file'
 | |
|     Filter = 'pascal file|*.pas; *.pp; *.p'
 | |
|     FilterIndex = 0
 | |
|     left = 240
 | |
|     top = 16
 | |
|   end
 | |
| end
 | 
