IDE: fpdoc editor: Ctrl-S for save, bug #14417

git-svn-id: trunk@21431 -
This commit is contained in:
mattias 2009-08-24 10:03:40 +00:00
parent ad89cdf5d0
commit 78e62777f0
3 changed files with 158 additions and 146 deletions

View File

@ -7,8 +7,10 @@ object FPDocEditor: TFPDocEditor
Caption = 'FPDoc editor'
ClientHeight = 126
ClientWidth = 753
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnResize = FormResize
LCLVersion = '0.9.29'
object PageControl: TPageControl
@ -25,8 +27,8 @@ object FPDocEditor: TFPDocEditor
OnPageChanged = PageControlChange
object ShortTabSheet: TTabSheet
Caption = 'ShortTabSheet'
ClientHeight = 99
ClientWidth = 711
ClientHeight = 95
ClientWidth = 709
object LinkLabel: TLabel
AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrCenter
@ -58,7 +60,7 @@ object FPDocEditor: TFPDocEditor
Left = 82
Height = 27
Top = 0
Width = 627
Width = 625
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 2
@ -104,7 +106,7 @@ object FPDocEditor: TFPDocEditor
Left = 72
Height = 27
Top = 29
Width = 637
Width = 635
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 2
@ -117,13 +119,13 @@ object FPDocEditor: TFPDocEditor
end
object InheritedTabSheet: TTabSheet
Caption = 'InheritedTabSheet'
ClientHeight = 99
ClientWidth = 711
ClientHeight = 95
ClientWidth = 709
object InheritedShortLabel: TLabel
Left = 0
Height = 14
Top = 2
Width = 711
Width = 709
Align = alTop
BorderSpacing.Top = 2
Caption = 'InheritedShortLabel'
@ -138,7 +140,7 @@ object FPDocEditor: TFPDocEditor
Left = 0
Height = 27
Top = 18
Width = 711
Width = 709
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
ReadOnly = True
@ -190,13 +192,13 @@ object FPDocEditor: TFPDocEditor
end
object DescrTabSheet: TTabSheet
Caption = 'DescrTabSheet'
ClientHeight = 99
ClientWidth = 711
ClientHeight = 95
ClientWidth = 709
object DescrMemo: TMemo
Left = 0
Height = 95
Height = 91
Top = 0
Width = 709
Width = 707
Align = alClient
BorderSpacing.Right = 2
BorderSpacing.Bottom = 4
@ -209,13 +211,13 @@ object FPDocEditor: TFPDocEditor
end
object ErrorsTabSheet: TTabSheet
Caption = 'ErrorsTabSheet'
ClientHeight = 99
ClientWidth = 711
ClientHeight = 95
ClientWidth = 709
object ErrorsMemo: TMemo
Left = 0
Height = 95
Height = 91
Top = 0
Width = 709
Width = 707
Align = alClient
BorderSpacing.Right = 2
BorderSpacing.Bottom = 4
@ -228,13 +230,13 @@ object FPDocEditor: TFPDocEditor
end
object SeeAlsoTabSheet: TTabSheet
Caption = 'SeeAlsoTabSheet'
ClientHeight = 99
ClientWidth = 711
ClientHeight = 95
ClientWidth = 709
object SeeAlsoMemo: TMemo
Left = 0
Height = 99
Height = 95
Top = 0
Width = 711
Width = 709
Align = alClient
Lines.Strings = (
'SeeAlsoMemo'
@ -245,13 +247,13 @@ object FPDocEditor: TFPDocEditor
end
object ExampleTabSheet: TTabSheet
Caption = 'ExampleTabSheet'
ClientHeight = 99
ClientWidth = 711
ClientHeight = 95
ClientWidth = 709
object ExampleEdit: TEdit
Left = 0
Height = 27
Top = 0
Width = 709
Width = 707
Align = alTop
BorderSpacing.Right = 2
OnChange = ExampleEditChange
@ -263,7 +265,7 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ExampleTabSheet
AnchorSideRight.Side = asrBottom
Left = 572
Left = 570
Height = 23
Top = 33
Width = 133

View File

@ -3,126 +3,126 @@
LazarusResources.Add('TFPDocEditor','FORMDATA',[
'TPF0'#12'TFPDocEditor'#11'FPDocEditor'#4'Left'#3#254#1#6'Height'#2'~'#3'Top'
+#3#225#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.29'#0#12'TPageControl'#11'PageControl'#4'Left'#2'('#6
+'Height'#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
+'tpBottom'#8'OnChange'#7#17'PageControlChange'#13'OnPageChanged'#7#17'PageCo'
+'ntrolChange'#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#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2#0#6'Height'#2'c'#3
+'Top'#2#0#5'Width'#3#199#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#11'S'
+'eeAlsoMemo'#0#13'OnEditingDone'#7#22'SeeAlsoMemoEditingDone'#8'TabOrder'#2#0
+#0#0#0#9'TTabSheet'#15'ExampleTabSheet'#7'Caption'#6#15'ExampleTabSheet'#12
+'ClientHeight'#2'c'#11'ClientWidth'#3#199#2#0#5'TEdit'#11'ExampleEdit'#4'Lef'
+'t'#2#0#6'Height'#2#27#3'Top'#2#0#5'Width'#3#197#2#5'Align'#7#5'alTop'#19'Bo'
+'rderSpacing.Right'#2#2#8'OnChange'#7#17'ExampleEditChange'#8'TabOrder'#2#0#4
+'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'BrowseExampleButton'#21'AnchorSid'
+'eTop.Control'#7#11'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'An'
+'chorSideRight.Control'#7#15'ExampleTabSheet'#20'AnchorSideRight.Side'#7#9'a'
+'srBottom'#4'Left'#3'<'#2#6'Height'#2#23#3'Top'#2'!'#5'Width'#3#133#0#7'Anch'
+'ors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7
+'Caption'#6#19'BrowseExampleButton'#7'OnClick'#7#24'BrowseExampleButtonClick'
+#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'bvNone'
+#12'ClientHeight'#2'~'#11'ClientWidth'#2#20#11'FullRepaint'#8#14'ParentShowH'
+'int'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#12'TSpeedButton'#16'BoldFormatButton'
+#4'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#5'Align'#7#5'alTop'#5'C'
+'olor'#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#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
+#12'FPDoc editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#10'KeyPrevie'
+'w'#9#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDow'
+'n'#7#11'FormKeyDown'#8'OnResize'#7#10'FormResize'#10'LCLVersion'#6#6'0.9.29'
+#0#12'TPageControl'#11'PageControl'#4'Left'#2'('#6'Height'#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'tpBottom'#8'OnChange'#7#17
+'PageControlChange'#13'OnPageChanged'#7#17'PageControlChange'#0#9'TTabSheet'
+#13'ShortTabSheet'#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'_'#11'C'
+'lientWidth'#3#197#2#0#6'TLabel'#9'LinkLabel'#21'AnchorSideTop.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'ShortEdit'#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'ShortLabel'#11'ParentColor'#8#0#0#5
+'TEdit'#9'ShortEdit'#22'AnchorSideLeft.Control'#7#10'ShortLabel'#19'AnchorSi'
+'deLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'ShortTabSheet'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#27#3'Top'#2
+#0#5'Width'#3'q'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSp'
+'acing.Left'#2#6#19'BorderSpacing.Right'#2#2#8'OnChange'#7#20'ShortEditEditi'
+'ngDone'#13'OnEditingDone'#7#20'ShortEditEditingDone'#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'asrBottom'#4'Left'#2#6#6'Height'#2#29#3
+'Top'#2'>'#5'Width'#2'b'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Captio'
+'n'#6#12'CreateButton'#7'OnClick'#7#17'CreateButtonClick'#8'TabOrder'#2#1#0#0
+#7'TButton'#10'SaveButton'#22'AnchorSideLeft.Control'#7#12'CreateButton'#19
+'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#12'CreateBu'
+'tton'#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'SaveButton'#7'OnClick'#7#15'SaveBut'
+'tonClick'#8'TabOrder'#2#2#0#0#5'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Contro'
+'l'#7#9'LinkLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.C'
+'ontrol'#7#9'ShortEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
+'ight.Control'#7#13'ShortTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2'H'#6'Height'#2#27#3'Top'#2#29#5'Width'#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'OnEdit'
+'ingDone'#7#19'LinkEditEditingDone'#8'TabOrder'#2#3#4'Text'#6#8'LinkEdit'#0#0
+#0#9'TTabSheet'#17'InheritedTabSheet'#7'Caption'#6#17'InheritedTabSheet'#12
+'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0#6'TLabel'#19'InheritedShortLab'
+'el'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#2#5'Width'#3#197#2#5'Align'#7#5'alT'
+'op'#17'BorderSpacing.Top'#2#2#7'Caption'#6#19'InheritedShortLabel'#11'Paren'
+'tColor'#8#0#0#5'TEdit'#18'InheritedShortEdit'#22'AnchorSideLeft.Control'#7
+#17'InheritedTabSheet'#21'AnchorSideTop.Control'#7#19'InheritedShortLabel'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#17'Inherit'
+'edTabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
+#27#3'Top'#2#18#5'Width'#3#197#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#17'BorderSpacing.Top'#2#2#8'ReadOnly'#9#8'TabOrder'#2#0#4'Text'#6#18'Inhe'
+'ritedShortEdit'#0#0#7'TButton'#21'MoveToInheritedButton'#21'AnchorSideTop.C'
+'ontrol'#7#18'InheritedShortEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+'ft'#2#0#6'Height'#2#23#3'Top'#2'3'#5'Width'#3#140#0#8'AutoSize'#9#20'Border'
+'Spacing.Around'#2#6#7'Caption'#6#21'MoveToInheritedButton'#7'OnClick'#7#26
+'MoveToInheritedButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#23'CopyFromInher'
+'itedButton'#22'AnchorSideLeft.Control'#7#21'MoveToInheritedButton'#19'Ancho'
+'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#21'MoveToInherit'
+'edButton'#18'AnchorSideTop.Side'#7#9'asrCenter'#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'OnClick'#7#28'CopyFromInheritedBut'
+'tonClick'#8'TabOrder'#2#2#0#0#7'TButton'#24'AddLinkToInheritedButton'#22'An'
+'chorSideLeft.Control'#7#23'CopyFromInheritedButton'#19'AnchorSideLeft.Side'
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#23'CopyFromInheritedButton'#4'Le'
+'ft'#3'7'#1#6'Height'#2#23#3'Top'#2'3'#5'Width'#3#151#0#8'AutoSize'#9#18'Bor'
+'derSpacing.Left'#2#10#7'Caption'#6#24'AddLinkToInheritedButton'#7'OnClick'#7
,#29'AddLinkToInheritedButtonClick'#8'TabOrder'#2#3#0#0#0#9'TTabSheet'#13'Des'
+'crTabSheet'#7'Caption'#6#13'DescrTabSheet'#12'ClientHeight'#2'_'#11'ClientW'
+'idth'#3#197#2#0#5'TMemo'#9'DescrMemo'#4'Left'#2#0#6'Height'#2'['#3'Top'#2#0
+#5'Width'#3#195#2#5'Align'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'Bord'
+'erSpacing.Bottom'#2#4#13'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#15
+'DescrMemoChange'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7'Ca'
+'ption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0
+#5'TMemo'#10'ErrorsMemo'#4'Left'#2#0#6'Height'#2'['#3'Top'#2#0#5'Width'#3#195
+#2#5'Align'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Botto'
+'m'#2#4#13'Lines.Strings'#1#6#10'ErrorsMemo'#0#8'OnChange'#7#16'ErrorsMemoCh'
+'ange'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'SeeAlsoTabSheet'#7'Caption'#6#15
+'SeeAlsoTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3#197#2#0#5'TMemo'#11
+'SeeAlsoMemo'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#197#2#5'Align'
+#7#8'alClient'#13'Lines.Strings'#1#6#11'SeeAlsoMemo'#0#13'OnEditingDone'#7#22
+'SeeAlsoMemoEditingDone'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'ExampleTabShe'
+'et'#7'Caption'#6#15'ExampleTabSheet'#12'ClientHeight'#2'_'#11'ClientWidth'#3
+#197#2#0#5'TEdit'#11'ExampleEdit'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#0#5'Wi'
+'dth'#3#195#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'TButt'
+'on'#19'BrowseExampleButton'#21'AnchorSideTop.Control'#7#11'ExampleEdit'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#15'Example'
+'TabSheet'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3':'#2#6'Height'#2
+#23#3'Top'#2'!'#5'Width'#3#133#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoS'
+'ize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'BrowseExampleButton'#7
+'OnClick'#7#24'BrowseExampleButtonClick'#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'bvNone'#12'ClientHeight'#2'~'#11'ClientWidth'#2
+#20#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#12
+'TSpeedButton'#16'BoldFormatButton'#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'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#12'TSpeedButton'#27'InsertPr'
+'intShortSpeedButton'#3'Tag'#2#7#4'Left'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Wi'
+'dth'#2#20#7'Caption'#6#2'PS'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnC'
+'lick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#0#11'T'
+'OpenDialog'#10'OpenDialog'#5'Title'#6#17'Open 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#0
+'nClick'#0#0#12'TSpeedButton'#21'UnderlineFormatButton'#3'Tag'#2#2#4'Left'#2
+#0#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'TSpee'
+'dButton'#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'FormatButtonClick'#0#0#12'TSpeedButton'#26'InsertParagr'
+'aphSpeedButton'#3'Tag'#2#6#4'Left'#2#0#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'NumGlyph'
+'s'#2#0#7'OnClick'#7#17'FormatButtonClick'#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'ClientHeight'#2'~'#11'ClientWidth'#2#20#8'TabOrd'
+'er'#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'InsertLinkSpee'
+'dButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#19'In'
+'sertCodeTagButton'#3'Tag'#2#3#4'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'Widt'
+'h'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnCl'
+'ick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpe'
+'edButton'#18'InsertRemarkButton'#3'Tag'#2#4#4'Left'#2#0#6'Height'#2#23#3'To'
+'p'#2'.'#5'Width'#2#20#5'Align'#7#5'alTop'#5'Color'#7#9'clBtnFace'#9'NumGlyp'
+'hs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShowHint'
+#8#0#0#12'TSpeedButton'#27'InsertPrintShortSpeedButton'#3'Tag'#2#7#4'Left'#2
+#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#7'Caption'#6#2'PS'#5'Color'#7#9
+'clBtnFace'#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#0
]);

View File

@ -34,7 +34,7 @@ uses
Classes, SysUtils, StrUtils,
// LCL
LCLProc, LResources, StdCtrls, Buttons, ComCtrls, Controls, Dialogs,
LDockCtrl, ExtCtrls, Forms, Graphics,
LDockCtrl, ExtCtrls, Forms, Graphics, LCLType,
// Synedit
SynEdit,
// codetools
@ -108,6 +108,7 @@ type
procedure FormatButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormResize(Sender: TObject);
procedure InsertLinkSpeedButtonClick(Sender: TObject);
procedure LinkEditEditingDone(Sender: TObject);
@ -264,6 +265,15 @@ begin
Application.RemoveAllHandlersOfObject(Self);
end;
procedure TFPDocEditor.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_S) and (Shift=[ssCtrl]) then begin
Save;
Key:=VK_UNKNOWN;
end;
end;
procedure TFPDocEditor.FormResize(Sender: TObject);
begin