Version instantanée V 0.9.28i12 du 08/07/2017

Admin Nombre de messages : 2381 Date d'inscription : 28/05/2007

Cette version instantanée V 0.9.28i11 du 01/07/2017 :

- corrige les bugs rencontrés sur USER_EVENT_LPARAM et USER_EVENT_WPARAM

- permet d'utiliser les objets suivants (qui sont considérés comme terminés):
LED1
SWITCH1
DIGIT1
OPEN_DIALOG_PIC
SAVE_DIALOG_PIC
MAIN_MENU_POP

_________________

Version instantanée V 0.9.28i12 du 08/07/2017 Webdav

username : panoramic@jack-panoramic password : panoramic123

Jack, j'ai téléchargé et installé cette version. Je me suis surtout intéressé au USER_EVENT. Et mon constat est:

Ca marche parfaitement !

Enfin, presque... Le décalage a disparu, mais l'inversion entre WPARAM et LPARAM persiste.

Dans ma DLL, je fais ceci:

Code:: const
  UserEventImageView = $03000000; // identifiant dans WParam
  UserEvent_ImageView_Select = $00010000; // on a sélectionné une image (ajouter l'indice dans es 16 bits à droite)
...
// "ind" est un indice dont je veux récupérer la valeur dans LPARAM
   SendMessage(MainFormHandle,CM_PANORAMIC_USER,UserEventImageView,UserEvent_ImageView_Select or ind);

Voilà la définition de SEND_MESSAGE dans MSDN:

Code:: LRESULT WINAPI SendMessage(
  _In_ HWND hWnd,
  _In_ UINT Msg,
  _In_ WPARAM wParam,
  _In_ LPARAM lParam
);

WPARAM est donc bien le 3ème paramètre du API, et LPARAM le 4ème. Or, dans l'évèment Panoramic, voici ce que je fais pour l'intercepter;

Code:: label UserEvent
ON_USER_EVENT UserEvent
...
' dans la routine suivante, je dois intervertir WPARAM et LPARAM !
UserEvent:
  if User_Event_LParam<>hex("03000000") then return : ' pas ImageView ?
  if bin_and(User_Event_WParam,hex("FFFF0000"))<>hex("00010000") then return : ' pas ImageSelect ?
  ind% = bin_and(User_Event_WParam,hex("0000FFFF"))
  ' ici, on affiche les deux variables système:
   message "WPARAM="+hex$(User_Event_WParam)+" "+"LPARAM="+hex$(User_Event_LParam)
  nom$ = string$(255," ")
  res% = dll_call3("GetImageViewFileName",IV%,ind%,adr(nom$))
  nom$ = trim$(nom$)
  message "indice="+str$(ind%)+" "+nom$
  return

Et voici le message affiché par le code ci-dessus:
Version instantanée V 0.9.28i12 du 08/07/2017 Aa111

pour un clic sur l'icône 26. On voit parfaitement l'inversion des valeurs des deux variables système.

En résumé:
- décalage sur le déclenchement de l'évèmenent ==> résolu
- inversion des variables système ==> non résolu

Je prends !

Merci Jack,

Je viens de télécharger, reste à tester.

A+

Admin Nombre de messages : 2381 Date d'inscription : 28/05/2007

Klaus a écrit:: mais l'inversion entre WPARAM et LPARAM persiste

Oups !
Je n'ai pas corrigé ce bug...
... car je l'avais complètement oublié.

Ce bug n' était pas mentionné dans la To-Do-List...

_________________

username : panoramic@jack-panoramic password : panoramic123

Pas grave - il n'y a pas d'urgence. Puisque tu es au courant maintenant, on attendra. Pour le moment, il suffit d'inverser les varables dans le code Panoramic (ou dans la DLL) pour que les tests puissent avancer.

Code:: rem ============================================================================
rem TEST DE LA VERSION V.0.9.28i11
rem ============================================================================
dim i
width 0,800

for i = 1 to 5
   led1 i : top i,50 : left i,50*i : ' Créer des LED
next i

for i = 1 to 5
   mark_on i : pause 1000
   mark_off i
