IDE: fpdoc editor: fixed cancelling adding new link

git-svn-id: trunk@21019 -
This commit is contained in:
mattias 2009-07-31 13:38:37 +00:00
parent 505244a52c
commit 0579ec74fb
6 changed files with 370 additions and 239 deletions

View File

@ -3,18 +3,18 @@ object FPDocEditor: TFPDocEditor
Height = 126
Top = 548
Width = 753
ActiveControl = ShortEdit
ActiveControl = LeftBtnPanel
Caption = 'FPDoc editor'
ClientHeight = 126
ClientWidth = 753
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
ParentFont = False
LCLVersion = '0.9.25'
LCLVersion = '0.9.27'
object PageControl: TPageControl
Left = 40
Height = 126
Top = 0
Width = 713
ActivePage = ShortTabSheet
Align = alClient
@ -25,15 +25,15 @@ object FPDocEditor: TFPDocEditor
OnPageChanged = PageControlChange
object ShortTabSheet: TTabSheet
Caption = 'ShortTabSheet'
ClientHeight = 100
ClientWidth = 705
ClientHeight = 99
ClientWidth = 711
object LinkLabel: TLabel
AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 35
Width = 44
Height = 18
Top = 33
Width = 60
BorderSpacing.Top = 6
Caption = 'LinkLabel'
ParentColor = False
@ -43,9 +43,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = ShortEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 6
Width = 52
Height = 18
Top = 4
Width = 70
BorderSpacing.Left = 6
Caption = 'ShortLabel'
ParentColor = False
@ -55,11 +55,11 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom
Left = 64
Left = 82
Height = 27
Width = 639
Top = 0
Width = 627
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 2
OnChange = ShortEditEditingDone
@ -71,9 +71,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Height = 29
Top = 62
Width = 91
Width = 98
AutoSize = True
BorderSpacing.Around = 6
Caption = 'CreateButton'
@ -84,10 +84,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Control = CreateButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CreateButton
Left = 103
Height = 23
Left = 110
Height = 29
Top = 62
Width = 82
Width = 87
AutoSize = True
BorderSpacing.Left = 6
Caption = 'SaveButton'
@ -101,12 +101,11 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom
Left = 56
Left = 72
Height = 27
Top = 29
Width = 647
Width = 637
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 2
@ -118,12 +117,13 @@ object FPDocEditor: TFPDocEditor
end
object InheritedTabSheet: TTabSheet
Caption = 'InheritedTabSheet'
ClientHeight = 100
ClientWidth = 705
ClientHeight = 99
ClientWidth = 711
object InheritedShortLabel: TLabel
Left = 0
Height = 14
Top = 2
Width = 705
Width = 711
Align = alTop
BorderSpacing.Top = 2
Caption = 'InheritedShortLabel'
@ -135,11 +135,11 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = InheritedTabSheet
AnchorSideRight.Side = asrBottom
Left = 0
Height = 27
Top = 18
Width = 705
Width = 711
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 2
ReadOnly = True
TabOrder = 0
@ -148,6 +148,7 @@ object FPDocEditor: TFPDocEditor
object MoveToInheritedButton: TButton
AnchorSideTop.Control = InheritedShortEdit
AnchorSideTop.Side = asrBottom
Left = 0
Height = 23
Top = 51
Width = 140
@ -189,11 +190,13 @@ object FPDocEditor: TFPDocEditor
end
object DescrTabSheet: TTabSheet
Caption = 'DescrTabSheet'
ClientHeight = 100
ClientWidth = 705
ClientHeight = 99
ClientWidth = 711
object DescrMemo: TMemo
Height = 96
Width = 703
Left = 0
Height = 95
Top = 0
Width = 709
Align = alClient
BorderSpacing.Right = 2
BorderSpacing.Bottom = 4
@ -206,11 +209,13 @@ object FPDocEditor: TFPDocEditor
end
object ErrorsTabSheet: TTabSheet
Caption = 'ErrorsTabSheet'
ClientHeight = 100
ClientWidth = 705
ClientHeight = 99
ClientWidth = 711
object ErrorsMemo: TMemo
Height = 96
Width = 703
Left = 0
Height = 95
Top = 0
Width = 709
Align = alClient
BorderSpacing.Right = 2
BorderSpacing.Bottom = 4
@ -223,26 +228,30 @@ object FPDocEditor: TFPDocEditor
end
object SeeAlsoTabSheet: TTabSheet
Caption = 'SeeAlsoTabSheet'
ClientHeight = 100
ClientWidth = 705
ClientHeight = 99
ClientWidth = 711
object LinkListBox: TListBox
AnchorSideTop.Control = AddLinkButton
AnchorSideTop.Side = asrBottom
Height = 69
Left = 0
Height = 68
Top = 27
Width = 703
Width = 709
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 2
BorderSpacing.Bottom = 4
ItemHeight = 0
OnClick = LinkListBoxClick
TabOrder = 0
TopIndex = -1
end
object AddLinkButton: TButton
AnchorSideRight.Control = DeleteLinkButton
Left = 495
Left = 501
Height = 23
Top = 0
Width = 95
Anchors = [akTop, akRight]
AutoSize = True
@ -254,8 +263,9 @@ object FPDocEditor: TFPDocEditor
object DeleteLinkButton: TButton
AnchorSideRight.Control = SeeAlsoTabSheet
AnchorSideRight.Side = asrBottom
Left = 596
Left = 602
Height = 23
Top = 0
Width = 107
Anchors = [akTop, akRight]
AutoSize = True
@ -271,9 +281,8 @@ object FPDocEditor: TFPDocEditor
Left = 229
Height = 27
Top = 1
Width = 262
Width = 268
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Right = 4
OnChange = LinkChange
@ -281,10 +290,11 @@ object FPDocEditor: TFPDocEditor
Text = 'LinkTextEdit'
end
object LinkIdComboBox: TComboBox
Left = 0
Height = 21
Top = 1
Width = 225
ItemHeight = 13
ItemHeight = 0
OnChange = LinkChange
TabOrder = 4
Text = 'LinkIdComboBox'
@ -292,13 +302,14 @@ object FPDocEditor: TFPDocEditor
end
object ExampleTabSheet: TTabSheet
Caption = 'ExampleTabSheet'
ClientHeight = 100
ClientWidth = 705
ClientHeight = 99
ClientWidth = 711
object ExampleEdit: TEdit
Left = 0
Height = 27
Width = 703
Top = 0
Width = 709
Align = alTop
AutoSize = True
BorderSpacing.Right = 2
OnChange = ExampleEditChange
TabOrder = 0
@ -309,7 +320,7 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ExampleTabSheet
AnchorSideRight.Side = asrBottom
Left = 566
Left = 572
Height = 23
Top = 33
Width = 133
@ -323,7 +334,9 @@ object FPDocEditor: TFPDocEditor
end
end
object LeftBtnPanel: TPanel
Left = 0
Height = 126
Top = 0
Width = 20
Align = alLeft
BevelOuter = bvNone
@ -334,7 +347,9 @@ object FPDocEditor: TFPDocEditor
ShowHint = True
TabOrder = 1
object BoldFormatButton: TSpeedButton
Left = 0
Height = 23
Top = 0
Width = 20
Align = alTop
Color = clBtnFace
@ -343,6 +358,7 @@ object FPDocEditor: TFPDocEditor
end
object ItalicFormatButton: TSpeedButton
Tag = 1
Left = 0
Height = 23
Top = 46
Width = 20
@ -353,6 +369,7 @@ object FPDocEditor: TFPDocEditor
end
object UnderlineFormatButton: TSpeedButton
Tag = 2
Left = 0
Height = 23
Top = 23
Width = 20
@ -363,6 +380,7 @@ object FPDocEditor: TFPDocEditor
end
object InsertVarTagButton: TSpeedButton
Tag = 5
Left = 0
Height = 23
Top = 92
Width = 20
@ -373,6 +391,7 @@ object FPDocEditor: TFPDocEditor
end
object InsertParagraphSpeedButton: TSpeedButton
Tag = 6
Left = 0
Height = 23
Top = 69
Width = 20
@ -386,6 +405,7 @@ object FPDocEditor: TFPDocEditor
object RightBtnPanel: TPanel
Left = 20
Height = 126
Top = 0
Width = 20
Align = alLeft
BevelOuter = bvNone
@ -393,7 +413,9 @@ object FPDocEditor: TFPDocEditor
ClientWidth = 20
TabOrder = 2
object InsertLinkSpeedButton: TSpeedButton
Left = 0
Height = 23
Top = 0
Width = 20
Align = alTop
Caption = 'Li'
@ -406,6 +428,7 @@ object FPDocEditor: TFPDocEditor
end
object InsertCodeTagButton: TSpeedButton
Tag = 3
Left = 0
Height = 23
Top = 23
Width = 20
@ -418,6 +441,7 @@ object FPDocEditor: TFPDocEditor
end
object InsertRemarkButton: TSpeedButton
Tag = 4
Left = 0
Height = 23
Top = 46
Width = 20

