pb avec 'command' de LIBRARY : ne fonctionne plus

'Command' ne fonctionne plus.
---------------------------
Panoramic_editor
---------------------------
(181) COMMAND number out of range. Line : 41
---------------------------
OK
---------------------------
Les commandes de LIBRARY seraient en cours de rénovation ? cheers

Au passage, je m'aperçois qu'elles ne sont pas encore documentées dans l'aide.

Code:: application_title "Test library"

label Traite_User_Event
dim wparam%,lparam%

' nouvelle commande utilisateur
On_User_Event Traite_User_Event
'
wparam% = 12
lparam% = 34
SEND_EVENT("PANORAMIC V "+version$, wparam%, lparam%)

END
Traite_User_Event:
' Off_User_Event :' erreur(29) ---> Plus d'accès aux variables systèmes si "Off_User_Event"
  '
   select USER_EVENT_WPARAM
   case 12
   message "USER_EVENT_WPARAM = "+str$(USER_EVENT_WPARAM)+chr$(13)+chr$(10)+"USER_EVENT_LPARAM = "+str$(USER_EVENT_LPARAM)
   end_select
   '
' On_User_Event Traite_User_Event
return

' SUB
sub SEND_EVENT(form_name$,value1%,value2%)
dim_local hndl%
   if variable("event_index%")=0
   dim event_index%
   if variable("user32%")=0 then dim user32%
   event_index%=4024 : user32%=2 :' event_index% doit toujours avoir la valeur 4024
   ' cré la commande qui permet de déclencher un évènement
   LIBRARY user32%,"user32.dll"
   command "call_user_event","SendMessageA",user32%,"IIII","stdcall"
   end_if
  '
  ' déclenche l'évènement(Attention, c'est toujours et uniquement le form 0 de l'executable en cours qui active la commande 'on_user_event'!)
  hndl%=handle_form(form_name$)
  if hndl%<>0
   call_user_event hndl%,event_index%,value1%,value2%
  else
   ' ne rien faire
  end_if
end_sub

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

Pour l'instant, je m'occupe due compilateur afin de sortir une version d'ELIP sans bug.

Quand cela sera fait, je ferai fonctionner les COMMAND et FUNCTION des LIBRARY.

Comme ces commandes ne fonctionnent pas (elles ont été laissées en suspens), elles n'ont pas été documentées.

La documentation devrait ressembler à ça:

LIBRARY L,T$ : déclaration de la librairie externe T$, numéro L. T$ = nom absolu ou relatif de la librairie

COMMAND K$, N$, L, T$, C$ : déclaration d'une commande dans une librairie externe
K$ = mot-clé
N$ = nom de la commande dans la librairie
L = n0 de librairie
T$ = types des paramètres
C$ = convention d'appel : "stdcall" ou "cdecl"

FUNCTION K$, N$, L, T$, C$ : déclaration d'une fonction dans une librairie externe
K$ = mot-clé
N$ = nom de la fonction dans la librairie
L = n0 de librairie
T$ = types des paramètres
C$ = convention d'appel : "stdcall" ou "cdecl"

_________________

LIBRARY - pb avec 'command' de LIBRARY : ne fonctionne plus Webdav

username : panoramic@jack-panoramic password : panoramic123

» LIBRARY COMMAND FUNCTION
» bug avec commande_target_is
» bug dans les command de Synedit (Resolu)
» Pb avec Min & Max
» Bug avec a$=b$