gtkfilechooserprivate.inc 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. {$IFDEF read_forward_definitions}
  2. {$ENDIF}
  3. {$IFDEF read_interface_types}
  4. type
  5. PGtkFileChooserDialogPrivate = pointer;
  6. PPGtkFileChooserDialogPrivate = ^PGtkFileChooserDialogPrivate;
  7. PGtkFileChooserIface = ^TGtkFileChooserIface;
  8. TGtkFileChooserIface = record
  9. base_iface : TGTypeInterface;
  10. { Methods }
  11. set_current_folder : function (chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;cdecl;
  12. get_current_folder : function (chooser:PGtkFileChooser):PGtkFilePath;
  13. set_current_name : procedure (chooser:PGtkFileChooser; name:Pgchar);
  14. select_path : function (chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;
  15. unselect_path : procedure (chooser:PGtkFileChooser; path:PGtkFilePath);
  16. select_all : procedure (chooser:PGtkFileChooser);
  17. unselect_all : procedure (chooser:PGtkFileChooser);
  18. get_paths : function (chooser:PGtkFileChooser):PGSList;
  19. get_preview_path : function (chooser:PGtkFileChooser):PGtkFilePath;
  20. get_file_system : function (chooser:PGtkFileChooser):PGtkFileSystem;
  21. add_filter : procedure (chooser:PGtkFileChooser; filter:PGtkFileFilter);
  22. remove_filter : procedure (chooser:PGtkFileChooser; filter:PGtkFileFilter);
  23. list_filters : function (chooser:PGtkFileChooser):PGSList;
  24. add_shortcut_folder : function (chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;
  25. remove_shortcut_folder : function (chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;
  26. list_shortcut_folders : function (chooser:PGtkFileChooser):PGSList;
  27. { Signals }
  28. current_folder_changed : procedure (chooser:PGtkFileChooser);
  29. selection_changed : procedure (chooser:PGtkFileChooser);
  30. update_preview : procedure (chooser:PGtkFileChooser);
  31. file_activated : procedure (chooser:PGtkFileChooser);
  32. end;
  33. {$ENDIF} {types}
  34. {$IFDEF read_interface_rest}
  35. (* Geraten: *)
  36. function GTK_FILE_CHOOSER_GET_IFACE(inst : PGTypeInstance) : PGtkFileChooserIface;
  37. function _gtk_file_chooser_get_file_system(chooser:PGtkFileChooser):PGtkFileSystem;cdecl;external gtklib name '_gtk_file_chooser_get_file_system';
  38. function _gtk_file_chooser_set_current_folder_path(chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;cdecl;external gtklib name '_gtk_file_chooser_set_current_folder_path';
  39. function _gtk_file_chooser_get_current_folder_path(chooser:PGtkFileChooser):PGtkFilePath;cdecl;external gtklib name '_gtk_file_chooser_get_current_folder_path';
  40. function _gtk_file_chooser_select_path(chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;cdecl;external gtklib name '_gtk_file_chooser_select_path';
  41. procedure _gtk_file_chooser_unselect_path(chooser:PGtkFileChooser; path:PGtkFilePath);cdecl;external gtklib name '_gtk_file_chooser_unselect_path';
  42. function _gtk_file_chooser_get_paths(chooser:PGtkFileChooser):PGSList;cdecl;external gtklib name '_gtk_file_chooser_get_paths';
  43. function _gtk_file_chooser_get_preview_path(chooser:PGtkFileChooser):PGtkFilePath;cdecl;external gtklib name '_gtk_file_chooser_get_preview_path';
  44. function _gtk_file_chooser_add_shortcut_folder(chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;cdecl;external gtklib name '_gtk_file_chooser_add_shortcut_folder';
  45. function _gtk_file_chooser_remove_shortcut_folder(chooser:PGtkFileChooser; path:PGtkFilePath; error:PPGError):gboolean;cdecl;external gtklib name '_gtk_file_chooser_remove_shortcut_folder';
  46. {$endif} {interface_rest}
  47. {************************************************}
  48. {$IFDEF read_implementation}
  49. function GTK_FILE_CHOOSER_GET_IFACE(inst : PGTypeInstance) : PGtkFileChooserIface;
  50. begin
  51. GTK_FILE_CHOOSER_GET_IFACE:=G_TYPE_INSTANCE_GET_INTERFACE(inst,GTK_TYPE_FILE_CHOOSER);
  52. end;
  53. {$ENDIF} {read_implementation}