IDE: fpdoc editor: added popup menu and menu item to append short description to long descriptions

git-svn-id: trunk@21259 -
This commit is contained in:
mattias 2009-08-17 11:53:00 +00:00
parent dad1f24f56
commit 599a3273fb
4 changed files with 162 additions and 126 deletions

View File

@ -1,9 +1,9 @@
object FPDocEditor: TFPDocEditor object FPDocEditor: TFPDocEditor
Left = 313 Left = 318
Height = 126 Height = 126
Top = 596 Top = 620
Width = 753 Width = 753
ActiveControl = LeftBtnPanel ActiveControl = ShortEdit
Caption = 'FPDoc editor' Caption = 'FPDoc editor'
ClientHeight = 126 ClientHeight = 126
ClientWidth = 753 ClientWidth = 753
@ -16,9 +16,10 @@ object FPDocEditor: TFPDocEditor
Height = 126 Height = 126
Top = 0 Top = 0
Width = 713 Width = 713
ActivePage = SeeAlsoTabSheet ActivePage = ShortTabSheet
Align = alClient Align = alClient
TabIndex = 4 PopupMenu = PopupMenu1
TabIndex = 0
TabOrder = 0 TabOrder = 0
TabPosition = tpBottom TabPosition = tpBottom
OnChange = PageControlChange OnChange = PageControlChange
@ -204,6 +205,7 @@ object FPDocEditor: TFPDocEditor
'DescrMemo' 'DescrMemo'
) )
OnChange = DescrMemoChange OnChange = DescrMemoChange
PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
end end
end end
@ -403,4 +405,13 @@ object FPDocEditor: TFPDocEditor
left = 240 left = 240
top = 16 top = 16
end end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
left = 280
top = 16
object CopyShortToDescrMenuItem: TMenuItem
Caption = 'CopyShortToDescrMenuItem'
OnClick = CopyShortToDescrMenuItemClick
end
end
end end

View File

