TGtkProgressBar

type TGtkProgressBar = record

  progress: TGtkProgress;

  bar_style: TGtkProgressBarStyle;

  orientation: TGtkProgressBarOrientation;

  blocks: guint;

  in_block: gint;

  activity_pos: gint;

  activity_step: guint;

  activity_blocks: guint;

  flag0: Word;

end;