paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:57:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpdoc: resourcestring and layout

Browse Source
This commit is contained in:
mattias 2025-01-05 16:47:07 +01:00
parent 7cfdbd74c8
commit c729f88cfb
3 changed files with 149 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

272
ide/fpdoceditwindow.lfm
View File

@ -3,38 +3,38 @@ object FPDocEditor: TFPDocEditor
Height = 326 Height = 326
Top = 485 Top = 485
Width = 840 Width = 840
ActiveControl = PageControl
Caption = 'FPDoc editor' Caption = 'FPDoc editor'
ClientHeight = 326 ClientHeight = 326
ClientWidth = 840 ClientWidth = 840
KeyPreview = True KeyPreview = True
LCLVersion = '3.99.0.0' LCLVersion = '4.99.0.0'
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
object PageControl: TPageControl object PageControl: TPageControl
Left = 28 Left = 38
Height = 326 Height = 326
Top = 0 Top = 0
Width = 812 Width = 800
ActivePage = DescrTabSheet ActivePage = DescrTabSheet
Align = alClient Align = alClient
BorderSpacing.Right = 2
TabIndex = 2 TabIndex = 2
TabOrder = 0 TabOrder = 0
TabPosition = tpBottom TabPosition = tpBottom
OnChange = PageControlChange OnChange = PageControlChange
object ShortTabSheet: TTabSheet object ShortTabSheet: TTabSheet
Caption = 'ShortTabSheet' Caption = 'ShortTabSheet'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
object LinkLabel: TLabel object LinkLabel: TLabel
AnchorSideTop.Control = LinkEdit AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 16
Top = 29 Top = 36
Width = 50 Width = 58
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'LinkLabel' Caption = 'LinkLabel'
ParentColor = False ParentColor = False
@ -44,9 +44,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = ShortEdit AnchorSideTop.Control = ShortEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 16
Top = 4 Top = 6
Width = 56 Width = 66
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShortLabel' Caption = 'ShortLabel'
ParentColor = False ParentColor = False
@ -56,10 +56,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ShortTabSheet AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 68 Left = 78
Height = 23 Height = 28
Top = 0 Top = 0
Width = 734 Width = 710
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -72,8 +72,8 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = LinkEdit AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 30
Top = 54 Top = 64
Width = 96 Width = 96
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -88,10 +88,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ShortTabSheet AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 62 Left = 70
Height = 23 Height = 28
Top = 25 Top = 30
Width = 740 Width = 718
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -105,10 +105,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = CreateButton AnchorSideTop.Control = CreateButton
AnchorSideRight.Control = ShortTabSheet AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 689 Left = 673
Height = 25 Height = 30
Top = 54 Top = 64
Width = 115 Width = 117
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = 'OpenXMLButton' Caption = 'OpenXMLButton'
@ -120,13 +120,13 @@ object FPDocEditor: TFPDocEditor
end end
object InheritedTabSheet: TTabSheet object InheritedTabSheet: TTabSheet
Caption = 'InheritedTabSheet' Caption = 'InheritedTabSheet'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
object InheritedShortLabel: TLabel object InheritedShortLabel: TLabel
Left = 0 Left = 0
Height = 15 Height = 16
Top = 2 Top = 2
Width = 804 Width = 790
Align = alTop Align = alTop
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'InheritedShortLabel' Caption = 'InheritedShortLabel'
@ -139,9 +139,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideRight.Control = InheritedTabSheet AnchorSideRight.Control = InheritedTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 23 Height = 28
Top = 19 Top = 20
Width = 804 Width = 790
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ReadOnly = True ReadOnly = True
@ -152,9 +152,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = InheritedShortEdit AnchorSideTop.Control = InheritedShortEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 25 Height = 30
Top = 48 Top = 54
Width = 152 Width = 161
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'MoveToInheritedButton' Caption = 'MoveToInheritedButton'
@ -166,10 +166,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MoveToInheritedButton AnchorSideTop.Control = MoveToInheritedButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 162 Left = 171
Height = 25 Height = 30
Top = 48 Top = 54
Width = 165 Width = 174
AutoSize = True AutoSize = True
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'CopyFromInheritedButton' Caption = 'CopyFromInheritedButton'
@ -180,10 +180,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Control = CopyFromInheritedButton AnchorSideLeft.Control = CopyFromInheritedButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CopyFromInheritedButton AnchorSideTop.Control = CopyFromInheritedButton
Left = 337 Left = 355
Height = 25 Height = 30
Top = 48 Top = 54
Width = 166 Width = 177
AutoSize = True AutoSize = True
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'AddLinkToInheritedButton' Caption = 'AddLinkToInheritedButton'
@ -193,16 +193,15 @@ object FPDocEditor: TFPDocEditor
end end
object DescrTabSheet: TTabSheet object DescrTabSheet: TTabSheet
Caption = 'DescrTabSheet' Caption = 'DescrTabSheet'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
inline DescrSynEdit: TSynEdit inline DescrSynEdit: TSynEdit
Left = 0 Left = 0
Height = 269 Height = 266
Top = 25 Top = 30
Width = 802 Width = 788
Align = alClient Align = alClient
BorderSpacing.Right = 2 BorderSpacing.Right = 2
BorderSpacing.Bottom = 4
Font.Height = -11 Font.Height = -11
Font.Name = 'Courier New' Font.Name = 'Courier New'
Font.Pitch = fpFixed Font.Pitch = fpFixed
@ -755,6 +754,8 @@ object FPDocEditor: TFPDocEditor
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15 Width = 15
@ -789,23 +790,23 @@ object FPDocEditor: TFPDocEditor
end end
object ShortPanel: TPanel object ShortPanel: TPanel
Left = 0 Left = 0
Height = 25 Height = 30
Top = 0 Top = 0
Width = 804 Width = 790
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
AutoSize = True AutoSize = True
Caption = 'Short' Caption = 'Short'
ClientHeight = 25 ClientHeight = 30
ClientWidth = 804 ClientWidth = 790
TabOrder = 1 TabOrder = 1
object DescrShortEdit: TEdit object DescrShortEdit: TEdit
AnchorSideLeft.Control = ShortPanel AnchorSideLeft.Control = ShortPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 61 Left = 61
Height = 23 Height = 28
Top = 1 Top = 1
Width = 740 Width = 726
Align = alRight Align = alRight
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSelect = False AutoSelect = False
@ -820,13 +821,13 @@ object FPDocEditor: TFPDocEditor
end end
object ErrorsTabSheet: TTabSheet object ErrorsTabSheet: TTabSheet
Caption = 'ErrorsTabSheet' Caption = 'ErrorsTabSheet'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
inline ErrorsSynEdit: TSynEdit inline ErrorsSynEdit: TSynEdit
Left = 0 Left = 0
Height = 294 Height = 292
Top = 0 Top = 0
Width = 802 Width = 788
Align = alClient Align = alClient
BorderSpacing.Right = 2 BorderSpacing.Right = 2
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -1382,6 +1383,8 @@ object FPDocEditor: TFPDocEditor
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15 Width = 15
@ -1417,13 +1420,13 @@ object FPDocEditor: TFPDocEditor
end end
object SeeAlsoTabSheet: TTabSheet object SeeAlsoTabSheet: TTabSheet
Caption = 'SeeAlsoTabSheet' Caption = 'SeeAlsoTabSheet'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
inline SeeAlsoSynEdit: TSynEdit inline SeeAlsoSynEdit: TSynEdit
Left = 0 Left = 0
Height = 298 Height = 296
Top = 0 Top = 0
Width = 804 Width = 790
Align = alClient Align = alClient
Font.Height = -11 Font.Height = -11
Font.Name = 'Courier New' Font.Name = 'Courier New'
@ -1977,6 +1980,8 @@ object FPDocEditor: TFPDocEditor
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15 Width = 15
@ -2012,13 +2017,13 @@ object FPDocEditor: TFPDocEditor
end end
object ExampleTabSheet: TTabSheet object ExampleTabSheet: TTabSheet
Caption = 'ExampleTabSheet' Caption = 'ExampleTabSheet'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
object ExampleEdit: TEdit object ExampleEdit: TEdit
Left = 0 Left = 0
Height = 23 Height = 28
Top = 0 Top = 0
Width = 802 Width = 788
Align = alTop Align = alTop
AutoSelect = False AutoSelect = False
BorderSpacing.Right = 2 BorderSpacing.Right = 2
@ -2031,10 +2036,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ExampleTabSheet AnchorSideRight.Control = ExampleTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 653 Left = 630
Height = 25 Height = 30
Top = 29 Top = 34
Width = 145 Width = 154
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -2045,35 +2050,35 @@ object FPDocEditor: TFPDocEditor
end end
object TopicSheet: TTabSheet object TopicSheet: TTabSheet
Caption = 'Topics' Caption = 'Topics'
ClientHeight = 298 ClientHeight = 296
ClientWidth = 804 ClientWidth = 790
object Panel1: TPanel object Panel1: TPanel
Left = 634 Left = 620
Height = 298 Height = 296
Top = 0 Top = 0
Width = 170 Width = 170
Align = alRight Align = alRight
BorderSpacing.Left = 5 BorderSpacing.Left = 5
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 298 ClientHeight = 296
ClientWidth = 170 ClientWidth = 170
TabOrder = 0 TabOrder = 0
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 25 Height = 30
Top = 0 Top = 0
Width = 170 Width = 170
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 25 ClientHeight = 30
ClientWidth = 170 ClientWidth = 170
TabOrder = 0 TabOrder = 0
object NewTopicButton: TButton object NewTopicButton: TButton
Left = 120 Left = 129
Height = 25 Height = 30
Top = 0 Top = 0
Width = 50 Width = 41
Align = alRight Align = alRight
AutoSize = True AutoSize = True
Caption = 'New' Caption = 'New'
@ -2082,9 +2087,9 @@ object FPDocEditor: TFPDocEditor
end end
object NewTopicNameEdit: TEdit object NewTopicNameEdit: TEdit
Left = 0 Left = 0
Height = 25 Height = 30
Top = 0 Top = 0
Width = 115 Width = 124
Align = alClient Align = alClient
BorderSpacing.Right = 5 BorderSpacing.Right = 5
TabOrder = 1 TabOrder = 1
@ -2093,33 +2098,34 @@ object FPDocEditor: TFPDocEditor
end end
object TopicListBox: TListBox object TopicListBox: TListBox
Left = 0 Left = 0
Height = 268 Height = 261
Top = 30 Top = 35
Width = 170 Width = 170
Align = alClient Align = alClient
BorderSpacing.Top = 5 BorderSpacing.Top = 5
ItemHeight = 0 ItemHeight = 0
ScrollWidth = 168 ScrollWidth = 168
TabOrder = 1 TabOrder = 1
TopIndex = -1
OnClick = TopicListBoxClick OnClick = TopicListBoxClick
OnEnter = TopicControlEnter OnEnter = TopicControlEnter
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Height = 298 Height = 296
Top = 0 Top = 0
Width = 629 Width = 615
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 298 ClientHeight = 296
ClientWidth = 629 ClientWidth = 615
TabOrder = 1 TabOrder = 1
object TopicShort: TEdit object TopicShort: TEdit
Left = 0 Left = 0
Height = 23 Height = 28
Top = 0 Top = 0
Width = 629 Width = 615
Align = alTop Align = alTop
AutoSelect = False AutoSelect = False
TabOrder = 0 TabOrder = 0
@ -2128,9 +2134,9 @@ object FPDocEditor: TFPDocEditor
end end
inline TopicDescrSynEdit: TSynEdit inline TopicDescrSynEdit: TSynEdit
Left = 0 Left = 0
Height = 270 Height = 263
Top = 28 Top = 33
Width = 629 Width = 615
Align = alClient Align = alClient
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Font.Height = -11 Font.Height = -11
@ -2682,6 +2688,8 @@ object FPDocEditor: TFPDocEditor
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15 Width = 15
@ -2721,43 +2729,43 @@ object FPDocEditor: TFPDocEditor
Left = 0 Left = 0
Height = 326 Height = 326
Top = 0 Top = 0
Width = 28 Width = 38
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 326 ClientHeight = 326
ClientWidth = 28 ClientWidth = 38
FullRepaint = False FullRepaint = False
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
object BoldFormatButton: TSpeedButton object BoldFormatButton: TSpeedButton
Left = 0 Left = 0
Height = 4 Height = 10
Top = 0 Top = 0
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object ItalicFormatButton: TSpeedButton object ItalicFormatButton: TSpeedButton
Tag = 1 Tag = 1
Left = 4 Left = 10
Height = 4 Height = 10
Top = 0 Top = 0
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object UnderlineFormatButton: TSpeedButton object UnderlineFormatButton: TSpeedButton
Tag = 2 Tag = 2
Left = 8 Left = 20
Height = 4 Height = 10
Top = 0 Top = 0
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
OnClick = FormatButtonClick OnClick = FormatButtonClick
@ -2765,28 +2773,28 @@ object FPDocEditor: TFPDocEditor
object InsertVarTagButton: TSpeedButton object InsertVarTagButton: TSpeedButton
Tag = 5 Tag = 5
Left = 0 Left = 0
Height = 4 Height = 10
Top = 4 Top = 10
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object InsertParagraphSpeedButton: TSpeedButton object InsertParagraphSpeedButton: TSpeedButton
Tag = 6 Tag = 6
Left = 4 Left = 10
Height = 4 Height = 10
Top = 4 Top = 10
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object InsertLinkSpeedButton: TSpeedButton object InsertLinkSpeedButton: TSpeedButton
Left = 8 Left = 20
Height = 4 Height = 10
Top = 4 Top = 10
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
Enabled = False Enabled = False
@ -2797,9 +2805,9 @@ object FPDocEditor: TFPDocEditor
object InsertCodeTagButton: TSpeedButton object InsertCodeTagButton: TSpeedButton
Tag = 3 Tag = 3
Left = 0 Left = 0
Height = 4 Height = 10
Top = 8 Top = 20
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
ShowHint = True ShowHint = True
@ -2808,10 +2816,10 @@ object FPDocEditor: TFPDocEditor
end end
object InsertRemarkButton: TSpeedButton object InsertRemarkButton: TSpeedButton
Tag = 4 Tag = 4
Left = 4 Left = 10
Height = 4 Height = 10
Top = 8 Top = 20
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
ShowHint = True ShowHint = True
@ -2820,10 +2828,10 @@ object FPDocEditor: TFPDocEditor
end end
object InsertPrintShortSpeedButton: TSpeedButton object InsertPrintShortSpeedButton: TSpeedButton
Tag = 7 Tag = 7
Left = 8 Left = 20
Height = 4 Height = 10
Top = 8 Top = 20
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
ShowHint = True ShowHint = True
@ -2833,9 +2841,9 @@ object FPDocEditor: TFPDocEditor
object InsertURLTagSpeedButton: TSpeedButton object InsertURLTagSpeedButton: TSpeedButton
Tag = 8 Tag = 8
Left = 0 Left = 0
Height = 4 Height = 10
Top = 12 Top = 30
Width = 4 Width = 10
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
ShowHint = True ShowHint = True
@ -2847,7 +2855,7 @@ object FPDocEditor: TFPDocEditor
Left = 0 Left = 0
Height = 29 Height = 29
Top = 297 Top = 297
Width = 28 Width = 38
Align = alBottom Align = alBottom
Caption = 'Save' Caption = 'Save'
OnClick = SaveButtonClick OnClick = SaveButtonClick
@ -2865,7 +2873,7 @@ object FPDocEditor: TFPDocEditor
Enabled = False Enabled = False
TextAttri.Style = [] TextAttri.Style = []
WantBracesParsed = False WantBracesParsed = False
Left = 16 Left = 32
Top = 56 Top = 70
end end
end end

