gtkscalebutton.inc 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. function GTK_TYPE_SCALE_BUTTON: GType; inline;
  2. begin
  3. GTK_TYPE_SCALE_BUTTON:=gtk_scale_button_get_type();
  4. end;
  5. function GTK_SCALE_BUTTON(obj : pointer) : PGTypeInstance; inline;
  6. begin
  7. GTK_SCALE_BUTTON:=G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_SCALE_BUTTON);
  8. end;
  9. function GTK_SCALE_BUTTON_CLASS(klass : pointer) : pointer; inline;
  10. begin
  11. GTK_SCALE_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_SCALE_BUTTON);
  12. end;
  13. function GTK_IS_SCALE_BUTTON(obj : pointer) : boolean; inline;
  14. begin
  15. GTK_IS_SCALE_BUTTON:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_SCALE_BUTTON);
  16. end;
  17. function GTK_IS_SCALE_BUTTON_CLASS(klass : pointer) : boolean; inline;
  18. begin
  19. GTK_IS_SCALE_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_SCALE_BUTTON);
  20. end;
  21. function GTK_SCALE_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
  22. begin
  23. GTK_SCALE_BUTTON_GET_CLASS:=G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_SCALE_BUTTON);
  24. end;
  25. function Available_GtkScaleButton_2_12: Boolean;
  26. begin
  27. Result := Assigned(gtk_scale_button_new);
  28. end;
  29. procedure Freegtkscalebutton;
  30. begin
  31. gtk_scale_button_get_type:=nil;
  32. gtk_scale_button_new:=nil;
  33. gtk_scale_button_set_icons:=nil;
  34. gtk_scale_button_get_value:=nil;
  35. gtk_scale_button_set_value:=nil;
  36. gtk_scale_button_get_adjustment:=nil;
  37. gtk_scale_button_set_adjustment:=nil;
  38. end;
  39. procedure Loadgtkscalebutton;
  40. begin
  41. Freegtkscalebutton;
  42. pointer(gtk_scale_button_get_type):=GetProcAddress(gtkhandle,'gtk_scale_button_get_type');
  43. pointer(gtk_scale_button_new):=GetProcAddress(gtkhandle,'gtk_scale_button_new');
  44. pointer(gtk_scale_button_set_icons):=GetProcAddress(gtkhandle,'gtk_scale_button_set_icons');
  45. pointer(gtk_scale_button_get_value):=GetProcAddress(gtkhandle,'gtk_scale_button_get_value');
  46. pointer(gtk_scale_button_set_value):=GetProcAddress(gtkhandle,'gtk_scale_button_set_value');
  47. pointer(gtk_scale_button_get_adjustment):=GetProcAddress(gtkhandle,'gtk_scale_button_get_adjustment');
  48. pointer(gtk_scale_button_set_adjustment):=GetProcAddress(gtkhandle,'gtk_scale_button_set_adjustment');
  49. end;