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

LCL: GTK2: Fixed cursor size. Issue #32385.

Browse Source 
git-svn-id: trunk@55795 -
This commit is contained in:
michl 2017-09-07 21:04:09 +00:00
parent 60ec73e66a
commit e229634abf
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5575,7 +5575,9 @@ var
{$ifdef HasX}
ax,ay,ah,aw: gint;
{$endif}
{$IFDEF Win32}
auw, auh: guint;
{$ENDIF}
screen: PGdkScreen;
ARect: TGdkRectangle;
AValue: TGValue;
@ -5607,12 +5609,17 @@ begin
SM_CXCURSOR,
SM_CYCURSOR:
begin
// Width and height of a cursor, in pixels. For win32 system cannot create cursors of other sizes.
// For gtk this should be maximal cursor sizes
gdk_display_get_maximal_cursor_size(gdk_display_get_default, @auw, @auh);
if nIndex = SM_CXCURSOR
then Result := auw // return width
else Result := auh; // return height
{$IFDEF Win32}
// Width and height of a cursor, in pixels. For win32 system cannot create cursors of other sizes.
// For gtk this should be maximal cursor sizes
gdk_display_get_maximal_cursor_size(gdk_display_get_default, @auw, @auh);
if nIndex = SM_CXCURSOR
then Result := auw // return width
else Result := auh; // return height
{$ELSE}
// At least on Linux, the default size should be taken: Issue #32385
Result := gdk_display_get_default_cursor_size(gdk_display_get_default);
{$ENDIF}
end;
SM_CXDOUBLECLK:
begin