freepascal.compiler/packages/extra/gtk/examples/rulers.pp

{
  $Id$

  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.