Add option to export SQL to clipboard. Fixes issue #1798 and issue #506.

This commit is contained in:
Ansgar Becker
2010-03-24 22:22:21 +00:00
parent 1ef9ebf07b
commit 61e4ff0603
2 changed files with 22 additions and 9 deletions

View File

@ -218,7 +218,7 @@ type
function ReadTextfileChunk(Stream: TFileStream; FileCharset: TFileCharset; ChunkSize: Int64 = 0): String;
function ReadTextfile(Filename: String): String;
function ReadBinaryFile(Filename: String; MaxBytes: Int64): AnsiString;
procedure StreamToClipboard(Text, HTML: TMemoryStream; CreateHTMLHeader: Boolean);
procedure StreamToClipboard(Text, HTML: TStream; CreateHTMLHeader: Boolean);
function WideHexToBin(text: String): AnsiString;
function BinToWideHex(bin: AnsiString): String;
procedure CheckHex(text: String; errorMessage: string);
@ -2447,7 +2447,7 @@ begin
end;
procedure StreamToClipboard(Text, HTML: TMemoryStream; CreateHTMLHeader: Boolean);
procedure StreamToClipboard(Text, HTML: TStream; CreateHTMLHeader: Boolean);
var
TextContent, HTMLContent: AnsiString;
GlobalMem: HGLOBAL;