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

AJ: fixed initial result in clipping/region routines

Browse Source 
git-svn-id: trunk@1951 -
This commit is contained in:
lazarus 2002-08-17 23:40:22 +00:00
parent 57f4cd77eb
commit b8491b804f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -1846,6 +1846,7 @@ var
Tmp : hRGN;
X, Y : Longint;
begin
Result := SIMPLEREGION;
If not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR
@ -2722,6 +2723,7 @@ end;
function TgtkObject.ExcludeClipRect(dc: hdc;
Left, Top, Right, Bottom : Integer) : Integer;
begin
Result := SIMPLEREGION;
If not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR
@ -3177,6 +3179,7 @@ var
X, Y : Longint;
DCOrigin: Tpoint;
begin
Result := SIMPLEREGION;
If not IsValidDC(DC) then
Result := ERROR;
If lpRect <> nil then
@ -3260,6 +3263,7 @@ end;
------------------------------------------------------------------------------}
Function TGTKObject.GetClipRGN(DC : hDC; RGN : hRGN) : longint;
begin
Result := SIMPLEREGION;
If not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR
@ -4594,6 +4598,7 @@ end;
function TGTKObject.IntersectClipRect(dc: hdc;
Left, Top, Right, Bottom: Integer): Integer;
begin
Result := SIMPLEREGION;
If not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR
@ -5745,7 +5750,7 @@ end;
------------------------------------------------------------------------------}
Function TgtkObject.SelectClipRGN(DC : hDC; RGN : HRGN) : Longint;
begin
Result := 0;
Result := SIMPLEREGION;
If not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR then
@ -7479,6 +7484,9 @@ end;
{ =============================================================================
$Log$
Revision 1.174 2002/10/29 12:30:45 lazarus
AJ: fixed initial result in clipping/region routines
Revision 1.173 2002/10/28 23:25:36 lazarus
AJ: initialize SelectClipRgn Result