add export snippet to text file

Author: GuvaCode

lang/codelibconst.en.po

@@ -136,6 +136,14 @@ msgstr "Printer setup..."
 msgid "Read only"
 msgstr "Read only"
 
+#: codelibconst.rs_actsaveashtml
+msgid "Export snippet as html page"
+msgstr "Export snippet as html page"
+
+#: codelibconst.rs_actsaveastxt
+msgid "Export snippet as text file"
+msgstr "Export snippet as text file"
+
 #: codelibconst.rs_actsyntaxnone
 msgid "&None"
 msgstr "&None"
@@ -168,9 +176,9 @@ msgstr "&Edit"
 msgid "Syntax &highlighting"
 msgstr "Syntax &highlighting"
 
-#: codelibconst.rs_mitexporthtml
-msgid "Export as HTML"
-msgstr "Export as HTML"
+#: codelibconst.rs_mitexport
+msgid "Export"
+msgstr "Export"
 
 #: codelibconst.rs_mitfile
 msgid "File"

lang/codelibconst.po

@@ -125,6 +125,14 @@ msgstr ""
 msgid "Read only"
 msgstr ""
 
+#: codelibconst.rs_actsaveashtml
+msgid "Export snippet as html page"
+msgstr ""
+
+#: codelibconst.rs_actsaveastxt
+msgid "Export snippet as text file"
+msgstr ""
+
 #: codelibconst.rs_actsyntaxnone
 msgid "&None"
 msgstr ""
@@ -157,8 +165,8 @@ msgstr ""
 msgid "Syntax &highlighting"
 msgstr ""
 
-#: codelibconst.rs_mitexporthtml
-msgid "Export as HTML"
+#: codelibconst.rs_mitexport
+msgid "Export"
 msgstr ""
 
 #: codelibconst.rs_mitfile

lang/codelibconst.ru.po

@@ -136,6 +136,14 @@ msgstr "Настройка печати..."
 msgid "Read only"
 msgstr "Только для чтения"
 
+#: codelibconst.rs_actsaveashtml
+msgid "Export snippet as html page"
+msgstr "Экспортировать фрагмент как страницу html"
+
+#: codelibconst.rs_actsaveastxt
+msgid "Export snippet as text file"
+msgstr "Экспортировать фрагмент как текстовый файл"
+
 #: codelibconst.rs_actsyntaxnone
 msgid "&None"
 msgstr "&Без подсветки"
@@ -168,9 +176,9 @@ msgstr "&Правка"
 msgid "Syntax &highlighting"
 msgstr "&Подсветка синтаксиса"
 
-#: codelibconst.rs_mitexporthtml
-msgid "Export as HTML"
-msgstr "Экспорт в формате HTML"
+#: codelibconst.rs_mitexport
+msgid "Export"
+msgstr "Экспорт"
 
 #: codelibconst.rs_mitfile
 msgid "File"

src/codelib.lfm

@@ -215,8 +215,14 @@ object CodeFrm: TCodeFrm
       object mitFileSep1: TMenuItem
         Caption = '-'
       end
-      object mitExportHtml: TMenuItem
-        Action = actSaveAsHtml
+      object mitExport: TMenuItem
+        Caption = 'mitExport'
+        object mitExportTXT: TMenuItem
+          Action = actSaveAsTXT
+        end
+        object mitExportHtml: TMenuItem
+          Action = actSaveAsHtml
+        end
       end
       object mitExpSep: TMenuItem
         Caption = '-'
@@ -652,6 +658,11 @@ object CodeFrm: TCodeFrm
       OnExecute = actEditRedoExecute
       ShortCut = 16473
     end
+    object actSaveAsTXT: TAction
+      Category = 'File'
+      Caption = 'Export as Text'
+      OnExecute = actSaveAsTXTExecute
+    end
   end
   object ilActions: TImageList
     Left = 416

src/codelib.pas

