Survol des objets

Bonsoir à tous Smile

Suite au dernier menu contextuel que j'ai réalisé avec des alphas et que je survolais avec la souris et aux programmes de Klaus sur son post objets réagissant au survol de la souris, je me suis dit qu'il était peut-être possible de faire la même chose en panoramic pur sans utiliser une dll.
C'est ce que j'ai fait avec le programme suivant, mais, à moins que vous ne le saviez déjà, j'ai constaté une différence des mesures width et height de ces objets.
Promenez le curseur de la souris sur les objets en ralentissant en arrivant au bout à droite ou en bas de l'objet afin de voir s'afficher dans le formulaire à droite la position du curseur sous le width et le height de l'objet concerné. On doit trouver une différence de 5 pixels pour les hauteurs et largeurs de chaque objet.
Ma conclusion, la différence doit être en réalité de 4 pixels (puisque le x_position et le y_position de la souris commence à 0) et doivent correspondre à une bordure invisible de l'objet de 2 pixels.

Code:: dim i,x,y
label survol

edit 10:left 10,100:top 10,20
list 20:left 20,100:top 20,60
memo 30:left 30,250:top 30,20:height 30,140

form 99:left 99,600:print_target_is 99
print_locate 00,00:print "EDIT : width=";width(10);" pixels - height=";height(10);" pixels"
print_locate 00,40:print "LIST : width=";width(20);" pixels - height=";height(20);" pixels"
print_locate 00,80:print "LIST : width=";width(30);" pixels - height=";height(30);" pixels"

timer 100:timer_interval 100,1:on_timer 100,survol
end

survol:
timer_off 100

y=mouse_y_position(10):x=mouse_x_position(10)
if y>3 and y<(height(10)-8) and x>3 and x<(width(10)-8):color 10,240,220,200:else:color 10,255,255,255:end_if
print_locate 65,15:print x;" ":print_locate 156,15:print y;" "

y=mouse_y_position(20):x=mouse_x_position(20)
if y>3 and y<(height(20)-8) and x>3 and x<(width(20)-8):color 20,220,200,240:else:color 20,255,255,255:end_if
print_locate 65,55:print x;" ":print_locate 156,55:print y;" "

y=mouse_y_position(30):x=mouse_x_position(30)
if y>3 and y<(height(30)-8) and x>3 and x<(width(30)-8):color 30,200,240,220:else:color 30,255,255,255:end_if
print_locate 65,95:print x;" ":print_locate 156,95:print y;" "

timer_on 100
return

A+

Oui exact je fais la même constatation, ce qui veut dire que les bords des objets sont de 2 pixels.
Mais je vois pas de problème pour ton projet.....

A+

» Objets réagissant au survol de la souris, sans clic !
» SURVOL
» Donner un nom aux objets, c'est possible ;)
» Limite d'objets sur IDE
» Z-order des objets