View File

@ -2,139 +2,142 @@
LazarusResources.Add('TFPDocEditor','FORMDATA',[
'TPF0'#12'TFPDocEditor'#11'FPDocEditor'#4'Left'#3'/'#1#6'Height'#2'~'#3'Top'#3
+'$'#2#5'Width'#3#241#2#13'ActiveControl'#7#9'ShortEdit'#7'Caption'#6#12'FPDo'
+'c editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10'Fo'
+'rmCreate'#9'OnDestroy'#7#11'FormDestroy'#8'OnResize'#7#10'FormResize'#10'Pa'
+'rentFont'#8#10'LCLVersion'#6#6'0.9.25'#0#12'TPageControl'#11'PageControl'#4
+'Left'#2'('#6'Height'#2'~'#5'Width'#3#201#2#10'ActivePage'#7#13'ShortTabShee'
+'t'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7
+#8'tpBottom'#8'OnChange'#7#17'PageControlChange'#13'OnPageChanged'#7#17'Page'
+'ControlChange'#0#9'TTabSheet'#13'ShortTabSheet'#7'Caption'#6#13'ShortTabShe'
+'et'#12'ClientHeight'#2'd'#11'ClientWidth'#3#193#2#0#6'TLabel'#9'LinkLabel'
+#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrCente'
+'r'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'#'#5'Width'#2','#17'BorderSpacing.To'
+'p'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#0#0#6'TLabel'#10'ShortLa'
+'bel'#22'AnchorSideLeft.Control'#7#13'ShortTabSheet'#21'AnchorSideTop.Contro'
+'l'#7#9'ShortEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Heigh'
+'t'#2#14#3'Top'#2#6#5'Width'#2'4'#18'BorderSpacing.Left'#2#6#7'Caption'#6#10
+'ShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#9'ShortEdit'#22'AnchorSideLeft.C'
+'ontrol'#7#10'ShortLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSi'
+'deRight.Control'#7#13'ShortTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2'@'#6'Height'#2#27#5'Width'#3''#2#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Righ'
+'t'#2#2#8'OnChange'#7#20'ShortEditEditingDone'#13'OnEditingDone'#7#20'ShortE'
+'ditEditingDone'#8'TabOrder'#2#0#4'Text'#6#9'ShortEdit'#0#0#7'TButton'#12'Cr'
+'eateButton'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'>'#5'Width'#2'['#8'AutoSiz'
+'e'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'CreateButton'#7'OnClick'#7
+#17'CreateButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#10'SaveButton'#22'Anch'
+'orSideLeft.Control'#7#12'CreateButton'#19'AnchorSideLeft.Side'#7#9'asrBotto'
+'m'#21'AnchorSideTop.Control'#7#12'CreateButton'#4'Left'#2'g'#6'Height'#2#23
+#3'Top'#2'>'#5'Width'#2'R'#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#7'Captio'
+'n'#6#10'SaveButton'#7'OnClick'#7#15'SaveButtonClick'#8'TabOrder'#2#2#0#0#5
+'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Control'#7#9'LinkLabel'#19'AnchorSideL'
+'eft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'ShortEdit'#18'Anchor'
+'SideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'ShortTabSheet'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'8'#6'Height'#2#27#3'Top'#2
+#29#5'Width'#3#135#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSiz'
+'e'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.'
+'Right'#2#2#8'OnChange'#7#19'LinkEditEditingDone'#13'OnEditingDone'#7#19'Lin'
+'kEditEditingDone'#8'TabOrder'#2#3#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'
+#17'InheritedTabSheet'#7'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2
+'d'#11'ClientWidth'#3#193#2#0#6'TLabel'#19'InheritedShortLabel'#6'Height'#2
+#14#3'Top'#2#2#5'Width'#3#193#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#2
+#7'Caption'#6#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#18'Inhe'
+'ritedShortEdit'#22'AnchorSideLeft.Control'#7#17'InheritedTabSheet'#21'Ancho'
+'rSideTop.Control'#7#19'InheritedShortLabel'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#23'AnchorSideRight.Control'#7#17'InheritedTabSheet'#20'AnchorSideRig'
+'ht.Side'#7#9'asrBottom'#6'Height'#2#27#3'Top'#2#18#5'Width'#3#193#2#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2
+#2#8'ReadOnly'#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'#0#0#7'TBut'
+'ton'#21'MoveToInheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShor'
+'tEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#2#23#3'Top'#2'3'#5'W'
+'idth'#3#140#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'Mo'
+'veToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick'#8'TabOrder'
+#2#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLeft.Control'#7
+#21'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorS'
+'ideTop.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.Side'#7#9'asrC'
+'enter'#4'Left'#3#150#0#6'Height'#2#23#3'Top'#2'3'#5'Width'#3#151#0#8'AutoSi'
+'ze'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#23'CopyFromInheritedButton'#7
+'OnClick'#7#28'CopyFromInheritedButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'
+#24'AddLinkToInheritedButton'#22'AnchorSideLeft.Control'#7#23'CopyFromInheri'
+'tedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'
+#7#23'CopyFromInheritedButton'#4'Left'#3'7'#1#6'Height'#2#23#3'Top'#2'3'#5'W'
+'idth'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#24'Add'
+'LinkToInheritedButton'#7'OnClick'#7#29'AddLinkToInheritedButtonClick'#8'Tab'
,'Order'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Caption'#6#13'DescrTabShe'
+'et'#12'ClientHeight'#2'd'#11'ClientWidth'#3#193#2#0#5'TMemo'#9'DescrMemo'#6
+'Height'#2'`'#5'Width'#3#191#2#5'Align'#7#8'alClient'#19'BorderSpacing.Right'
+#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnC'
+'hange'#7#15'DescrMemoChange'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#14'ErrorsTa'
+'bSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'd'#11'ClientWidt'
+'h'#3#193#2#0#5'TMemo'#10'ErrorsMemo'#6'Height'#2'`'#5'Width'#3#191#2#5'Alig'
+'n'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13
+'Lines.Strings'#1#6#10'ErrorsMemo'#0#8'OnChange'#7#16'ErrorsMemoChange'#8'Ta'
+'bOrder'#2#0#0#0#0#9'TTabSheet'#15'SeeAlsoTabSheet'#7'Caption'#6#15'SeeAlsoT'
+'abSheet'#12'ClientHeight'#2'd'#11'ClientWidth'#3#193#2#0#8'TListBox'#11'Lin'
+'kListBox'#21'AnchorSideTop.Control'#7#13'AddLinkButton'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#6'Height'#2'E'#3'Top'#2#27#5'Width'#3#191#2#5'Align'#7#8
+'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'Bord'
+'erSpacing.Top'#2#4#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4
+#7'OnClick'#7#16'LinkListBoxClick'#8'TabOrder'#2#0#0#0#7'TButton'#13'AddLink'
+'Button'#23'AnchorSideRight.Control'#7#16'DeleteLinkButton'#4'Left'#3#239#1#6
+'Height'#2#23#5'Width'#2'_'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9
+#19'BorderSpacing.Right'#2#6#7'Caption'#6#13'AddLinkButton'#7'OnClick'#7#18
+'AddLinkButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#16'DeleteLinkButton'#23
+'AnchorSideRight.Control'#7#15'SeeAlsoTabSheet'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3'T'#2#6'Height'#2#23#5'Width'#2'k'#7'Anchors'#11#5'akTo'
+'p'#7'akRight'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#2#7'Caption'#6#16'D'
+'eleteLinkButton'#7'OnClick'#7#21'DeleteLinkButtonClick'#8'TabOrder'#2#2#0#0
+#5'TEdit'#12'LinkTextEdit'#22'AnchorSideLeft.Control'#7#14'LinkIdComboBox'#19
+'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'AddLin'
+'kButton'#4'Left'#3#229#0#6'Height'#2#27#3'Top'#2#1#5'Width'#3#6#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#4
+#19'BorderSpacing.Right'#2#4#8'OnChange'#7#10'LinkChange'#8'TabOrder'#2#3#4
+'Text'#6#12'LinkTextEdit'#0#0#9'TComboBox'#14'LinkIdComboBox'#6'Height'#2#21
+#3'Top'#2#1#5'Width'#3#225#0#10'ItemHeight'#2#13#9'MaxLength'#2#255#8'OnChan'
+'ge'#7#10'LinkChange'#8'TabOrder'#2#4#4'Text'#6#14'LinkIdComboBox'#0#0#0#9'T'
+'TabSheet'#15'ExampleTabSheet'#7'Caption'#6#15'ExampleTabSheet'#12'ClientHei'
+'ght'#2'd'#11'ClientWidth'#3#193#2#0#5'TEdit'#11'ExampleEdit'#6'Height'#2#27
+#5'Width'#3#191#2#5'Align'#7#5'alTop'#8'AutoSize'#9#19'BorderSpacing.Right'#2
+#2#8'OnChange'#7#17'ExampleEditChange'#8'TabOrder'#2#0#4'Text'#6#11'ExampleE'
+'dit'#0#0#7'TButton'#19'BrowseExampleButton'#21'AnchorSideTop.Control'#7#11
+'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'ol'#7#15'ExampleTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+'6'#2#6'Height'#2#23#3'Top'#2'!'#5'Width'#3#133#0#7'Anchors'#11#5'akTop'#7'a'
+'kRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'Browse'
+'ExampleButton'#7'OnClick'#7#24'BrowseExampleButtonClick'#8'TabOrder'#2#1#0#0
+#0#0#6'TPanel'#12'LeftBtnPanel'#6'Height'#2'~'#5'Width'#2#20#5'Align'#7#6'al'
+'Left'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'~'#11'ClientWidth'#2#20
+#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#12'T'
+'SpeedButton'#16'BoldFormatButton'#6'Height'#2#23#5'Width'#2#20#5'Align'#7#5
+'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButto'
+'nClick'#0#0#12'TSpeedButton'#18'ItalicFormatButton'#3'Tag'#2#1#6'Height'#2
+#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9
+'$'#2#5'Width'#3#241#2#13'ActiveControl'#7#12'LeftBtnPanel'#7'Caption'#6#12
+'FPDoc editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10
+'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'OnResize'#7#10'FormResize'#10
+'LCLVersion'#6#6'0.9.27'#0#12'TPageControl'#11'PageControl'#4'Left'#2'('#6'H'
+'eight'#2'~'#3'Top'#2#0#5'Width'#3#201#2#10'ActivePage'#7#13'ShortTabSheet'#5
+'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tp'
+'Bottom'#8'OnChange'#7#17'PageControlChange'#13'OnPageChanged'#7#17'PageCont'
+'rolChange'#0#9'TTabSheet'#13'ShortTabSheet'#7'Caption'#6#13'ShortTabSheet'
+#12'ClientHeight'#2'c'#11'ClientWidth'#3#199#2#0#6'TLabel'#9'LinkLabel'#21'A'
+'nchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2#6#6'Height'#2#18#3'Top'#2'!'#5'Width'#2'<'#17'BorderSpacing.Top'#2#6
+#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#0#0#6'TLabel'#10'ShortLabel'#22
+'AnchorSideLeft.Control'#7#13'ShortTabSheet'#21'AnchorSideTop.Control'#7#9'S'
+'hortEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3
+'Top'#2#4#5'Width'#2'F'#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'ShortLabe'
+'l'#11'ParentColor'#8#0#0#5'TEdit'#9'ShortEdit'#22'AnchorSideLeft.Control'#7
+#10'ShortLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Co'
+'ntrol'#7#13'ShortTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+'R'#6'Height'#2#27#3'Top'#2#0#5'Width'#3's'#2#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#0#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#2#8'On'
+'Change'#7#20'ShortEditEditingDone'#13'OnEditingDone'#7#20'ShortEditEditingD'
+'one'#8'TabOrder'#2#0#4'Text'#6#9'ShortEdit'#0#0#7'TButton'#12'CreateButton'
+#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrBotto'
+'m'#4'Left'#2#6#6'Height'#2#29#3'Top'#2'>'#5'Width'#2'b'#8'AutoSize'#9#20'Bo'
+'rderSpacing.Around'#2#6#7'Caption'#6#12'CreateButton'#7'OnClick'#7#17'Creat'
+'eButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#10'SaveButton'#22'AnchorSideLe'
+'ft.Control'#7#12'CreateButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'An'
+'chorSideTop.Control'#7#12'CreateButton'#4'Left'#2'n'#6'Height'#2#29#3'Top'#2
+'>'#5'Width'#2'W'#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'S'
+'aveButton'#7'OnClick'#7#15'SaveButtonClick'#8'TabOrder'#2#2#0#0#5'TEdit'#8
+'LinkEdit'#22'AnchorSideLeft.Control'#7#9'LinkLabel'#19'AnchorSideLeft.Side'
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'ShortEdit'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'ShortTabSheet'#20'Ancho'
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#2'H'#6'Height'#2#27#3'Top'#2#29#5'W'
+'idth'#3'}'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing'
+'.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#2#8'OnChange'
+#7#19'LinkEditEditingDone'#13'OnEditingDone'#7#19'LinkEditEditingDone'#8'Tab'
+'Order'#2#3#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'#17'InheritedTabSheet'#7
+'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#199
+#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#2
+#5'Width'#3#199#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#2#7'Caption'#6
+#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#18'InheritedShortEdi'
+'t'#22'AnchorSideLeft.Control'#7#17'InheritedTabSheet'#21'AnchorSideTop.Cont'
+'rol'#7#19'InheritedShortLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anc'
+'horSideRight.Control'#7#17'InheritedTabSheet'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#18#5'Width'#3#199#2#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#8'ReadOnly'
+#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'#0#0#7'TButton'#21'MoveTo'
+'InheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShortEdit'#18'Anch'
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#23#3'Top'#2'3'#5'Wid'
+'th'#3#140#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'Move'
+'ToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick'#8'TabOrder'#2
+#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLeft.Control'#7#21
+'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSide'
+'Top.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.Side'#7#9'asrCent'
+'er'#4'Left'#3#150#0#6'Height'#2#23#3'Top'#2'3'#5'Width'#3#151#0#8'AutoSize'
+#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#23'CopyFromInheritedButton'#7'On'
+'Click'#7#28'CopyFromInheritedButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#24
+'AddLinkToInheritedButton'#22'AnchorSideLeft.Control'#7#23'CopyFromInherited'
+'Button'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#23'CopyFromInheritedButton'#4'Left'#3'7'#1#6'Height'#2#23#3'Top'#2'3'#5'Wid'
+'th'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#24'AddLi'
+'nkToInheritedButton'#7'OnClick'#7#29'AddLinkToInheritedButtonClick'#8'TabOr'
,'der'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Caption'#6#13'DescrTabSheet'
+#12'ClientHeight'#2'c'#11'ClientWidth'#3#199#2#0#5'TMemo'#9'DescrMemo'#4'Lef'
+'t'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#197#2#5'Align'#7#8'alClient'#19
+'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1#6
+#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#8'TabOrder'#2#0#0#0#0#9'TT'
+'abSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'
+#2'c'#11'ClientWidth'#3#199#2#0#5'TMemo'#10'ErrorsMemo'#4'Left'#2#0#6'Height'
+#2'_'#3'Top'#2#0#5'Width'#3#197#2#5'Align'#7#8'alClient'#19'BorderSpacing.Ri'
+'ght'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1#6#10'ErrorsMemo'#0
+#8'OnChange'#7#16'ErrorsMemoChange'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'Se'
+'eAlsoTabSheet'#7'Caption'#6#15'SeeAlsoTabSheet'#12'ClientHeight'#2'c'#11'Cl'
+'ientWidth'#3#199#2#0#8'TListBox'#11'LinkListBox'#21'AnchorSideTop.Control'#7
+#13'AddLinkButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Heigh'
+'t'#2'D'#3'Top'#2#27#5'Width'#3#197#2#5'Align'#7#8'alBottom'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'BorderSpacing.Top'#2#4#19'Bord'
+'erSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#10'ItemHeight'#2#0#7'OnCl'
+'ick'#7#16'LinkListBoxClick'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#7'TButton'
+#13'AddLinkButton'#23'AnchorSideRight.Control'#7#16'DeleteLinkButton'#4'Left'
+#3#245#1#6'Height'#2#23#3'Top'#2#0#5'Width'#2'_'#7'Anchors'#11#5'akTop'#7'ak'
+'Right'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#7'Caption'#6#13'AddLinkB'
+'utton'#7'OnClick'#7#18'AddLinkButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#16
+'DeleteLinkButton'#23'AnchorSideRight.Control'#7#15'SeeAlsoTabSheet'#20'Anch'
+'orSideRight.Side'#7#9'asrBottom'#4'Left'#3'Z'#2#6'Height'#2#23#3'Top'#2#0#5
+'Width'#2'k'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#19'BorderSpac'
+'ing.Right'#2#2#7'Caption'#6#16'DeleteLinkButton'#7'OnClick'#7#21'DeleteLink'
+'ButtonClick'#8'TabOrder'#2#2#0#0#5'TEdit'#12'LinkTextEdit'#22'AnchorSideLef'
+'t.Control'#7#14'LinkIdComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'A'
+'nchorSideRight.Control'#7#13'AddLinkButton'#4'Left'#3#229#0#6'Height'#2#27#3
+'Top'#2#1#5'Width'#3#12#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'B'
+'orderSpacing.Left'#2#4#19'BorderSpacing.Right'#2#4#8'OnChange'#7#10'LinkCha'
+'nge'#8'TabOrder'#2#3#4'Text'#6#12'LinkTextEdit'#0#0#9'TComboBox'#14'LinkIdC'
+'omboBox'#4'Left'#2#0#6'Height'#2#21#3'Top'#2#1#5'Width'#3#225#0#10'ItemHeig'
+'ht'#2#0#8'OnChange'#7#10'LinkChange'#8'TabOrder'#2#4#4'Text'#6#14'LinkIdCom'
+'boBox'#0#0#0#9'TTabSheet'#15'ExampleTabSheet'#7'Caption'#6#15'ExampleTabShe'
+'et'#12'ClientHeight'#2'c'#11'ClientWidth'#3#199#2#0#5'TEdit'#11'ExampleEdit'
+#4'Left'#2#0#6'Height'#2#27#3'Top'#2#0#5'Width'#3#197#2#5'Align'#7#5'alTop'
+#19'BorderSpacing.Right'#2#2#8'OnChange'#7#17'ExampleEditChange'#8'TabOrder'
+#2#0#4'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'BrowseExampleButton'#21'Anc'
+'horSideTop.Control'#7#11'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#15'ExampleTabSheet'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#3'<'#2#6'Height'#2#23#3'Top'#2'!'#5'Width'#3#133#0#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#19'BrowseExampleButton'#7'OnClick'#7#24'BrowseExampleButtonCli'
+'ck'#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#12'LeftBtnPanel'#4'Left'#2#0#6'Height'
+#2'~'#3'Top'#2#0#5'Width'#2#20#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNon'
+'e'#12'ClientHeight'#2'~'#11'ClientWidth'#2#20#11'FullRepaint'#8#14'ParentSh'
+'owHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#12'TSpeedButton'#16'BoldFormatBut'
+'ton'#4'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#5'Align'#7#5'alTop'
+#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'
+#0#0#12'TSpeedButton'#18'ItalicFormatButton'#3'Tag'#2#1#4'Left'#2#0#6'Height'
+#2#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9
+'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'U'
+'nderlineFormatButton'#3'Tag'#2#2#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#5
+'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17
+'FormatButtonClick'#0#0#12'TSpeedButton'#18'InsertVarTagButton'#3'Tag'#2#5#6
+'Height'#2#23#3'Top'#2'\'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clB'
+'tnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedBu'
+'tton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#6'Height'#2#23#3'Top'#2'E'#5
+'Width'#2#20#5'Align'#7#5'alTop'#7'Caption'#6#1'P'#5'Color'#7#9'clBtnFace'#9
+'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#0#6'TPanel'#13'RightB'
+'tnPanel'#4'Left'#2#20#6'Height'#2'~'#5'Width'#2#20#5'Align'#7#6'alLeft'#10
+'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'~'#11'ClientWidth'#2#20#8'TabOrd'
+'er'#2#2#0#12'TSpeedButton'#21'InsertLinkSpeedButton'#6'Height'#2#23#5'Width'
+#2#20#5'Align'#7#5'alTop'#7'Caption'#6#2'Li'#5'Color'#7#9'clBtnFace'#7'Enabl'
+'ed'#8#9'NumGlyphs'#2#0#7'OnClick'#7#26'InsertLinkSpeedButtonClick'#8'ShowHi'
+'nt'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#19'InsertCodeTagButton'#3'T'
,'ag'#2#3#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#5'Align'#7#5'alTop'#5'Colo'
+'r'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'Sho'
+'wHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#18'InsertRemarkButton'#3
+'Tag'#2#4#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Col'
+'or'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'Sh'
+'owHint'#9#14'ParentShowHint'#8#0#0#0#11'TOpenDialog'#10'OpenDialog'#5'Title'
+#6#17'Open example file'#6'Filter'#6#28'pascal file|*.pas; *.pp; *.p'#11'Fil'
+'terIndex'#2#0#4'left'#3#240#0#3'top'#2#16#0#0#0
+'nderlineFormatButton'#3'Tag'#2#2#4'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'W'
+'idth'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'O'
+'nClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#18'InsertVarTagButton'
+#3'Tag'#2#5#4'Left'#2#0#6'Height'#2#23#3'Top'#2'\'#5'Width'#2#20#5'Align'#7#5
+'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButto'
+'nClick'#0#0#12'TSpeedButton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#4'Le'
+'ft'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#5'Align'#7#5'alTop'#7'Capt'
+'ion'#6#1'P'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'Format'
+'ButtonClick'#0#0#0#6'TPanel'#13'RightBtnPanel'#4'Left'#2#20#6'Height'#2'~'#3
+'Top'#2#0#5'Width'#2#20#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#12'C'
+'lientHeight'#2'~'#11'ClientWidth'#2#20#8'TabOrder'#2#2#0#12'TSpeedButton'#21
+'InsertLinkSpeedButton'#4'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#5
,'Align'#7#5'alTop'#7'Caption'#6#2'Li'#5'Color'#7#9'clBtnFace'#7'Enabled'#8#9
+'NumGlyphs'#2#0#7'OnClick'#7#26'InsertLinkSpeedButtonClick'#8'ShowHint'#9#14
+'ParentShowHint'#8#0#0#12'TSpeedButton'#19'InsertCodeTagButton'#3'Tag'#2#3#4
+'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#5'Align'#7#5'alTop'#5'Co'
+'lor'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'S'
+'howHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#18'InsertRemarkButton'
+#3'Tag'#2#4#4'Left'#2#0#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5
+'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButto'
+'nClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#0#11'TOpenDialog'#10'OpenDia'
+'log'#5'Title'#6#17'Open example file'#6'Filter'#6#28'pascal file|*.pas; *.p'
+'p; *.p'#11'FilterIndex'#2#0#4'left'#3#240#0#3'top'#2#16#0#0#0
]);

View File

@ -360,7 +360,7 @@ var
LinkSrc: String;
begin
if (ShowFPDocLinkEditorDialog(Link,LinkTitle)<>mrOk)
and (Link<>'') then exit;
or (Link='') then exit;
LinkSrc:='<link id="'+Link+'"';
if LinkTitle='' then begin
LinkSrc:=LinkSrc+'/>';

View File

@ -1,23 +1,26 @@
object FPDocLinkEditorDlg: TFPDocLinkEditorDlg
Left = 362
Height = 329
Height = 282
Top = 304
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 328
Width = 408
ActiveControl = TitleEdit
Caption = 'FPDocLinkEditorDlg'
ClientHeight = 329
ClientWidth = 400
ClientHeight = 282
ClientWidth = 408
OnCreate = FormCreate
LCLVersion = '0.9.27'
object LinkLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TitleEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 20
Top = 10
Width = 388
Height = 18
Top = 69
Width = 396
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Caption = 'LinkLabel'
ParentColor = False
@ -25,31 +28,37 @@ object FPDocLinkEditorDlg: TFPDocLinkEditorDlg
end
object TitleLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 20
Top = 71
Width = 388
Height = 18
Top = 6
Width = 396
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Caption = 'TitleLabel'
ParentColor = False
WordWrap = True
end
object CompletionBox: TPaintBox
AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 100
Top = 126
Width = 396
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 50
Top = 279
Width = 388
Align = alBottom
AutoSize = True
Height = 44
Top = 232
Width = 396
TabOrder = 0
ShowButtons = [pbOK, pbCancel]
ShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp]
end
object LinkEdit: TEdit
AnchorSideLeft.Control = Owner
@ -58,11 +67,13 @@ object FPDocLinkEditorDlg: TFPDocLinkEditorDlg
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 36
Width = 388
Height = 27
Top = 93
Width = 396
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
OnChange = LinkEditChange
OnKeyDown = LinkEditKeyDown
ParentShowHint = False
ShowHint = True
TabOrder = 1
@ -74,9 +85,9 @@ object FPDocLinkEditorDlg: TFPDocLinkEditorDlg
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 97
Width = 388
Height = 27
Top = 30
Width = 396
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6

