editform

pascal:
{

  $Id: editform.pp,v 1.3 2005/02/14 17:13:20 peter Exp $

  This file was created with Glade and comes originally from

  the examples which are delivered with Glade

}

program editform;

uses

  glib,gdk,gtk;

function get_widget(widget:PGtkWidget;widget_name:pchar):PGtkWidget;

var

  found_widget : PGtkWidget;

begin

  if assigned(widget^.parent) then

    widget := gtk_widget_get_toplevel (widget);

  found_widget := gtk_object_get_data (PGtkObject(widget),widget_name);

  {if not assigned(found_widget) then

    g_warning ("Widget not found: %s", widget_name);}

  get_widget := found_widget;

end;

{ This is an internally used function to set notebook tab widgets. }

procedure set_notebook_tab(notebook:PGtkWidget;page_num:gint;widget:PGtkWidget);

var

  page : PGtkNotebookPage;

  notebook_page : PGtkWidget;

begin

  page := g_list_nth (PGtkNoteBook(notebook)^.children, page_num)^.data;

  notebook_page := page^.child;

  gtk_widget_ref (notebook_page);

  gtk_notebook_remove_page (PGtkNoteBook(notebook), page_num);

  gtk_notebook_insert_page (PGtkNoteBook(notebook), notebook_page, widget, page_num);

  gtk_widget_unref (notebook_page);

end;

Function create_window1:PGtkWidget;

var

  tooltips : PGtkTooltips;

  window1 : PGtkWidget;

  scrolledwindow1 : PGtkWidget;

  table1 : PGtkWidget;

  menubar1 : PGtkWidget;

  checkbutton1 : PGtkWidget;

  frame5 : PGtkWidget;

  table4 : PGtkWidget;

  text7 : PGtkWidget;

  entry7 : PGtkWidget;

  label15 : PGtkWidget;

  frame4 : PGtkWidget;

  text6 : PGtkWidget;

  frame3 : PGtkWidget;

  table3 : PGtkWidget;

  text5 : PGtkWidget;

  entry6 : PGtkWidget;

  label14 : PGtkWidget;

  frame2 : PGtkWidget;

  table2 : PGtkWidget;

  entry5 : PGtkWidget;

  label13 : PGtkWidget;

  label12 : PGtkWidget;

  optionmenu6 : PGtkWidget;

  optionmenu6_menu : PGtkWidget;

  glade_menuitem : PGtkWidget;

  optionmenu4 : PGtkWidget;

  optionmenu4_menu : PGtkWidget;

  frame1 : PGtkWidget;

  text2 : PGtkWidget;

  optionmenu2 : PGtkWidget;

  optionmenu2_menu : PGtkWidget;

  label1 : PGtkWidget;

  optionmenu1 : PGtkWidget;

  optionmenu1_menu : PGtkWidget;