8
ide/fpdoceditwindow.pas
View File

@ -999,6 +999,8 @@ begin
InsertParagraphSpeedButton.Enabled:=HasEdit; InsertParagraphSpeedButton.Enabled:=HasEdit;
InsertRemarkButton.Enabled:=HasEdit; InsertRemarkButton.Enabled:=HasEdit;
InsertVarTagButton.Enabled:=HasEdit; InsertVarTagButton.Enabled:=HasEdit;
InsertPrintShortSpeedButton.Enabled:=HasEdit;
InsertURLTagSpeedButton.Enabled:=HasEdit;
end; end;
function TFPDocEditor.GetCurrentUnitName: string; function TFPDocEditor.GetCurrentUnitName: string;
@ -1583,9 +1585,9 @@ begin
if i<0 then exit; if i<0 then exit;
//DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']); //DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']);
if ShortEdit.Text<>'' then begin if ShortEdit.Text<>'' then begin
if IDEQuestionDialog('Confirm replace', if IDEQuestionDialog(lisConfirmReplace,
GetContextTitle(fChain[0])+' already contains the help:'+LineEnding+ShortEdit.Text, GetContextTitle(fChain[0])+' already contains the help:'+LineEnding+ShortEdit.Text,
mtConfirmation, [mrYes,'Replace', mtConfirmation, [mrYes, lisReplace,
mrCancel]) <> mrYes then exit; mrCancel]) <> mrYes then exit;
end; end;
LoadGUIValues(fChain[i]); LoadGUIValues(fChain[i]);
@ -1602,7 +1604,7 @@ procedure TFPDocEditor.CreateButtonClick(Sender: TObject);
begin begin
if ((fChain=nil) or (fChain.Count=0)) if ((fChain=nil) or (fChain.Count=0))
or (TCodeHelpElement(fChain[0]).ElementName='') then begin or (TCodeHelpElement(fChain[0]).ElementName='') then begin
IDEMessageDialog('Invalid Declaration','Please place the editor caret on an identifier. If this is a new unit, please save the file first.', IDEMessageDialog(lisInvalidDeclaration, lisPleasePlaceTheEditorCaretOnAnIdentifierIfThisIsANe,
mtError,[mbOK]); mtError,[mbOK]);
exit; exit;
end; end;

