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

Fixxed the errors I commited with Unionrect

Browse Source 
Shane

git-svn-id: trunk@132 -
This commit is contained in:
lazarus 2001-01-23 19:13:57 +00:00
parent c9bfc42a4d
commit b83c55f212
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/interfacebase.inc
View File

@ -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

9
lcl/include/winapi.inc
View File

@ -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

5
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -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