set_use_underline

procedure set_use_underline(

  var a: TGtkLabel;

  __use_underline: guint

); overload;

procedure set_use_underline(

  var a: TGtkButton;

  __use_underline: guint

); overload;