Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / packages / gnome1 / src / libgnomeui / gnomeappbar.inc
Size: Mime:
{$IfDef read_interface}
type
   PGnomeAppBar = ^TGnomeAppBar;
   TGnomeAppBar = record
        parent_widget : TGtkHBox;
        progress : PGtkWidget;
        status : PGtkWidget;
        flag0 : word;
        editable_start : gint;
        prompt : Pgchar;
        status_stack : PGSList;
        default_status : Pgchar;
     end;
   GNOME_APPBAR = PGnomeAppBar;

const
   bm__GnomeAppBar_interactive = $1;
   bp__GnomeAppBar_interactive = 0;

function interactive(var a : TGnomeAppBar) : gboolean;
procedure set_interactive(var a : TGnomeAppBar; __interactive : gboolean);

type
   PGnomeAppBarClass = ^TGnomeAppBarClass;
   TGnomeAppBarClass = record
        parent_class : TGtkHBoxClass;
        user_response : procedure (ab:PGnomeAppBar);cdecl;
        clear_prompt : procedure (ab:PGnomeAppBar);cdecl;
     end;
   GNOME_APPBAR_CLASS = PGnomeAppBarClass;

function GNOME_TYPE_APPBAR : TGTKType;
function GNOME_IS_APPBAR(obj : Pointer) : Boolean;
function GNOME_IS_APPBAR_CLASS(klass : Pointer) : Boolean;

function GNOME_APPBAR_HAS_STATUS(appbar : PGnomeAppBar) : gboolean;
function GNOME_APPBAR_HAS_PROGRESS(appbar : PGnomeAppBar) : gboolean;
function GNOME_APPBAR_INTERACTIVE(ab : PGnomeAppBar) : gboolean;

function gnome_appbar_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_appbar_get_type';
function gnome_appbar_new(has_progress:gboolean; has_status:gboolean; interactivity:TGnomePreferencesType):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_appbar_new';
procedure gnome_appbar_set_status(appbar:PGnomeAppBar; status:Pgchar);cdecl;external libgnomeuidll name 'gnome_appbar_set_status';
procedure gnome_appbar_set_default(appbar:PGnomeAppBar; default_status:Pgchar);cdecl;external libgnomeuidll name 'gnome_appbar_set_default';
procedure gnome_appbar_push(appbar:PGnomeAppBar; status:Pgchar);cdecl;external libgnomeuidll name 'gnome_appbar_push';
procedure gnome_appbar_pop(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_pop';
procedure gnome_appbar_clear_stack(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_clear_stack';
procedure gnome_appbar_set_progress(appbar:PGnomeAppBar; percentage:gfloat);cdecl;external libgnomeuidll name 'gnome_appbar_set_progress';
function gnome_appbar_get_progress(appbar:PGnomeAppBar):PGtkProgress;cdecl;external libgnomeuidll name 'gnome_appbar_get_progress';
procedure gnome_appbar_refresh(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_refresh';
procedure gnome_appbar_set_prompt(appbar:PGnomeAppBar; prompt:Pgchar; modal:gboolean);cdecl;external libgnomeuidll name 'gnome_appbar_set_prompt';
procedure gnome_appbar_clear_prompt(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_clear_prompt';
function gnome_appbar_get_response(appbar:PGnomeAppBar):Pgchar;cdecl;external libgnomeuidll name 'gnome_appbar_get_response';
procedure gnome_appbar_construct(ab:PGnomeAppBar; has_progress:gboolean; has_status:gboolean; interactivity:TGnomePreferencesType);cdecl;external libgnomeuidll name 'gnome_appbar_construct';

{$EndIf read_interface}

{$Ifdef read_implementation}

function GNOME_TYPE_APPBAR : TGTKType;
begin
  GNOME_TYPE_APPBAR:=gnome_appbar_get_type;
end;

function GNOME_IS_APPBAR(obj : pointer) : Boolean;
begin
   GNOME_IS_APPBAR:=(obj<>nil) and GNOME_IS_APPBAR_CLASS(PGtkTypeObject(obj)^.klass);
end;

function GNOME_IS_APPBAR_CLASS(klass : pointer) : boolean;
begin
   GNOME_IS_APPBAR_CLASS:= (klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_APPBAR);
end;

function GNOME_APPBAR_HAS_STATUS(appbar : PGnomeAppBar) : gboolean;
begin
   GNOME_APPBAR_HAS_STATUS:=(appbar^.status) <> NULL;
end;

function GNOME_APPBAR_HAS_PROGRESS(appbar : PGnomeAppBar) : gboolean;
begin
   GNOME_APPBAR_HAS_PROGRESS:=(appbar^.progress) <> NULL;
end;

function interactive(var a : TGnomeAppBar) : gboolean;
begin
   interactive:=gboolean((a.flag0 and bm__GnomeAppBar_interactive) shr bp__GnomeAppBar_interactive);
end;

procedure set_interactive(var a : TGnomeAppBar; __interactive : gboolean);
begin
   a.flag0:=a.flag0 or ((gint(__interactive) shl bp__GnomeAppBar_interactive) and bm__GnomeAppBar_interactive);
end;

function GNOME_APPBAR_INTERACTIVE(ab : PGnomeAppBar) : gboolean;
var
   if_local1 : gboolean;
begin
   if ab <> nil then
     if_local1:=interactive(ab^)
   else
     if_local1:=False;
   GNOME_APPBAR_INTERACTIVE:=if_local1;
end;

{$Endif read_implementation}