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

IpHtmlPanel can show simple HTML pages, but there are mem bugs

Browse Source 
git-svn-id: trunk@2630 -
This commit is contained in:
mattias 2002-08-17 23:41:32 +00:00
parent c8fbc837db
commit b65c00f592
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/winapi.inc
View File

@ -1295,11 +1295,11 @@ function IntersectRect(var DestRect: TRect;
begin
Result := False;
// test if rectangles intersects
Result:=(SrcRect2.Left >= SrcRect1.Right)
or (SrcRect2.Right <= SrcRect1.Left)
or (SrcRect2.Top >= SrcRect1.Bottom)
or (SrcRect2.Bottom <= SrcRect1.Top);
// test if rectangles intersects
Result:=(SrcRect2.Left < SrcRect1.Right)
and (SrcRect2.Right > SrcRect1.Left)
and (SrcRect2.Top < SrcRect1.Bottom)
and (SrcRect2.Bottom > SrcRect1.Top);
if Result then begin
DestRect.Left:=Max(SrcRect1.Left,SrcRect2.Left);
@ -1580,6 +1580,9 @@ end;
{ =============================================================================
$Log$
Revision 1.80 2003/03/29 23:52:25 mattias
IpHtmlPanel can show simple HTML pages, but there are mem bugs
Revision 1.79 2003/03/29 17:20:05 mattias
added TMemoScrollBar