1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103 | {
$Id: rulers.pp,v 1.2 2002/05/31 11:54:33 marco Exp $
Converted from C to Pascal by Artur Bac with liitle additions by me
<arturbac@@poczta.onet.pl> Reda Poland
}
{$MODE objfpc}
{$H+}{$S+}
{$HINTS ON}
{$ifdef win32}
{$define extdecl := stdcall;}
{$APPTYPE GUI}{$endif}
{$ifdef unix}
{$define extdecl := cdecl;}
{$endif}
Program Rulers;
Uses glib,gdk,gtk;
Const XSIZE = 600;
YSIZE = 400;
// This routine gets control when the close button is clicked
Function close_application( widget : PGtkWidget ; event : PGdkEvent;
data : gpointer) : boolean; cdecl;
Begin
gtk_main_quit();
close_application := false; //if something go wrong we will know that gtk didn't quitEnd;
// The main routine
Var
window ,table, area, hrule, vrule : PGtkWidget;
Begin
// Initialize GTK and create the main window
gtk_set_locale ();
gtk_init( @argc, @argv ); gtk_rc_init;
window := gtk_window_new( GTK_WINDOW_TOPLEVEL );
gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
GTK_SIGNAL_FUNC( @close_application ), NIL); gtk_container_set_border_width (GTK_CONTAINER (window), 10);
// Create a table for placing the ruler and the drawing area
table := gtk_table_new( 3, 2, FALSE );
gtk_container_add( GTK_CONTAINER(window), table );
area := gtk_drawing_area_new();
gtk_drawing_area_size( Gtk_Drawing_Area (area), XSIZE, YSIZE );
gtk_table_attach( GTK_TABLE(table), area, 1, 2, 1, 2,
GTK_EXPAND or GTK_FILL, GTK_FILL, 0, 0 ); gtk_widget_set_events( area, GDK_POINTER_MOTION_MASK or
GDK_POINTER_MOTION_HINT_MASK );
{ The horizontal ruler goes on top. As the mouse moves across the
* drawing area, a motion_notify_event is passed to the * appropriate event handler for the ruler. }
hrule := gtk_hruler_new();
gtk_ruler_set_metric( GTK_RULER(hrule), GTK_PIXELS );
gtk_ruler_set_range( GTK_RULER(hrule), 7, 13, 0, 20 );
gtk_signal_connect_object( GTK_OBJECT(area), 'motion_notify_event',
Gtk_Signal_Func (GTK_WIDGET_CLASS(GTK_OBJECT(hrule)^.klass)
^.motion_notify_event),
GTK_OBJECT(hrule));
gtk_table_attach( GTK_TABLE(table), hrule, 1, 2, 0, 1,
GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_FILL, 0, 0 );
{* The vertical ruler goes on the left. As the mouse moves across
* the drawing area, a motion_notify_event is passed to the * appropriate event handler for the ruler. */}
vrule := gtk_vruler_new();
gtk_ruler_set_metric( GTK_RULER(vrule), GTK_PIXELS );
gtk_ruler_set_range( GTK_RULER(vrule), 0, YSIZE, 10, YSIZE ); gtk_signal_connect_object( GTK_OBJECT(area), 'motion_notify_event',
Gtk_Signal_Func
(GTK_WIDGET_CLASS(GTK_OBJECT(vrule)^.klass)
^.motion_notify_event),
GTK_OBJECT(vrule) );
gtk_table_attach( GTK_TABLE(table), vrule, 0, 1, 1, 2,
GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0 );
// Now show everything changed a little by Me
{gtk_widget_show( area );
gtk_widget_show( hrule );
gtk_widget_show( vrule );
gtk_widget_show( table );} gtk_widget_show_all( window ); //This will show all childs of window
gtk_main();
End. |