From ff1d5809c0b0410a1dc20e815343d72385686d3c Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 13 Jun 2025 13:27:34 +0200
Subject: [PATCH] SynEdit: fix type for clipboard-format (TClipboardFormat) in
 exporter. Issue #41697

(cherry picked from commit 4fd4234f6f64500fb42910931aae85163884ec07)
---
 components/synedit/syneditexport.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/synedit/syneditexport.pas b/components/synedit/syneditexport.pas
index 59aa836250..9815e46db7 100644
--- a/components/synedit/syneditexport.pas
+++ b/components/synedit/syneditexport.pas
@@ -80,7 +80,7 @@ type
     procedure SetTitle(const Value: string);
   protected
     fBackgroundColor: TColor;
-    fClipboardFormat: UINT;
+    fClipboardFormat: TClipboardFormat;
     fDefaultFilter: string;
     fExportAsText: boolean;
     fFont: TFont;
@@ -99,7 +99,7 @@ type
     procedure AddNewLine;
     { Copies the data under this format to the clipboard. The clipboard has to
       be opened explicitly when more than one format is to be set. }
-    procedure CopyToClipboardFormat(AFormat: UINT);
+    procedure CopyToClipboardFormat(AFormat: TClipboardFormat);
     { Has to be overridden in descendant classes to add the closing format
       strings to the output buffer.  The parameters can be used to track what
       changes are made for the next token. }
@@ -140,7 +140,7 @@ type
       in the format header or footer. }
     function GetBufferSize: integer;
     { The clipboard format the exporter creates as native format. }
-    function GetClipboardFormat: UINT; virtual;
+    function GetClipboardFormat: TClipboardFormat; virtual;
     { Has to be overridden in descendant classes to return the correct output
       format footer. }
     function GetFooter: string; virtual; abstract;
@@ -285,7 +285,7 @@ begin
     CopyToClipboardFormat(GetClipboardFormat);
 end;
 
-procedure TSynCustomExporter.CopyToClipboardFormat(AFormat: UINT);
+procedure TSynCustomExporter.CopyToClipboardFormat(AFormat: TClipboardFormat);
 begin
   fBuffer.Position:=0;
   //if we don't clear the clipboard, external applications will only ever see the
@@ -425,7 +425,7 @@ begin
   Result := integer(fBuffer.Size);
 end;
 
-function TSynCustomExporter.GetClipboardFormat: UINT;
+function TSynCustomExporter.GetClipboardFormat: TClipboardFormat;
 begin
   Result := fClipboardFormat;
 end;