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

SynEdit: move implementation uses to interface

Browse Source 
git-svn-id: trunk@64492 -
This commit is contained in:
ondrej 2021-02-05 14:22:50 +00:00
parent a38a50b397
commit 998abc9121
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synexporthtml.pas
View File

@ -47,7 +47,7 @@ interface
uses
Classes,
LCLIntf, LCLType, Graphics, ClipBrd,
SynEditHighlighter, SynEditExport, LCLProc, LazUtf8;
SynEditHighlighter, SynEditExport, LCLProc, LazUtf8, SysUtils, SynEditStrConst;
type
THTMLFontSize = (fs01, fs02, fs03, fs04, fs05, fs06, fs07, fsDefault); //eb 2000-10-12
@ -111,10 +111,6 @@ function ColorToHTML(AColor: TColor): string;
implementation
uses
SysUtils,
SynEditStrConst;
const
DocType = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"' + LineEnding +
'"http://www.w3.org/TR/html4/loose.dtd">'; //cannot use strict, because we use <font> tag