diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index a73b8856be..20abcfdbe4 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -347,7 +347,7 @@ resourcestring lisKMSelectPageBottom = 'Select Page Bottom'; lisUseAndClose = 'Use and close'; lisMenuSelect = 'Select'; - lisMenuMultiPaste = 'MultiPaste'; + lisMenuMultiPaste = 'MultiPaste ...'; lisMenuSelectAll = 'Select All'; lisCheckAll = 'Check All'; lisUncheckAll = 'Uncheck All'; @@ -6317,6 +6317,16 @@ resourcestring synfMatchActionModifiersOfMouseDown = 'Match action modifiers of mouse down'; synfContinueWithNextMouseUpAction = 'Continue with next mouse up action'; lisDuplicateUnitIn = 'Duplicate unit "%s" in "%s"'; + + lismpMultiPaste = 'MultiPaste'; + lismpPasteOptions = 'Paste &options'; + lismpTextBeforeEachLine = 'Text &before each line'; + lismpTextAfterEachLine = 'Text &after each line'; + lismpEscapeQuotes = 'Escape "es'; + lismpPascalStyle = 'Pascal style: '' => '''''; + lismpCStyle = 'C style: " => \"'; + lismpTrimClipboardContents = '&Trim clipboard contents'; + lismpPreview = '&Preview'; implementation end. diff --git a/ide/multipastedlg.pas b/ide/multipastedlg.pas index 0c28ff378d..49cd1e0228 100644 --- a/ide/multipastedlg.pas +++ b/ide/multipastedlg.pas @@ -40,7 +40,7 @@ interface uses SysUtils, Classes, StdCtrls, ButtonPanel, Forms, Clipbrd, SynEdit, - IDEHelpIntf, InputHistory, IDEProcs; + IDEHelpIntf, InputHistory, IDEProcs, LazarusIDEStrConsts; const hlFormatPasteTxtBefore = 'FormatPasteTxtBefore'; @@ -107,6 +107,16 @@ begin List.AppendEntry(''');'); TxtAfterLinesComboBox.Items.Assign(List); TxtAfterLinesComboBox.Text:=List[0]; + + Caption := lismpMultiPaste; + PasteOptsGroupBox.Caption := lismpPasteOptions; + TxtBeforeLinesLabel.Caption := lismpTextBeforeEachLine; + TxtAfterLinesLabel.Caption := lismpTextAfterEachLine; + EscQuotesCheckBox.Caption := lismpEscapeQuotes; + EscQuotesStyleComboBox.Items[0] := lismpPascalStyle; + EscQuotesStyleComboBox.Items[1] := lismpCStyle; + TrimClipbrdContentsCheckBox.Caption := lismpTrimClipboardContents; + PreviewGroupBox.Caption := lismpPreview; end; procedure TMultiPasteDialog.FormDestroy(Sender: TObject);