set_expand

procedure set_expand(

  var a: TGtkPreview;

  __expand: guint

);

procedure set_expand(

  var a: TGtkTableRowCol;

  __expand: guint

);

procedure set_expand(

  var a: TGtkBoxChild;

  __expand: guint

);

procedure set_expand(

  var a: TGtkNotebookPage;

  __expand: guint

);