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

MG: added changes from Andrew (Clipping)

Browse Source 
git-svn-id: trunk@1104 -
This commit is contained in:
lazarus 2002-02-09 01:47:51 +00:00
parent bfe6568fab
commit 2128439bcd
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/include/interfacebase.inc
View File

@ -104,6 +104,11 @@ begin
end;
Function TInterfaceBase.CombineRgn(Dest, Src1, Src2 : HRGN;
fnCombineMode : Longint) : Longint;
begin
Result := ERROR;
end;
function TInterfaceBase.CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP;
begin
@ -154,6 +159,11 @@ begin
Result := 0;
end;
function TInterfaceBase.CreatePolygonRgn(Points: PPoint; NumPts: Integer; Winding : Boolean): HRGN;
Begin
Result := 0;
end;
function TInterfaceBase.CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
begin
Result := 0;
@ -215,6 +225,11 @@ begin
Result := False;
end;
function TInterfaceBase.ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer;
begin
Result := SimpleRegion;
end;
function TInterfaceBase.FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean;
begin
Result := False;
@ -257,6 +272,17 @@ begin
Result := False;
end;
Function TInterfaceBase.GetClipBox(DC : hDC; lpRect : PRect) : Longint;
begin
lpRect^ := Rect(0,0,0,0);
Result := SIMPLEREGION;
end;
Function TInterfaceBase.GetClipRGN(DC : hDC; RGN : hRGN) : Longint;
begin
Result := -1;
end;
Function TInterfaceBase.GetCmdLineParamDescForInterface: string;
begin
Result := '';
@ -513,6 +539,11 @@ begin
Result := False;
end;
Function TInterfaceBase.SelectClipRGN(DC : hDC; RGN : HRGN) : Longint;
begin
Result := ERROR;
end;
function TInterfaceBase.SelectObject(DC: HDC; GDIObj: HGDIOBJ): HGDIOBJ;
begin
Result := 0;
@ -648,6 +679,9 @@ end;
{ =============================================================================
$Log$
Revision 1.39 2002/08/15 15:46:48 lazarus
MG: added changes from Andrew (Clipping)
Revision 1.38 2002/08/13 07:08:24 lazarus
MG: added gdkpixbuf.pp and changes from Andrew Johnson