[GtkAda] Déplacement de widget dans un Gtk_Fixed

Déplacement de widget dans un Gtk_Fixed [GtkAda] - Ada - Programmation

Marsh Posté le 07-12-2010 à 18:28:17    

Bonjour, j'essaie de déplacer des Gtk_Spin_Button dans un Gtk_Fixed, mais les dépalcement sont chaotique.
Parfois mais Gtk_Spin_Button suivent bien la sourie, parfois ils disparaissent de la surface( de la terre  :D ).
Voici ma fonction
 

Code :
  1. function Controler_Mouse_Event(Widget          : access Gtk.Widget.Gtk_Widget_Record'Class;
  2.                                   Event           : Gdk.Event.Gdk_Event;
  3.                                   Controler       : Controler_Access) return Boolean  is
  4.    begin
  5.  
  6.       case Gdk.Event.Get_Event_Type(Event) is
  7.          when Gdk.Event.Button_Press =>
  8.             case Gdk.Event.Get_Button(Event) is
  9.                when 1 =>
  10.                   Put_Line("Presse left" );
  11.                   Controler.Timbre.Controler_Id := Controler.Id;
  12.                when others =>
  13.                   null;
  14.             end case;
  15.          when Gdk.Event.Button_Release =>
  16.             Put_Line("Release" );
  17.             if Controler.Timbre.Controler_Id /= 0 then
  18.                Move(Controler.Timbre.Synth_Fixed,
  19.                     Controler.Timbre.Controlers_Table(Controler.Timbre.Controler_Id).Controler_vbox,
  20.                     Gint(Gdk.Event.Get_X(Event)),
  21.                     Gint(Gdk.Event.Get_Y(Event)));
  22.                Controler.Timbre.Controler_Id := 0;
  23.             end if;
  24.          when others => null;
  25.       end case;
  26.       return True;
  27.    end controler_Mouse_Event;


 
Au moment du clic gauche je récupère l'id du spin_button.
Au relachement si l'id est différent de zéro je déplace le widget qui est un Gtk_Vbox.
Je remet l'id à zéro.
 

Reply

Marsh Posté le 07-12-2010 à 18:28:17   

Reply

Marsh Posté le 07-12-2010 à 19:29:53    

J'ai tracer X et Y, donc mais ça avance à rien, sauf que j'ai des valeur négatives...
Du coup, la question est, comment dois-je procéder pour convertir un Gdouble en Gint ?

Reply

Marsh Posté le 07-12-2010 à 19:42:37    

Non, c'est pas ça.  :heink:  
Je vais attendre un moment,  :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed