{
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.
