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

AJ: rearranged GTK init stuff for proper GNOME init & less duplication between interfaces

Browse Source 
git-svn-id: trunk@1202 -
This commit is contained in:
lazarus 2002-02-09 01:48:05 +00:00
parent cd6cecfecb
commit bb93cef6db
2 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkint.pp
View File

@ -82,6 +82,9 @@ type
Function CreateSystemFont : hFont; Function CreateSystemFont : hFont;
procedure InitStockItems; virtual;
procedure FreeStockItems; virtual;
Procedure HookSignals(Sender : TObject); virtual; //hooks all signals for controls Procedure HookSignals(Sender : TObject); virtual; //hooks all signals for controls
procedure CreateComponent(Sender : TObject);virtual; procedure CreateComponent(Sender : TObject);virtual;
procedure DestroyLCLControl(Sender : TObject);virtual; procedure DestroyLCLControl(Sender : TObject);virtual;
@ -260,6 +263,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.93 2002/10/21 03:23:35 lazarus
AJ: rearranged GTK init stuff for proper GNOME init & less duplication between interfaces
Revision 1.92 2002/10/20 21:49:10 lazarus Revision 1.92 2002/10/20 21:49:10 lazarus
MG: fixes for fpc1.1 MG: fixes for fpc1.1

48
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3734,6 +3734,51 @@ begin
end; end;
end; end;
Procedure LoadGDKCursors;
begin
// Create default cursor types
Cursor_Watch := gdk_cursor_new(gdk_Watch);
Cursor_Arrow := gdk_cursor_new(gdk_Arrow);
Cursor_Cross := gdk_cursor_new(gdk_Cross);
Cursor_Hand1 := gdk_cursor_new(gdk_Hand1);
Cursor_XTerm := gdk_cursor_new(gdk_XTerm);
Cursor_StdArrow := gdk_cursor_new(GDK_LEFT_PTR);
Cursor_HSplit := gdk_cursor_new(GDK_SB_H_DOUBLE_ARROW);
Cursor_VSplit := gdk_cursor_new(GDK_SB_V_DOUBLE_ARROW);
Cursor_SizeNWSE := gdk_cursor_new(GDK_TOP_LEFT_CORNER);
Cursor_SizeNS := gdk_cursor_new(GDK_SB_V_DOUBLE_ARROW);
Cursor_SizeNESW := gdk_cursor_new(GDK_BOTTOM_LEFT_CORNER);
Cursor_SizeWE := gdk_cursor_new(GDK_SB_H_DOUBLE_ARROW);
Cursor_SizeAll:= gdk_cursor_new(GDK_FLEUR);
Cursor_Help := gdk_cursor_new(GDK_QUESTION_ARROW);
end;
Procedure FreeGDKCursors;
procedure DestroyGdkCursor(var Cursor: pGDKCursor);
begin
gdk_Cursor_Destroy(Cursor);
Cursor:=nil;
end;
begin
// Destroy default cursor types
DestroyGdkCursor(Cursor_Watch);
DestroyGdkCursor(Cursor_Arrow);
DestroyGdkCursor(Cursor_Cross);
DestroyGdkCursor(Cursor_Hand1);
DestroyGdkCursor(Cursor_XTerm);
DestroyGdkCursor(Cursor_StdArrow);
DestroyGdkCursor(Cursor_HSplit);
DestroyGdkCursor(Cursor_VSplit);
DestroyGdkCursor(Cursor_SizeNWSE);
DestroyGdkCursor(Cursor_SizeNS);
DestroyGdkCursor(Cursor_SizeNESW);
DestroyGdkCursor(Cursor_SizeWE);
DestroyGdkCursor(Cursor_Help);
DestroyGdkCursor(Cursor_SizeAll);
end;
Procedure FillScreenFonts(ScreenFonts : TStrings); Procedure FillScreenFonts(ScreenFonts : TStrings);
var var
theFonts : PPChar; theFonts : PPChar;
@ -3763,6 +3808,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.134 2002/10/21 03:23:36 lazarus
AJ: rearranged GTK init stuff for proper GNOME init & less duplication between interfaces
Revision 1.133 2002/10/20 21:54:04 lazarus Revision 1.133 2002/10/20 21:54:04 lazarus
MG: fixes for 1.1 MG: fixes for 1.1