begin

  tooltips:=gtk_tooltips_new();

  window1 := gtk_window_new (GTK_WINDOW_TOPLEVEL);

  gtk_object_set_data (GTK_OBJECT (window1), 'window1', window1);

  gtk_widget_set_usize (window1, 600, 400);

  gtk_window_set_title (GTK_WINDOW (window1), 'Auslandszahlung');

  gtk_window_set_policy (GTK_WINDOW (window1), gint(true), gint(true), gint(false));

  gtk_signal_connect(GTK_OBJECT(window1),'destroy',GTK_SIGNAL_FUNC(@gtk_main_quit),nil);

  scrolledwindow1 := gtk_scrolled_window_new (nil, nil);

  gtk_object_set_data (GTK_OBJECT (window1), 'scrolledwindow1', scrolledwindow1);

  gtk_widget_show (scrolledwindow1);

  gtk_container_add (GTK_CONTAINER (window1), scrolledwindow1);

  gtk_viewport_set_shadow_type (GTK_VIEWPORT (GTK_SCROLLED_WINDOW (scrolledwindow1)^.viewport), GTK_SHADOW_NONE);

  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow1), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);

  table1 := gtk_table_new (9, 3, gint(false));

  gtk_object_set_data (GTK_OBJECT (window1), 'table1', table1);

  gtk_widget_show (table1);

  gtk_container_add (GTK_CONTAINER (scrolledwindow1), table1);

  menubar1 := gtk_menu_bar_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'menubar1', menubar1);

  gtk_widget_show (menubar1);

  gtk_table_attach (GTK_TABLE (table1), menubar1, 0, 3, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  checkbutton1 := gtk_check_button_new_with_label ('Wahreneinfuhr');

  gtk_object_set_data (GTK_OBJECT (window1), 'checkbutton1', checkbutton1);

  gtk_widget_show (checkbutton1);

  gtk_table_attach (GTK_TABLE (table1), checkbutton1, 0, 3, 8, 9,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_toggle_button_set_state (GTK_TOGGLE_BUTTON (checkbutton1), gint(true));

  frame5 := gtk_frame_new ('Beg'#252'nstigter');

  gtk_object_set_data (GTK_OBJECT (window1), 'frame5', frame5);

  gtk_widget_show (frame5);

  gtk_table_attach (GTK_TABLE (table1), frame5, 0, 3, 5, 6,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_frame_set_label_align (GTK_FRAME (frame5), 0.1, 0.5);

  table4 := gtk_table_new (2, 2, gint(false));

  gtk_object_set_data (GTK_OBJECT (window1), 'table4', table4);

  gtk_widget_show (table4);

  gtk_container_add (GTK_CONTAINER (frame5), table4);

  text7 := gtk_text_new (nil, nil);

  gtk_object_set_data (GTK_OBJECT (window1), 'text7', text7);

  gtk_widget_show (text7);

  gtk_table_attach (GTK_TABLE (table4), text7, 0, 2, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_text_set_editable (GTK_TEXT (text7), gint(true));

  entry7 := gtk_entry_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'entry7', entry7);

  gtk_widget_show (entry7);

  gtk_table_attach (GTK_TABLE (table4), entry7, 1, 2, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  label15 := gtk_label_new ('Konto-Nr.:');

  gtk_object_set_data (GTK_OBJECT (window1), 'label15', label15);

  gtk_widget_show (label15);

  gtk_table_attach (GTK_TABLE (table4), label15, 0, 1, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  frame4 := gtk_frame_new ('Bank des Beg'#252'nstigten');

  gtk_object_set_data (GTK_OBJECT (window1), 'frame4', frame4);

  gtk_widget_show (frame4);

  gtk_table_attach (GTK_TABLE (table1), frame4, 0, 3, 4, 5,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_frame_set_label_align (GTK_FRAME (frame4), 0.1, 0.5);

  text6 := gtk_text_new (nil, nil);

  gtk_object_set_data (GTK_OBJECT (window1), 'text6', text6);

  gtk_widget_show (text6);

  gtk_container_add (GTK_CONTAINER (frame4), text6);

  gtk_text_set_editable (GTK_TEXT (text6), gint(true));

  frame3 := gtk_frame_new ('Auftraggeber');

  gtk_object_set_data (GTK_OBJECT (window1), 'frame3', frame3);

  gtk_widget_show (frame3);

  gtk_table_attach (GTK_TABLE (table1), frame3, 0, 3, 3, 4,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_frame_set_label_align (GTK_FRAME (frame3), 0.1, 0.5);

  table3 := gtk_table_new (2, 2, gint(false));

  gtk_object_set_data (GTK_OBJECT (window1), 'table3', table3);

  gtk_widget_show (table3);

  gtk_container_add (GTK_CONTAINER (frame3), table3);

  text5 := gtk_text_new (nil, nil);

  gtk_object_set_data (GTK_OBJECT (window1), 'text5', text5);

  gtk_widget_show (text5);

  gtk_table_attach (GTK_TABLE (table3), text5, 0, 2, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_text_set_editable (GTK_TEXT (text5), gint(true));

  gtk_widget_realize (text5);

  gtk_text_insert (GTK_TEXT (text5), nil, nil, nil,

                   'Adresse', 7);

  entry6 := gtk_entry_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'entry6', entry6);

  gtk_widget_show (entry6);

  gtk_table_attach (GTK_TABLE (table3), entry6, 1, 2, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  label14 := gtk_label_new ('Konto-Nr.:');

  gtk_object_set_data (GTK_OBJECT (window1), 'label14', label14);

  gtk_widget_show (label14);

  gtk_table_attach (GTK_TABLE (table3), label14, 0, 1, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  frame2 := gtk_frame_new ('Betrag');

  gtk_object_set_data (GTK_OBJECT (window1), 'frame2', frame2);

  gtk_widget_show (frame2);

  gtk_table_attach (GTK_TABLE (table1), frame2, 0, 3, 2, 3,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_frame_set_label_align (GTK_FRAME (frame2), 0.1, 0.5);

  table2 := gtk_table_new (2, 2, gint(false));

  gtk_object_set_data (GTK_OBJECT (window1), 'table2', table2);

  gtk_widget_show (table2);

  gtk_container_add (GTK_CONTAINER (frame2), table2);

  entry5 := gtk_entry_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'entry5', entry5);

  gtk_widget_show (entry5);

  gtk_table_attach (GTK_TABLE (table2), entry5, 1, 2, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_tooltips_set_tip (tooltips, entry5, 'Betrag in der jeweiligen W'#228'hrung', nil);

  gtk_entry_set_text (GTK_ENTRY (entry5), 'Some Text');

  label13 := gtk_label_new ('Betrag in Worten');

  gtk_object_set_data (GTK_OBJECT (window1), 'label13', label13);

  gtk_widget_show (label13);

  gtk_table_attach (GTK_TABLE (table2), label13, 1, 2, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_tooltips_set_tip (tooltips, label13, 'wird automatisch erstellt', nil);

  label12 := gtk_label_new ('in Worten');

  gtk_object_set_data (GTK_OBJECT (window1), 'label12', label12);

  gtk_widget_show (label12);

  gtk_table_attach (GTK_TABLE (table2), label12, 0, 1, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_tooltips_set_tip (tooltips, label12, 'Betrag in Worten, wird automatisch gef'#252'llt', nil);

  optionmenu6 := gtk_option_menu_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu6', optionmenu6);

  gtk_widget_show (optionmenu6);

  gtk_table_attach (GTK_TABLE (table2), optionmenu6, 0, 1, 0, 1,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_tooltips_set_tip (tooltips, optionmenu6, 'W'#228'hrung', nil);

  optionmenu6_menu := gtk_menu_new ();

  glade_menuitem := gtk_menu_item_new_with_label ('DEM');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu6_menu), glade_menuitem);

  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu6), optionmenu6_menu);

  optionmenu4 := gtk_option_menu_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu4', optionmenu4);

  gtk_widget_show (optionmenu4);

  gtk_table_attach (GTK_TABLE (table1), optionmenu4, 0, 3, 7, 8,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  optionmenu4_menu := gtk_menu_new ();

  glade_menuitem := gtk_menu_item_new_with_label ('Ihre Kosten/Spesen zu Lasten des Auftraggebers');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('Ihre Kosten/Spesen zu Lasten des Beg'#252'nstigten');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('Fremde Kosten zu Lasten des Auftraggebers');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('Fremde Kosten zu Lasten des Beg'#252'nstigten');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);

  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu4), optionmenu4_menu);

  frame1 := gtk_frame_new ('Verwendungszweck');

  gtk_object_set_data (GTK_OBJECT (window1), 'frame1', frame1);

  gtk_widget_show (frame1);

  gtk_table_attach (GTK_TABLE (table1), frame1, 0, 3, 6, 7,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  gtk_frame_set_label_align (GTK_FRAME (frame1), 0.1, 0.5);

  text2 := gtk_text_new (nil, nil);

  gtk_object_set_data (GTK_OBJECT (window1), 'text2', text2);

  gtk_widget_show (text2);

  gtk_container_add (GTK_CONTAINER (frame1), text2);

  gtk_text_set_editable (GTK_TEXT (text2), gint(true));

  optionmenu2 := gtk_option_menu_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu2', optionmenu2);

  gtk_widget_show (optionmenu2);

  gtk_table_attach (GTK_TABLE (table1), optionmenu2, 2, 3, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  optionmenu2_menu := gtk_menu_new ();

  glade_menuitem := gtk_menu_item_new_with_label ('DM-Kontos');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu2_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('W'#228'hrungs-Kontos');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu2_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('W'#228'hrungs-Termin-Kontos');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu2_menu), glade_menuitem);

  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu2), optionmenu2_menu);

  label1 := gtk_label_new ('zu Lasten des');

  gtk_object_set_data (GTK_OBJECT (window1), 'label1', label1);

  gtk_widget_show (label1);

  gtk_table_attach (GTK_TABLE (table1), label1, 1, 2, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  optionmenu1 := gtk_option_menu_new ();

  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu1', optionmenu1);

  gtk_widget_show (optionmenu1);

  gtk_table_attach (GTK_TABLE (table1), optionmenu1, 0, 1, 1, 2,

                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);

  optionmenu1_menu := gtk_menu_new ();

  glade_menuitem := gtk_menu_item_new_with_label ('Zahlung');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu1_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('Akkreditiv');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu1_menu), glade_menuitem);

  glade_menuitem := gtk_menu_item_new_with_label ('Inkasso-Einl'#246'sung');

  gtk_widget_show (glade_menuitem);

  gtk_menu_append (GTK_MENU (optionmenu1_menu), glade_menuitem);

  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu1), optionmenu1_menu);

  exit(window1);

end;

var

  window1 : PGtkWidget;

begin

  gtk_set_locale ();

  gtk_init (@argc, @argv);

  gtk_rc_init;

  {

    The following code was added by Glade to create one of each component

    (except popup menus), just so that you see something after building

    the project. Delete any components that you don't want shown initially.

  }

  window1 := create_window1 ();

  gtk_widget_show (window1);

  gtk_main ();

end.

{

  $Log: editform.pp,v $

  Revision 1.3  2005/02/14 17:13:20  peter

    * truncate log

}
¿Ya le viste algún error? Dejanos tu correción ;-)
Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.
Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:
Si es lenguaje C [c]Código en C[/c]
Si es lenguaje Pascal [pascal]Aquí dentro el código de Pascal[/pascal].
De esta manera el código sale coloreado.
Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.
Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &
Mayor qué: >
Mayor qué: <
Este símbolo & : &
Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.
Si estas de acuerdo, adelante puedes comentar :)
P.D. No le hago tareas a nadie, mejor hagan la mía :P