View File

@ -2,32 +2,35 @@
LazarusResources.Add('TFPDocLinkEditorDlg','FORMDATA',[
'TPF0'#19'TFPDocLinkEditorDlg'#18'FPDocLinkEditorDlg'#4'Left'#3'j'#1#6'Height'
+#3'I'#1#3'Top'#3'0'#1#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'Ver'
+'tScrollBar.Page'#3'H'#1#7'Caption'#6#18'FPDocLinkEditorDlg'#12'ClientHeight'
+#3'I'#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#9'L'
+'inkLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#23'AnchorSideRight.Control'
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#20#3'Top'#2#10#5'Width'#3#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#8
+'WordWrap'#9#0#0#6'TLabel'#10'TitleLabel'#22'AnchorSideLeft.Control'#7#5'Own'
+'er'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top'#2'G'#5'Width'#3#132#1#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'BorderSp'
+'acing.Around'#2#6#7'Caption'#6#10'TitleLabel'#11'ParentColor'#8#8'WordWrap'
+#9#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2'2'#3'Top'#3
+#23#1#5'Width'#3#132#1#5'Align'#7#8'alBottom'#8'AutoSize'#9#8'TabOrder'#2#0
+#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#10'ShowGlyphs'#11#4'pbOK'#8'pbCanc'
+'el'#7'pbClose'#6'pbHelp'#0#0#0#5'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Contr'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'LinkLabel'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRigh'
+'t.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'$'#5'Width'#3#132
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6
+#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text'#6#8'LinkEdit'#0#0
+#5'TEdit'#9'TitleEdit'#21'AnchorSideTop.Control'#7#10'TitleLabel'#18'AnchorS'
+'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Ancho'
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'a'#5'Wi'
+'dth'#3#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing'
+'.Top'#2#6#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#2#4'Text'#6#9'TitleEdit'
+#0#0#0
+#3#26#1#3'Top'#3'0'#1#5'Width'#3#152#1#13'ActiveControl'#7#9'TitleEdit'#7'Ca'
+'ption'#6#18'FPDocLinkEditorDlg'#12'ClientHeight'#3#26#1#11'ClientWidth'#3
+#152#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#9
+'LinkLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+#9'TitleEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+#2#18#3'Top'#2'E'#5'Width'#3#140#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#9
+'LinkLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#10'TitleLabel'#22
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23
+'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#3#140#1#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'Titl'
+'eLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TPaintBox'#13'CompletionBox'
+#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrBotto'
+'m'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'~'#5'Width'#3#140#1#5'Align'#7#8'alB'
+'ottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderS'
+'pacing.Around'#2#6#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Heig'
+'ht'#2','#3'Top'#3#232#0#5'Width'#3#140#1#8'TabOrder'#2#0#11'ShowButtons'#11
+#4'pbOK'#8'pbCancel'#0#0#0#5'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Control'#7
+#5'Owner'#21'AnchorSideTop.Control'#7#9'LinkLabel'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#27#3'Top'#2']'#5'Width'#3#140#1#7'Anch'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8'OnCh'
+'ange'#7#14'LinkEditChange'#9'OnKeyDown'#7#15'LinkEditKeyDown'#14'ParentShow'
+'Hint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text'#6#8'LinkEdit'#0#0#5'TEdit'#9
+'TitleEdit'#21'AnchorSideTop.Control'#7#10'TitleLabel'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#27#3'Top'#2#30#5'Width'#3#140#1#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#19'Bo'
+'rderSpacing.Right'#2#6#8'TabOrder'#2#2#4'Text'#6#9'TitleEdit'#0#0#0
]);

