paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 21:40:20 +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; ACommand: String;
Command: String; Command: String;
I: Integer; I: Integer;
msg: String;
begin begin
for I := 0 to ACommands.Count-1 do for I := 0 to ACommands.Count-1 do
begin begin

14
components/turbopower_ipro/iphtml.pas
View File

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

2
components/turbopower_ipro/iphtmlblocklayout.pas
View File

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