mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-22 10:01:33 +02:00
* add GtkScaleButton and GtkVolumeButton
* add missing gtk2.8+ functions for GtkTextMark and GtkTextIter git-svn-id: trunk@11506 -
This commit is contained in:
Almindor
parent
d2214685c3
commit
e64aec7c6e
8
.gitattributes
vendored
8
.gitattributes
vendored
@ -2421,8 +2421,16 @@ packages/gtk2/src/gtk2x11/include/xsettings-client.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtk2x11/include/xsettings-common.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtk2x11/scripts/gdkx11_h2pas.sh svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtk2ext.pp svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtkscalebutton.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtkscalebuttonh.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtkstatusicon.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtkstatusiconh.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtktextiter.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtktextiterh.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtktextmark.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtktextmarkh.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtkvolumebutton.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkext/gtkvolumebuttonh.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkglext/gdkglconfig.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkglext/gdkglcontext.inc svneol=native#text/plain
|
||||
packages/gtk2/src/gtkglext/gdkgldefs.inc svneol=native#text/plain
|
||||
|
||||
@ -1214,6 +1214,14 @@ begin
|
||||
begin
|
||||
AddInclude('gtkstatusiconh.inc');
|
||||
AddInclude('gtkstatusicon.inc');
|
||||
AddInclude('gtkscalebuttonh.inc');
|
||||
AddInclude('gtkscalebutton.inc');
|
||||
AddInclude('gtkvolumebuttonh.inc');
|
||||
AddInclude('gtkvolumebutton.inc');
|
||||
AddInclude('gtktextmarkh.inc');
|
||||
AddInclude('gtktextmark.inc');
|
||||
AddInclude('gtktextiterh.inc');
|
||||
AddInclude('gtktextiter.inc');
|
||||
end;
|
||||
|
||||
T:=P.Targets.AddUnit('src/gtkhtml/gtkhtml.pas');
|
||||
|
||||
@ -21,6 +21,10 @@ const
|
||||
{$endif}
|
||||
|
||||
{$i gtkstatusiconh.inc}
|
||||
{$i gtkscalebuttonh.inc}
|
||||
{$i gtkvolumebuttonh.inc}
|
||||
{$i gtktextmarkh.inc}
|
||||
{$i gtktextiterh.inc}
|
||||
|
||||
implementation
|
||||
|
||||
@ -31,6 +35,10 @@ var
|
||||
gtkhandle : tlibhandle;
|
||||
|
||||
{$i gtkstatusicon.inc}
|
||||
{$i gtkscalebutton.inc}
|
||||
{$i gtkvolumebutton.inc}
|
||||
{$i gtktextmark.inc}
|
||||
{$i gtktextiter.inc}
|
||||
|
||||
var
|
||||
libIter: Integer;
|
||||
@ -39,14 +47,22 @@ initialization
|
||||
for libIter := High(GtkLibNames) downto Low(GtkLibNames) do begin
|
||||
gtkhandle := LoadLibrary(GtkLibNames[libIter]);
|
||||
if gtkhandle <> 0 then begin
|
||||
// add all specific component load functions here
|
||||
Loadgtkstatusicon;
|
||||
Loadgtkscalebutton;
|
||||
Loadgtkvolumebutton;
|
||||
Loadgtktextmark;
|
||||
Loadgtkiter;
|
||||
// add all specific component load functions here
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
finalization
|
||||
// add all specific component free functions here
|
||||
Freegtkstatusicon;
|
||||
Freegtkscalebutton;
|
||||
Freegtkvolumebutton;
|
||||
Freegtktextmark;
|
||||
Freegtkiter;
|
||||
// add all specific component free functions here
|
||||
if gtkhandle <> 0 then
|
||||
FreeLibrary(gtkhandle);
|
||||
|
||||
|
||||
60
packages/gtk2/src/gtkext/gtkscalebutton.inc
Normal file
60
packages/gtk2/src/gtkext/gtkscalebutton.inc
Normal file
@ -0,0 +1,60 @@
|
||||
|
||||
function GTK_TYPE_SCALE_BUTTON: GType; inline;
|
||||
begin
|
||||
GTK_TYPE_SCALE_BUTTON:=gtk_scale_button_get_type();
|
||||
end;
|
||||
|
||||
function GTK_SCALE_BUTTON(obj : pointer) : PGTypeInstance; inline;
|
||||
begin
|
||||
GTK_SCALE_BUTTON:=G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_SCALE_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_SCALE_BUTTON_CLASS(klass : pointer) : pointer; inline;
|
||||
begin
|
||||
GTK_SCALE_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_SCALE_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_IS_SCALE_BUTTON(obj : pointer) : boolean; inline;
|
||||
begin
|
||||
GTK_IS_SCALE_BUTTON:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_SCALE_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_IS_SCALE_BUTTON_CLASS(klass : pointer) : boolean; inline;
|
||||
begin
|
||||
GTK_IS_SCALE_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_SCALE_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_SCALE_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
|
||||
begin
|
||||
GTK_SCALE_BUTTON_GET_CLASS:=G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_SCALE_BUTTON);
|
||||
end;
|
||||
|
||||
function Available_GtkScaleButton: Boolean;
|
||||
begin
|
||||
Result := Assigned(gtk_scale_button_new);
|
||||
end;
|
||||
|
||||
procedure Freegtkscalebutton;
|
||||
begin
|
||||
gtk_scale_button_get_type:=nil;
|
||||
gtk_scale_button_new:=nil;
|
||||
gtk_scale_button_set_icons:=nil;
|
||||
gtk_scale_button_get_value:=nil;
|
||||
gtk_scale_button_set_value:=nil;
|
||||
gtk_scale_button_get_adjustment:=nil;
|
||||
gtk_scale_button_set_adjustment:=nil;
|
||||
end;
|
||||
|
||||
procedure Loadgtkscalebutton;
|
||||
begin
|
||||
Freegtkscalebutton;
|
||||
|
||||
pointer(gtk_scale_button_get_type):=GetProcAddress(gtkhandle,'gtk_scale_button_get_type');
|
||||
pointer(gtk_scale_button_new):=GetProcAddress(gtkhandle,'gtk_scale_button_new');
|
||||
pointer(gtk_scale_button_set_icons):=GetProcAddress(gtkhandle,'gtk_scale_button_set_icons');
|
||||
pointer(gtk_scale_button_get_value):=GetProcAddress(gtkhandle,'gtk_scale_button_get_value');
|
||||
pointer(gtk_scale_button_set_value):=GetProcAddress(gtkhandle,'gtk_scale_button_set_value');
|
||||
pointer(gtk_scale_button_get_adjustment):=GetProcAddress(gtkhandle,'gtk_scale_button_get_adjustment');
|
||||
pointer(gtk_scale_button_set_adjustment):=GetProcAddress(gtkhandle,'gtk_scale_button_set_adjustment');
|
||||
end;
|
||||
|
||||
23
packages/gtk2/src/gtkext/gtkscalebuttonh.inc
Normal file
23
packages/gtk2/src/gtkext/gtkscalebuttonh.inc
Normal file
@ -0,0 +1,23 @@
|
||||
|
||||
type
|
||||
PGtkScaleButton = pointer;
|
||||
PGtkScaleButtonClass = pointer;
|
||||
|
||||
var
|
||||
gtk_scale_button_get_type : function: GType;cdecl;
|
||||
gtk_scale_button_new : function(size:TGtkIconSize; min:gdouble; max:gdouble; step:gdouble; icons:PPgchar):PGtkWidget;cdecl;
|
||||
gtk_scale_button_set_icons : procedure(button:PGtkScaleButton; icons:PPgchar);cdecl;
|
||||
gtk_scale_button_get_value : function(button:PGtkScaleButton):gdouble;cdecl;
|
||||
gtk_scale_button_set_value : procedure(button:PGtkScaleButton; value:gdouble);cdecl;
|
||||
gtk_scale_button_get_adjustment : function(button:PGtkScaleButton):PGtkAdjustment;cdecl;
|
||||
gtk_scale_button_set_adjustment : procedure(button:PGtkScaleButton; adjustment:PGtkAdjustment);cdecl;
|
||||
|
||||
function GTK_TYPE_SCALE_BUTTON: GType; inline;
|
||||
function GTK_SCALE_BUTTON(obj : pointer) : PGTypeInstance; inline;
|
||||
function GTK_SCALE_BUTTON_CLASS(klass : pointer) : pointer; inline;
|
||||
function GTK_IS_SCALE_BUTTON(obj : pointer) : boolean; inline;
|
||||
function GTK_IS_SCALE_BUTTON_CLASS(klass : pointer) : boolean; inline;
|
||||
function GTK_SCALE_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
|
||||
|
||||
function Available_GtkScaleButton: Boolean;
|
||||
|
||||
@ -1,69 +1,95 @@
|
||||
procedure Freegtkstatusicon;
|
||||
begin
|
||||
gtk_status_icon_get_type:=nil;
|
||||
gtk_status_icon_new:=nil;
|
||||
gtk_status_icon_new_from_pixbuf:=nil;
|
||||
gtk_status_icon_new_from_file:=nil;
|
||||
gtk_status_icon_new_from_stock:=nil;
|
||||
gtk_status_icon_new_from_icon_name:=nil;
|
||||
gtk_status_icon_set_from_pixbuf:=nil;
|
||||
gtk_status_icon_set_from_file:=nil;
|
||||
gtk_status_icon_set_from_stock:=nil;
|
||||
gtk_status_icon_set_from_icon_name:=nil;
|
||||
gtk_status_icon_get_storage_type:=nil;
|
||||
gtk_status_icon_get_pixbuf:=nil;
|
||||
gtk_status_icon_get_size:=nil;
|
||||
gtk_status_icon_set_screen:=nil;
|
||||
gtk_status_icon_get_screen:=nil;
|
||||
gtk_status_icon_set_tooltip:=nil;
|
||||
gtk_status_icon_set_visible:=nil;
|
||||
gtk_status_icon_get_visible:=nil;
|
||||
gtk_status_icon_set_blinking:=nil;
|
||||
gtk_status_icon_get_blinking:=nil;
|
||||
gtk_status_icon_is_embedded:=nil;
|
||||
gtk_status_icon_position_menu:=nil;
|
||||
gtk_status_icon_get_geometry:=nil;
|
||||
end;
|
||||
|
||||
procedure Freegtkstatusicon;
|
||||
begin
|
||||
gtk_status_icon_get_type:=nil;
|
||||
gtk_status_icon_new:=nil;
|
||||
gtk_status_icon_new_from_pixbuf:=nil;
|
||||
gtk_status_icon_new_from_file:=nil;
|
||||
gtk_status_icon_new_from_stock:=nil;
|
||||
gtk_status_icon_new_from_icon_name:=nil;
|
||||
gtk_status_icon_set_from_pixbuf:=nil;
|
||||
gtk_status_icon_set_from_file:=nil;
|
||||
gtk_status_icon_set_from_stock:=nil;
|
||||
gtk_status_icon_set_from_icon_name:=nil;
|
||||
gtk_status_icon_get_storage_type:=nil;
|
||||
gtk_status_icon_get_pixbuf:=nil;
|
||||
gtk_status_icon_get_size:=nil;
|
||||
gtk_status_icon_set_screen:=nil;
|
||||
gtk_status_icon_get_screen:=nil;
|
||||
gtk_status_icon_set_tooltip:=nil;
|
||||
gtk_status_icon_set_visible:=nil;
|
||||
gtk_status_icon_get_visible:=nil;
|
||||
gtk_status_icon_set_blinking:=nil;
|
||||
gtk_status_icon_get_blinking:=nil;
|
||||
gtk_status_icon_is_embedded:=nil;
|
||||
gtk_status_icon_position_menu:=nil;
|
||||
gtk_status_icon_get_geometry:=nil;
|
||||
end;
|
||||
|
||||
|
||||
procedure Loadgtkstatusicon;
|
||||
begin
|
||||
Freegtkstatusicon;
|
||||
procedure Loadgtkstatusicon;
|
||||
begin
|
||||
Freegtkstatusicon;
|
||||
|
||||
pointer(gtk_status_icon_get_type):=GetProcAddress(gtkhandle,'gtk_status_icon_get_type');
|
||||
pointer(gtk_status_icon_new):=GetProcAddress(gtkhandle,'gtk_status_icon_new');
|
||||
pointer(gtk_status_icon_new_from_pixbuf):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_pixbuf');
|
||||
pointer(gtk_status_icon_new_from_file):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_file');
|
||||
pointer(gtk_status_icon_new_from_stock):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_stock');
|
||||
pointer(gtk_status_icon_new_from_icon_name):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_icon_name');
|
||||
pointer(gtk_status_icon_set_from_pixbuf):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_pixbuf');
|
||||
pointer(gtk_status_icon_set_from_file):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_file');
|
||||
pointer(gtk_status_icon_set_from_stock):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_stock');
|
||||
pointer(gtk_status_icon_set_from_icon_name):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_icon_name');
|
||||
pointer(gtk_status_icon_get_storage_type):=GetProcAddress(gtkhandle,'gtk_status_icon_get_storage_type');
|
||||
pointer(gtk_status_icon_get_pixbuf):=GetProcAddress(gtkhandle,'gtk_status_icon_get_pixbuf');
|
||||
pointer(gtk_status_icon_get_stock):=GetProcAddress(gtkhandle, 'gtk_status_icon_get_stock');
|
||||
pointer(gtk_status_icon_get_icon_name):=GetProcAddress(gtkhandle, 'gtk_status_icon_get_icon_name');
|
||||
pointer(gtk_status_icon_get_size):=GetProcAddress(gtkhandle,'gtk_status_icon_get_size');
|
||||
pointer(gtk_status_icon_set_screen):=GetProcAddress(gtkhandle,'gtk_status_icon_set_screen');
|
||||
pointer(gtk_status_icon_get_screen):=GetProcAddress(gtkhandle,'gtk_status_icon_get_screen');
|
||||
pointer(gtk_status_icon_set_tooltip):=GetProcAddress(gtkhandle,'gtk_status_icon_set_tooltip');
|
||||
pointer(gtk_status_icon_set_visible):=GetProcAddress(gtkhandle,'gtk_status_icon_set_visible');
|
||||
pointer(gtk_status_icon_get_visible):=GetProcAddress(gtkhandle,'gtk_status_icon_get_visible');
|
||||
pointer(gtk_status_icon_set_blinking):=GetProcAddress(gtkhandle,'gtk_status_icon_set_blinking');
|
||||
pointer(gtk_status_icon_get_blinking):=GetProcAddress(gtkhandle,'gtk_status_icon_get_blinking');
|
||||
pointer(gtk_status_icon_is_embedded):=GetProcAddress(gtkhandle,'gtk_status_icon_is_embedded');
|
||||
pointer(gtk_status_icon_position_menu):=GetProcAddress(gtkhandle,'gtk_status_icon_position_menu');
|
||||
pointer(gtk_status_icon_get_geometry):=GetProcAddress(gtkhandle,'gtk_status_icon_get_geometry');
|
||||
end;
|
||||
pointer(gtk_status_icon_get_type):=GetProcAddress(gtkhandle,'gtk_status_icon_get_type');
|
||||
pointer(gtk_status_icon_new):=GetProcAddress(gtkhandle,'gtk_status_icon_new');
|
||||
pointer(gtk_status_icon_new_from_pixbuf):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_pixbuf');
|
||||
pointer(gtk_status_icon_new_from_file):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_file');
|
||||
pointer(gtk_status_icon_new_from_stock):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_stock');
|
||||
pointer(gtk_status_icon_new_from_icon_name):=GetProcAddress(gtkhandle,'gtk_status_icon_new_from_icon_name');
|
||||
pointer(gtk_status_icon_set_from_pixbuf):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_pixbuf');
|
||||
pointer(gtk_status_icon_set_from_file):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_file');
|
||||
pointer(gtk_status_icon_set_from_stock):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_stock');
|
||||
pointer(gtk_status_icon_set_from_icon_name):=GetProcAddress(gtkhandle,'gtk_status_icon_set_from_icon_name');
|
||||
pointer(gtk_status_icon_get_storage_type):=GetProcAddress(gtkhandle,'gtk_status_icon_get_storage_type');
|
||||
pointer(gtk_status_icon_get_pixbuf):=GetProcAddress(gtkhandle,'gtk_status_icon_get_pixbuf');
|
||||
pointer(gtk_status_icon_get_stock):=GetProcAddress(gtkhandle, 'gtk_status_icon_get_stock');
|
||||
pointer(gtk_status_icon_get_icon_name):=GetProcAddress(gtkhandle, 'gtk_status_icon_get_icon_name');
|
||||
pointer(gtk_status_icon_get_size):=GetProcAddress(gtkhandle,'gtk_status_icon_get_size');
|
||||
pointer(gtk_status_icon_set_screen):=GetProcAddress(gtkhandle,'gtk_status_icon_set_screen');
|
||||
pointer(gtk_status_icon_get_screen):=GetProcAddress(gtkhandle,'gtk_status_icon_get_screen');
|
||||
pointer(gtk_status_icon_set_tooltip):=GetProcAddress(gtkhandle,'gtk_status_icon_set_tooltip');
|
||||
pointer(gtk_status_icon_set_visible):=GetProcAddress(gtkhandle,'gtk_status_icon_set_visible');
|
||||
pointer(gtk_status_icon_get_visible):=GetProcAddress(gtkhandle,'gtk_status_icon_get_visible');
|
||||
pointer(gtk_status_icon_set_blinking):=GetProcAddress(gtkhandle,'gtk_status_icon_set_blinking');
|
||||
pointer(gtk_status_icon_get_blinking):=GetProcAddress(gtkhandle,'gtk_status_icon_get_blinking');
|
||||
pointer(gtk_status_icon_is_embedded):=GetProcAddress(gtkhandle,'gtk_status_icon_is_embedded');
|
||||
pointer(gtk_status_icon_position_menu):=GetProcAddress(gtkhandle,'gtk_status_icon_position_menu');
|
||||
pointer(gtk_status_icon_get_geometry):=GetProcAddress(gtkhandle,'gtk_status_icon_get_geometry');
|
||||
end;
|
||||
|
||||
function GTK_TYPE_STATUS_ICON: GType;
|
||||
begin
|
||||
Result := gtk_status_icon_get_type();
|
||||
end;
|
||||
function GTK_TYPE_STATUS_ICON: GType; inline;
|
||||
begin
|
||||
Result := gtk_status_icon_get_type();
|
||||
end;
|
||||
|
||||
function Available_GtkStatusIcon: Boolean;
|
||||
begin
|
||||
Result := Assigned(gtk_status_icon_new);
|
||||
end;
|
||||
function GTK_STATUS_ICON(obj: Pointer): PGTypeInstance; inline;
|
||||
begin
|
||||
GTK_STATUS_ICON := G_TYPE_CHECK_INSTANCE_CAST (obj, GTK_TYPE_STATUS_ICON);
|
||||
end;
|
||||
|
||||
function GTK_STATUS_ICON_CLASS(klass: Pointer): Pointer; inline;
|
||||
begin
|
||||
GTK_STATUS_ICON_CLASS := G_TYPE_CHECK_CLASS_CAST (klass, GTK_TYPE_STATUS_ICON);
|
||||
end;
|
||||
|
||||
function GTK_IS_STATUS_ICON(obj: Pointer): boolean; inline;
|
||||
begin
|
||||
GTK_IS_STATUS_ICON := G_TYPE_CHECK_INSTANCE_TYPE (obj, GTK_TYPE_STATUS_ICON);
|
||||
end;
|
||||
|
||||
function GTK_IS_STATUS_ICON_CLASS(klass: Pointer): boolean; inline;
|
||||
begin
|
||||
GTK_IS_STATUS_ICON_CLASS := G_TYPE_CHECK_CLASS_TYPE (klass, GTK_TYPE_STATUS_ICON);
|
||||
end;
|
||||
|
||||
function GTK_STATUS_ICON_GET_CLASS(obj: Pointer): PGTypeClass; inline;
|
||||
begin
|
||||
GTK_STATUS_ICON_GET_CLASS := G_TYPE_INSTANCE_GET_CLASS (obj, GTK_TYPE_STATUS_ICON);
|
||||
end;
|
||||
|
||||
function Available_GtkStatusIcon: Boolean;
|
||||
begin
|
||||
Result := Assigned(gtk_status_icon_new);
|
||||
end;
|
||||
|
||||
|
||||
@ -23,7 +23,9 @@
|
||||
*}
|
||||
|
||||
type
|
||||
PGtkStatusIcon = Pointer;
|
||||
PGtkStatusIcon = Pointer;
|
||||
PGtkStatusIconClass = Pointer;
|
||||
|
||||
PPGdkScreen = PGdkScreen;
|
||||
|
||||
|
||||
@ -54,7 +56,12 @@ var
|
||||
gtk_status_icon_position_menu : procedure(menu:PGtkMenu; x:Pgint; y:Pgint; push_in:Pgboolean; user_data:gpointer);
|
||||
gtk_status_icon_get_geometry : function(status_icon:PGtkStatusIcon; screen:PPGdkScreen; area:PGdkRectangle; orientation:PGtkOrientation):gboolean;
|
||||
|
||||
function GTK_TYPE_STATUS_ICON: GType;
|
||||
function GTK_TYPE_STATUS_ICON: GType; inline;
|
||||
function GTK_STATUS_ICON(obj: Pointer): PGTypeInstance; inline;
|
||||
function GTK_STATUS_ICON_CLASS(klass: Pointer): Pointer; inline;
|
||||
function GTK_IS_STATUS_ICON(obj: Pointer): boolean; inline;
|
||||
function GTK_IS_STATUS_ICON_CLASS(klass: Pointer): boolean; inline;
|
||||
function GTK_STATUS_ICON_GET_CLASS(obj: Pointer): PGTypeClass; inline;
|
||||
|
||||
function Available_GtkStatusIcon: Boolean;
|
||||
function Available_GtkStatusIcon: Boolean;
|
||||
|
||||
|
||||
25
packages/gtk2/src/gtkext/gtktextiter.inc
Normal file
25
packages/gtk2/src/gtkext/gtktextiter.inc
Normal file
@ -0,0 +1,25 @@
|
||||
|
||||
procedure Freegtkiter;
|
||||
begin
|
||||
gtk_text_iter_forward_visible_line:=nil;
|
||||
gtk_text_iter_backward_visible_line:=nil;
|
||||
gtk_text_iter_forward_visible_lines:=nil;
|
||||
gtk_text_iter_backward_visible_lines:=nil;
|
||||
end;
|
||||
|
||||
|
||||
procedure Loadgtkiter;
|
||||
begin
|
||||
Freegtkiter;
|
||||
|
||||
pointer(gtk_text_iter_forward_visible_line):=GetProcAddress(gtkhandle,'gtk_text_iter_forward_visible_line');
|
||||
pointer(gtk_text_iter_backward_visible_line):=GetProcAddress(gtkhandle,'gtk_text_iter_backward_visible_line');
|
||||
pointer(gtk_text_iter_forward_visible_lines):=GetProcAddress(gtkhandle,'gtk_text_iter_forward_visible_lines');
|
||||
pointer(gtk_text_iter_backward_visible_lines):=GetProcAddress(gtkhandle,'gtk_text_iter_backward_visible_lines');
|
||||
end;
|
||||
|
||||
function Available_GtkTextIter: Boolean;
|
||||
begin
|
||||
Result := Assigned(gtk_text_iter_forward_visible_line);
|
||||
end;
|
||||
|
||||
8
packages/gtk2/src/gtkext/gtktextiterh.inc
Normal file
8
packages/gtk2/src/gtkext/gtktextiterh.inc
Normal file
@ -0,0 +1,8 @@
|
||||
|
||||
var
|
||||
gtk_text_iter_forward_visible_line: function(iter: PGtkTextIter): gboolean;cdecl;
|
||||
gtk_text_iter_backward_visible_line: function(iter: PGtkTextIter): gboolean;cdecl;
|
||||
gtk_text_iter_forward_visible_lines: function(iter: PGtkTextIter; count: gint): gboolean;cdecl;
|
||||
gtk_text_iter_backward_visible_lines: function(iter: PGtkTextIter; count: gint): gboolean;cdecl;
|
||||
|
||||
function Available_GtkTextIter: Boolean;
|
||||
19
packages/gtk2/src/gtkext/gtktextmark.inc
Normal file
19
packages/gtk2/src/gtkext/gtktextmark.inc
Normal file
@ -0,0 +1,19 @@
|
||||
|
||||
procedure Freegtktextmark;
|
||||
begin
|
||||
gtk_text_mark_new:=nil
|
||||
end;
|
||||
|
||||
|
||||
procedure Loadgtktextmark;
|
||||
begin
|
||||
Freegtktextmark;
|
||||
|
||||
pointer(gtk_text_mark_new):=GetProcAddress(gtkhandle,'gtk_text_mark_new');
|
||||
end;
|
||||
|
||||
function Available_GtkTextMark: Boolean;
|
||||
begin
|
||||
Result := Assigned(gtk_text_mark_new);
|
||||
end;
|
||||
|
||||
5
packages/gtk2/src/gtkext/gtktextmarkh.inc
Normal file
5
packages/gtk2/src/gtkext/gtktextmarkh.inc
Normal file
@ -0,0 +1,5 @@
|
||||
|
||||
var
|
||||
gtk_text_mark_new: function(name: PGChar; left_gravity: Gboolean):PGtkTextMark;cdecl;
|
||||
|
||||
function Available_GtkTextMark: Boolean;
|
||||
50
packages/gtk2/src/gtkext/gtkvolumebutton.inc
Normal file
50
packages/gtk2/src/gtkext/gtkvolumebutton.inc
Normal file
@ -0,0 +1,50 @@
|
||||
procedure Freegtkvolumebutton;
|
||||
begin
|
||||
gtk_volume_button_new:=nil;
|
||||
gtk_volume_button_get_type:=nil;
|
||||
end;
|
||||
|
||||
|
||||
procedure Loadgtkvolumebutton;
|
||||
begin
|
||||
Freegtkvolumebutton;
|
||||
|
||||
pointer(gtk_volume_button_get_type):=GetProcAddress(gtkhandle,'gtk_volume_button_get_type');
|
||||
pointer(gtk_volume_button_new):=GetProcAddress(gtkhandle,'gtk_volume_button_new');
|
||||
end;
|
||||
|
||||
function GTK_TYPE_VOLUME_BUTTON: GType; inline;
|
||||
begin
|
||||
GTK_TYPE_VOLUME_BUTTON := gtk_volume_button_get_type();
|
||||
end;
|
||||
|
||||
function GTK_VOLUME_BUTTON(obj : pointer) : PGTypeInstance;
|
||||
begin
|
||||
GTK_VOLUME_BUTTON:=G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_VOLUME_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_VOLUME_BUTTON_CLASS(klass : pointer) : pointer;
|
||||
begin
|
||||
GTK_VOLUME_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_VOLUME_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_IS_VOLUME_BUTTON(obj : pointer) : boolean; inline;
|
||||
begin
|
||||
GTK_IS_VOLUME_BUTTON:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_VOLUME_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_IS_VOLUME_BUTTON_CLASS(klass : pointer) : boolean; inline;
|
||||
begin
|
||||
GTK_IS_VOLUME_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_VOLUME_BUTTON);
|
||||
end;
|
||||
|
||||
function GTK_VOLUME_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
|
||||
begin
|
||||
GTK_VOLUME_BUTTON_GET_CLASS:=G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_VOLUME_BUTTON);
|
||||
end;
|
||||
|
||||
function Available_GtkVolumeButton: Boolean;
|
||||
begin
|
||||
Result := Assigned(gtk_volume_button_new);
|
||||
end;
|
||||
|
||||
18
packages/gtk2/src/gtkext/gtkvolumebuttonh.inc
Normal file
18
packages/gtk2/src/gtkext/gtkvolumebuttonh.inc
Normal file
@ -0,0 +1,18 @@
|
||||
|
||||
type
|
||||
PGtkVolumeButtonClass = pointer;
|
||||
PGtkVolumeButton = pointer;
|
||||
|
||||
var
|
||||
gtk_volume_button_get_type: function:GType;cdecl;
|
||||
gtk_volume_button_new : function:PGtkWidget;cdecl;
|
||||
|
||||
function GTK_TYPE_VOLUME_BUTTON: GType; inline;
|
||||
function GTK_VOLUME_BUTTON(obj : pointer) : PGTypeInstance; inline;
|
||||
function GTK_VOLUME_BUTTON_CLASS(klass : pointer) : pointer; inline;
|
||||
function GTK_IS_VOLUME_BUTTON(obj : pointer) : boolean; inline;
|
||||
function GTK_IS_VOLUME_BUTTON_CLASS(klass : pointer) : boolean; inline;
|
||||
function GTK_VOLUME_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
|
||||
|
||||
function Available_GtkVolumeButton: Boolean;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user