mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 21:18:26 +02:00
Fixxed the errors I commited with Unionrect
Shane git-svn-id: trunk@132 -
This commit is contained in:
parent
c9bfc42a4d
commit
b83c55f212
@ -398,12 +398,6 @@ begin
|
|||||||
// Result :=
|
// Result :=
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function TInterfaceBase.UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean;
|
|
||||||
begin
|
|
||||||
// Your default here
|
|
||||||
// Result :=
|
|
||||||
end;
|
|
||||||
|
|
||||||
Function TInterfaceBase.WindowFromPoint(Point : TPoint) : HWND;
|
Function TInterfaceBase.WindowFromPoint(Point : TPoint) : HWND;
|
||||||
begin
|
begin
|
||||||
// Your default here
|
// Your default here
|
||||||
@ -414,6 +408,10 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.10 2001/01/23 19:13:57 lazarus
|
||||||
|
Fixxed the errors I commited with Unionrect
|
||||||
|
Shane
|
||||||
|
|
||||||
Revision 1.9 2001/01/23 19:01:10 lazarus
|
Revision 1.9 2001/01/23 19:01:10 lazarus
|
||||||
Fixxed bug in RestoreDC
|
Fixxed bug in RestoreDC
|
||||||
Shane
|
Shane
|
||||||
|
@ -401,11 +401,6 @@ begin
|
|||||||
Result := InterfaceObject.TextOut(DC, X, Y, Str, Count);
|
Result := InterfaceObject.TextOut(DC, X, Y, Str, Count);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean;
|
|
||||||
begin
|
|
||||||
Result := InterfaceObject.UnionRect(DestRect, SrcRect1, SrcRect2);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function WindowFromPoint(Point : TPoint) : HWND;
|
function WindowFromPoint(Point : TPoint) : HWND;
|
||||||
begin
|
begin
|
||||||
Result := InterfaceObject.WindowFromPoint(Point);
|
Result := InterfaceObject.WindowFromPoint(Point);
|
||||||
@ -949,6 +944,10 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.9 2001/01/23 19:13:57 lazarus
|
||||||
|
Fixxed the errors I commited with Unionrect
|
||||||
|
Shane
|
||||||
|
|
||||||
Revision 1.8 2001/01/23 19:01:10 lazarus
|
Revision 1.8 2001/01/23 19:01:10 lazarus
|
||||||
Fixxed bug in RestoreDC
|
Fixxed bug in RestoreDC
|
||||||
Shane
|
Shane
|
||||||
|
@ -95,7 +95,6 @@ function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; X
|
|||||||
|
|
||||||
Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
|
Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
|
||||||
|
|
||||||
Function UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean; override;
|
|
||||||
|
|
||||||
|
|
||||||
Function WindowFromPoint(Point : TPoint) : HWND; override;
|
Function WindowFromPoint(Point : TPoint) : HWND; override;
|
||||||
@ -103,6 +102,10 @@ Function WindowFromPoint(Point : TPoint) : HWND; override;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.9 2001/01/23 19:13:57 lazarus
|
||||||
|
Fixxed the errors I commited with Unionrect
|
||||||
|
Shane
|
||||||
|
|
||||||
Revision 1.8 2001/01/23 19:01:10 lazarus
|
Revision 1.8 2001/01/23 19:01:10 lazarus
|
||||||
Fixxed bug in RestoreDC
|
Fixxed bug in RestoreDC
|
||||||
Shane
|
Shane
|
||||||
|
Loading…
Reference in New Issue
Block a user