From 2a09af0079d297c7996269f3ec1d725dd12542f6 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 15 Nov 2009 11:48:39 +0000 Subject: [PATCH] IDE: fpdoc editor: enabling save button on every change, setting modified only on eidtingdone, bug #15092 git-svn-id: trunk@22594 - --- ide/fpdoceditwindow.lfm | 44 ++++---- ide/fpdoceditwindow.lrs | 238 ++++++++++++++++++++-------------------- ide/fpdoceditwindow.pas | 36 ++++++ 3 files changed, 180 insertions(+), 138 deletions(-) diff --git a/ide/fpdoceditwindow.lfm b/ide/fpdoceditwindow.lfm index cf4e05c447..8a5f32309f 100644 --- a/ide/fpdoceditwindow.lfm +++ b/ide/fpdoceditwindow.lfm @@ -1,9 +1,9 @@ object FPDocEditor: TFPDocEditor - Left = 515 + Left = 514 Height = 126 Top = 761 Width = 753 - ActiveControl = LeftBtnPanel + ActiveControl = ShortEdit Caption = 'FPDoc editor' ClientHeight = 126 ClientWidth = 753 @@ -64,7 +64,7 @@ object FPDocEditor: TFPDocEditor Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.Right = 2 - OnChange = ShortEditEditingDone + OnChange = ShortEditChange OnEditingDone = ShortEditEditingDone TabOrder = 0 Text = 'ShortEdit' @@ -97,7 +97,7 @@ object FPDocEditor: TFPDocEditor BorderSpacing.Left = 6 BorderSpacing.Top = 2 BorderSpacing.Right = 2 - OnChange = LinkEditEditingDone + OnChange = LinkEditChange OnEditingDone = LinkEditEditingDone TabOrder = 2 Text = 'LinkEdit' @@ -109,7 +109,7 @@ object FPDocEditor: TFPDocEditor ClientWidth = 688 object InheritedShortLabel: TLabel Left = 0 - Height = 14 + Height = 18 Top = 2 Width = 688 Align = alTop @@ -125,7 +125,7 @@ object FPDocEditor: TFPDocEditor AnchorSideRight.Side = asrBottom Left = 0 Height = 27 - Top = 18 + Top = 22 Width = 688 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 2 @@ -137,9 +137,9 @@ object FPDocEditor: TFPDocEditor AnchorSideTop.Control = InheritedShortEdit AnchorSideTop.Side = asrBottom Left = 0 - Height = 23 - Top = 51 - Width = 140 + Height = 29 + Top = 55 + Width = 158 AutoSize = True BorderSpacing.Around = 6 Caption = 'MoveToInheritedButton' @@ -151,10 +151,10 @@ object FPDocEditor: TFPDocEditor AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = MoveToInheritedButton AnchorSideTop.Side = asrCenter - Left = 150 - Height = 23 - Top = 51 - Width = 151 + Left = 168 + Height = 29 + Top = 55 + Width = 175 AutoSize = True BorderSpacing.Left = 10 Caption = 'CopyFromInheritedButton' @@ -165,10 +165,10 @@ object FPDocEditor: TFPDocEditor AnchorSideLeft.Control = CopyFromInheritedButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CopyFromInheritedButton - Left = 311 - Height = 23 - Top = 51 - Width = 151 + Left = 353 + Height = 29 + Top = 55 + Width = 174 AutoSize = True BorderSpacing.Left = 10 Caption = 'AddLinkToInheritedButton' @@ -192,6 +192,7 @@ object FPDocEditor: TFPDocEditor 'DescrMemo' ) OnChange = DescrMemoChange + OnEditingDone = DescrMemoEditingDone TabOrder = 0 end end @@ -211,6 +212,7 @@ object FPDocEditor: TFPDocEditor 'ErrorsMemo' ) OnChange = ErrorsMemoChange + OnEditingDone = ErrorsMemoEditingDone TabOrder = 0 end end @@ -227,6 +229,7 @@ object FPDocEditor: TFPDocEditor Lines.Strings = ( 'SeeAlsoMemo' ) + OnChange = SeeAlsoMemoChange OnEditingDone = SeeAlsoMemoEditingDone TabOrder = 0 end @@ -243,6 +246,7 @@ object FPDocEditor: TFPDocEditor Align = alTop BorderSpacing.Right = 2 OnChange = ExampleEditChange + OnEditingDone = ExampleEditEditingDone TabOrder = 0 Text = 'ExampleEdit' end @@ -251,10 +255,10 @@ object FPDocEditor: TFPDocEditor AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ExampleTabSheet AnchorSideRight.Side = asrBottom - Left = 549 - Height = 23 + Left = 526 + Height = 29 Top = 33 - Width = 133 + Width = 156 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 diff --git a/ide/fpdoceditwindow.lrs b/ide/fpdoceditwindow.lrs index 0acb0e20e0..87807d0301 100644 --- a/ide/fpdoceditwindow.lrs +++ b/ide/fpdoceditwindow.lrs @@ -1,31 +1,31 @@ { This is an automatically generated lazarus resource file } LazarusResources.Add('TFPDocEditor','FORMDATA',[ - 'TPF0'#12'TFPDocEditor'#11'FPDocEditor'#4'Left'#3#3#2#6'Height'#2'~'#3'Top'#3 - +#249#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#10'KeyPreview'#9 - +#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#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'Widt' - +'h'#3#178#2#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8'TabI' - +'ndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#8'OnChange'#7#17'Pa' - +'geControlChange'#13'OnPageChanged'#7#17'PageControlChange'#0#9'TTabSheet'#13 - +'ShortTabSheet'#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'c'#11'Clie' - +'ntWidth'#3#176#2#0#6'TLabel'#9'LinkLabel'#21'AnchorSideTop.Control'#7#8'Lin' - +'kEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'T' - +'op'#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 + 'TPF0'#12'TFPDocEditor'#11'FPDocEditor'#4'Left'#3#2#2#6'Height'#2'~'#3'Top'#3 + +#249#2#5'Width'#3#241#2#13'ActiveControl'#7#9'ShortEdit'#7'Caption'#6#12'FPD' + +'oc editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#10'KeyPreview'#9#8 + +'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#11 + +'FormKeyDown'#8'OnResize'#7#10'FormResize'#10'LCLVersion'#6#6'0.9.29'#0#12'T' + +'PageControl'#11'PageControl'#4'Left'#2'?'#6'Height'#2'~'#3'Top'#2#0#5'Width' + +#3#178#2#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8'TabInde' + +'x'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#8'OnChange'#7#17'PageC' + +'ontrolChange'#13'OnPageChanged'#7#17'PageControlChange'#0#9'TTabSheet'#13'S' + +'hortTabSheet'#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'c'#11'Clien' + +'tWidth'#3#176#2#0#6'TLabel'#9'LinkLabel'#21'AnchorSideTop.Control'#7#8'Link' + +'Edit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'To' + +'p'#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.Si' + +'de'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#4#5'Width'#2'F'#18'B' + +'orderSpacing.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'\'#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 + +'acing.Left'#2#6#19'BorderSpacing.Right'#2#2#8'OnChange'#7#15'ShortEditChang' + +'e'#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'Li' + +'nkEdit'#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 +#5'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Control'#7#9'LinkLabel'#19'AnchorSid' @@ -34,102 +34,104 @@ LazarusResources.Add('TFPDocEditor','FORMDATA',[ +'et'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'H'#6'Height'#2#27#3'T' +'op'#2#29#5'Width'#3'f'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'B' +'orderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#2 - +#8'OnChange'#7#19'LinkEditEditingDone'#13'OnEditingDone'#7#19'LinkEditEditin' - +'gDone'#8'TabOrder'#2#2#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'#17'Inherite' - +'dTabSheet'#7'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2'c'#11'Clie' - +'ntWidth'#3#176#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0#6'Height'#2 - +#14#3'Top'#2#2#5'Width'#3#176#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'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#18#5'Width'#3 - +#176#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'InheritedShortEdit'#0#0#7'TBut' - +'ton'#21'MoveToInheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShor' - +'tEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#23#3'T' - +'op'#2'3'#5'Width'#3#140#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capt' - +'ion'#6#21'MoveToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick' - +#8'TabOrder'#2#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLef' - +'t.Control'#7#21'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBotto' - +'m'#21'AnchorSideTop.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.S' - +'ide'#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'CopyFromInh' - +'eritedButton'#7'OnClick'#7#28'CopyFromInheritedButtonClick'#8'TabOrder'#2#2 - +#0#0#7'TButton'#24'AddLinkToInheritedButton'#22'AnchorSideLeft.Control'#7#23 - +'CopyFromInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi' - +'deTop.Control'#7#23'CopyFromInheritedButton'#4'Left'#3'7'#1#6'Height'#2#23#3 - +'Top'#2'3'#5'Width'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Capt' - +'ion'#6#24'AddLinkToInheritedButton'#7'OnClick'#7#29'AddLinkToInheritedButto' - +'nClick'#8'TabOrder'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Caption'#6#13 - +'DescrTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#9'D' - +'escrMemo'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7 - +#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lin' - ,'es.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#8'TabOrder' - +#2#0#0#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12 - +'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#10'ErrorsMemo'#4'Left' - +#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#8'alClient'#19'Bo' - +'rderSpacing.Right'#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'TT' - +'abSheet'#15'SeeAlsoTabSheet'#7'Caption'#6#15'SeeAlsoTabSheet'#12'ClientHeig' - +'ht'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2#0#6'H' - +'eight'#2'c'#3'Top'#2#0#5'Width'#3#176#2#5'Align'#7#8'alClient'#13'Lines.Str' - +'ings'#1#6#11'SeeAlsoMemo'#0#13'OnEditingDone'#7#22'SeeAlsoMemoEditingDone'#8 - +'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'ExampleTabSheet'#7'Caption'#6#15'Exampl' - +'eTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TEdit'#11'Exam' - +'pleEdit'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#5 - +'alTop'#19'BorderSpacing.Right'#2#2#8'OnChange'#7#17'ExampleEditChange'#8'Ta' - +'bOrder'#2#0#4'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'BrowseExampleButton' - +#21'AnchorSideTop.Control'#7#11'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrB' - +'ottom'#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'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Ar' - +'ound'#2#6#7'Caption'#6#19'BrowseExampleButton'#7'OnClick'#7#24'BrowseExampl' - +'eButtonClick'#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'?'#5'Align'#7#6'alLeft'#8'AutoSize'#9 - +#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTo' - +'pToBottom'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#2'~'#11'Cli' - +'entWidth'#2'?'#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOr' - +'der'#2#1#0#12'TSpeedButton'#16'BoldFormatButton'#4'Left'#2#0#6'Height'#2#23 - +#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxW' - +'idth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatB' - +'uttonClick'#0#0#12'TSpeedButton'#18'ItalicFormatButton'#3'Tag'#2#1#4'Left'#2 - +#20#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20 - +'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnCli' - +'ck'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'UnderlineFormatButton'#3 - +'Tag'#2#2#4'Left'#2'('#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraint' - +'s.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'N' - +'umGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#18'In' - +'sertVarTagButton'#3'Tag'#2#5#4'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'Width' - +#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7 - +#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSp' - +'eedButton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#4'Left'#2#20#6'Height' - +#2#23#3'Top'#2#23#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraint' - +'s.MaxWidth'#2#20#7'Caption'#6#1'P'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0 - +#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'InsertLinkSpeedB' - +'utton'#4'Left'#2'('#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#21'Constraints' - +'.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#7'Caption'#6#2'Li'#5'Color'#7 - +#9'clBtnFace'#7'Enabled'#8#9'NumGlyphs'#2#0#7'OnClick'#7#26'InsertLinkSpeedB' - +'uttonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#19'Inse' - +'rtCodeTagButton'#3'Tag'#2#3#4'Left'#2#0#6'Height'#2#23#3'Top'#2'.'#5'Width' - +#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7 + +#8'OnChange'#7#14'LinkEditChange'#13'OnEditingDone'#7#19'LinkEditEditingDone' + +#8'TabOrder'#2#2#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'#17'InheritedTabShe' + +'et'#7'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth' + +#3#176#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0#6'Height'#2#18#3'To' + +'p'#2#2#5'Width'#3#176#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#2#7'Cap' + +'tion'#6#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#18'Inherited' + +'ShortEdit'#22'AnchorSideLeft.Control'#7#17'InheritedTabSheet'#21'AnchorSide' + +'Top.Control'#7#19'InheritedShortLabel'#18'AnchorSideTop.Side'#7#9'asrBottom' + +#23'AnchorSideRight.Control'#7#17'InheritedTabSheet'#20'AnchorSideRight.Side' + +#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#22#5'Width'#3#176#2#7'An' + +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#8'ReadO' + +'nly'#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'#0#0#7'TButton'#21'M' + +'oveToInheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShortEdit'#18 + +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#29#3'Top'#2'7'#5 + +'Width'#3#158#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'M' + +'oveToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick'#8'TabOrde' + +'r'#2#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLeft.Control' + +#7#21'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Ancho' + +'rSideTop.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.Side'#7#9'as' + +'rCenter'#4'Left'#3#168#0#6'Height'#2#29#3'Top'#2'7'#5'Width'#3#175#0#8'Auto' + +'Size'#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'a'#1#6'Height'#2#29#3'Top'#2'7'#5'W' + +'idth'#3#174#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'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#9'DescrMemo'#4 + +'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#174#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'#13'OnEditingDone'#7#20'D' + +'escrMemoEditingDone'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7 + +'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2 + +#0#5'TMemo'#10'ErrorsMemo'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3 + +#174#2#5'Align'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.B' + +'ottom'#2#4#13'Lines.Strings'#1#6#10'ErrorsMemo'#0#8'OnChange'#7#16'ErrorsMe' + +'moChange'#13'OnEditingDone'#7#21'ErrorsMemoEditingDone'#8'TabOrder'#2#0#0#0 + +#0#9'TTabSheet'#15'SeeAlsoTabSheet'#7'Caption'#6#15'SeeAlsoTabSheet'#12'Clie' + +'ntHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2 + +#0#6'Height'#2'c'#3'Top'#2#0#5'Width'#3#176#2#5'Align'#7#8'alClient'#13'Line' + +'s.Strings'#1#6#11'SeeAlsoMemo'#0#8'OnChange'#7#17'SeeAlsoMemoChange'#13'OnE' + +'ditingDone'#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#176#2#0#5'TEdit'#11'ExampleEdit'#4'Left'#2#0#6'Height'#2 + +#27#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#5'alTop'#19'BorderSpacing.Right'#2 + +#2#8'OnChange'#7#17'ExampleEditChange'#13'OnEditingDone'#7#22'ExampleEditEdi' + +'tingDone'#8'TabOrder'#2#0#4'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'Brows' + +'eExampleButton'#21'AnchorSideTop.Control'#7#11'ExampleEdit'#18'AnchorSideTo' + +'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#15'ExampleTabSheet'#20 + +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#14#2#6'Height'#2#29#3'Top'#2 + +'!'#5'Width'#3#156#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'Bo' + +'rderSpacing.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'?'#5'Align'#7#6'alLeft'#8 + +'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29'cclLeftT' + +'oRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight' + +#2'~'#11'ClientWidth'#2'?'#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint' + +#9#8'TabOrder'#2#1#0#12'TSpeedButton'#16'BoldFormatButton'#4'Left'#2#0#6'Hei' + +'ght'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constr' + +'aints.MaxWidth'#2#20#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#20#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeig' + +'ht'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs' + +#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'UnderlineFor' + +'matButton'#3'Tag'#2#2#4'Left'#2'('#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20 + +#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'c' + +'lBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeed' + +'Button'#18'InsertVarTagButton'#3'Tag'#2#5#4'Left'#2#0#6'Height'#2#23#3'Top' + +#2#23#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2 + +#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonCli' + +'ck'#0#0#12'TSpeedButton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#4'Left'#2 + +#20#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#21'Constraints.MaxHeight'#2#23 + +#20'Constraints.MaxWidth'#2#20#7'Caption'#6#1'P'#5'Color'#7#9'clBtnFace'#9'N' + +'umGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'In' + +'sertLinkSpeedButton'#4'Left'#2'('#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20 + +#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#7'Caption'#6#2 + +'Li'#5'Color'#7#9'clBtnFace'#7'Enabled'#8#9'NumGlyphs'#2#0#7'OnClick'#7#26'I' + +'nsertLinkSpeedButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeed' + +'Button'#19'InsertCodeTagButton'#3'Tag'#2#3#4'Left'#2#0#6'Height'#2#23#3'Top' + +#2'.'#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2 + +#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonCli' + +'ck'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#18'InsertRemark' + +'Button'#3'Tag'#2#4#4'Left'#2#20#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#21 + +'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBt' + +'nFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14 + +'ParentShowHint'#8#0#0#12'TSpeedButton'#27'InsertPrintShortSpeedButton'#3'Ta' + +'g'#2#7#4'Left'#2'('#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#21'Constraints' + +'.MaxHeight'#2#23#20'Constraints.MaxWidth'#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#12'TSpeedButton'#18'InsertRemarkButton'#3'Tag'#2 - +#4#4'Left'#2#20#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#21'Constraints.MaxH' - +'eight'#2#23#20'Constraints.MaxWidth'#2#20#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 - +'('#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#21'Constraints.MaxHeight'#2#23 - +#20'Constraints.MaxWidth'#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'ParentSh' - +'owHint'#8#0#0#12'TSpeedButton'#23'InsertURLTagSpeedButton'#3'Tag'#2#8#4'Lef' - +'t'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#21'Constraints.MaxHeight'#2 - +#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7 - +'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12 - +'TSpeedButton'#10'SaveButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left' - +#2#0#6'Height'#2#29#3'Top'#2'a'#5'Width'#2'?'#5'Align'#7#8'alBottom'#7'Capti' - +'on'#6#4'Save'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#15'Save' - ,'ButtonClick'#0#0#0#11'TOpenDialog'#10'OpenDialog'#5'Title'#6#17'Open exampl' - +'e 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 + +#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#23'InsertURLTagSpeedButton'#3'T' + +'ag'#2#8#4'Left'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#21'Constraints' + +'.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'Nu' + +'mGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShow' + +'Hint'#8#0#0#12'TSpeedButton'#10'SaveButton'#19'AnchorSideLeft.Side'#7#9'asr' + ,'Bottom'#4'Left'#2#0#6'Height'#2#29#3'Top'#2'a'#5'Width'#2'?'#5'Align'#7#8'a' + +'lBottom'#7'Caption'#6#4'Save'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'On' + +'Click'#7#15'SaveButtonClick'#0#0#0#11'TOpenDialog'#10'OpenDialog'#5'Title'#6 + +#17'Open example file'#6'Filter'#6#28'pascal file|*.pas; *.pp; *.p'#11'Filte' + +'rIndex'#2#0#4'left'#3#240#0#3'top'#2#16#0#0#0 ]); diff --git a/ide/fpdoceditwindow.pas b/ide/fpdoceditwindow.pas index 7b69aeeb21..38aed692bf 100644 --- a/ide/fpdoceditwindow.pas +++ b/ide/fpdoceditwindow.pas @@ -103,19 +103,25 @@ type procedure CopyShortToDescrMenuItemClick(Sender: TObject); procedure CreateButtonClick(Sender: TObject); procedure DescrMemoChange(Sender: TObject); + procedure DescrMemoEditingDone(Sender: TObject); procedure ErrorsMemoChange(Sender: TObject); + procedure ErrorsMemoEditingDone(Sender: TObject); procedure ExampleEditChange(Sender: TObject); + procedure ExampleEditEditingDone(Sender: TObject); 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 LinkEditChange(Sender: TObject); procedure LinkEditEditingDone(Sender: TObject); procedure MoveToInheritedButtonClick(Sender: TObject); procedure PageControlChange(Sender: TObject); procedure SaveButtonClick(Sender: TObject); + procedure SeeAlsoMemoChange(Sender: TObject); procedure SeeAlsoMemoEditingDone(Sender: TObject); + procedure ShortEditChange(Sender: TObject); procedure ShortEditEditingDone(Sender: TObject); private FCaretXY: TPoint; @@ -358,6 +364,11 @@ begin Modified:=true; end; +procedure TFPDocEditor.LinkEditChange(Sender: TObject); +begin + SaveButton.Enabled:=LinkEdit.Text<>FOldVisualValues[fpdiElementLink]; +end; + procedure TFPDocEditor.ApplicationIdle(Sender: TObject; var Done: Boolean); begin if fUpdateLock>0 then @@ -454,12 +465,22 @@ begin Save; end; +procedure TFPDocEditor.SeeAlsoMemoChange(Sender: TObject); +begin + SaveButton.Enabled:=SeeAlsoMemo.Text<>FOldVisualValues[fpdiSeeAlso]; +end; + procedure TFPDocEditor.SeeAlsoMemoEditingDone(Sender: TObject); begin if SeeAlsoMemo.Text<>FOldVisualValues[fpdiSeeAlso] then Modified:=true; end; +procedure TFPDocEditor.ShortEditChange(Sender: TObject); +begin + SaveButton.Enabled:=ShortEdit.Text<>FOldVisualValues[fpdiShort]; +end; + procedure TFPDocEditor.ShortEditEditingDone(Sender: TObject); begin if ShortEdit.Text<>FOldVisualValues[fpdiShort] then @@ -1042,12 +1063,22 @@ begin end; procedure TFPDocEditor.ErrorsMemoChange(Sender: TObject); +begin + SaveButton.Enabled:=ErrorsMemo.Text<>FOldVisualValues[fpdiErrors]; +end; + +procedure TFPDocEditor.ErrorsMemoEditingDone(Sender: TObject); begin if ErrorsMemo.Text<>FOldVisualValues[fpdiErrors] then Modified:=true; end; procedure TFPDocEditor.ExampleEditChange(Sender: TObject); +begin + SaveButton.Enabled:=ExampleEdit.Text<>FOldVisualValues[fpdiExample]; +end; + +procedure TFPDocEditor.ExampleEditEditingDone(Sender: TObject); begin if ExampleEdit.Text<>FOldVisualValues[fpdiExample] then Modified:=true; @@ -1139,6 +1170,11 @@ begin end; procedure TFPDocEditor.DescrMemoChange(Sender: TObject); +begin + SaveButton.Enabled:=DescrMemo.Text<>FOldVisualValues[fpdiDescription]; +end; + +procedure TFPDocEditor.DescrMemoEditingDone(Sender: TObject); begin if DescrMemo.Text<>FOldVisualValues[fpdiDescription] then Modified:=true;