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

Improve TurboPower IPro. Issue #24840, patch from Christian

Browse Source 
git-svn-id: trunk@42401 -
This commit is contained in:
juha 2013-08-14 23:17:36 +00:00
parent 4be93112dd
commit dacbf1a4cf
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/iphtml.pas
View File

@ -5257,7 +5257,7 @@ begin
if Background <> '' then begin if Background <> '' then begin
if BgPicture = nil then if BgPicture = nil then
Owner.DoGetImage(Self, Owner.BuildPath(Background), BgPicture); Owner.DoGetImage(Self, Owner.BuildPath(Background), BgPicture);
if BgPicture <> nil then begin if (BgPicture <> nil) and (BgPicture.Height>0) and (BgPicture.Width>0) then begin
MaxX := MaxI2(PageRect.Right, Owner.ClientRect.Right); {!!.02} MaxX := MaxI2(PageRect.Right, Owner.ClientRect.Right); {!!.02}
MaxY := MaxI2(PageRect.Bottom, Owner.ClientRect.Bottom); {!!.02} MaxY := MaxI2(PageRect.Bottom, Owner.ClientRect.Bottom); {!!.02}
Y := 0; Y := 0;
@ -16869,8 +16869,6 @@ end;
procedure TIpHtmlPropA.SetKnownSizeOfSpace(const Size: TSize); procedure TIpHtmlPropA.SetKnownSizeOfSpace(const Size: TSize);
begin begin
if Size.cx = 0 then
raise EIpHtmlException.Create(SHtmlInternal); {!!.02}
FKnownSizeOfSpace := Size; FKnownSizeOfSpace := Size;
FSizeOfSpaceKnown := True; FSizeOfSpaceKnown := True;
end; end;