GTK em Pascal
Faz tempo que posto nada!Aqui vai um código que achei nos arquivos de uma certa lista de discussão.
program gtk1;
{$ifdef Win32}
{$APPTYPE GUI}
{$endif}
uses glib, gdk, gtk;
var
window:PGtkWidget;
msg:PGtkWidget;
begin
gtk_init(@argc,@argv);
window:=gtk_window_new (GTK_WINDOW_TOPLEVEL);
gtk_window_set_title(PGtkWindow(window), 'Teste do GTK+');
gtk_signal_connect(PGtkObject(window), 'delete_event', GTK_SIGNAL_FUNC(@gtk_main_quit),NIL);
msg:=gtk_label_new('Criado com o FreePascal !');
gtk_container_add(PGtkContainer(window),msg);
gtk_widget_show(msg);
gtk_widget_show(window);
gtk_main();
end.
enviado por Sergio Spoladore @ 23:34
0 comentário(s)
