mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 02:19:30 +02:00
103 lines
3.4 KiB
ObjectPascal
103 lines
3.4 KiB
ObjectPascal
{
|
|
|
|
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 quit
|
|
End;
|
|
|
|
// 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.
|