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

gtk2: use another way of fixing cursor creating crash under window

Browse Source 
git-svn-id: trunk@15379 -
This commit is contained in:
paul 2008-06-11 02:16:55 +00:00
parent 0fb0403aed
commit 55fe69da9b
1 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,12 +74,20 @@ var
Width, Height: integer;
MaxWidth, MaxHeight: guint;
pixbuf, masked_pixbuf: PGdkPixbuf;
Old80807CW: Word;
procedure SetCW; inline;
begin
Old80807CW := Get8087CW;
Set8087CW($133F);
end;
procedure ResetCW; inline;
begin
Set8087CW(Old80807CW);
end;
begin
{$IFDEF windows}
// read comments at bottom
Result := inherited CreateCursor(ACursorInfo);
exit;
{$endif}
Result := 0;
if not IsValidGDIObject(ACursorInfo^.hbmColor) then Exit;
@ -114,9 +122,18 @@ begin
end;
// create cursor from pixbuf
// windows gtk2 crahes here, so it can load cursors at moment through gtk1 code
Result := HCursor(PtrUInt(gdk_cursor_new_from_pixbuf(gdk_display_get_default, pixbuf,
ACursorInfo^.xHotSpot, ACursorInfo^.yHotSpot)));
try
{$IFDEF Windows}
// we'll get 'division by zero' error in CMCheckColorsInGamut in other case
SetCW;
{$ENDIF}
Result := HCursor(PtrUInt(gdk_cursor_new_from_pixbuf(gdk_display_get_default, pixbuf,
ACursorInfo^.xHotSpot, ACursorInfo^.yHotSpot)));
finally
{$IFDEF Windows}
ResetCW;
{$ENDIF}
end;
end;
function TGtk2WidgetSet.CreateFontIndirectEx(const LogFont: TLogFont;