@ -1,124 +1,128 @@
{ This is an automatically generated lazarus resource file } { Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TFPDocEditor','FORMDATA',[ LazarusResources.Add('TFPDocEditor','FORMDATA',[
'TPF0'#12'TFPDocEditor'#11'FPDocEditor'#4'Left'#3'9'#1#6'Height'#2'~'#3'Top'#3 'TPF0'#12'TFPDocEditor'#11'FPDocEditor'#4'Left'#3'>'#1#6'Height'#2'~'#3'Top'#3
+'T'#2#5'Width'#3#241#2#13'ActiveControl'#7#12'LeftBtnPanel'#7'Caption'#6#12 +'l'#2#5'Width'#3#241#2#13'ActiveControl'#7#9'ShortEdit'#7'Caption'#6#12'FPDo'
+'FPDoc editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10 +'c editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10'Fo'
+'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'OnResize'#7#10'FormResize'#10 +'rmCreate'#9'OnDestroy'#7#11'FormDestroy'#8'OnResize'#7#10'FormResize'#10'LC'
+'LCLVersion'#6#6'0.9.27'#0#12'TPageControl'#11'PageControl'#4'Left'#2'('#6'H' +'LVersion'#6#6'0.9.27'#0#12'TPageControl'#11'PageControl'#4'Left'#2'('#6'Hei'
+'eight'#2'~'#3'Top'#2#0#5'Width'#3#201#2#10'ActivePage'#7#15'SeeAlsoTabSheet' +'ght'#2'~'#3'Top'#2#0#5'Width'#3#201#2#10'ActivePage'#7#13'ShortTabSheet'#5
+#5'Align'#7#8'alClient'#8'TabIndex'#2#4#8'TabOrder'#2#0#11'TabPosition'#7#8 +'Align'#7#8'alClient'#9'PopupMenu'#7#10'PopupMenu1'#8'TabIndex'#2#0#8'TabOrd'
+'tpBottom'#8'OnChange'#7#17'PageControlChange'#13'OnPageChanged'#7#17'PageCo' +'er'#2#0#11'TabPosition'#7#8'tpBottom'#8'OnChange'#7#17'PageControlChange'#13
+'ntrolChange'#0#9'TTabSheet'#13'ShortTabSheet'#7'Caption'#6#13'ShortTabSheet' +'OnPageChanged'#7#17'PageControlChange'#0#9'TTabSheet'#13'ShortTabSheet'#7'C'
+#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0#6'TLabel'#9'LinkLabel'#21'A' +'aption'#6#13'ShortTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0
+'nchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4 +#6'TLabel'#9'LinkLabel'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSid'
+'Left'#2#6#6'Height'#2#18#3'Top'#2'!'#5'Width'#2'<'#17'BorderSpacing.Top'#2#6 +'eTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'!'#5'Width'#2
+#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#0#0#6'TLabel'#10'ShortLabel'#22 +'<'#17'BorderSpacing.Top'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#0#0
+'AnchorSideLeft.Control'#7#13'ShortTabSheet'#21'AnchorSideTop.Control'#7#9'S' +#6'TLabel'#10'ShortLabel'#22'AnchorSideLeft.Control'#7#13'ShortTabSheet'#21
+'hortEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3 +'AnchorSideTop.Control'#7#9'ShortEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'
+'Top'#2#4#5'Width'#2'F'#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'ShortLabe' +#4'Left'#2#6#6'Height'#2#18#3'Top'#2#4#5'Width'#2'F'#18'BorderSpacing.Left'#2
+'l'#11'ParentColor'#8#0#0#5'TEdit'#9'ShortEdit'#22'AnchorSideLeft.Control'#7 +#6#7'Caption'#6#10'ShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#9'ShortEdit'#22
+#10'ShortLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Co' +'AnchorSideLeft.Control'#7#10'ShortLabel'#19'AnchorSideLeft.Side'#7#9'asrBot'
+'ntrol'#7#13'ShortTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2 +'tom'#23'AnchorSideRight.Control'#7#13'ShortTabSheet'#20'AnchorSideRight.Sid'
+'R'#6'Height'#2#27#3'Top'#2#0#5'Width'#3'q'#2#7'Anchors'#11#5'akTop'#6'akLef' +'e'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#27#3'Top'#2#0#5'Width'#3'q'#2#7
+'t'#7'akRight'#0#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#2#8'On' +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#19'B'
+'Change'#7#20'ShortEditEditingDone'#13'OnEditingDone'#7#20'ShortEditEditingD' +'orderSpacing.Right'#2#2#8'OnChange'#7#20'ShortEditEditingDone'#13'OnEditing'
+'one'#8'TabOrder'#2#0#4'Text'#6#9'ShortEdit'#0#0#7'TButton'#12'CreateButton' +'Done'#7#20'ShortEditEditingDone'#8'TabOrder'#2#0#4'Text'#6#9'ShortEdit'#0#0
+#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrBotto' +#7'TButton'#12'CreateButton'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'Anch'
+'m'#4'Left'#2#6#6'Height'#2#29#3'Top'#2'>'#5'Width'#2'b'#8'AutoSize'#9#20'Bo' +'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3'Top'#2'>'#5'Wid'
+'rderSpacing.Around'#2#6#7'Caption'#6#12'CreateButton'#7'OnClick'#7#17'Creat' +'th'#2'b'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'CreateB'
+'eButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#10'SaveButton'#22'AnchorSideLe' +'utton'#7'OnClick'#7#17'CreateButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#10
+'ft.Control'#7#12'CreateButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'An' +'SaveButton'#22'AnchorSideLeft.Control'#7#12'CreateButton'#19'AnchorSideLeft'
+'chorSideTop.Control'#7#12'CreateButton'#4'Left'#2'n'#6'Height'#2#29#3'Top'#2 +'.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#12'CreateButton'#4'Left'#2
+'>'#5'Width'#2'W'#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'S' +'n'#6'Height'#2#29#3'Top'#2'>'#5'Width'#2'W'#8'AutoSize'#9#18'BorderSpacing.'
+'aveButton'#7'OnClick'#7#15'SaveButtonClick'#8'TabOrder'#2#2#0#0#5'TEdit'#8 +'Left'#2#6#7'Caption'#6#10'SaveButton'#7'OnClick'#7#15'SaveButtonClick'#8'Ta'
+'LinkEdit'#22'AnchorSideLeft.Control'#7#9'LinkLabel'#19'AnchorSideLeft.Side' +'bOrder'#2#2#0#0#5'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Control'#7#9'LinkLab'
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'ShortEdit'#18'AnchorSideTop.Si' +'el'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'Sh'
+'de'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'ShortTabSheet'#20'Ancho' +'ortEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#2'H'#6'Height'#2#27#3'Top'#2#29#5'W' +#13'ShortTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'H'#6'He'
+'idth'#3'{'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing' +'ight'#2#27#3'Top'#2#29#5'Width'#3'{'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#2#8'OnChange' +'kRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpa'
+#7#19'LinkEditEditingDone'#13'OnEditingDone'#7#19'LinkEditEditingDone'#8'Tab' +'cing.Right'#2#2#8'OnChange'#7#19'LinkEditEditingDone'#13'OnEditingDone'#7#19
+'Order'#2#3#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'#17'InheritedTabSheet'#7 +'LinkEditEditingDone'#8'TabOrder'#2#3#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabShee'
+'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3#197 +'t'#17'InheritedTabSheet'#7'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'
+#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#2 +#2'_'#11'ClientWidth'#3#197#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0
+#5'Width'#3#197#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#2#7'Caption'#6 +#6'Height'#2#14#3'Top'#2#2#5'Width'#3#197#2#5'Align'#7#5'alTop'#17'BorderSpa'
+#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#18'InheritedShortEdi' +'cing.Top'#2#2#7'Caption'#6#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5
+'t'#22'AnchorSideLeft.Control'#7#17'InheritedTabSheet'#21'AnchorSideTop.Cont' +'TEdit'#18'InheritedShortEdit'#22'AnchorSideLeft.Control'#7#17'InheritedTabS'
+'rol'#7#19'InheritedShortLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anc' +'heet'#21'AnchorSideTop.Control'#7#19'InheritedShortLabel'#18'AnchorSideTop.'
+'horSideRight.Control'#7#17'InheritedTabSheet'#20'AnchorSideRight.Side'#7#9 +'Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#17'InheritedTabSheet'#20
+'asrBottom'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#18#5'Width'#3#197#2#7'Anchor' +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#18
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#8'ReadOnly' +#5'Width'#3#197#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpa'
+#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'#0#0#7'TButton'#21'MoveTo' +'cing.Top'#2#2#8'ReadOnly'#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'
+'InheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShortEdit'#18'Anch' +#0#0#7'TButton'#21'MoveToInheritedButton'#21'AnchorSideTop.Control'#7#18'Inh'
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#23#3'Top'#2'3'#5'Wid' +'eritedShortEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
+'th'#3#140#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'Move' +#2#23#3'Top'#2'3'#5'Width'#3#140#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+'ToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick'#8'TabOrder'#2 +#7'Caption'#6#21'MoveToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButto'
+#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLeft.Control'#7#21 +'nClick'#8'TabOrder'#2#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'Ancho'
+'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSide' +'rSideLeft.Control'#7#21'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9
+'Top.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.Side'#7#9'asrCent' +'asrBottom'#21'AnchorSideTop.Control'#7#21'MoveToInheritedButton'#18'AnchorS'
+'er'#4'Left'#3#150#0#6'Height'#2#23#3'Top'#2'3'#5'Width'#3#151#0#8'AutoSize' +'ideTop.Side'#7#9'asrCenter'#4'Left'#3#150#0#6'Height'#2#23#3'Top'#2'3'#5'Wi'
+#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#23'CopyFromInheritedButton'#7'On' +'dth'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#23'Copy'
+'Click'#7#28'CopyFromInheritedButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#24 +'FromInheritedButton'#7'OnClick'#7#28'CopyFromInheritedButtonClick'#8'TabOrd'
+'AddLinkToInheritedButton'#22'AnchorSideLeft.Control'#7#23'CopyFromInherited' +'er'#2#2#0#0#7'TButton'#24'AddLinkToInheritedButton'#22'AnchorSideLeft.Contr'
+'Button'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7 +'ol'#7#23'CopyFromInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+#23'CopyFromInheritedButton'#4'Left'#3'7'#1#6'Height'#2#23#3'Top'#2'3'#5'Wid' +'AnchorSideTop.Control'#7#23'CopyFromInheritedButton'#4'Left'#3'7'#1#6'Heigh'
+'th'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#24'AddLi' +'t'#2#23#3'Top'#2'3'#5'Width'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2
+'nkToInheritedButton'#7'OnClick'#7#29'AddLinkToInheritedButtonClick'#8'TabOr' +#10#7'Caption'#6#24'AddLinkToInheritedButton'#7'OnClick'#7#29'AddLinkToInher'
,'der'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Caption'#6#13'DescrTabSheet' ,'itedButtonClick'#8'TabOrder'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Cap'
+#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0#5'TMemo'#9'DescrMemo'#4'Lef' +'tion'#6#13'DescrTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0#5
+'t'#2#0#6'Height'#2'['#3'Top'#2#0#5'Width'#3#195#2#5'Align'#7#8'alClient'#19 +'TMemo'#9'DescrMemo'#4'Left'#2#0#6'Height'#2'['#3'Top'#2#0#5'Width'#3#195#2#5
+'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1#6 +'Align'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2
+#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#8'TabOrder'#2#0#0#0#0#9'TT' +#4#13'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#9
+'abSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight' +'PopupMenu'#7#10'PopupMenu1'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#14'ErrorsTab'
+#2'_'#11'ClientWidth'#3#197#2#0#5'TMemo'#10'ErrorsMemo'#4'Left'#2#0#6'Height' +'Sheet'#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'
+#2'['#3'Top'#2#0#5'Width'#3#195#2#5'Align'#7#8'alClient'#19'BorderSpacing.Ri' +#3#197#2#0#5'TMemo'#10'ErrorsMemo'#4'Left'#2#0#6'Height'#2'['#3'Top'#2#0#5'W'
+'ght'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1#6#10'ErrorsMemo'#0 +'idth'#3#195#2#5'Align'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderS'
+#8'OnChange'#7#16'ErrorsMemoChange'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'Se' +'pacing.Bottom'#2#4#13'Lines.Strings'#1#6#10'ErrorsMemo'#0#8'OnChange'#7#16
+'eAlsoTabSheet'#7'Caption'#6#15'SeeAlsoTabSheet'#12'ClientHeight'#2'_'#11'Cl' +'ErrorsMemoChange'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'SeeAlsoTabSheet'#7
+'ientWidth'#3#197#2#0#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2#0#6'Height'#2'_'#3 +'Caption'#6#15'SeeAlsoTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2
+'Top'#2#0#5'Width'#3#197#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#11'S' +#0#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3
+'eeAlsoMemo'#0#13'OnEditingDone'#7#22'SeeAlsoMemoEditingDone'#8'TabOrder'#2#0 +#197#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#11'SeeAlsoMemo'#0#13'OnE'
+#0#0#0#9'TTabSheet'#15'ExampleTabSheet'#7'Caption'#6#15'ExampleTabSheet'#12 +'ditingDone'#7#22'SeeAlsoMemoEditingDone'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'
+'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0#5'TEdit'#11'ExampleEdit'#4'Lef' +#15'ExampleTabSheet'#7'Caption'#6#15'ExampleTabSheet'#12'ClientHeight'#2'_'
+'t'#2#0#6'Height'#2#27#3'Top'#2#0#5'Width'#3#195#2#5'Align'#7#5'alTop'#19'Bo' +#11'ClientWidth'#3#197#2#0#5'TEdit'#11'ExampleEdit'#4'Left'#2#0#6'Height'#2
+'rderSpacing.Right'#2#2#8'OnChange'#7#17'ExampleEditChange'#8'TabOrder'#2#0#4 +#27#3'Top'#2#0#5'Width'#3#195#2#5'Align'#7#5'alTop'#19'BorderSpacing.Right'#2
+'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'BrowseExampleButton'#21'AnchorSid' +#2#8'OnChange'#7#17'ExampleEditChange'#8'TabOrder'#2#0#4'Text'#6#11'ExampleE'
+'eTop.Control'#7#11'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'An' +'dit'#0#0#7'TButton'#19'BrowseExampleButton'#21'AnchorSideTop.Control'#7#11
+'chorSideRight.Control'#7#15'ExampleTabSheet'#20'AnchorSideRight.Side'#7#9'a' +'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'srBottom'#4'Left'#3':'#2#6'Height'#2#23#3'Top'#2'!'#5'Width'#3#133#0#7'Anch' +'ol'#7#15'ExampleTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+'ors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7 +':'#2#6'Height'#2#23#3'Top'#2'!'#5'Width'#3#133#0#7'Anchors'#11#5'akTop'#7'a'
+'Caption'#6#19'BrowseExampleButton'#7'OnClick'#7#24'BrowseExampleButtonClick' +'kRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'Browse'
+#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#12'LeftBtnPanel'#4'Left'#2#0#6'Height'#2 +'ExampleButton'#7'OnClick'#7#24'BrowseExampleButtonClick'#8'TabOrder'#2#1#0#0
+'~'#3'Top'#2#0#5'Width'#2#20#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone' +#0#0#6'TPanel'#12'LeftBtnPanel'#4'Left'#2#0#6'Height'#2'~'#3'Top'#2#0#5'Widt'
+#12'ClientHeight'#2'~'#11'ClientWidth'#2#20#11'FullRepaint'#8#14'ParentShowH' +'h'#2#20#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2
+'int'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#12'TSpeedButton'#16'BoldFormatButton' +'~'#11'ClientWidth'#2#20#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint'#9
+#4'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#5'Align'#7#5'alTop'#5'C' +#8'TabOrder'#2#1#0#12'TSpeedButton'#16'BoldFormatButton'#4'Left'#2#0#6'Heigh'
+'olor'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0 +'t'#2#23#3'Top'#2#0#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'
+#12'TSpeedButton'#18'ItalicFormatButton'#3'Tag'#2#1#4'Left'#2#0#6'Height'#2 +#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#18
+#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9 +'ItalicFormatButton'#3'Tag'#2#1#4'Left'#2#0#6'Height'#2#23#3'Top'#2'.'#5'Wid'
+'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'U' +'th'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnC'
+'nderlineFormatButton'#3'Tag'#2#2#4'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'W' +'lick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'UnderlineFormatButton'
+'idth'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'O' +#3'Tag'#2#2#4'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#5'Align'#7#5
+'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' +'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' +'nClick'#0#0#12'TSpeedButton'#18'InsertVarTagButton'#3'Tag'#2#5#4'Left'#2#0#6
+'ft'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#5'Align'#7#5'alTop'#7'Capt' +'Height'#2#23#3'Top'#2'\'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clB'
+'ion'#6#1'P'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'Format' +'tnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedBu'
+'ButtonClick'#0#0#0#6'TPanel'#13'RightBtnPanel'#4'Left'#2#20#6'Height'#2'~'#3 +'tton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#4'Left'#2#0#6'Height'#2#23#3
+'Top'#2#0#5'Width'#2#20#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#12'C' +'Top'#2'E'#5'Width'#2#20#5'Align'#7#5'alTop'#7'Caption'#6#1'P'#5'Color'#7#9
+'lientHeight'#2'~'#11'ClientWidth'#2#20#8'TabOrder'#2#2#0#12'TSpeedButton'#21 +'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#0#6'TPan'
+'InsertLinkSpeedButton'#4'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#5 +'el'#13'RightBtnPanel'#4'Left'#2#20#6'Height'#2'~'#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 +'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'~'#11'Clie'
+'NumGlyphs'#2#0#7'OnClick'#7#26'InsertLinkSpeedButtonClick'#8'ShowHint'#9#14 +'ntWidth'#2#20#8'TabOrder'#2#2#0#12'TSpeedButton'#21'InsertLinkSpeedButton'#4
+'ParentShowHint'#8#0#0#12'TSpeedButton'#19'InsertCodeTagButton'#3'Tag'#2#3#4 +'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#5'Align'#7#5'alTop'#7'Cap'
+'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#5'Align'#7#5'alTop'#5'Co' +'tion'#6#2'Li'#5'Color'#7#9'clBtnFace'#7'Enabled'#8#9'NumGlyphs'#2#0#7'OnCli'
+'lor'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'S' +'ck'#7#26'InsertLinkSpeedButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0
+'howHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#18'InsertRemarkButton' +#12'TSpeedButton'#19'InsertCodeTagButton'#3'Tag'#2#3#4'Left'#2#0#6'Height'#2
+#3'Tag'#2#4#4'Left'#2#0#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5 +#23#3'Top'#2#23#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9
+'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButto' +'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentSh'
+'nClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#0#11'TOpenDialog'#10'OpenDia' +'owHint'#8#0#0#12'TSpeedButton'#18'InsertRemarkButton'#3'Tag'#2#4#4'Left'#2#0
+'log'#5'Title'#6#17'Open example file'#6'Filter'#6#28'pascal file|*.pas; *.p' +#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'c'
+'p; *.p'#11'FilterIndex'#2#0#4'left'#3#240#0#3'top'#2#16#0#0#0 +'lBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9
+#14'ParentShowHint'#8#0#0#0#11'TOpenDialog'#10'OpenDialog'#5'Title'#6#17'Ope'
+'n example file'#6'Filter'#6#28'pascal file|*.pas; *.pp; *.p'#11'FilterIndex'
+#2#0#4'left'#3#240#0#3'top'#2#16#0#0#10'TPopupMenu'#10'PopupMenu1'#7'OnPopup'
+#7#15'PopupMenu1Popup'#4'left'#3#24#1#3'top'#2#16#0#9'TMenuItem'#24'CopyShor'
+'tToDescrMenuItem'#7'Caption'#6#24'CopyShortToDescrMenuItem'#7'OnClick'#7#29
+'CopyShortToDescrMenuItemClick'#0#0#0#0
]); ]);

