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

git-svn-id: trunk@16790 -

components/printers/design/ideprinting.pas

@@ -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,13 +77,37 @@ begin
 end;
 
 procedure PrintFile(Sender: TObject);
+
 var
   sp: TSourcePrinter;
+  L : TStrings;
+  R : TModalResult;
+
 begin
+  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;
-  sp.Execute(SourceEditorWindow.ActiveEditor.Lines);
+    try
+      sp.Execute(L);
+    finally
       sp.Free;
     end;
+  finally
+    L.Free;
+  end;
+end;
 
 end.
 

components/printers/design/languages/ideprinting.de.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.fi.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.fr.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.id.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.lt.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.pb.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.pl.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.po

@@ -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 ""
+

components/printers/design/languages/ideprinting.ru.po

@@ -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 ""
+