feat: add a separate menu item "copy formatted text", using the old code for copying SynEdit-highlighted text as HTML

Refs #2487

Author: ansgarbecker

extra/locale/heidisql.po

@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: HeidiSQL\n"
 "POT-Creation-Date: 2012-11-05 21:40\n"
-"PO-Revision-Date: 2026-05-15 12:41+0200\n"
+"PO-Revision-Date: 2026-05-24 13:19+0200\n"
 "Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
 "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n"
 "Language: en\n"
@@ -6836,3 +6836,9 @@ msgstr "Default role:"
 
 msgid "Foreign key table not found"
 msgstr "Foreign key table not found"
+
+msgid "Copy formatted text"
+msgstr "Copy formatted text"
+
+msgid "Copies selected text with formatting from current editor to clipboard"
+msgstr "Copies selected text with formatting from current editor to clipboard"

source/main.lfm

@@ -3639,6 +3639,9 @@ object MainForm: TMainForm
       object CopyItem: TMenuItem
         Action = actCopy
       end
+      object Copyformattedtext1: TMenuItem
+        Action = actCopyFormatted
+      end
       object MenuItem3: TMenuItem
         Action = actCopyColumnNames
       end
@@ -5103,6 +5106,13 @@ object MainForm: TMainForm
       ImageIndex = 3
       OnExecute = menuCopyColumnNamesClick
     end
+    object actCopyFormatted: TAction
+      Category = 'Various'
+      Caption = 'Copy formatted text'
+      Hint = 'Copies selected text with formatting from current editor to clipboard'
+      ImageIndex = 3
+      OnExecute = actCopyFormattedExecute
+    end
   end
   object ImageListMain: TImageList
     Scaled = True

source/main.pas

@@ -15,7 +15,7 @@ interface
   LazStringUtils, dbconnection, dbstructures, dbstructures.mysql, generic_types,
   apphelpers, extra_controls, createdatabase, SynEditMarkup, SynEditMarkupBracket,
   searchreplace, ImgList, IniFiles, LazFileUtils, LazUTF8, tabletools,
-  lazaruscompat, extfiledialog, process, SynEditMiscClasses, Contnrs;
+  lazaruscompat, extfiledialog, process, SynEditMiscClasses, Contnrs, SynExportHTML;
 
 
 type
@@ -828,6 +828,8 @@   TMainForm = class(TExtForm)
     menuDisplayLogPanel1: TMenuItem;
     menuTreefilters1: TMenuItem;
     Separator1: TMenuItem;
+    actCopyFormatted: TAction;
+    Copyformattedtext1: TMenuItem;
     procedure actCreateDBObjectExecute(Sender: TObject);
     procedure actNextTabExecute(Sender: TObject);
     procedure actPreviousTabExecute(Sender: TObject);
@@ -1232,6 +1234,7 @@   TMainForm = class(TExtForm)
     procedure actQueryTableExecute(Sender: TObject);
     procedure actDisplayLogPanelExecute(Sender: TObject);
     procedure actDisplayTreeFiltersExecute(Sender: TObject);
+    procedure actCopyFormattedExecute(Sender: TObject);
   private
     // Executable file details
     FAppVerMajor: Integer;
@@ -11927,7 +11930,6 @@ procedure TMainForm.actCopyOrCutExecute(Sender: TObject);
   ClpFormat: Word;
   //ClpData: THandle;
   //APalette: HPalette;
-  //Exporter: TSynExporterHTML;
   Results: TDBQuery;
   RowNum: PInt64;
   ExportDialog: TfrmExportGrid;
@@ -12015,6 +12017,38 @@ procedure TMainForm.actCopyOrCutExecute(Sender: TObject);
   Screen.Cursor := crDefault;
 end;
 
+procedure TMainForm.actCopyFormattedExecute(Sender: TObject);
+var
+  Exporter: TSynExporterHTML;
+  SynMemo: TSynMemo;
+begin
+  // Copy formatted SQL text to clipboard
+  if not (Screen.ActiveControl is TSynMemo) then begin
+    Beep;
+    LogSQL('Active control is not a SynMemo');
+    Exit;
+  end;
+
+  SynMemo := TSynMemo(Screen.ActiveControl);
+  if SynMemo.Highlighter = nil then begin
+    Beep;
+    LogSQL('No highlighter assigned to active SynMemo');
+    Exit;
+  end;
+
+  Exporter := TSynExporterHTML.Create(nil);
+  try
+    Exporter.Title := APPNAME;
+    Exporter.UseBackground := True;
+    Exporter.Highlighter := SynMemo.Highlighter;
+    Exporter.ExportAsText := False;
+    Exporter.Options := Exporter.Options + [heoWinClipHeader];
+    Exporter.ExportAll(Explode(SLineBreak, SynMemo.SelText));
+    Exporter.CopyToClipboard;
+  finally
+    Exporter.Free;
+  end;
+end;
 
 procedure TMainForm.actPasteExecute(Sender: TObject);
 var