diff --git a/components/htmllite/htmllite.pas b/components/htmllite/htmllite.pas index 5504c96388..9f1e92a59d 100644 --- a/components/htmllite/htmllite.pas +++ b/components/htmllite/htmllite.pas @@ -6,8 +6,6 @@ {* All rights reserved. *} {*********************************************************} -{$DEFINE HL_LAZARUS} - {$i LiteCons.inc} unit HTMLLite; @@ -1394,7 +1392,7 @@ else if (FSectionList.FindCursor(PaintPanel.Canvas, X, Y+FSectionList.YOff-FMarg NextCursor := Cursor; PaintPanel.Cursor := NextCursor; -SetCursor(Screen.Cursors[NextCursor]); +Cursor:=Screen.Cursors[NextCursor]; if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil)) then HTMLTimer.Enabled := True diff --git a/components/htmllite/litesubs.pas b/components/htmllite/litesubs.pas index ea4340b4c6..397ab57efb 100644 --- a/components/htmllite/litesubs.pas +++ b/components/htmllite/litesubs.pas @@ -627,7 +627,7 @@ const ImageSpace = 5; {extra space for left, right images} var - ListIndent: integer = 35; {defines successive indents} + ListIndent: integer{$IFNDEF HL_LAZARUS} = 35{$ENDIF}; {defines successive indents} implementation @@ -5894,6 +5894,11 @@ DefFont.UpdateFont(ParentSectionList, ParentSectionList.FontColor); inherited UpdateFonts; end; +{$IFDEF HL_LAZARUS} +initialization + ListIndent:=35; +{$ENDIF} + end.