diff --git a/components/thtmlport/package/gdipl2a.pas b/components/thtmlport/package/gdipl2a.pas
index 2e6ed2a5c..83087050c 100644
--- a/components/thtmlport/package/gdipl2a.pas
+++ b/components/thtmlport/package/gdipl2a.pas
@@ -16,7 +16,7 @@ uses
Graphics;
var
- GDIPlusActive: boolean;
+ GDIPlusActive: boolean = False;
type
TGpImage = class(TObject)
diff --git a/components/thtmlport/package/htmlcomp.pas b/components/thtmlport/package/htmlcomp.pas
index 54cab4fb6..25634d1fa 100644
--- a/components/thtmlport/package/htmlcomp.pas
+++ b/components/thtmlport/package/htmlcomp.pas
@@ -7,9 +7,9 @@ unit HtmlComp;
interface
uses
- HtmlCompReg, URLSubs, DitherUnit, FramBrwz, FramView, GDIPL2A,
- HtmlGif1, HTMLGif2, HtmlMisc, Htmlsbs1, Htmlsubs, HTMLUn2, Htmlview,
- Readhtml, StylePars, StyleUn, LazarusPackageIntf;
+ HtmlCompReg, URLSubs, DitherUnit, FramBrwz, FramView, GDIPL2A, HtmlGif1,
+ HTMLGif2, HtmlMisc, Htmlsbs1, Htmlsubs, htmlun2, htmlview, Readhtml,
+ StylePars, StyleUn, LazarusPackageIntf;
implementation
diff --git a/components/thtmlport/package/htmlcons.inc b/components/thtmlport/package/htmlcons.inc
index 739310610..1840666bc 100755
--- a/components/thtmlport/package/htmlcons.inc
+++ b/components/thtmlport/package/htmlcons.inc
@@ -119,6 +119,7 @@
{$ENDIF}
{$IFDEF MSWINDOWS}
+{$IFDEF LCL}{$Define NoGDIPlus}{$ENDIF}
{.$Define NoGDIPlus} {The gdiplus.dll provides Alpha transparency support for
PNG images. If, for some reason the use of the gdiplus.dll is
undesirable, define "NoGDIPlus" by removing the '.'. Defining both
diff --git a/components/thtmlport/package/htmlun2.pas b/components/thtmlport/package/htmlun2.pas
index d175f8927..cf2995c8c 100755
--- a/components/thtmlport/package/htmlun2.pas
+++ b/components/thtmlport/package/htmlun2.pas
@@ -28,16 +28,17 @@ URLCON.PAS are covered by separate copyright notices located in those modules.
{$i htmlcons.inc}
-unit HTMLUn2;
+unit htmlun2;
interface
+
uses
SysUtils, Classes,
{$IFNDEF LCL}
Windows, Messages,
{$ELSE}
LclIntf, LMessages, Types, LclType, LResources, IntfGraphics, HtmlMisc,
- {$ENDIF}
+ {$ENDIF}
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Clipbrd,
StyleUn, GDIPL2A;
@@ -485,7 +486,7 @@ function GetImageWidth(Image: TGpObject): integer;
implementation
uses
- {$IFNDEF LCL} jpeg, {$ENDIF} DitherUnit,
+ {$IFNDEF LCL} jpeg, {$ENDIF} DitherUnit,
{$ifndef NoOldPng}
PngImage1,
{$endif}
diff --git a/components/thtmlport/package/htmlview.pas b/components/thtmlport/package/htmlview.pas
index ec696a799..4acffe152 100755
--- a/components/thtmlport/package/htmlview.pas
+++ b/components/thtmlport/package/htmlview.pas
@@ -28,7 +28,7 @@ URLCON.PAS are covered by separate copyright notices located in those modules.
{$i htmlcons.inc}
-unit Htmlview;
+unit htmlview;
interface
@@ -43,7 +43,7 @@ uses
{$IFNDEF LCL}
vwPrint, MetafilePrinter, mmSystem,
{$ENDIF}
- HTMLUn2, Forms, Dialogs, ExtCtrls, ReadHTML, HTMLSubs, StyleUn, Printers, Menus,
+ htmlun2, Forms, Dialogs, ExtCtrls, ReadHTML, HTMLSubs, StyleUn, Printers, Menus,
GDIPL2A;
const