opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make HTML export format compatible to Google Chrome. See https://www.heidisql.com/forum.php?t=9893

Browse Source
This commit is contained in:
Ansgar Becker
2023-03-29 21:38:24 +02:00
parent 82b1a0fe8f
commit a7d76c0916
2 changed files with 36 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
source/apphelpers.pas
View File

@ -1313,11 +1313,16 @@ end;
procedure StreamToClipboard(Text, HTML: TStream; CreateHTMLHeader: Boolean);
var
TextContent, HTMLContent: AnsiString;
TextContent, HTMLContent, HTMLHeader, NullPos: AnsiString;
GlobalMem: HGLOBAL;
lp: PChar;
ClpLen: Integer;
CF_HTML: Word;
function FormatPos(Num: Integer): String;
begin
Result := System.AnsiStrings.Format('%.10d', [Num]);
end;
begin
// Copy unicode text to clipboard
if Assigned(Text) then begin
@ -1339,16 +1344,37 @@ begin
HTML.Position := 0;
HTML.Read(PAnsiChar(HTMLContent)^, HTML.Size);
if CreateHTMLHeader then begin
HTMLContent := 'Version:0.9' + CRLF +
'StartHTML:000089' + CRLF +
'EndHTML:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + CRLF +
'StartFragment:000089' + CRLF +
'EndFragment:<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + CRLF +
HTMLContent + CRLF;
NullPos := FormatPos(0);
HTMLHeader := 'Version:0.9' + CRLF +
'StartHTML:' + NullPos + CRLF +
'EndHTML:' + NullPos + CRLF +
'StartFragment:' + NullPos + CRLF +
'EndFragment:' + NullPos + CRLF;
HTMLHeader := System.AnsiStrings.StringReplace(
HTMLHeader,
'StartHTML:' + NullPos,
'StartHTML:' + FormatPos(Length(HTMLHeader)),
[]
);
HTMLContent := HTMLHeader + HTMLContent;
HTMLContent := System.AnsiStrings.StringReplace(
HTMLContent, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
System.AnsiStrings.Format('%.6d', [Length(HTMLContent)]),
[rfReplaceAll]);
HTMLContent,
'EndHTML:' + NullPos,
'EndHTML:' + FormatPos(Length(HTMLContent)),
[]
);
HTMLContent := System.AnsiStrings.StringReplace(
HTMLContent,
'StartFragment:' + NullPos,
'StartFragment:' + FormatPos(Pos('<body>', HTMLContent) + 6),
[]
);
HTMLContent := System.AnsiStrings.StringReplace(
HTMLContent,
'EndFragment:' + NullPos,
'EndFragment:' + FormatPos(Length(HTMLContent)),
[]
);
end;
ClpLen := Length(HTMLContent) + 1;
GlobalMem := GlobalAlloc(GMEM_DDESHARE + GMEM_MOVEABLE, ClpLen);

1
source/exportgrid.pas
View File

@ -623,7 +623,6 @@ begin
' <meta name="GENERATOR" content="'+ APPNAME+' '+Mainform.AppVersion + '">' + CRLF +
' <meta http-equiv="Content-Type" content="text/html; charset='+GetHTMLCharsetByEncoding(Encoding)+'" />' + CRLF +
' <style type="text/css">' + CRLF +
' thead tr {background-color: ActiveCaption; color: CaptionText;}' + CRLF +
' th, td {vertical-align: top; font-family: "'+Grid.Font.Name+'", Arial, Helvetica, sans-serif; font-size: '+IntToStr(Grid.Font.Size)+'pt; padding: '+IntToStr(Grid.TextMargin-1)+'px; }' + CRLF +
' table, td {border: 1px solid silver;}' + CRLF +
' table {border-collapse: collapse;}' + CRLF;