next i
for i = 10 to 19
   digit1 i : top i,100 : left i, 60*(i-9) : ' Créer des DIGIT
   caption i,i-10
next i

switch1 20 : top 20,200 : left 20,100 : ' Créer un SWITCH
shape 30 : top 30,200 : left 30,200 : ' Créer un SHAPE

rem ============================================================================

Si je clique (droit ou gauche) sur l’un des DIGIT ou sur le SWITCH, j’obtiens le message d’erreur
PANORAMIC_TEMP a cessé de fonctionner puis

Version instantanée V 0.9.28i12 du 08/07/2017 Err10

C'est chargé, y a plus qu'a tester !

Merci jack Wink

@Papydall et Jack :
Effectivement, il y a un problème avec le code ou les nouveaux objets.
J'ai tenté différentes modifications et toujours les même soucis... Suspect

Je ne vois pas de difference avec la version i10 pour 'main_menu_pop', il ne fonctionne que pour le form 0

Code:: form 5
command_target_is 5

main_menu_pop 1
sub_menu 2
parent 2,1
caption 2,"Fichier"

Pour les digit/switch, avec ou sans event, idem papydall "erreur externe ligne 29, violation d'accès...", avec parfois un autre message message "label defined twice at line 7"

Code:: rem ============================================================================
rem TEST DE LA VERSION V.0.9.28i11
rem ============================================================================
dim i
width 0,800
label clic

for i = 1 to 5
   led1 i : top i,50 : left i,50*i : ' Créer des LED
   '
next i

for i = 1 to 5
   mark_on i : pause 100
   mark_off i
next i
for i = 10 to 19
   digit1 i : top i,100 : left i, 60*(i-9) : ' Créer des DIGIT
   on_click i,clic
   caption i,i-10
next i

switch1 20 : top 20,200 : left 20,100 : ' Créer un SWITCH
on_click 20,clic
shape 30 : top 30,200 : left 30,200 : ' Créer un SHAPE
'

END
clic:
   caption 0,str$(number_click)
return

Les 'open/save_dialog_pic' fonctionnent parfaitement, ces nouvelles commandes sont vraiment top! Smile

Admin Nombre de messages : 2381 Date d'inscription : 28/05/2007

Une nouvelle version instantanée V 0.9.28i12 du 08/07/2017 est disponible au téléchargement.

- elle corrige l'inversion des valeurs de USER_EVENT_LPARAM et USER_EVENT_WPARAM

- elle corrige un problème d'événement sur les objets SWITCH1 et DIGIT1

L'objet SWITCH1 est allumé par défaut et affiche les valeurs 0 ou 1 suivant qu'il est éteint ou allumé.
On peut modifier l'affichage de l'état allumé par CAPTION N,V$
et à la fois pour l'état allumé et éteint en séparant les deux valeurs par | (pipe)
On peut lire son état par CHECKED(N)
Lorsqu'on clique dessus, il réagit à l'événement ON_CLICK

Voici un exemple d'utilisation :

Code:: label affiche

switch1 1
top 1,150:left 1,200:width 1,210:height 1,100
caption 1, "***ON***|***OFF***"
on_click 1,affiche
end

affiche:
print "état de SWITCH1 : "+str$(CHECKED(1))
return

_________________

username : panoramic@jack-panoramic password : panoramic123

Merci beaucoup, Jack ! L'inversion des paramètres est résolué, et le USER_EVENT est parfaitement opérationnel ! Je m'emploie à l'exploiter à fond !

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

bonjour a tous
Peut être mal suivi l'évolution de panoramic
mais quel est la fonction d'un chape et d'un chart
Jack peut tu mettre une p'tite démo pour ces deux objets

Merci pour vos explication et bon week end

Sujet: Re: Version instantanée V 0.9.28i12 du 08/07/2017

» Version instantanée V 0.9.28i10 du 24/06/2017
» Version instantanée du 16/01/2017 : PANORAMIC V 0.9.27i10
» C'est quoi une version instantanée ?
» Version instantanée du 4 nov 2015 : PANORAMIC V 0.9.27i2
» Version instantanée du 22 avril 2016 : PANORAMIC V 0.9.27i7