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

fixes for htmllite

Browse Source 
git-svn-id: trunk@3745 -
This commit is contained in:
mattias 2002-12-27 18:18:05 +00:00
parent 1428729afd
commit a8e39c68f8
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/htmllite/htmllite.pas
View File

@ -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

7
components/htmllite/litesubs.pas
View File

@ -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.