paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 04:58:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: add option to print selected text from Michael van Canneyt (issue #12197)

Browse Source 
git-svn-id: trunk@16790 -
This commit is contained in:
vincents 2008-09-29 10:58:15 +00:00
parent 0ec71e6201
commit 96ccd451db
10 changed files with 177 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/printers/design/ideprinting.pas
View File

@ -31,10 +31,15 @@ procedure Register;
implementation
uses
MenuIntf, IDECommands, Dialogs, SrcEditorIntf, SourcePrinter;
MenuIntf, IDECommands, Controls, Forms, Dialogs, SrcEditorIntf, SourcePrinter;
resourcestring
SDescrPFSelection = 'Print...';
SPrintSources = 'Print sources';
SPrintWhat = 'What would you like to print ?';
SPrintFile = 'Complete file';
SPrintSelection = 'Selected text';
var
CmdFormatSelection : TIDECommand;
@ -72,12 +77,36 @@ begin
end;
procedure PrintFile(Sender: TObject);
var
sp: TSourcePrinter;
L : TStrings;
R : TModalResult;
begin
sp := TSourcePrinter.Create;
sp.Execute(SourceEditorWindow.ActiveEditor.Lines);
sp.Free;
If Not Assigned(SourceEditorWindow) or Not Assigned(SourceEditorWindow.ActiveEditor) then
Exit;
If (SourceEditorWindow.ActiveEditor.Selection='') then
R:=mrYesToAll
else
R:=QuestionDlg(SPrintSources,SPrintWhat,mtInformation,[mrYesToAll,SPrintFile,mrYes,SPrintSelection,mrCancel],0);
If R=mrCancel then
exit;
L:=TStringList.Create;
try
case R of
mrYesToAll : L.Assign(SourceEditorWindow.ActiveEditor.Lines);
mrYes : L.Text:=SourceEditorWindow.ActiveEditor.Selection;
end;
sp := TSourcePrinter.Create;
try
sp.Execute(L);
finally
sp.Free;
end;
finally
L.Free;
end;
end;
end.

16
components/printers/design/languages/ideprinting.de.po
View File

@ -13,3 +13,19 @@ msgstr ""
msgid "Print..."
msgstr "Drucken ..."
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.fi.po
View File

@ -8,3 +8,19 @@ msgstr ""
msgid "Print..."
msgstr "Tulosta..."
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.fr.po
View File

@ -15,3 +15,19 @@ msgstr ""
msgid "Print..."
msgstr "Imprimer..."
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.id.po
View File

@ -13,3 +13,19 @@ msgstr ""
msgid "Print..."
msgstr ""
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.lt.po
View File

@ -14,3 +14,19 @@ msgstr ""
msgid "Print..."
msgstr "Spausdinti..."
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.pb.po
View File

@ -8,3 +8,19 @@ msgstr ""
msgid "Print..."
msgstr "Imprimir"
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.pl.po
View File

@ -15,3 +15,19 @@ msgstr ""
msgid "Print..."
msgstr "Drukuj..."
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.po
View File

@ -8,3 +8,19 @@ msgstr ""
msgid "Print..."
msgstr ""
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""

16
components/printers/design/languages/ideprinting.ru.po
View File

@ -13,3 +13,19 @@ msgstr ""
msgid "Print..."
msgstr "Печать..."
#: ideprinting.sprintfile
msgid "Complete file"
msgstr ""
#: ideprinting.sprintselection
msgid "Selected text"
msgstr ""
#: ideprinting.sprintsources
msgid "Print sources"
msgstr ""
#: ideprinting.sprintwhat
msgid "What would you like to print ?"
msgstr ""