Benutzer:Zase Wieder/gtk2

vi wunsch.pas ↵

I

program wunsch;

uses glib2, gtk2;

var
  pFenster    : PGtkWidget;
  pLabel      : PGtkWidget;
  Utf8        : PGChar;

begin
  gtk_init(@argc, @argv);
  pFenster := gtk_window_new(GTK_WINDOW_TOPLEVEL);
  gtk_window_set_position(GTK_WINDOW(pFenster), GTK_WIN_POS_CENTER);
  gtk_window_set_default_size(GTK_WINDOW(pFenster), 320, 200);
  gtk_window_set_title(GTK_WINDOW(pFenster), 'Wunsch mit gtk2');
  gtk_signal_connect(pGTKOBJECT(pFenster), 'destroy', GTK_SIGNAL_FUNC(@gtk_main_quit), NULL);

  // ein Label erstellen und in das Fenster platzieren
  Utf8 := g_locale_to_utf8('Frieden für die Welt.', -1, NULL, NULL, NULL);
  pLabel := gtk_label_new(Utf8);
  g_free(Utf8);
  gtk_container_add(GTK_CONTAINER(pFenster), pLabel);

  gtk_widget_show_all(pFenster);
  gtk_main;
end.

(basierend auf Quelle:Programmation_GTK2_en_Pascal/GtkLabel Autor:Utilisateur:Didier)

Esc  ⇧ +: W Q  ↵

fpc wunsch.pas ↵

./wunsch ↵