IDE: fpdoc editor: enabling save button on every change, setting modified only on eidtingdone, bug #15092

git-svn-id: trunk@22594 -

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
+        Height = 29
-        Top = 51
+        Top = 55
-        Width = 140
+        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
+        Left = 168
-        Height = 23
+        Height = 29
-        Top = 51
+        Top = 55
-        Width = 151
+        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
+        Left = 353
-        Height = 23
+        Height = 29
-        Top = 51
+        Top = 55
-        Width = 151
+        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
+        Left = 526
-        Height = 23
+        Height = 29
         Top = 33
-        Width = 133
+        Width = 156
         Anchors = [akTop, akRight]
         AutoSize = True
         BorderSpacing.Around = 6

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
+  '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#12'LeftBtnPanel'#7'Caption'#6#12
+  +#249#2#5'Width'#3#241#2#13'ActiveControl'#7#9'ShortEdit'#7'Caption'#6#12'FPD'
-  +'FPDoc editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#10'KeyPreview'#9
+  +'oc editor'#12'ClientHeight'#2'~'#11'ClientWidth'#3#241#2#10'KeyPreview'#9#8
-  +#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7
+  +'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#11
-  +#11'FormKeyDown'#8'OnResize'#7#10'FormResize'#10'LCLVersion'#6#6'0.9.29'#0#12
+  +'FormKeyDown'#8'OnResize'#7#10'FormResize'#10'LCLVersion'#6#6'0.9.29'#0#12'T'
-  +'TPageControl'#11'PageControl'#4'Left'#2'?'#6'Height'#2'~'#3'Top'#2#0#5'Widt'
+  +'PageControl'#11'PageControl'#4'Left'#2'?'#6'Height'#2'~'#3'Top'#2#0#5'Width'
-  +'h'#3#178#2#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8'TabI'
+  +#3#178#2#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8'TabInde'
-  +'ndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#8'OnChange'#7#17'Pa'
+  +'x'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#8'OnChange'#7#17'PageC'
-  +'geControlChange'#13'OnPageChanged'#7#17'PageControlChange'#0#9'TTabSheet'#13
+  +'ontrolChange'#13'OnPageChanged'#7#17'PageControlChange'#0#9'TTabSheet'#13'S'
-  +'ShortTabSheet'#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'c'#11'Clie'
+  +'hortTabSheet'#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'c'#11'Clien'
-  +'ntWidth'#3#176#2#0#6'TLabel'#9'LinkLabel'#21'AnchorSideTop.Control'#7#8'Lin'
+  +'tWidth'#3#176#2#0#6'TLabel'#9'LinkLabel'#21'AnchorSideTop.Control'#7#8'Link'
-  +'kEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'T'
+  +'Edit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'To'
-  +'op'#2'!'#5'Width'#2'<'#17'BorderSpacing.Top'#2#6#7'Caption'#6#9'LinkLabel'
+  +'p'#2'!'#5'Width'#2'<'#17'BorderSpacing.Top'#2#6#7'Caption'#6#9'LinkLabel'#11
-  +#11'ParentColor'#8#0#0#6'TLabel'#10'ShortLabel'#22'AnchorSideLeft.Control'#7
+  +'ParentColor'#8#0#0#6'TLabel'#10'ShortLabel'#22'AnchorSideLeft.Control'#7#13
-  +#13'ShortTabSheet'#21'AnchorSideTop.Control'#7#9'ShortEdit'#18'AnchorSideTop'
+  +'ShortTabSheet'#21'AnchorSideTop.Control'#7#9'ShortEdit'#18'AnchorSideTop.Si'
-  +'.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#4#5'Width'#2'F'#18
+  +'de'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#4#5'Width'#2'F'#18'B'
-  +'BorderSpacing.Left'#2#6#7'Caption'#6#10'ShortLabel'#11'ParentColor'#8#0#0#5
+  +'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'
+  +'acing.Left'#2#6#19'BorderSpacing.Right'#2#2#8'OnChange'#7#15'ShortEditChang'
-  +'ngDone'#13'OnEditingDone'#7#20'ShortEditEditingDone'#8'TabOrder'#2#0#4'Text'
+  +'e'#13'OnEditingDone'#7#20'ShortEditEditingDone'#8'TabOrder'#2#0#4'Text'#6#9
-  +#6#9'ShortEdit'#0#0#7'TButton'#12'CreateButton'#21'AnchorSideTop.Control'#7#8
+  +'ShortEdit'#0#0#7'TButton'#12'CreateButton'#21'AnchorSideTop.Control'#7#8'Li'
-  +'LinkEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3
+  +'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'
+  +#8'OnChange'#7#14'LinkEditChange'#13'OnEditingDone'#7#19'LinkEditEditingDone'
-  +'gDone'#8'TabOrder'#2#2#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'#17'Inherite'
+  +#8'TabOrder'#2#2#4'Text'#6#8'LinkEdit'#0#0#0#9'TTabSheet'#17'InheritedTabShe'
-  +'dTabSheet'#7'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2'c'#11'Clie'
+  +'et'#7'Caption'#6#17'InheritedTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'
-  +'ntWidth'#3#176#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0#6'Height'#2
+  +#3#176#2#0#6'TLabel'#19'InheritedShortLabel'#4'Left'#2#0#6'Height'#2#18#3'To'
-  +#14#3'Top'#2#2#5'Width'#3#176#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#2
+  +'p'#2#2#5'Width'#3#176#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#2#7'Cap'
-  +#7'Caption'#6#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#18'Inhe'
+  +'tion'#6#19'InheritedShortLabel'#11'ParentColor'#8#0#0#5'TEdit'#18'Inherited'
-  +'ritedShortEdit'#22'AnchorSideLeft.Control'#7#17'InheritedTabSheet'#21'Ancho'
+  +'ShortEdit'#22'AnchorSideLeft.Control'#7#17'InheritedTabSheet'#21'AnchorSide'
-  +'rSideTop.Control'#7#19'InheritedShortLabel'#18'AnchorSideTop.Side'#7#9'asrB'
+  +'Top.Control'#7#19'InheritedShortLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'
-  +'ottom'#23'AnchorSideRight.Control'#7#17'InheritedTabSheet'#20'AnchorSideRig'
+  +#23'AnchorSideRight.Control'#7#17'InheritedTabSheet'#20'AnchorSideRight.Side'
-  +'ht.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#18#5'Width'#3
+  +#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#22#5'Width'#3#176#2#7'An'
-  +#176#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2
+  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#8'ReadO'
-  +#2#8'ReadOnly'#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'#0#0#7'TBut'
+  +'nly'#9#8'TabOrder'#2#0#4'Text'#6#18'InheritedShortEdit'#0#0#7'TButton'#21'M'
-  +'ton'#21'MoveToInheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShor'
+  +'oveToInheritedButton'#21'AnchorSideTop.Control'#7#18'InheritedShortEdit'#18
-  +'tEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#23#3'T'
+  +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#29#3'Top'#2'7'#5
-  +'op'#2'3'#5'Width'#3#140#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capt'
+  +'Width'#3#158#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'M'
-  +'ion'#6#21'MoveToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick'
+  +'oveToInheritedButton'#7'OnClick'#7#26'MoveToInheritedButtonClick'#8'TabOrde'
-  +#8'TabOrder'#2#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLef'
+  +'r'#2#1#0#0#7'TButton'#23'CopyFromInheritedButton'#22'AnchorSideLeft.Control'
-  +'t.Control'#7#21'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBotto'
+  +#7#21'MoveToInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Ancho'
-  +'m'#21'AnchorSideTop.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.S'
+  +'rSideTop.Control'#7#21'MoveToInheritedButton'#18'AnchorSideTop.Side'#7#9'as'
-  +'ide'#7#9'asrCenter'#4'Left'#3#150#0#6'Height'#2#23#3'Top'#2'3'#5'Width'#3
+  +'rCenter'#4'Left'#3#168#0#6'Height'#2#29#3'Top'#2'7'#5'Width'#3#175#0#8'Auto'
-  +#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#23'CopyFromInh'
+  +'Size'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#23'CopyFromInheritedButton'
-  +'eritedButton'#7'OnClick'#7#28'CopyFromInheritedButtonClick'#8'TabOrder'#2#2
+  +#7'OnClick'#7#28'CopyFromInheritedButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'
-  +#0#0#7'TButton'#24'AddLinkToInheritedButton'#22'AnchorSideLeft.Control'#7#23
+  +#24'AddLinkToInheritedButton'#22'AnchorSideLeft.Control'#7#23'CopyFromInheri'
-  +'CopyFromInheritedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi'
+  +'tedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'
-  +'deTop.Control'#7#23'CopyFromInheritedButton'#4'Left'#3'7'#1#6'Height'#2#23#3
+  +#7#23'CopyFromInheritedButton'#4'Left'#3'a'#1#6'Height'#2#29#3'Top'#2'7'#5'W'
-  +'Top'#2'3'#5'Width'#3#151#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Capt'
+  +'idth'#3#174#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#24'Add'
-  +'ion'#6#24'AddLinkToInheritedButton'#7'OnClick'#7#29'AddLinkToInheritedButto'
+  +'LinkToInheritedButton'#7'OnClick'#7#29'AddLinkToInheritedButtonClick'#8'Tab'
-  +'nClick'#8'TabOrder'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Caption'#6#13
+  +'Order'#2#3#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Caption'#6#13'DescrTabShe'
-  +'DescrTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#9'D'
+  +'et'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#9'DescrMemo'#4
-  +'escrMemo'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7
+  +'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#8'alClient'
-  +#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lin'
+  +#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1
-  ,'es.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#8'TabOrder'
+  ,#6#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#13'OnEditingDone'#7#20'D'
-  +#2#0#0#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12
+  +'escrMemoEditingDone'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7
-  +'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#10'ErrorsMemo'#4'Left'
+  +'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2
-  +#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#8'alClient'#19'Bo'
+  +#0#5'TMemo'#10'ErrorsMemo'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5'Width'#3
-  +'rderSpacing.Right'#2#2#20'BorderSpacing.Bottom'#2#4#13'Lines.Strings'#1#6#10
+  +#174#2#5'Align'#7#8'alClient'#19'BorderSpacing.Right'#2#2#20'BorderSpacing.B'
-  +'ErrorsMemo'#0#8'OnChange'#7#16'ErrorsMemoChange'#8'TabOrder'#2#0#0#0#0#9'TT'
+  +'ottom'#2#4#13'Lines.Strings'#1#6#10'ErrorsMemo'#0#8'OnChange'#7#16'ErrorsMe'
-  +'abSheet'#15'SeeAlsoTabSheet'#7'Caption'#6#15'SeeAlsoTabSheet'#12'ClientHeig'
+  +'moChange'#13'OnEditingDone'#7#21'ErrorsMemoEditingDone'#8'TabOrder'#2#0#0#0
-  +'ht'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2#0#6'H'
+  +#0#9'TTabSheet'#15'SeeAlsoTabSheet'#7'Caption'#6#15'SeeAlsoTabSheet'#12'Clie'
-  +'eight'#2'c'#3'Top'#2#0#5'Width'#3#176#2#5'Align'#7#8'alClient'#13'Lines.Str'
+  +'ntHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TMemo'#11'SeeAlsoMemo'#4'Left'#2
-  +'ings'#1#6#11'SeeAlsoMemo'#0#13'OnEditingDone'#7#22'SeeAlsoMemoEditingDone'#8
+  +#0#6'Height'#2'c'#3'Top'#2#0#5'Width'#3#176#2#5'Align'#7#8'alClient'#13'Line'
-  +'TabOrder'#2#0#0#0#0#9'TTabSheet'#15'ExampleTabSheet'#7'Caption'#6#15'Exampl'
+  +'s.Strings'#1#6#11'SeeAlsoMemo'#0#8'OnChange'#7#17'SeeAlsoMemoChange'#13'OnE'
-  +'eTabSheet'#12'ClientHeight'#2'c'#11'ClientWidth'#3#176#2#0#5'TEdit'#11'Exam'
+  +'ditingDone'#7#22'SeeAlsoMemoEditingDone'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'
-  +'pleEdit'#4'Left'#2#0#6'Height'#2#27#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#5
+  +#15'ExampleTabSheet'#7'Caption'#6#15'ExampleTabSheet'#12'ClientHeight'#2'c'
-  +'alTop'#19'BorderSpacing.Right'#2#2#8'OnChange'#7#17'ExampleEditChange'#8'Ta'
+  +#11'ClientWidth'#3#176#2#0#5'TEdit'#11'ExampleEdit'#4'Left'#2#0#6'Height'#2
-  +'bOrder'#2#0#4'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'BrowseExampleButton'
+  +#27#3'Top'#2#0#5'Width'#3#174#2#5'Align'#7#5'alTop'#19'BorderSpacing.Right'#2
-  +#21'AnchorSideTop.Control'#7#11'ExampleEdit'#18'AnchorSideTop.Side'#7#9'asrB'
+  +#2#8'OnChange'#7#17'ExampleEditChange'#13'OnEditingDone'#7#22'ExampleEditEdi'
-  +'ottom'#23'AnchorSideRight.Control'#7#15'ExampleTabSheet'#20'AnchorSideRight'
+  +'tingDone'#8'TabOrder'#2#0#4'Text'#6#11'ExampleEdit'#0#0#7'TButton'#19'Brows'
-  +'.Side'#7#9'asrBottom'#4'Left'#3'%'#2#6'Height'#2#23#3'Top'#2'!'#5'Width'#3
+  +'eExampleButton'#21'AnchorSideTop.Control'#7#11'ExampleEdit'#18'AnchorSideTo'
-  +#133#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Ar'
+  +'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#15'ExampleTabSheet'#20
-  +'ound'#2#6#7'Caption'#6#19'BrowseExampleButton'#7'OnClick'#7#24'BrowseExampl'
+  +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#14#2#6'Height'#2#29#3'Top'#2
-  +'eButtonClick'#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#12'LeftBtnPanel'#4'Left'#2#0
+  +'!'#5'Width'#3#156#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'Bo'
-  +#6'Height'#2'~'#3'Top'#2#0#5'Width'#2'?'#5'Align'#7#6'alLeft'#8'AutoSize'#9
+  +'rderSpacing.Around'#2#6#7'Caption'#6#19'BrowseExampleButton'#7'OnClick'#7#24
-  +#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTo'
+  +'BrowseExampleButtonClick'#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#12'LeftBtnPanel'
-  +'pToBottom'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#2'~'#11'Cli'
+  +#4'Left'#2#0#6'Height'#2'~'#3'Top'#2#0#5'Width'#2'?'#5'Align'#7#6'alLeft'#8
-  +'entWidth'#2'?'#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOr'
+  +'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29'cclLeftT'
-  +'der'#2#1#0#12'TSpeedButton'#16'BoldFormatButton'#4'Left'#2#0#6'Height'#2#23
+  +'oRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'
-  +#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxW'
+  +#2'~'#11'ClientWidth'#2'?'#11'FullRepaint'#8#14'ParentShowHint'#8#8'ShowHint'
-  +'idth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatB'
+  +#9#8'TabOrder'#2#1#0#12'TSpeedButton'#16'BoldFormatButton'#4'Left'#2#0#6'Hei'
-  +'uttonClick'#0#0#12'TSpeedButton'#18'ItalicFormatButton'#3'Tag'#2#1#4'Left'#2
+  +'ght'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constr'
-  +#20#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20
+  +'aints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7
-  +'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnCli'
+  +#17'FormatButtonClick'#0#0#12'TSpeedButton'#18'ItalicFormatButton'#3'Tag'#2#1
-  +'ck'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'UnderlineFormatButton'#3
+  +#4'Left'#2#20#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraints.MaxHeig'
-  +'Tag'#2#2#4'Left'#2'('#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20#21'Constraint'
+  +'ht'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'
-  +'s.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'N'
+  +#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'UnderlineFor'
-  +'umGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#18'In'
+  +'matButton'#3'Tag'#2#2#4'Left'#2'('#6'Height'#2#23#3'Top'#2#0#5'Width'#2#20
-  +'sertVarTagButton'#3'Tag'#2#5#4'Left'#2#0#6'Height'#2#23#3'Top'#2#23#5'Width'
+  +#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'c'
-  +#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7
+  +'lBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeed'
-  +#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSp'
+  +'Button'#18'InsertVarTagButton'#3'Tag'#2#5#4'Left'#2#0#6'Height'#2#23#3'Top'
-  +'eedButton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#4'Left'#2#20#6'Height'
+  +#2#23#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2
-  +#2#23#3'Top'#2#23#5'Width'#2#20#21'Constraints.MaxHeight'#2#23#20'Constraint'
+  +#20#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonCli'
-  +'s.MaxWidth'#2#20#7'Caption'#6#1'P'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0
+  +'ck'#0#0#12'TSpeedButton'#26'InsertParagraphSpeedButton'#3'Tag'#2#6#4'Left'#2
-  +#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'InsertLinkSpeedB'
+  +#20#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#21'Constraints.MaxHeight'#2#23
-  +'utton'#4'Left'#2'('#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20#21'Constraints'
+  +#20'Constraints.MaxWidth'#2#20#7'Caption'#6#1'P'#5'Color'#7#9'clBtnFace'#9'N'
-  +'.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#7'Caption'#6#2'Li'#5'Color'#7
+  +'umGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#0#0#12'TSpeedButton'#21'In'
-  +#9'clBtnFace'#7'Enabled'#8#9'NumGlyphs'#2#0#7'OnClick'#7#26'InsertLinkSpeedB'
+  +'sertLinkSpeedButton'#4'Left'#2'('#6'Height'#2#23#3'Top'#2#23#5'Width'#2#20
-  +'uttonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#19'Inse'
+  +#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#7'Caption'#6#2
-  +'rtCodeTagButton'#3'Tag'#2#3#4'Left'#2#0#6'Height'#2#23#3'Top'#2'.'#5'Width'
+  +'Li'#5'Color'#7#9'clBtnFace'#7'Enabled'#8#9'NumGlyphs'#2#0#7'OnClick'#7#26'I'
-  +#2#20#21'Constraints.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7
+  +'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
+  +#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#23'InsertURLTagSpeedButton'#3'T'
-  +#4#4'Left'#2#20#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#21'Constraints.MaxH'
+  +'ag'#2#8#4'Left'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#21'Constraints'
-  +'eight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'NumGlyp'
+  +'.MaxHeight'#2#23#20'Constraints.MaxWidth'#2#20#5'Color'#7#9'clBtnFace'#9'Nu'
-  +'hs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShowHint'
+  +'mGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentShow'
-  +#8#0#0#12'TSpeedButton'#27'InsertPrintShortSpeedButton'#3'Tag'#2#7#4'Left'#2
+  +'Hint'#8#0#0#12'TSpeedButton'#10'SaveButton'#19'AnchorSideLeft.Side'#7#9'asr'
-  +'('#6'Height'#2#23#3'Top'#2'.'#5'Width'#2#20#21'Constraints.MaxHeight'#2#23
+  ,'Bottom'#4'Left'#2#0#6'Height'#2#29#3'Top'#2'a'#5'Width'#2'?'#5'Align'#7#8'a'
-  +#20'Constraints.MaxWidth'#2#20#7'Caption'#6#2'PS'#5'Color'#7#9'clBtnFace'#9
+  +'lBottom'#7'Caption'#6#4'Save'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'On'
-  +'NumGlyphs'#2#0#7'OnClick'#7#17'FormatButtonClick'#8'ShowHint'#9#14'ParentSh'
+  +'Click'#7#15'SaveButtonClick'#0#0#0#11'TOpenDialog'#10'OpenDialog'#5'Title'#6
-  +'owHint'#8#0#0#12'TSpeedButton'#23'InsertURLTagSpeedButton'#3'Tag'#2#8#4'Lef'
+  +#17'Open example file'#6'Filter'#6#28'pascal file|*.pas; *.pp; *.p'#11'Filte'
-  +'t'#2#0#6'Height'#2#23#3'Top'#2'E'#5'Width'#2#20#21'Constraints.MaxHeight'#2
+  +'rIndex'#2#0#4'left'#3#240#0#3'top'#2#16#0#0#0
-  +#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
 ]);

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;