@@ -5,6 +5,7 @@
 {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 {$WARN 5024 off : Parameter "$1" not used}
 {$WARN 4055 off : Conversion between ordinals and pointers is not portable}
+{$WARN 4046 off : Constructing a class "$1" with abstract method "$2"}
 {$HINTS OFF}
 
 interface
@@ -31,6 +32,7 @@   TCodeFrm = class(TForm)
     actCopyAsHtml: TAction;
     actEditUndo: TAction;
     actEditRedo: TAction;
+    actSaveAsTXT: TAction;
     actReadOnly: TAction;
     actSyntaxBat: TAction;
     actSyntaxUNIXShell: TAction;
@@ -42,6 +44,9 @@   TCodeFrm = class(TForm)
     actSyntaxJava: TAction;
     CodeDB: TBufDataset;
     DataSource1: TDataSource;
+    mitExportHtml: TMenuItem;
+    mitExportTXT: TMenuItem;
+    mitExport: TMenuItem;
     mitEditorRedo: TMenuItem;
     mitEditorUndo: TMenuItem;
     mitEditorSep5: TMenuItem;
@@ -56,7 +61,6 @@   TCodeFrm = class(TForm)
     mitJavaScript: TMenuItem;
     mitEditorSep3: TMenuItem;
     mitEditorCopyHtml: TMenuItem;
-    mitExportHtml: TMenuItem;
     mitExpSep: TMenuItem;
     mitJAVA: TMenuItem;
     dlgPrinterSetup: TPrinterSetupDialog;
@@ -181,6 +185,7 @@   TCodeFrm = class(TForm)
     procedure actEditUndoExecute(Sender: TObject);
     procedure actReadOnlyExecute(Sender: TObject);
     procedure actSaveAsHtmlExecute(Sender: TObject);
+    procedure actSaveAsTXTExecute(Sender: TObject);
     procedure CodeTextChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -472,6 +477,24 @@ procedure TCodeFrm.actSaveAsHtmlExecute(Sender: TObject);
   end;
 end;
 
+procedure TCodeFrm.actSaveAsTXTExecute(Sender: TObject);
+var T : TStringList;
+begin
+  dlgSave.Filter:= ExportTextFilter;
+  dlgSave.DefaultExt:='.txt';
+  if dlgSave.Execute then
+  begin
+    if FCodeText.SelText='' then
+    FCodeText.Lines.SaveToFile(dlgSave.FileName) else
+     begin
+      T := TStringList.Create;
+      T.Add(FCodeText.SelText);
+      T.SaveToFile(dlgSave.FileName);
+      T.Free;
+     end;
+  end;
+end;
+
 procedure TCodeFrm.actCopyAsHtmlExecute(Sender: TObject);
 begin
   If FCodeText.Highlighter<> nil then
@@ -563,7 +586,11 @@ procedure TCodeFrm.mActionsUpdate(AAction: TBasicAction; var Handled: Boolean);
     actNewFolder.Enabled := not SnippetIsSelected;
   end;
   actPrint.Enabled:=SnippetIsSelected;
+
   actSaveAsHtml.Enabled:=SnippetIsSelected;
+  actSaveAsTXT.Enabled:=SnippetIsSelected;
+  mitExport.Enabled:=SnippetIsSelected;
+
   Handled := True;
 end;
 
@@ -650,7 +677,7 @@ procedure TCodeFrm.tvTopicsChange(Sender: TObject; Node: TTreeNode);
           case  CodeDB.FieldByName('Language').AsString of
           'NONE': begin // This is non source code
                    mitNone.Checked := True;
-                   FCodeText.HighLighter := nil;
+                   FCodeText.HighLighter := SynAny;
                   end;
           'CPP': begin // This is CPP source code
                   mitCPP.Checked := True;
@@ -1063,9 +1090,14 @@ procedure TCodeFrm.LoadSettings;
   actSyntaxNone.caption := rs_actSyntaxNone;
   actReadOnly.caption := rs_actReadOnly;
 
+  actSaveAsHtml.Caption:= rs_actSaveAsHtml;
+  actSaveAsTXT.Caption :=  rs_actSaveAsTXT;
+
   mitFile.Caption := rs_mitFile;
   mitFileNew.Caption:=rs_mitFileNew;
-  mitExportHtml.Caption:=rs_mitExportHtml;
+
+  mitExport.Caption:=rs_mitExport;
+
   mitEdit.Caption:=rs_mitEdit;
   mitOptions.Caption:=rs_mitOptions;
   mitEditorHighlighting.Caption:=rs_mitEditorHighlighting;

src/codelibconst.pas

@@ -13,6 +13,7 @@ interface
 OpenFolderImageIndex   = 17;
 CodeSnippetImageIndex = 18;
 DefaultDBFileName = 'codelibrarian.dat';
+ExportTextFilter  =  'Text Files (*.txt)|*.txt';
 
 resourcestring
  rsMenuName = 'Code Librarian';
@@ -49,9 +50,13 @@ interface
  rs_actSyntaxNone='&None';
  rs_actReadOnly='Read only';
 
+ rs_actSaveAsHtml='Export snippet as html page';
+ rs_actSaveAsTXT ='Export snippet as text file';
+
  rs_mitFile='File';
  rs_mitFileNew='&New';
- rs_mitExportHtml='Export as HTML';
+ rs_mitExport='Export';
+
  rs_mitEdit='&Edit';
  rs_mitOptions='&Options';