View File

@ -41,7 +41,7 @@ uses
BasicCodeTools, FileProcs, CodeAtom, CodeCache, CodeToolManager, BasicCodeTools, FileProcs, CodeAtom, CodeCache, CodeToolManager,
Laz_DOM, Laz_XMLRead, Laz_XMLWrite, Laz_DOM, Laz_XMLRead, Laz_XMLWrite,
// IDEIntf // IDEIntf
ProjectIntf, LazIDEIntf, IDEHelpIntf, LazHelpIntf, ProjectIntf, LazIDEIntf, IDEHelpIntf, LazHelpIntf, Menus,
// IDE // IDE
IDEOptionDefs, EnvironmentOpts, PackageSystem, IDEProcs, LazarusIDEStrConsts, IDEOptionDefs, EnvironmentOpts, PackageSystem, IDEProcs, LazarusIDEStrConsts,
FPDocSelectInherited, FPDocSelectLink, CodeHelp; FPDocSelectInherited, FPDocSelectLink, CodeHelp;
@ -84,6 +84,8 @@ type
LeftBtnPanel: TPanel; LeftBtnPanel: TPanel;
LinkEdit: TEdit; LinkEdit: TEdit;
LinkLabel: TLabel; LinkLabel: TLabel;
CopyShortToDescrMenuItem: TMenuItem;
PopupMenu1: TPopupMenu;
SeeAlsoMemo: TMemo; SeeAlsoMemo: TMemo;
MoveToInheritedButton: TButton; MoveToInheritedButton: TButton;
OpenDialog: TOpenDialog; OpenDialog: TOpenDialog;
@ -99,6 +101,7 @@ type
procedure ApplicationIdle(Sender: TObject; var Done: Boolean); procedure ApplicationIdle(Sender: TObject; var Done: Boolean);
procedure BrowseExampleButtonClick(Sender: TObject); procedure BrowseExampleButtonClick(Sender: TObject);
procedure CopyFromInheritedButtonClick(Sender: TObject); procedure CopyFromInheritedButtonClick(Sender: TObject);
procedure CopyShortToDescrMenuItemClick(Sender: TObject);
procedure CreateButtonClick(Sender: TObject); procedure CreateButtonClick(Sender: TObject);
procedure DescrMemoChange(Sender: TObject); procedure DescrMemoChange(Sender: TObject);
procedure ErrorsMemoChange(Sender: TObject); procedure ErrorsMemoChange(Sender: TObject);
@ -111,6 +114,7 @@ type
procedure LinkEditEditingDone(Sender: TObject); procedure LinkEditEditingDone(Sender: TObject);
procedure MoveToInheritedButtonClick(Sender: TObject); procedure MoveToInheritedButtonClick(Sender: TObject);
procedure PageControlChange(Sender: TObject); procedure PageControlChange(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
procedure SaveButtonClick(Sender: TObject); procedure SaveButtonClick(Sender: TObject);
procedure SeeAlsoMemoEditingDone(Sender: TObject); procedure SeeAlsoMemoEditingDone(Sender: TObject);
procedure ShortEditEditingDone(Sender: TObject); procedure ShortEditEditingDone(Sender: TObject);
@ -230,6 +234,8 @@ begin
CopyFromInheritedButton.Caption:=lisLDCopyFromInherited; CopyFromInheritedButton.Caption:=lisLDCopyFromInherited;
AddLinkToInheritedButton.Caption:=lisLDAddLinkToInherited; AddLinkToInheritedButton.Caption:=lisLDAddLinkToInherited;
CopyShortToDescrMenuItem.Caption:=lisAppendShortDescriptionToLongDescription;
Reset; Reset;
CodeHelpBoss.AddHandlerOnChanging(@OnLazDocChanging); CodeHelpBoss.AddHandlerOnChanging(@OnLazDocChanging);
@ -420,6 +426,13 @@ begin
UpdateButtons; UpdateButtons;
end; end;
procedure TFPDocEditor.PopupMenu1Popup(Sender: TObject);
begin
CopyShortToDescrMenuItem.Visible:=
(PageControl.ActivePage = DescrTabSheet)
or (PageControl.ActivePage = ShortTabSheet);
end;
procedure TFPDocEditor.SaveButtonClick(Sender: TObject); procedure TFPDocEditor.SaveButtonClick(Sender: TObject);
begin begin
Save; Save;
@ -1052,6 +1065,12 @@ begin
Modified:=true; Modified:=true;
end; end;
procedure TFPDocEditor.CopyShortToDescrMenuItemClick(Sender: TObject);
begin
DescrMemo.Append(ShortEdit.Text);
Modified:=true;
end;
procedure TFPDocEditor.CreateButtonClick(Sender: TObject); procedure TFPDocEditor.CreateButtonClick(Sender: TObject);
begin begin
if (fChain=nil) or (fChain.Count=0) then exit; if (fChain=nil) or (fChain.Count=0) then exit;

View File

@ -4443,6 +4443,8 @@ resourcestring
lisLFMIsOk = 'LFM is ok'; lisLFMIsOk = 'LFM is ok';
lisClassesAndPropertiesExistValuesWereNotChecked = 'Classes and properties ' lisClassesAndPropertiesExistValuesWereNotChecked = 'Classes and properties '
+'exist. Values were not checked.'; +'exist. Values were not checked.';
lisAppendShortDescriptionToLongDescription = 'Append short description to '
+'long description';
implementation implementation