Synedit Parameters

hide 0

 dll_on "C:\Program Files\Panoramic Editor V 0.9.25\sources\kgf.dll"
' dll_on "C:\Program Files\Panoramic Editor V 0.9.25\sources\mylib.dll"
dll_off

message "test"
show 0

hide 0
Variables()
Constantes()
Labels()
Init()
Gui()
RempListOutils()
show 0
end

sub Variables()
 dim no%
 dim HndF%
 dim Prg$
end_sub

sub Constantes()
 dim_local i%
 
 ' NOM DE L APPLICATION
 dim Titre$ : Titre$ = "Test Outils"
 Application_title Titre$
 
 ' DOSSIERS
 dim Path$ : Path$ = dir_current$
 if right$(Path$,1)="" : Path$ = left$(Path$,len(path$)-1) : end_if
 Path$ = Path$+""
 
 ' FICHIER EN LECTURE\ECRITURE
    dim F_Or% : no%=no%+1 : F_Or%=no%
    dim F_Ow% : no%=no%+1 : F_Ow%=no%
 
 ' OBJETS
 dim Alph%(6) : for i%=1 to 6 : no%=no%+1 : Alph%(i%)=no% : next i%
 dim ListOutils% : no%=no%+1 : ListOutils%=no%
 dim BtnGo% : no%=no%+1 : BtnGo%=no%
end_sub

sub Labels()
 label Clic
 label TraiteEvent
end_sub

sub Init()
end_sub

sub Gui()

 height 0,250
 width 0,500
 top 0,50
 left 0,50
 
 font_name 0,""
 font_size 0,8
 font_bold 0
 Caption 0,Titre$
 
 on_user_event TraiteEvent
 
 alpha Alph%(1)
 top Alph%(1),10
 left Alph%(1),10
 caption Alph%(1),"Outils"
 
 combo ListOutils%
 width ListOutils%,200
 top ListOutils%,top(Alph%(1))+height(Alph%(1))+5
 left ListOutils%,10
 
 button BtnGo%
 height BtnGo%,height(ListOutils%)
 width BtnGo%,50
 top BtnGo%,top(ListOutils%)
 left BtnGo%,left(ListOutils%)+width(ListOutils%)+5
 caption BtnGo%,"Lancer"
 cursor_point BtnGo%
 on_click BtnGo%,Clic
 
 alpha Alph%(2)
 top Alph%(2),top(ListOutils%)+height(ListOutils%)+10
 left Alph%(2),10
 caption Alph%(2),"Envoi :"
 
 alpha Alph%(3)
 top Alph%(3),top(ListOutils%)+height(ListOutils%)+40
 left Alph%(3),10
 font_color Alph%(3),0,0,200
 caption Alph%(3),"-"
 
 alpha Alph%(4)
 top Alph%(4),top(ListOutils%)+height(ListOutils%)+70
 left Alph%(4),10
 caption Alph%(4),"Retours :"
 
 alpha Alph%(5)
 top Alph%(5),top(ListOutils%)+height(ListOutils%)+100
 left Alph%(5),10
 font_color Alph%(5),0,0,200
 caption Alph%(5),"-"

 alpha Alph%(6)
 top Alph%(6),top(ListOutils%)+height(ListOutils%)+130
 left Alph%(6),10
 font_color Alph%(6),0,0,200
 caption Alph%(6),"-"
        
end_sub

' ! MENU CLIC
Clic:
 HndF% = handle_form(caption$(0))
 Prg$ = item_index$(ListOutils%)+"|"+str$(HndF%)+" _"      :' <-----------------
 caption Alph%(3),Prg$
 Execute Prg$
return
' -

' ! TRAITEMENT DES EVENENEMTS
TraiteEvent:
 off_user_event
 caption Alph%(5),str$(USER_EVENT_LPARAM)
 caption Alph%(6),str$(USER_EVENT_WPARAM)
 on_user_event TraiteEvent
return
' -

sub RempListOutils()
        dim_local a$
        
 dir_change Path$
 a$ = file_find_first$
 if file_extract_extension$(a$) = ".exe" and file_extract_name$(a$)<>"Test_Outils.exe" : item_add ListOutils%,a$ : end_if
 a$ = file_find_next$
 while a$ <> "_"
 if file_extract_extension$(a$) = ".exe" and file_extract_name$(a$)<>"Test_Outils.exe" : item_add ListOutils%,a$ : end_if
 a$ = file_find_next$
 end_while
 file_find_close
end_sub

' DECLARATION ET INITIALISATION DES VARIABLES
dim ReceiveHnd% : ReceiveHnd% = val(Param_value$(1))   :' <---------------------
dim event_index% : event_index%= 4024
dim user32% : user32%=2

' DECLARATION DES LABELS
label clic

' DECLARATION DES LIBRARY
LIBRARY user32%,"user32.dll"

' DECLARATION DES COMMAND
command "call_user_event","SendMessageA",user32%,"IIII","stdcall"

' INTERFACE
border_small 0
height 0,320
width 0,450
top 0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
caption 0,"PanoColor"
      
font_name 0,"Arial"
font_size 0,8
font_color 0,85,85,127

alpha 1
top 1,20
left 1,20
caption 1,"Paramètre reçu : "+str$(ReceiveHnd%)

button 2
top 2,60
left 2,20
caption 2,"Renvoi"
cursor_point 2
on_click 2,Clic
end

Clic:
   Send_Color()
return

sub Send_Color()
   dim_local typ%,value%
   if ReceiveHnd%=0 : exit_sub : end_if
   typ%=1
   value% = 500
   call_user_event ReceiveHnd%,event_index%,typ%,value%
   call_user_event ReceiveHnd%,event_index%,typ%,value%   :' <------------------
   terminate
end_sub

res% = DLL_call2("GetShortName",adr(long$),adr(court$))