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

gtk2: ifdef SetCW, ResetCW only for windows

Browse Source 
git-svn-id: trunk@15388 -
This commit is contained in:
paul 2008-06-11 15:35:58 +00:00
parent 0e00ff3660
commit efb0e8990c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -74,6 +74,8 @@ var
Width, Height: integer;
MaxWidth, MaxHeight: guint;
pixbuf, masked_pixbuf: PGdkPixbuf;
{$ifdef Windows}
Old80807CW: Word;
procedure SetCW; inline;
@ -86,7 +88,8 @@ var
begin
Set8087CW(Old80807CW);
end;
{$endif}
begin
Result := 0;
if not IsValidGDIObject(ACursorInfo^.hbmColor) then Exit;