mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-10-31 18:01:44 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			422 lines
		
	
	
		
			11 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			422 lines
		
	
	
		
			11 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| object FPDocEditor: TFPDocEditor
 | |
|   Left = 515
 | |
|   Height = 126
 | |
|   Top = 761
 | |
|   Width = 753
 | |
|   ActiveControl = LeftBtnPanel
 | |
|   Caption = 'FPDoc editor'
 | |
|   ClientHeight = 126
 | |
|   ClientWidth = 753
 | |
|   KeyPreview = True
 | |
|   OnCreate = FormCreate
 | |
|   OnDestroy = FormDestroy
 | |
|   OnKeyDown = FormKeyDown
 | |
|   OnResize = FormResize
 | |
|   LCLVersion = '0.9.29'
 | |
|   object PageControl: TPageControl
 | |
|     Left = 60
 | |
|     Height = 126
 | |
|     Top = 0
 | |
|     Width = 693
 | |
|     ActivePage = ShortTabSheet
 | |
|     Align = alClient
 | |
|     TabIndex = 0
 | |
|     TabOrder = 0
 | |
|     TabPosition = tpBottom
 | |
|     OnChange = PageControlChange
 | |
|     OnPageChanged = PageControlChange
 | |
|     object ShortTabSheet: TTabSheet
 | |
|       Caption = 'ShortTabSheet'
 | |
|       ClientHeight = 95
 | |
|       ClientWidth = 689
 | |
|       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 = 605
 | |
|         Anchors = [akTop, akLeft, akRight]
 | |
|         BorderSpacing.Left = 6
 | |
|         BorderSpacing.Right = 2
 | |
|         OnChange = ShortEditEditingDone
 | |
|         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 = 615
 | |
|         Anchors = [akTop, akLeft, akRight]
 | |
|         BorderSpacing.Left = 6
 | |
|         BorderSpacing.Top = 2
 | |
|         BorderSpacing.Right = 2
 | |
|         OnChange = LinkEditEditingDone
 | |
|         OnEditingDone = LinkEditEditingDone
 | |
|         TabOrder = 2
 | |
|         Text = 'LinkEdit'
 | |
|       end
 | |
|     end
 | |
|     object InheritedTabSheet: TTabSheet
 | |
|       Caption = 'InheritedTabSheet'
 | |
|       ClientHeight = 181
 | |
|       ClientWidth = 656
 | |
|       object InheritedShortLabel: TLabel
 | |
|         Left = 0
 | |
|         Height = 14
 | |
|         Top = 2
 | |
|         Width = 656
 | |
|         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 = 27
 | |
|         Top = 18
 | |
|         Width = 656
 | |
|         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 = 51
 | |
|         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 = 51
 | |
|         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 = 51
 | |
|         Width = 151
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Left = 10
 | |
|         Caption = 'AddLinkToInheritedButton'
 | |
|         OnClick = AddLinkToInheritedButtonClick
 | |
|         TabOrder = 3
 | |
|       end
 | |
|     end
 | |
|     object DescrTabSheet: TTabSheet
 | |
|       Caption = 'DescrTabSheet'
 | |
|       ClientHeight = 181
 | |
|       ClientWidth = 656
 | |
|       object DescrMemo: TMemo
 | |
|         Left = 0
 | |
|         Height = 177
 | |
|         Top = 0
 | |
|         Width = 654
 | |
|         Align = alClient
 | |
|         BorderSpacing.Right = 2
 | |
|         BorderSpacing.Bottom = 4
 | |
|         Lines.Strings = (
 | |
|           'DescrMemo'
 | |
|         )
 | |
|         OnChange = DescrMemoChange
 | |
|         TabOrder = 0
 | |
|       end
 | |
|     end
 | |
|     object ErrorsTabSheet: TTabSheet
 | |
|       Caption = 'ErrorsTabSheet'
 | |
|       ClientHeight = 181
 | |
|       ClientWidth = 656
 | |
|       object ErrorsMemo: TMemo
 | |
|         Left = 0
 | |
|         Height = 177
 | |
|         Top = 0
 | |
|         Width = 654
 | |
|         Align = alClient
 | |
|         BorderSpacing.Right = 2
 | |
|         BorderSpacing.Bottom = 4
 | |
|         Lines.Strings = (
 | |
|           'ErrorsMemo'
 | |
|         )
 | |
|         OnChange = ErrorsMemoChange
 | |
|         TabOrder = 0
 | |
|       end
 | |
|     end
 | |
|     object SeeAlsoTabSheet: TTabSheet
 | |
|       Caption = 'SeeAlsoTabSheet'
 | |
|       ClientHeight = 181
 | |
|       ClientWidth = 656
 | |
|       object SeeAlsoMemo: TMemo
 | |
|         Left = 0
 | |
|         Height = 181
 | |
|         Top = 0
 | |
|         Width = 656
 | |
|         Align = alClient
 | |
|         Lines.Strings = (
 | |
|           'SeeAlsoMemo'
 | |
|         )
 | |
|         OnEditingDone = SeeAlsoMemoEditingDone
 | |
|         TabOrder = 0
 | |
|       end
 | |
|     end
 | |
|     object ExampleTabSheet: TTabSheet
 | |
|       Caption = 'ExampleTabSheet'
 | |
|       ClientHeight = 181
 | |
|       ClientWidth = 656
 | |
|       object ExampleEdit: TEdit
 | |
|         Left = 0
 | |
|         Height = 27
 | |
|         Top = 0
 | |
|         Width = 654
 | |
|         Align = alTop
 | |
|         BorderSpacing.Right = 2
 | |
|         OnChange = ExampleEditChange
 | |
|         TabOrder = 0
 | |
|         Text = 'ExampleEdit'
 | |
|       end
 | |
|       object BrowseExampleButton: TButton
 | |
|         AnchorSideTop.Control = ExampleEdit
 | |
|         AnchorSideTop.Side = asrBottom
 | |
|         AnchorSideRight.Control = ExampleTabSheet
 | |
|         AnchorSideRight.Side = asrBottom
 | |
|         Left = 517
 | |
|         Height = 23
 | |
|         Top = 33
 | |
|         Width = 133
 | |
|         Anchors = [akTop, akRight]
 | |
|         AutoSize = True
 | |
|         BorderSpacing.Around = 6
 | |
|         Caption = 'BrowseExampleButton'
 | |
|         OnClick = BrowseExampleButtonClick
 | |
|         TabOrder = 1
 | |
|       end
 | |
|     end
 | |
|   end
 | |
|   object LeftBtnPanel: TPanel
 | |
|     Left = 0
 | |
|     Height = 126
 | |
|     Top = 0
 | |
|     Width = 60
 | |
|     Align = alLeft
 | |
|     AutoSize = True
 | |
|     BevelOuter = bvNone
 | |
|     ChildSizing.Layout = cclLeftToRightThenTopToBottom
 | |
|     ChildSizing.ControlsPerLine = 3
 | |
|     ClientHeight = 126
 | |
|     ClientWidth = 60
 | |
|     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 SaveButton: TSpeedButton
 | |
|       AnchorSideLeft.Side = asrBottom
 | |
|       Left = 0
 | |
|       Height = 29
 | |
|       Top = 97
 | |
|       Width = 60
 | |
|       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
 | 
