paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-08 18:53:12 +02:00
Code Issues Packages Projects Releases Wiki Activity
74b95eaefd
lazarus/components/synedit/synexporthtml.pas
martin e0b9cef954 SynEdit: Clean up lots of IFDEF. Patch by zaher dirkey. Issue #0022186 
git-svn-id: trunk@37782 -
2012-06-25 22:49:31 +00:00

380 lines
13 KiB
ObjectPascal
Raw Blame History

{-------------------------------------------------------------------------------
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.
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$
You may retrieve the latest version of this file at the SynEdit home page,
located at http://SynEdit.SourceForge.net
Known Issues:
-------------------------------------------------------------------------------}
unit SynExportHTML;
{$I synedit.inc}
interface
uses
Classes,
LCLIntf, LCLType, Graphics, ClipBrd,
SynEditExport;
type
THTMLFontSize = (fs01, fs02, fs03, fs04, fs05, fs06, fs07, fsDefault); //eb 2000-10-12
TSynExporterHTML = class(TSynCustomExporter)
private
fFontSize: THTMLFontSize;
function ColorToHTML(AColor: TColor): string;
protected
fCreateHTMLFragment: boolean;
procedure FormatAfterLastAttribute; override;
procedure FormatAttributeDone(BackgroundChanged, ForegroundChanged: boolean;
FontStylesChanged: TFontStyles); override;
procedure FormatAttributeInit(BackgroundChanged, ForegroundChanged: boolean;
FontStylesChanged: TFontStyles); override;
{begin} //mh 2000-10-10
procedure FormatBeforeFirstAttribute(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles); override;
{end} //mh 2000-10-10
procedure FormatNewLine; override;
function GetFooter: string; override;
function GetFormatName: string; override;
function GetHeader: string; 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 HTMLFontSize: THTMLFontSize read fFontSize write fFontSize; //eb 2000-10-12
property Title;
property UseBackground;
end;
implementation
uses
SysUtils,
SynEditStrConst;
{ TSynExporterHTML }
constructor TSynExporterHTML.Create(AOwner: TComponent);
const
CF_HTML = 'HTML Format';
begin
inherited Create(AOwner);
{**************}
fClipboardFormat := RegisterClipboardFormat(CF_HTML);
fFontSize := fs03;
fDefaultFilter := SYNS_FilterHTML;
// setup array of chars to be replaced
fReplaceReserved['&'] := '&';
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.ColorToHTML(AColor: TColor): string;
var
RGBColor: TColorRef;
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[3] := Digits[RGBValue shr 4];
Result[4] := Digits[RGBValue and 15];
end;
{****************}
RGBValue := GetGValue(RGBColor);
if RGBValue > 0 then begin
Result[5] := Digits[RGBValue shr 4];
Result[6] := Digits[RGBValue and 15];
end;
{****************}
RGBValue := GetBValue(RGBColor);
if RGBValue > 0 then begin
Result[7] := Digits[RGBValue shr 4];
Result[8] := Digits[RGBValue and 15];
end;
end;
procedure TSynExporterHTML.FormatAfterLastAttribute;
begin
if fsStrikeout in fLastStyle then
AddData('</strike>');
if fsUnderline in fLastStyle then
AddData('</u>');
if fsItalic in fLastStyle then
AddData('</i>');
if fsBold in fLastStyle then
AddData('</b>');
if fLastFG <> fFont.Color then
AddData('</font>');
if UseBackground and (fLastBG <> fBackgroundColor) then
AddData('</span>');
end;
procedure TSynExporterHTML.FormatAttributeDone(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles);
begin
if BackgroundChanged or ForegroundChanged or (FontStylesChanged <> []) then
begin
if fsStrikeout in fLastStyle then
AddData('</strike>');
if fsUnderline in fLastStyle then
AddData('</u>');
if fsItalic in fLastStyle then
AddData('</i>');
if fsBold in fLastStyle then
AddData('</b>');
end;
if (BackgroundChanged or ForegroundChanged) and (fLastFG <> fFont.Color) then //mh 2000-10-10
AddData('</font>');
if BackgroundChanged then
AddData('</span>');
end;
procedure TSynExporterHTML.FormatAttributeInit(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles);
begin
if BackgroundChanged then
AddData('<span style="background-color: ' +
Copy(ColorToHtml(fLastBG), 2, 9) + '>');
if (BackgroundChanged or ForegroundChanged) and (fLastFG <> fFont.Color) then
AddData('<font color=' + ColorToHtml(fLastFG) + '>');
if BackgroundChanged or ForegroundChanged or (FontStylesChanged <> []) then
begin
if fsBold in fLastStyle then
AddData('<b>');
if fsItalic in fLastStyle then
AddData('<i>');
if fsUnderline in fLastStyle then
AddData('<u>');
if fsStrikeout in fLastStyle then
AddData('<strike>');
end;
end;
{begin} //mh 2000-10-10
procedure TSynExporterHTML.FormatBeforeFirstAttribute(BackgroundChanged,
ForegroundChanged: boolean; FontStylesChanged: TFontStyles);
begin
if BackgroundChanged then
AddData('<span style="background-color: ' +
Copy(ColorToHtml(fLastBG), 2, 9) + '>');
AddData('<font color=' + ColorToHtml(fLastFG) + '>');
if FontStylesChanged <> [] then begin
if fsBold in fLastStyle then
AddData('<b>');
if fsItalic in fLastStyle then
AddData('<i>');
if fsUnderline in fLastStyle then
AddData('<u>');
if fsStrikeout in fLastStyle then
AddData('<strike>');
end;
end;
{end} //mh 2000-10-10
procedure TSynExporterHTML.FormatNewLine;
begin
AddNewLine;
end;
function TSynExporterHTML.GetFooter: string;
begin
Result := '';
if fExportAsText then
Result := '</font>'#13#10'</code></pre>'#13#10;
if not fCreateHTMLFragment then
Result := Result + '</body>'#13#10'</html>';
end;
function TSynExporterHTML.GetFormatName: string;
begin
Result := SYNS_ExporterFormatHTML;
end;
function TSynExporterHTML.GetHeader: string;
const
DescriptionSize = 105;
HeaderSize = 47;
FooterSize1 = 58;
FooterSize2 = 24;
NativeHeader = 'Version:0.9'#13#10 +
'StartHTML:%.10d'#13#10 +
'EndHTML:%.10d'#13#10 +
'StartFragment:%.10d'#13#10 +
'EndFragment:%.10d'#13#10;
HTMLAsTextHeader = '<html>'#13#10 +
'<head>'#13#10 +
'<title>%s</title>'#13#10 +
'</head>'#13#10 +
'<!-- Generated by SynEdit HTML exporter -->'#13#10 +
'<body text=%s bgcolor=%s>'#13#10;
var
sFontSize: string; //eb 2000-10-12
begin
Result := '';
if fExportAsText then begin
if not fCreateHTMLFragment then
Result := Format(HTMLAsTextHeader, [Title, ColorToHtml(fFont.Color),
ColorToHTML(fBackgroundColor)]);
{begin} //eb 2000-10-12
if fFontSize <> fsDefault then
sFontSize := Format(' size=%d', [1 + Ord(fFontSize)])
else
sFontSize := '';
Result := Result + Format('<pre>'#13#10'<code><font %s face="%s">',
[sFontSize, fFont.Name]);
{end} //eb 2000-10-12
end else begin
// Described in http://msdn.microsoft.com/library/sdkdoc/htmlclip/htmlclipboard.htm
Result := Format(NativeHeader, [DescriptionSize,
DescriptionSize + HeaderSize + GetBufferSize + FooterSize1,
DescriptionSize + HeaderSize,
DescriptionSize + HeaderSize + GetBufferSize + FooterSize2]);
if not fCreateHTMLFragment then
Result := Result + '<html>'#13#10'<head></head>'#13#10'<body>';
Result := Result + '<!--StartFragment--><pre><code>';
AddData('</code></pre><!--EndFragment-->');
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink