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

Refs #2487

Author: ansgarbecker

source/main.dfm

@@ -1871,12 +1871,15 @@ object MainForm: TMainForm
       object CopyItem: TMenuItem
         Action = actCopy
       end
-      object Copycolumnnames1: TMenuItem
-        Action = actCopyColumnNames
+      object Copyformattedtext1: TMenuItem
+        Action = actCopyFormatted
       end
       object Copywithtabstospaces1: TMenuItem
         Action = actCopyTabsToSpaces
       end
+      object Copycolumnnames1: TMenuItem
+        Action = actCopyColumnNames
+      end
       object actCopyGridNodes1: TMenuItem
         Action = actCopyGridNodes
       end
@@ -3446,6 +3449,15 @@ 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 clip' +
+        'board'
+      ImageIndex = 3
+      OnExecute = actCopyFormattedExecute
+    end
   end
   object menuConnections: TPopupMenu
     AutoHotkeys = maManual

source/main.pas

@@ -810,6 +810,8 @@   TMainForm = class(TExtForm)
     N27: TMenuItem;
     actCopyColumnNames: TAction;
     Copycolumnnames1: TMenuItem;
+    actCopyFormatted: TAction;
+    Copyformattedtext1: TMenuItem;
     procedure actCreateDBObjectExecute(Sender: TObject);
     procedure menuConnectionsPopup(Sender: TObject);
     procedure actExitApplicationExecute(Sender: TObject);
@@ -1217,6 +1219,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, FAppVerMinor, FAppVerRelease, FAppVerRevision: Word;
@@ -12168,7 +12171,6 @@ procedure TMainForm.actCopyOrCutExecute(Sender: TObject);
   ClpFormat: Word;
   ClpData: THandle;
   APalette: HPalette;
-  Exporter: TSynExporterRTF;
   Results: TDBQuery;
   RowNum: PInt64;
   ExportDialog: TfrmExportGrid;
@@ -12254,6 +12256,40 @@ 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
+    MessageBeep(MB_ICONWARNING);
+    LogSQL('Active control is not a SynMemo');
+    Exit;
+  end;
+
+  SynMemo := TSynMemo(Screen.ActiveControl);
+  if SynMemo.Highlighter = nil then begin
+    MessageBeep(MB_ICONWARNING);
+    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;
+    Clipboard.Open;
+    Clipboard.TryAsText := SynMemo.SelText;
+    Exporter.ExportAll(Explode(SLineBreak, SynMemo.SelText));
+    Exporter.CopyToClipboard;
+    Clipboard.Close;
+  finally
+    Exporter.Free;
+  end;
+end;
 
 procedure TMainForm.actPasteExecute(Sender: TObject);
 var