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

Enabled cursor property + property editor.

Browse Source 
git-svn-id: trunk@810 -
This commit is contained in:
lazarus 2002-02-09 01:46:48 +00:00
parent d8c238e310
commit db8e61d100
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkobject.inc
View File

@ -617,6 +617,7 @@ begin
DestroyGdkCursor(Cursor_SizeNS); DestroyGdkCursor(Cursor_SizeNS);
DestroyGdkCursor(Cursor_SizeNESW); DestroyGdkCursor(Cursor_SizeNESW);
DestroyGdkCursor(Cursor_SizeWE); DestroyGdkCursor(Cursor_SizeWE);
DestroyGdkCursor(Cursor_Help);
gtk_object_unref(PGTKObject(FGTKToolTips)); gtk_object_unref(PGTKObject(FGTKToolTips));
FGTKToolTips := nil; FGTKToolTips := nil;
@ -679,6 +680,7 @@ begin
Cursor_SizeNS := gdk_Cursor_New(GDK_SB_V_DOUBLE_ARROW); Cursor_SizeNS := gdk_Cursor_New(GDK_SB_V_DOUBLE_ARROW);
Cursor_SizeNESW := gdk_Cursor_New(GDK_BOTTOM_LEFT_CORNER); Cursor_SizeNESW := gdk_Cursor_New(GDK_BOTTOM_LEFT_CORNER);
Cursor_SizeWE := gdk_Cursor_New(GDK_SB_H_DOUBLE_ARROW); Cursor_SizeWE := gdk_Cursor_New(GDK_SB_H_DOUBLE_ARROW);
Cursor_Help := gdk_Cursor_New(GDK_QUESTION_ARROW);
gtk_key_snooper_install(@GTKKeySnooper, @FKeyStateList); gtk_key_snooper_install(@GTKKeySnooper, @FKeyStateList);
@ -5661,6 +5663,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.203 2002/09/06 22:32:21 lazarus
Enabled cursor property + property editor.
Revision 1.202 2002/09/06 19:45:11 lazarus Revision 1.202 2002/09/06 19:45:11 lazarus
Cleanups plus a fix to TPanel parent/drawing problem. Cleanups plus a fix to TPanel parent/drawing problem.