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

gtk2: check for max size only cursor in CreateIconIndirect

Browse Source 
git-svn-id: trunk@15614 -
This commit is contained in:
paul 2008-06-30 03:13:49 +00:00
parent 93c931063d
commit d179d98ddb
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -277,11 +277,15 @@ begin
//DbgDumpPixmap(pixmap, '');
gdk_drawable_get_size(pixmap, @Width, @Height);
gdk_display_get_maximal_cursor_size(gdk_display_get_default,
@MaxWidth, @MaxHeight);
if (Width > integer(MaxWidth))
or (Height > integer(MaxHeight)) then Exit;
if not IconInfo^.fIcon then
begin
gdk_display_get_maximal_cursor_size(gdk_display_get_default,
@MaxWidth, @MaxHeight);
if (Width > integer(MaxWidth))
or (Height > integer(MaxHeight)) then Exit;
end;
bitmap := CreateGdkMaskBitmap(IconInfo^.hbmColor, IconInfo^.hbmMask);
try