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

turbopower_ipro: less hints

Browse Source 
git-svn-id: trunk@59218 -
This commit is contained in:
mattias 2018-10-01 15:14:34 +00:00
parent f9799efe90
commit 08eec7aad8
3 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/turbopower_ipro/ipcss.inc
View File

@ -792,7 +792,6 @@ var
ACommand: String;
Command: String;
I: Integer;
msg: String;
begin
for I := 0 to ACommands.Count-1 do
begin

14
components/turbopower_ipro/iphtml.pas
View File

@ -916,7 +916,7 @@ type
FSrc: string;
FWidth: TIpHtmlLength;
FFrame : TIpHtmlFrame;
procedure SetAlign(const Value: TIpHtmlAlign);
procedure SetAlign(const Value: TIpHtmlAlign); overload;
procedure SetFrameBorder(const Value: Integer);
procedure SetMarginHeight(const Value: Integer);
procedure SetMarginWidth(const Value: Integer);
@ -4038,7 +4038,7 @@ end;
procedure TIpHtmlBaseLayouter.ProcessDuplicateLFs;
var
i, ilast: Integer;
i: Integer;
elem: PIpHtmlElement;
prevelem: PIpHtmlElement;
begin
@ -10338,7 +10338,6 @@ end;
procedure TIpHtmlNodeA.ClearAreaList;
var
a: Pointer;
m: Pointer;
begin
inherited;
@ -10550,9 +10549,9 @@ end;
procedure TIpHtmlNodeDIV.Enqueue;
var
elem: PIpHtmlElement;
hf, h: Integer;
h: Integer;
begin
hf := Props.FontSize;
//hf := Props.FontSize;
if FChildren.Count > 0 then begin
h := GetMargin(Props.ElemMarginTop, 0); //hf div 4);
elem := Owner.BuildLinefeedEntry(etSoftLF, h);
@ -11829,10 +11828,10 @@ end;
procedure TIpHtmlNodePRE.Enqueue;
var
h, hf: Integer;
h: Integer;
elem: PIpHtmlElement;
begin
hf := Props.FontSize;
//hf := Props.FontSize;
if FChildren.Count > 0 then begin
h := GetMargin(Props.ElemMarginTop, 0);
elem := Owner.BuildLineFeedEntry(etSoftLF, h);
@ -12731,7 +12730,6 @@ end;
procedure TIpHtmlNodeCore.ClearAreaList;
var
a: Pointer;
m: Pointer;
begin
while FAreaList.Count > 0 do begin
a := FAreaList[0];

2
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -376,8 +376,6 @@ var
WDelta, WMod : Integer;
function CalcDelta: Integer; // Returns dx
var
m : Integer;
begin
WDelta := 0;
WMod := 0;