View File

@ -34,18 +34,48 @@ uses
StdCtrls, ButtonPanel, LazarusIDEStrConsts;
type
TFPDocLinkCompletionItem = class
public
end;
{ TFPDocLinkCompletionList }
TFPDocLinkCompletionList = class
private
FItems: TFPList; // list of TFPDocLinkCompletionItem
FSelected: integer;
FTop: integer;
function GetCount: integer;
procedure SetCount(const AValue: integer);
procedure SetSelected(const AValue: integer);
procedure SetTop(const AValue: integer);
public
constructor Create;
destructor Destroy; override;
procedure Clear;
procedure Draw(Canvas: TCanvas);
property Count: integer read GetCount;
property Top: integer read FTop write SetTop;
property Selected: integer read FSelected write SetSelected;
end;
{ TFPDocLinkEditorDlg }
TFPDocLinkEditorDlg = class(TForm)
ButtonPanel1: TButtonPanel;
CompletionBox: TPaintBox;
TitleEdit: TEdit;
TitleLabel: TLabel;
LinkEdit: TEdit;
LinkLabel: TLabel;
procedure FormCreate(Sender: TObject);
procedure LinkEditChange(Sender: TObject);
procedure LinkEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
private
public
end;
function ShowFPDocLinkEditorDialog(out Link, LinkTitle: string): TModalResult;
@ -84,6 +114,66 @@ begin
TitleEdit.Text:='';
end;
procedure TFPDocLinkEditorDlg.LinkEditChange(Sender: TObject);
begin
end;
procedure TFPDocLinkEditorDlg.LinkEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
end;
{ TFPDocLinkCompletionList }
function TFPDocLinkCompletionList.GetCount: integer;
begin
Result:=FItems.Count;
end;
procedure TFPDocLinkCompletionList.SetCount(const AValue: integer);
begin
end;
procedure TFPDocLinkCompletionList.SetSelected(const AValue: integer);
begin
if FSelected=AValue then exit;
FSelected:=AValue;
end;
procedure TFPDocLinkCompletionList.SetTop(const AValue: integer);
begin
if FTop=AValue then exit;
FTop:=AValue;
end;
constructor TFPDocLinkCompletionList.Create;
begin
FItems:=TFPList.Create;
end;
destructor TFPDocLinkCompletionList.Destroy;
begin
Clear;
FreeAndNil(FItems);
inherited Destroy;
end;
procedure TFPDocLinkCompletionList.Clear;
var
i: Integer;
begin
for i:=0 to FItems.Count-1 do TObject(FItems[i]).Free;
FItems.Clear;
end;
procedure TFPDocLinkCompletionList.Draw(Canvas: TCanvas);
begin
end;
initialization
{$I fpdocselectlink.lrs}