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

SynEdit: SynExportHtml: use friendly HTML color names for most common colors.

Browse Source 
git-svn-id: trunk@53336 -
This commit is contained in:
bart 2016-11-10 16:09:30 +00:00
parent e613c39896
commit 6dfadf73a7
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/synedit/synexporthtml.pas
View File

@ -260,6 +260,26 @@ var
const
Digits: array[0..15] of char = '0123456789ABCDEF';
begin
Result := '';
case AColor of
clRed: Result := 'red';
clGreen: Result := 'green';
clBlue: Result := 'blue';
clPurple: Result := 'purple';
clYellow: Result := 'yellow';
clBlack: Result := 'black';
clWhite: Result := 'white';
clGray: Result := 'gray';
clMaroon: Result := 'maroon';
clFuchsia: Result := 'fuchsia';
clLime: Result := 'lime';
clNavy: Result := 'navy';
clAqua: Result := 'aqua';
clTeal: Result := 'teal';
clSilver: Result := 'silver';
end;
if (Result <> '') then
Exit;
RGBColor := ColorToRGB(AColor);
Result := '"#000000"';
{****************}
@ -323,7 +343,7 @@ procedure TSynExporterHTML.FormatAttributeInit(BackgroundChanged,
begin
if BackgroundChanged then
AddData('<span style="background-color: ' +
Copy(ColorToHtml(fLastBG), 2, 9) + '>');
AnsiDequotedStr(ColorToHtml(fLastBG), '"') {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
@ -345,7 +365,7 @@ procedure TSynExporterHTML.FormatBeforeFirstAttribute(BackgroundChanged,
begin
if BackgroundChanged then
AddData('<span style="background-color: ' +
Copy(ColorToHtml(fLastBG), 2, 9) + '>');
AnsiDequotedStr(ColorToHtml(fLastBG), '"') {Copy(ColorToHtml(fLastBG), 2, 9)} + '>');
AddData('<font color=' + ColorToHtml(fLastFG) + '>');
if FontStylesChanged <> [] then begin
if fsBold in fLastStyle then