mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 23:00:51 +02:00
325 lines
14 KiB
ObjectPascal
325 lines
14 KiB
ObjectPascal
{
|
|
|
|
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:PAnsiChar):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.
|