4
ide/lazarusidestrconsts.pas
View File

@ -52,6 +52,7 @@ resourcestring
lisBtnRename = '&Rename'; lisBtnRename = '&Rename';
lisRename2 = 'Rename ...'; lisRename2 = 'Rename ...';
lisReplace = 'Replace'; lisReplace = 'Replace';
lisConfirmReplace = 'Confirm Replace';
lisBtnReplace = '&Replace'; lisBtnReplace = '&Replace';
lisBtnDlgReplace = '&Replace ...'; lisBtnDlgReplace = '&Replace ...';
lisEdit = 'Edit'; lisEdit = 'Edit';
@ -1512,6 +1513,9 @@ resourcestring
// open-dialog filters // open-dialog filters
dlgFilterAll = 'All files'; dlgFilterAll = 'All files';
lisInvalidDeclaration = 'Invalid Declaration';
lisPleasePlaceTheEditorCaretOnAnIdentifierIfThisIsANe = 'Please place the editor caret on an '
+'identifier. If this is a new unit, please save the file first.';
dlgFilterXML = 'XML files'; dlgFilterXML = 'XML files';
dlgFilterHTML = 'HTML files'; dlgFilterHTML = 'HTML files';
dlgFilterPrograms = 'Programs'; dlgFilterPrograms = 'Programs';