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

Organize repository into standard trunk/branches/tags structure.

Browse Source
This commit is contained in:
rosenfield
2007-06-26 11:26:18 +00:00
commit bffc0206f2
906 changed files with 321672 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

445
components/synedit/Source/SynExportHTML.pas Normal file
View File

@ -0,0 +1,445 @@
{-------------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
the specific language governing rights and limitations under the License.
The Original Code is: SynExportHTML.pas, released 2000-04-16.
The Original Code is partly based on the mwHTMLExport.pas file from the
mwEdit component suite by Martin Waldenburg and other developers, the Initial
Author of this file is Michael Hieke.
Portions created by Michael Hieke are Copyright 2000 Michael Hieke.
Portions created by James D. Jacobson are Copyright 1999 Martin Waldenburg.
Changes to emit XHTML 1.0 Strict complying code by Ma<4D>l H<>rz.
All Rights Reserved.
Contributors to the SynEdit project are listed in the Contributors.txt file.
Alternatively, the contents of this file may be used under the terms of the
GNU General Public License Version 2 or later (the "GPL"), in which case
the provisions of the GPL are applicable instead of those above.
If you wish to allow use of your version of this file only under the terms
of the GPL and not to allow others to use your version of this file
under the MPL, indicate your decision by deleting the provisions above and
replace them with the notice and other provisions required by the GPL.
If you do not delete the provisions above, a recipient may use your version
of this file under either the MPL or the GPL.
$Id: SynExportHTML.pas,v 1.21 2005/12/02 18:50:01 maelh Exp $
You may retrieve the latest version of this file at the SynEdit home page,
located at http://SynEdit.SourceForge.net
Known Issues:
-------------------------------------------------------------------------------}
{$IFNDEF QSYNEXPORTHTML}
unit SynExportHTML;
{$ENDIF}
{$I SynEdit.inc}
interface
uses
{$IFDEF SYN_CLX}
Qt,
QGraphics,
QSynEditExport,
QSynEditHighlighter,
{$ELSE}
Windows,
Graphics,
SynEditExport,
SynEditHighlighter,
{$ENDIF}
Classes;
type
TSynExporterHTML = class(TSynCustomExporter)
private
fLastAttri: TSynHighlighterAttributes;
function AttriToCSS(Attri: TSynHighlighterAttributes;
UniqueAttriName: string): string;
function AttriToCSSCallback(Highlighter: TSynCustomHighlighter;
Attri: TSynHighlighterAttributes; UniqueAttriName: string;
Params: array of Pointer): Boolean;
function ColorToHTML(AColor: TColor): string;
function GetStyleName(Highlighter: TSynCustomHighlighter;
Attri: TSynHighlighterAttributes): string;
function MakeValidName(Name: string): string;
function StyleNameCallback(Highlighter: TSynCustomHighlighter;
Attri: TSynHighlighterAttributes; UniqueAttriName: string;
Params: array of Pointer): Boolean;
protected
fCreateHTMLFragment: boolean;
procedure FormatAfterLastAttribute; override;
procedure FormatAttributeDone(BackgroundChanged, ForegroundChanged: boolean;
FontStylesChanged: TFontStyles); override;
procedure FormatAttributeInit(BackgroundChanged, ForegroundChanged: boolean;
FontStylesChanged: TFontStyles); override;
procedure FormatBeforeFirstAttribute(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles); override;
procedure FormatNewLine; override;
function GetFooter: string; override;
function GetFormatName: string; override;
function GetHeader: string; override;
procedure SetTokenAttribute(Attri: TSynHighlighterAttributes); override;
public
constructor Create(AOwner: TComponent); override;
published
property Color;
property CreateHTMLFragment: boolean read fCreateHTMLFragment
write fCreateHTMLFragment default FALSE;
property DefaultFilter;
property Font;
property Highlighter;
property Title;
property UseBackground;
end;
implementation
uses
{$IFDEF SYN_CLX}
QSynEditMiscProcs,
QSynEditStrConst,
QSynHighlighterMulti,
{$ELSE}
SynEditMiscProcs,
SynEditStrConst,
SynHighlighterMulti,
{$ENDIF}
SysUtils;
{ TSynExporterHTML }
constructor TSynExporterHTML.Create(AOwner: TComponent);
const
CF_HTML = 'HTML Format';
begin
inherited Create(AOwner);
{**************}
{$IFNDEF SYN_CLX}
fClipboardFormat := RegisterClipboardFormat(CF_HTML);
{$ENDIF}
fDefaultFilter := SYNS_FilterHTML;
// setup array of chars to be replaced
fReplaceReserved['&'] := '&amp;';
fReplaceReserved['<'] := '&lt;';
fReplaceReserved['>'] := '&gt;';
fReplaceReserved['"'] := '&quot;';
fReplaceReserved['<27>'] := '&trade;';
fReplaceReserved['<27>'] := '&copy;';
fReplaceReserved['<27>'] := '&reg;';
fReplaceReserved['<27>'] := '&Agrave;';
fReplaceReserved['<27>'] := '&Aacute;';
fReplaceReserved['<27>'] := '&Acirc;';
fReplaceReserved['<27>'] := '&Atilde;';
fReplaceReserved['<27>'] := '&Auml;';
fReplaceReserved['<27>'] := '&Aring;';
fReplaceReserved['<27>'] := '&AElig;';
fReplaceReserved['<27>'] := '&Ccedil;';
fReplaceReserved['<27>'] := '&Egrave;';
fReplaceReserved['<27>'] := '&Eacute;';
fReplaceReserved['<27>'] := '&Ecirc;';
fReplaceReserved['<27>'] := '&Euml;';
fReplaceReserved['<27>'] := '&Igrave;';
fReplaceReserved['<27>'] := '&Iacute;';
fReplaceReserved['<27>'] := '&Icirc;';
fReplaceReserved['<27>'] := '&Iuml;';
fReplaceReserved['<27>'] := '&ETH;';
fReplaceReserved['<27>'] := '&Ntilde;';
fReplaceReserved['<27>'] := '&Ograve;';
fReplaceReserved['<27>'] := '&Oacute;';
fReplaceReserved['<27>'] := '&Ocirc;';
fReplaceReserved['<27>'] := '&Otilde;';
fReplaceReserved['<27>'] := '&Ouml;';
fReplaceReserved['<27>'] := '&Oslash;';
fReplaceReserved['<27>'] := '&Ugrave;';
fReplaceReserved['<27>'] := '&Uacute;';
fReplaceReserved['<27>'] := '&Ucirc;';
fReplaceReserved['<27>'] := '&Uuml;';
fReplaceReserved['<27>'] := '&Yacute;';
fReplaceReserved['<27>'] := '&THORN;';
fReplaceReserved['<27>'] := '&szlig;';
fReplaceReserved['<27>'] := '&agrave;';
fReplaceReserved['<27>'] := '&aacute;';
fReplaceReserved['<27>'] := '&acirc;';
fReplaceReserved['<27>'] := '&atilde;';
fReplaceReserved['<27>'] := '&auml;';
fReplaceReserved['<27>'] := '&aring;';
fReplaceReserved['<27>'] := '&aelig;';
fReplaceReserved['<27>'] := '&ccedil;';
fReplaceReserved['<27>'] := '&egrave;';
fReplaceReserved['<27>'] := '&eacute;';
fReplaceReserved['<27>'] := '&ecirc;';
fReplaceReserved['<27>'] := '&euml;';
fReplaceReserved['<27>'] := '&igrave;';
fReplaceReserved['<27>'] := '&iacute;';
fReplaceReserved['<27>'] := '&icirc;';
fReplaceReserved['<27>'] := '&iuml;';
fReplaceReserved['<27>'] := '&eth;';
fReplaceReserved['<27>'] := '&ntilde;';
fReplaceReserved['<27>'] := '&ograve;';
fReplaceReserved['<27>'] := '&oacute;';
fReplaceReserved['<27>'] := '&ocirc;';
fReplaceReserved['<27>'] := '&otilde;';
fReplaceReserved['<27>'] := '&ouml;';
fReplaceReserved['<27>'] := '&oslash;';
fReplaceReserved['<27>'] := '&ugrave;';
fReplaceReserved['<27>'] := '&uacute;';
fReplaceReserved['<27>'] := '&ucirc;';
fReplaceReserved['<27>'] := '&uuml;';
fReplaceReserved['<27>'] := '&yacute;';
fReplaceReserved['<27>'] := '&thorn;';
fReplaceReserved['<27>'] := '&yuml;';
fReplaceReserved['<27>'] := '&iexcl;';
fReplaceReserved['<27>'] := '&cent;';
fReplaceReserved['<27>'] := '&pound;';
fReplaceReserved['<27>'] := '&curren;';
fReplaceReserved['<27>'] := '&yen;';
fReplaceReserved['<27>'] := '&brvbar;';
fReplaceReserved['<27>'] := '&sect;';
fReplaceReserved['<27>'] := '&uml;';
fReplaceReserved['<27>'] := '&ordf;';
fReplaceReserved['<27>'] := '&laquo;';
fReplaceReserved['<27>'] := '&shy;';
fReplaceReserved['<27>'] := '&macr;';
fReplaceReserved['<27>'] := '&deg;';
fReplaceReserved['<27>'] := '&plusmn;';
fReplaceReserved['<27>'] := '&sup2;';
fReplaceReserved['<27>'] := '&sup3;';
fReplaceReserved['<27>'] := '&acute;';
fReplaceReserved['<27>'] := '&micro;';
fReplaceReserved['<27>'] := '&middot;';
fReplaceReserved['<27>'] := '&cedil;';
fReplaceReserved['<27>'] := '&sup1;';
fReplaceReserved['<27>'] := '&ordm;';
fReplaceReserved['<27>'] := '&raquo;';
fReplaceReserved['<27>'] := '&frac14;';
fReplaceReserved['<27>'] := '&frac12;';
fReplaceReserved['<27>'] := '&frac34;';
fReplaceReserved['<27>'] := '&iquest;';
fReplaceReserved['<27>'] := '&times;';
fReplaceReserved['<27>'] := '&divide';
fReplaceReserved['<27>'] := '&euro;';
end;
function TSynExporterHTML.AttriToCSS(Attri: TSynHighlighterAttributes;
UniqueAttriName: string): string;
var
StyleName: string;
begin
StyleName := MakeValidName(UniqueAttriName);
Result := '.' + StyleName + ' { ';
if UseBackground and (Attri.Background <> clNone) then
Result := Result + 'background-color: ' + ColorToHTML(Attri.Background) + '; ';
if Attri.Foreground <> clNone then
Result := Result + 'color: ' + ColorToHTML(Attri.Foreground) + '; ';
if fsBold in Attri.Style then
Result := Result + 'font-weight: bold; ';
if fsItalic in Attri.Style then
Result := Result + 'font-style: italic; ';
if fsUnderline in Attri.Style then
Result := Result + 'text-decoration: underline; ';
if fsStrikeOut in Attri.Style then
Result := Result + 'text-decoration: line-through; ';
Result := Result + '}';
end;
function TSynExporterHTML.AttriToCSSCallback(Highlighter: TSynCustomHighlighter;
Attri: TSynHighlighterAttributes; UniqueAttriName: string;
Params: array of Pointer): Boolean;
var
Styles: ^string;
begin
Styles := Params[0];
Styles^ := Styles^ + AttriToCSS(Attri, UniqueAttriName) + #13#10;
Result := True; // we want all attributes => tell EnumHighlighterAttris to continue
end;
function TSynExporterHTML.ColorToHTML(AColor: TColor): string;
var
RGBColor: longint;
RGBValue: byte;
const
Digits: array[0..15] of char = '0123456789ABCDEF';
begin
RGBColor := ColorToRGB(AColor);
Result := '#000000';
RGBValue := GetRValue(RGBColor);
if RGBValue > 0 then begin
Result[2] := Digits[RGBValue shr 4];
Result[3] := Digits[RGBValue and 15];
end;
RGBValue := GetGValue(RGBColor);
if RGBValue > 0 then begin
Result[4] := Digits[RGBValue shr 4];
Result[5] := Digits[RGBValue and 15];
end;
RGBValue := GetBValue(RGBColor);
if RGBValue > 0 then begin
Result[6] := Digits[RGBValue shr 4];
Result[7] := Digits[RGBValue and 15];
end;
end;
procedure TSynExporterHTML.FormatAfterLastAttribute;
begin
AddData('</span>');
end;
procedure TSynExporterHTML.FormatAttributeDone(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles);
begin
AddData('</span>');
end;
procedure TSynExporterHTML.FormatAttributeInit(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles);
var
StyleName: string;
begin
StyleName := GetStyleName(Highlighter, fLastAttri);
AddData(Format('<span class="%s">', [StyleName]));
end;
procedure TSynExporterHTML.FormatBeforeFirstAttribute(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles);
var
StyleName: string;
begin
StyleName := GetStyleName(Highlighter, fLastAttri);
AddData(Format('<span class="%s">', [StyleName]));
end;
procedure TSynExporterHTML.FormatNewLine;
begin
AddNewLine;
end;
function TSynExporterHTML.GetFooter: string;
begin
Result := '';
if fExportAsText then
Result := '</span>'#13#10'</code></pre>'#13#10
else
Result := '</code></pre><!--EndFragment-->';
if not(fCreateHTMLFragment and fExportAsText) then
Result := Result + '</body>'#13#10'</html>';
end;
function TSynExporterHTML.GetFormatName: string;
begin
Result := SYNS_ExporterFormatHTML;
end;
function TSynExporterHTML.GetHeader: string;
const
DescriptionSize = 105;
FooterSize1 = 47;
FooterSize2 = 31;
NativeHeader = 'Version:0.9'#13#10 +
'StartHTML:%.10d'#13#10 +
'EndHTML:%.10d'#13#10 +
'StartFragment:%.10d'#13#10 +
'EndFragment:%.10d'#13#10;
HTMLAsTextHeader = '<?xml version="1.0" encoding="iso-8859-1"?>'#13#10 +
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13#10 +
'<html xmlns="http://www.w3.org/1999/xhtml">'#13#10 +
'<head>'#13#10 +
'<title>%s</title>'#13#10 +
'<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />'#13#10 +
'<meta name="generator" content="SynEdit HTML exporter" />'#13#10 +
'<style type="text/css">'#13#10 +
'<!--'#13#10 +
'body { color: %s; background-color: %s; }'#13#10 +
'%s' +
'-->'#13#10 +
'</style>'#13#10 +
'</head>'#13#10 +
'<body>'#13#10;
var
Styles, Header, Header2: string;
begin
EnumHighlighterAttris(Highlighter, True, AttriToCSSCallback, [@Styles]);
Header := Format(HTMLAsTextHeader, [Title, ColorToHtml(fFont.Color),
ColorToHTML(fBackgroundColor), Styles]);
Result := '';
if fExportAsText then
begin
if not fCreateHTMLFragment then
Result := Header;
Result := Result + Format('<pre>'#13#10'<code><span style="font: %dpt %s;">',
[fFont.Size, fFont.Name]);
end
else
begin
// Described in http://msdn.microsoft.com/library/sdkdoc/htmlclip/htmlclipboard.htm
Header2 := '<!--StartFragment--><pre><code>';
Result := Format(NativeHeader, [DescriptionSize,
DescriptionSize + Length(Header) + Length(Header2) + GetBufferSize + FooterSize1,
DescriptionSize + Length(Header),
DescriptionSize + Length(Header) + Length(Header2) + GetBufferSize + FooterSize2]);
Result := Result + Header + Header2;
end;
end;
function TSynExporterHTML.GetStyleName(Highlighter: TSynCustomHighlighter;
Attri: TSynHighlighterAttributes): string;
begin
EnumHighlighterAttris(Highlighter, False, StyleNameCallback, [Attri, @Result]);
end;
function TSynExporterHTML.MakeValidName(Name: string): string;
var
i: Integer;
begin
Result := LowerCase(Name);
for i := Length(Result) downto 1 do
if Result[i] in ['.', '_'] then
Result[i] := '-'
else if not(Result[i] in ['a'..'z', '0'..'9', '-']) then
Delete(Result, i, 1);
end;
procedure TSynExporterHTML.SetTokenAttribute(Attri: TSynHighlighterAttributes);
begin
fLastAttri := Attri;
inherited;
end;
function TSynExporterHTML.StyleNameCallback(Highlighter: TSynCustomHighlighter;
Attri: TSynHighlighterAttributes; UniqueAttriName: string;
Params: array of Pointer): Boolean;
var
AttriToFind: TSynHighlighterAttributes;
StyleName: ^string;
begin
AttriToFind := Params[0];
StyleName := Params[1];
if Attri = AttriToFind then
begin
StyleName^ := MakeValidName(UniqueAttriName);
Result := False; // found => inform EnumHighlighterAttris to stop searching
end
else
Result := True;
end;
end.