Perte de compatibilité

Bonjour/soir

Quelqu'un peut me dire pourquoi le prog ci-dessous ne fonctionne pas avec la dernière version de Panoramic ?

Voir ce zip : MouseOver.zip

Ce prog fonctionne très bien avec la version 0.9.25 mais pas avec la 0.9.26i6.

La commande constrast et/ou le timer n'ont pas l'air de fonctionner correctement.

Ou est l'erreur ? J'ai loupé quelque chose ?

Salut Nardo

Ce n'est ni contrast ni timer qui sont en cause.

Tu utilises mouse_y_position(0) et mouse_x_position(0).
Ces commandes n’agissent plus(ou pas ) sur FORM 0

Choisis un autre Form, juste après les DIM, par exemple

Code:: form 100 : full_space 100 : command_target_is 100

Code:: …
service:
  id% = mouse_y_position(100)
  if id%<28
   id% = int(mouse_x_position(100)/28)
   if id%>19 then id%=-1
….

button_click:
  caption 100,"buttons%(" + str$(id%) + ") clicked"
  return

Ça marchera, ça marchera !
Parole de Papydall! Laughing

Merci papydall,
Mais même en faisant tout passer sur un autre form comme tu le proposes,
~~cela ne fonctionne pas chez moi...~~

EDIT : Oui cela fonctionne sur un autre form...

Mais pourquoi avoir un comportement différent entre Form 0 et les autres ?

Une autre chose que ta modif a mis en évidence : le fullspace sur le form 100 par exemple, empêche de pouvoir redimensionner celui-ci par la suite. Impossible de mettre en avant plan le FORM 0 qui est resté derrière...

Je ne me souvenait pas que FULLSPACE figeait une bonne fois pour toute un FORM mais apparemment c’était déjà le cas sur une vieille version comme la 0.9.23i6.

Non, je pense qu'il s'agit d'un bug. Il n'est dit nulle part que mouse_x/y_position et mouse_x/y_left_down ne fonctionneront plus sur la form 0:

Code:: label tick, click0, click10
form 10 : left 10,500 : top 10,30
alpha 20 : parent 20,10
on_click 0,click0
on_click 10,click10
timer 1 : timer_interval 1,100 : on_timer 1,tick
end
tick:
caption 0,str$(mouse_x_position(0))+","+str$(mouse_y_position(0))
caption 20,str$(mouse_x_position(10))+","+str$(mouse_y_position(10))
to_foreground 10
return
click0:
print "form 0 position: "+str$(mouse_x_position(0))+","+str$(mouse_y_position(0))
print "form 0 down : "+str$(mouse_x_left_down(0))+","+str$(mouse_left_down(0))
return
click10:
print "form 10 posiion: "+str$(mouse_x_position(10))+","+str$(mouse_y_position(10))
print "form 10 down : "+str$(mouse_x_left_down(10))+","+str$(mouse_left_down(10))
return

Par contre, la commande TO_FOREGROUND semble fonctionner parfaitement...

EDIT

J'y ai mis le code pour tester le TO_FOREGROUND que j'avais oublié. Mais le constat reste vrai: TO_FOREGROUND marche.

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

nardo
effectivement ton source ne fonctionne pas avec la version 0.9.26.i6
apparemment c'est un bug a panoramic j'ai essayé avec toute
les autres version et ça marche nickel chrome seul jack peut y
répondre

Merci pour vos réponses.

Oui TO_FOREGROUND fonctionne, mais je ne me souvenait pas que FULL_SPACE bloquait les dimensions d'un FORM définitivement.

Je pensais qu’après un FULL_SPACE sur un FORM (je ne parle pas d'un PICTURE), on pouvait quand même redimensionner celui-ci à l'aide de la souris.

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

nardo
je te rassure le full_space ne bloque pas les dimension
d'un forme

de plus ce source fonctionne avec la 26i6

Code:: dim i,x,y,retour
label survol
error_french
dll_on "form.dll"
retour = DLL_CALL2("SetSize",HANDLE(0),0)
WIDTH 0,WIDTH(0)+1 : ' obligatoire pour "forcer" le rafraichissement de l'affichage du formulaire

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"
print_locate 00,120:print "Form : width=";width(0);" pixels - height=";height(0);" 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;" "

y=mouse_y_position(0):x=mouse_x_position(0)
if y>0 and y<(height(0)-1) and x>0 and x<(width(0)-1)
end_if
print_locate 65,135:print x;" ":print_locate 156,135:print y;" "
timer_on 100
return

a mon avis il faut déclaré timer_off et timer_on!!

TO_FOREGROUND fonctionne.
MOUSE_X_POSITION(0) et MOUSE_Y_POSITION(0) ne fonctionnent plus sur FORM 0
Elles fonctionnent sur tout autre FORM N (autre que FORM 0).

hic est quaestio ,(ici est la question)

Code:: label form0
form 10 : full_space 10
print_target_is 10 : command_target_is 10
button 11 : left 11,100 : width 11,100 : caption 11,"Retour vers Form 0"
print "FORM 10"
on_click 11, form0
end
form0:
to_foreground 0 : left 0,400 : top 0,100 : height 0,100
print_target_is 0 : print "FORM 0"
return

Oui apparemment sur un FORM 0 cela ne marche plus.

Essayez ce bout de code :

Code:: FULL_SPACE 0
ALPHA 1
CAPTION 1,"Essayez de redimensionner à la souris ce FORM"

Sur mon PC (win7 64bits), j'ai beau essayer de chercher de redimensionner cette fenêtre a l'aide de la souris, celle-ci reste dans sa taille maximale.

Démo en live :

C'est normal, ça, Nardo26 ! Full-space est justement fait pour que la fenêtre prenne tout l'espace, en permanence.

Fais comme ceci:
1. full_space 0
2. charger width(0) et height(0) dans des variables
3. mettre width et height de form 0 à autre chose - une fenêtre normale devrait apparaître
4. mettre width et height de form 0 aux valeurs mémorisées
et ça devrait être bon.

Alternative:
utiliser screen_x et screen_y pour imposer width et height de form 0.

Oui j'ai bien compris Klaus...

Reste quand même le pb du form 0 (le pb du depart...)

Oui. En ce qui concerne les mouse_c/y_position, mouse_x/y_left_down et sur la form 0, c'est bien un bug ! Mets-le dans la rubrique concernée.

» une idée sur comparaison de chaînes
» Perte de la bordure du form 0
» Problème de compatibilité
» compatibilité avec Windows 98
» Compatibilité avec ABasic