terça-feira, novembro 29, 2005

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