Comportement différent entre exécute directe, et exécutable*

'  copier/coller multiples simple
rem " remplir le GRID depuis 2 edits Info: explication de la commande, et à copier, qui est le teste à envoyer
dll_on "c:\kgf.dll"
dim hnd% ,res%
hnd% =  handle_form("PANORAMIC EDITOR")  

width 0,400:height 0,800:left 0,screen_x-400:font_size 0,8:font_bold 0:border_small 0 : color 0,232,243,188
label click , coller , ouvrir , sauve , efface_edit
dim x,y,coller$ , f$

open_dialog 1
Grid 10 :full_space 10 : grid_column 10,4:grid_row 10,50:grid_one_column_width 10,1,1
    grid_one_column_width 10,2,120:grid_one_column_width 10,3,2 : on_click 10,click
    grid_one_row_height 10,1,1 :grid_one_column_width 10,4,230 : color 10,250,220,170
    grid_row_height 10,16

main_menu 15 : sub_menu 16:parent 16,15:caption 16,"Commande"      
    sub_menu 17:parent 17,16:caption 17,"Ouvrir"              : on_click 17,ouvrir
    sub_menu 18:parent 18,16:caption 18,"Sauvegarder"         : on_click 18,sauve
    sub_menu 19:parent 19,16:caption 19,"Coller"              : on_click 19,coller
    
form 20  : width 20,800 : height 20,100 : border_small 20:font_size 20,10:font_bold 20 : color 20,248,248,188
    left 20, screen_x - 800
alpha 21 : parent 21,20 : caption 21,"Info =>>"  
edit  22 : parent 22,20 : left 22,80 : width 22,250
alpha 23 : parent 23,20 : caption 23,"à copier =>>" : top 23,30
edit  24 : parent 24,20 : left 24,80 : width 24,700 : top 24,30
button 25: parent 25,20 : left 25,350:caption 25,"efface edits":on_click 25,efface_edit:width 25,100
button 26: parent 26,0  : left 26,380:width 26,1:height 26,1    
END :' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  
=======================================================
efface_edit:
   text 22,"" : text 24,""
return
=======================================================
click:
   x = grid_x_to_column(10,mouse_x_position(10))
   y = grid_y_to_row(10,mouse_y_position(10))
   coller$ = grid_read$(10,y,2)
   if x = 4
      if coller$ <> ""
          clipboard_string_copy coller$
          text 22,grid_read$(10,y,4)
          text 24,grid_read$(10,y,2)
          res% = dll_call5("SendSingleKey",hnd%,86,1,0,0)  :' [CTRL] + V
          set_focus 26 :' pour éviter les scrolls avec la souris, qui remplissent PANORAMIC_EDITOR
      end_if
   end_if
return
=======================================================  
coller:
   if y=0 or x= 0 then message "pas de cellule choisi" : return
   grid_write 10,y,4,text$(22)  :  grid_write 10,y,2,text$(24) : return
=======================================================
ouvrir:
   f$ = file_name$(1) : if f$ <> "_" then grid_load 10,f$ : caption 0,f$
   dim a%,a$,b$  : return
   for a% = 1 to 20
      a$ = grid_read$(10,a%,2)
      b$ = grid_read$(10,a%,4)
      grid_write 10,a%,2,b$
      grid_write 10,a%,4,a$
   next a%
return
=======================================================
sauve:
   if f$ = "" then f$ = file_name$(1) : caption 0,f$
   if f$ <> "_" then grid_save 10,50,4,f$
return
=======================================================  

hnd% =  handle_form("PANORAMIC EDITOR")