paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix type for clipboard-format (TClipboardFormat) in exporter. Issue #41697

Browse Source 
(cherry picked from commit 4fd4234f6f)
This commit is contained in:
Martin 2025-06-13 13:27:34 +02:00
parent 06d4458a85
commit ff1d5809c0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syneditexport.pas
View File

@ -80,7 +80,7 @@ type
procedure SetTitle(const Value: string); procedure SetTitle(const Value: string);
protected protected
fBackgroundColor: TColor; fBackgroundColor: TColor;
fClipboardFormat: UINT; fClipboardFormat: TClipboardFormat;
fDefaultFilter: string; fDefaultFilter: string;
fExportAsText: boolean; fExportAsText: boolean;
fFont: TFont; fFont: TFont;
@ -99,7 +99,7 @@ type
procedure AddNewLine; procedure AddNewLine;
{ Copies the data under this format to the clipboard. The clipboard has to { 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. } 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 { 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 strings to the output buffer. The parameters can be used to track what
changes are made for the next token. } changes are made for the next token. }
@ -140,7 +140,7 @@ type
in the format header or footer. } in the format header or footer. }
function GetBufferSize: integer; function GetBufferSize: integer;
{ The clipboard format the exporter creates as native format. } { 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 { Has to be overridden in descendant classes to return the correct output
format footer. } format footer. }
function GetFooter: string; virtual; abstract; function GetFooter: string; virtual; abstract;
@ -285,7 +285,7 @@ begin
CopyToClipboardFormat(GetClipboardFormat); CopyToClipboardFormat(GetClipboardFormat);
end; end;
procedure TSynCustomExporter.CopyToClipboardFormat(AFormat: UINT); procedure TSynCustomExporter.CopyToClipboardFormat(AFormat: TClipboardFormat);
begin begin
fBuffer.Position:=0; fBuffer.Position:=0;
//if we don't clear the clipboard, external applications will only ever see the //if we don't clear the clipboard, external applications will only ever see the
@ -425,7 +425,7 @@ begin
Result := integer(fBuffer.Size); Result := integer(fBuffer.Size);
end; end;
function TSynCustomExporter.GetClipboardFormat: UINT; function TSynCustomExporter.GetClipboardFormat: TClipboardFormat;
begin begin
Result := fClipboardFormat; Result := fClipboardFormat;
end; end;