paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 20:40:40 +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. *} {* All rights reserved. *}
{*********************************************************} {*********************************************************}
{$DEFINE HL_LAZARUS}
{$i LiteCons.inc} {$i LiteCons.inc}
unit HTMLLite; unit HTMLLite;
@ -1394,7 +1392,7 @@ else if (FSectionList.FindCursor(PaintPanel.Canvas, X, Y+FSectionList.YOff-FMarg
NextCursor := Cursor; NextCursor := Cursor;
PaintPanel.Cursor := NextCursor; PaintPanel.Cursor := NextCursor;
SetCursor(Screen.Cursors[NextCursor]); Cursor:=Screen.Cursors[NextCursor];
if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil)) then if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil)) then
HTMLTimer.Enabled := True HTMLTimer.Enabled := True

7
components/htmllite/litesubs.pas
View File

@ -627,7 +627,7 @@ const
ImageSpace = 5; {extra space for left, right images} ImageSpace = 5; {extra space for left, right images}
var var
ListIndent: integer = 35; {defines successive indents} ListIndent: integer{$IFNDEF HL_LAZARUS} = 35{$ENDIF}; {defines successive indents}
implementation implementation
@ -5894,6 +5894,11 @@ DefFont.UpdateFont(ParentSectionList, ParentSectionList.FontColor);
inherited UpdateFonts; inherited UpdateFonts;
end; end;
{$IFDEF HL_LAZARUS}
initialization
ListIndent:=35;
{$ENDIF}
end. end.