KGF_dll - nouvelles versions

' test_PlayerControl.bas

label close0, zoom, move

dim res%, MP%, MPC%

dll_on "KGF.dll"

width 0,800 : height 0,600
button 1 : top 1,10 : left 1,10 : caption 1,"Agrandir" : on_click 1,zoom
button 2 : top 2,10 : left 2,left(1)+width(1) : caption 2,"Déplacer" : on_click 2,move

on_close 0,close0

res% = dll_call1("SelectMultiPlayerType",2)
MP% = dll_call5("CreateMultiPlayer",handle(0),100,250,300,200)
' MPC% = dll_call3("CreateMultiPlayerControl",MP%,handle(0),0-1)
MPC% = dll_call2("CreateMultiPlayerControl",MP%,0-1)

end

close0:
  ' détruire simplement le MultiPlayerControm
  ' MPC% = dll_call1("DeleteMultiPlayerControl",MPC%)
  ' détruire le MultiPlayer VLC détruit AUTOMATIQUEMENT le MultiPlayerControl associé !
  res% = dll_call1("DeleteMultiPlayer",MP%)
  return

zoom:
  res% = dll_call5("ResizeMultiPlayer",MP%,40,10,600,400)
  return
 
move:
  res% = dll_call3("MoveMultiPlayer",MP%,40,40)
  return

dim res%, vers$
vers$ = string$(25,"  ")
dll_on "KGF.dll"
res% = DLL_call1("KGFdllVersion",adr(version$))
message version$
end

' test-IsUniqueInstance.bas

dim res%

dll_on "KGF.dll"

res% = dll_call0("IsUniqueInstance")
if res%=1
  message "On est seul"
else
  message "On n'est pas seul"
terminate
end_if

end

res% = sll_call1("UnblockIconListBox",ILB%)

' Gerer_ApplicationHost.bas

label creervide, connecter, deconnecter, lister, changeapp, Chercherfichier, ajouterapp
label supprimerapp, extraireapp, choisirfichier, Chercherdll
label help0, help12, help13, help14, help15, help16, help21
label help31, help33, help34, help35, help36, help38, help39, help40
label help101

dim res%, host$, applic$, fichier$, caret%, appcars$, s$, crlf$

full_space 0
caption 0,"Gestionnaire des DLLs de ressources"

alpha 11 : top 11,95 : left 11,220 : caption 11,"DLL de ressources:"
edit  12 : top 12,110 : left 12,220 : width 12,600
button 13 : top 13,110 : left 13,820 : width 13,30 : caption 13,"..." : on_click 13,Chercherdll

button 14 : top 14,110 : left 14,850 : width 14,200 : caption 14,"Créer une DLL vide" : on_click 14,creervide
button 15 : top 15,140 : left 15,850 : width 15,200 : caption 15,"Connecter à la DLL" : on_click 15,connecter

button 16 : top 16,210 : left 16,220 : width 16,200 : caption 16,"Déconnecter la DLL" : on_click 16,deconnecter
button 21 : top 21,240 : left 21,220 : width 21,200 : caption 21,"Liste des ressources" : on_click 21,lister

alpha 30 : top 30,290 : left 30,220 : caption 30,"Ressource:"
edit  31 : top 31,310 : left 31,220 : width 31,200  : on_change 31,changeapp
alpha 32 : top 32,290 : left 32,430 : caption 32,"Fichier EXE:"
edit  33 : top 33,310 : left 33,430 : width 33,600
button 34 : top 34,310 : left 34,1030 : width 34,30 : caption 34,"..." : on_click 34,Chercherfichier
button 35 : top 35,310 : left 35,1060 : width 35,200 : caption 35,"Ajouter la ressource" : on_click 35,ajouterapp

button 36 : top 36,350 : left 36,220 : width 36,200 : caption 36,"Supprimer la ressource sélectonnée" : on_click 36,supprimerapp

alpha 37 : top 37,390 : left 37,220 : caption 37,"Fichier EXE:"
edit  38 : top 38,410 : left 38,220 : width 38,600
button 39 : top 39,410 : left 39,820 : width 39,30 : caption 39,"..." : on_click 39,choisirfichier
button 40 : top 40,410 : left 40,850 : width 40,200 : caption 40,"Extraire la ressource sélectonnée" : on_click 40,extraireapp

                                                                                           
alpha 100 : top 100,55 : left 100,10 : caption 100,"Ressources disponibles:"
' memo 101 : top 101,70 : left 101,10 : width 101,200 : height 101,400 : bar_both 101
list 101 : top 101,70 : left 101,10 : width 101,200 : height 101,400

alpha 200 : top 200,460 : left 200,220 : font_size 200,16
on_mouse_move 0,help0
on_mouse_move 12,help12
on_mouse_move 13,help13
on_mouse_move 14,help14
on_mouse_move 15,help15
on_mouse_move 16,help16
on_mouse_move 21,help21
on_mouse_move 31,help31
on_mouse_move 33,help33
on_mouse_move 34,help34
on_mouse_move 35,help35
on_mouse_move 36,help36
on_mouse_move 38,help38
on_mouse_move 39,help39
on_mouse_move 40,help40
on_mouse_move 101,help101

open_dialog 300 : filter 300,"Fichiers DLL|*.dll"
open_dialog 301

dll_on "KGF.dll"
appcars$ = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_"
host$ = "ResourceHost.dll"
crlf$ = chr$(13) + chr$(10)
text 12,host$
res% = dll_call2("GetFullResourceHostName",handle(12),adr(host$))
end

creervide:
  if text$(12)=""
    message "Erreur: le nom de la DLL ressources manque"
    return
  end_if
  host$ = text$(12)  : ' "ResourceHost.dll"
  if file_exists(host$)=1 then file_delete host$
  res% = dll_call1("CreateNewResourceHost",adr(host$))
  if res%=0
    clear 101
    message "Ok"
  else
    message "Erreur"
  end_if
  return

connecter:
  host$ = text$(12)  : ' "ResourceHost.dll"
  res% = dll_call1("ConnectResourceHost",adr(host$))
  if res%=0
    res% = dll_call1("GetResourceListFromHost",handle(101))
    message "Ok"
  else
    clear 101
    message "Erreur"
  end_if
  return

deconnecter:
  res% = dll_call0("DisconnectResourceHost")
  if res%=0
    clear 101
    message "Ok"
  else
    message "Erreur"
  end_if
  return
 
lister:
  res% = dll_call1("GetResourceListFromHost",handle(101))
  if res%>=0
    message "Ok: "+str$(res%)+" ressources trouvées"
  else
    message "Erreur"
  end_if
  return
 
changeapp:
  caret% = caret_position(31)
  off_change 31
  s$ = text$(31)
  if s$<>""
    if instr(appcars$,mid$(s$,caret%,1))=0
      if caret%<=1
        s$ = mid$(s$,caret%+1,400)
      else
        s$ = left$(s$,caret%-1)+mid$(s$,caret%+1,400)
      end_if
      if caret%>0 then caret% = caret% - 1
    end_if
  end_if
  text 31,upper$(s$)
  caret_position 31,caret%
  on_change 31,changeapp
  return

chercherfichier:
  fichier$ = file_name$(301)
  if fichier$="_" then return
  if file_exists(fichier$)=0
    message "Erreur: fichier inexistant"
    return
  end_if
  text 33,fichier$
  return 
 
choisirfichier:
  fichier$ = file_name$(301)
  if fichier$="_" then return
  if file_exists(fichier$)=1
    if message_confirmation_yes_no("Fichier existant. Voulez_vous le remplacer ?")<>1 then return
  end_if
  text 38,fichier$
  return 
 
Chercherdll:
  fichier$ = file_name$(300)
  if fichier$="_" then return
  text 12,fichier$
  host$ = fichier$
  return
   
ajouterapp:
  applic$ = text$(31)
  fichier$ = text$(33)
  if applic$=""
    message "Erreur: le nom de la ressource manque"
    return
  end_if
  if fichier$=""
    message "Erreur: le nom du fichier de la ressource manque"
    return
  end_if
  res% = dll_call2("AddResourceToHost",adr(applic$),adr(fichier$))
  if res%>=0
    res% = dll_call1("GetResourceListFromHost",handle(101))
    message "Ok"
  else
    message "Erreur"
  end_if
  return
 
supprimerapp:
  if item_index(101)=0
    message "Erreur: aucune ressource n'est sélectionnée"
    return
  end_if
  s$ = item_index$(101)
  res% = dll_call1("RemoveResourceFromHost",adr(s$))
  if res%=0
    res% = dll_call1("GetResourceListFromHost",handle(101))
    message "Ok"
  else
    message "Erreur"
  end_if
  return 
 
extraireapp:
  if item_index(101)=0
    message "Erreur: aucune ressource n'est sélectionnée"
    return
  end_if
  s$ = item_index$(101)
  fichier$ = text$(38)
  if file_exists(fichier$) then file_delete fichier$
  res% = dll_call2("ExtractResourceFromHost",adr(s$),adr(fichier$))
  if res%=0
    message "Ok"
  else
    message "Erreur"
  end_if
  return
 
help0:
  caption 200,""
  return
help12:
  s$ = "Nom et chemin complet de la DLL de ressources."+crlf$+crlf$+"Utiliser le bouton <...> pour choisir la DLL."+crlf$
  s$ = s$ + "Le contenu de ce champ sera utilisé pour créer une nouvelle DLL ou connecter une DLL existante."
  caption 200,s$
  return
help13:
  caption 200,"Choisir un fichier DLL existant ou l'emplacement d'une DLL à créer."
  return
help14:
  s$ = "Créer une nouvelle DLL de resources vide (sans ressources)"+crlf$
  s$ = s$ + "Le nom et l'emplacement de la DLL à créer sont dans le champ à gauche de ce bouton."
  caption 200,s$
  return 
help15:
  s$ = "Connecter une DLL de resources existante."+crlf$
  s$ = s$ + "Le nom et l'emplacement de la DLL à connecter sont dans le champ à gauche de ce bouton."
  caption 200,s$
  return 
help16: 
  caption 200,"Déconnecter la DLL actuellement connectée."
  return 
help21:
  caption 200,"Afficher la liste des ressources disponibles dans la DLL actuellement connectée."
  return 
help31:
  s$ = "Nom de la ressource."+crlf$+crlf$+"Ce nom sert à identifier la ressource."+crlf$
  s$ = s$ + "Seules les lettres majuscules et minuscules sont autorisées, ainsi que le signe <_>."
  caption 200,s$
  return 
help33:
  s$ = "Nom et chemin complet du fichuer à ajouter en tant que ressources."+crlf$+crlf$
  s$ = s$ + "Utiliser le bouton <...> pour choisir le fichier."+crlf$
  s$ = s$ + "Le contenu de ce champ désigne le fichier qui sera utilisé pour l'ajout."+crlf$+crlf$
  s$ = s$ + "Si la ressource n'existe pas encore dans la DLL, elle sera ajoutée."+crlf$
  s$ = s$ + "Si la ressource existe déjà dans la DLL, elle sera remplacée."
  caption 200,s$
  return 
help34:
  caption 200,"Choisir un fichier existant à utiliser en tant que ressoure."
  return 
help35:
  s$ = "Ajouter un fichier e tant que ressource."+crlf$+crlf$
  s$ = s$ + "Le contenu du champ à gauche désigne le fichier qui sera utilisé pour l'ajout."+crlf$+crlf$
  s$ = s$ + "Si la ressource n'existe pas encore dans la DLL, elle sera ajoutée."+crlf$
  s$ = s$ + "Si la ressource existe déjà dans la DLL, elle sera remplacée."
  caption 200,s$
  return 
help36:
  caption 200,"Supprimer la ressource sélectionnée dans la liste des ressources." 
  return 
help38:
  s$ = "Nom et chemin du fichier pour l'extraction d'une ressource."+crlf$+crlf$
  s$ = s$ + "Utiliser le bouton <...> pour choisir le fichier."+crlf$
  s$ = s$ + "La ressource sélectionnée dans la liste des ressources sera extraite dans ce fichier."+crlf$
  caption 200,s$
  return 
help39:
  caption 200,"Choisir le nom et l'emplacement du fichier dans lequel la ressource sélectionnée sera extraite."
  return 
help40:
  s$ = "Extraire une ressource dans un fichier."+crlf$+crlf$
  s$ = s$ + "La ressource extraite est celle qui est sélectionnée dans la liste des ressources."+crlf$
  s$ = s$ + "ATTENTION: il faut veiller à donner la bonne extension au fichier, sinon il ne sera pas utilisable !"
  caption 200,s$
  return 
help101:
  caption 200,"Liste des ressources disponibles."+crlf$+crlf$+"Un clic dans cette liste sélectionne la ressource pour extraction ou suppression."
  return

' Gerer_ApplicationHost.bas

label creervide, connecter, deconnecter, lister, changeapp, Chercherfichier, ajouterapp
label supprimerapp, extraireapp, choisirfichier, Chercherdll
label help0, help12, help13, help14, help15, help16, help21
label help31, help33, help34, help35, help36, help38, help39, help40
label help101

dim res%, host$, applic$, fichier$, caret%, appcars$, s$, crlf$

full_space 0
caption 0,"Gestionnaire des DLLs de ressources"

alpha 11 : top 11,95 : left 11,220 : caption 11,"DLL de ressources:"
edit  12 : top 12,110 : left 12,220 : width 12,600
button 13 : top 13,110 : left 13,820 : width 13,30 : caption 13,"..." : on_click 13,Chercherdll

button 14 : top 14,110 : left 14,850 : width 14,200 : caption 14,"Créer une DLL vide" : on_click 14,creervide
button 15 : top 15,140 : left 15,850 : width 15,200 : caption 15,"Connecter à la DLL" : on_click 15,connecter

button 16 : top 16,210 : left 16,220 : width 16,200 : caption 16,"Déconnecter la DLL" : on_click 16,deconnecter
button 21 : top 21,240 : left 21,220 : width 21,200 : caption 21,"Liste des ressources" : on_click 21,lister

alpha 30 : top 30,290 : left 30,220 : caption 30,"Ressource:"
edit  31 : top 31,310 : left 31,220 : width 31,200  : on_change 31,changeapp
alpha 32 : top 32,290 : left 32,430 : caption 32,"Fichier EXE:"
edit  33 : top 33,310 : left 33,430 : width 33,600
button 34 : top 34,310 : left 34,1030 : width 34,30 : caption 34,"..." : on_click 34,Chercherfichier
button 35 : top 35,310 : left 35,1060 : width 35,200 : caption 35,"Ajouter la ressource" : on_click 35,ajouterapp

button 36 : top 36,350 : left 36,220 : width 36,200 : caption 36,"Supprimer la ressource sélectonnée" : on_click 36,supprimerapp

alpha 37 : top 37,390 : left 37,220 : caption 37,"Fichier EXE:"
edit  38 : top 38,410 : left 38,220 : width 38,600
button 39 : top 39,410 : left 39,820 : width 39,30 : caption 39,"..." : on_click 39,choisirfichier
button 40 : top 40,410 : left 40,850 : width 40,200 : caption 40,"Extraire la ressource sélectonnée" : on_click 40,extraireapp

                                                                                            
alpha 100 : top 100,55 : left 100,10 : caption 100,"Ressources disponibles:"
' memo 101 : top 101,70 : left 101,10 : width 101,200 : height 101,400 : bar_both 101
list 101 : top 101,70 : left 101,10 : width 101,200 : height 101,400

alpha 200 : top 200,460 : left 200,220 : font_size 200,16
on_mouse_move 0,help0
on_mouse_move 12,help12
on_mouse_move 13,help13
on_mouse_move 14,help14
on_mouse_move 15,help15
on_mouse_move 16,help16
on_mouse_move 21,help21
on_mouse_move 31,help31
on_mouse_move 33,help33
on_mouse_move 34,help34
on_mouse_move 35,help35
on_mouse_move 36,help36
on_mouse_move 38,help38
on_mouse_move 39,help39
on_mouse_move 40,help40
on_mouse_move 101,help101

open_dialog 300 : filter 300,"Fichiers DLL|*.dll"
open_dialog 301

dll_on "KGF.dll"
appcars$ = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789"
host$ = "ResourceHost.dll"
crlf$ = chr$(13) + chr$(10)
text 12,host$
res% = dll_call2("GetFullResourceHostName",handle(12),adr(host$))
end

creervide:
  if text$(12)=""
    message "Erreur: le nom de la DLL ressources manque"
    return
  end_if
  host$ = text$(12)   : ' "ResourceHost.dll"
  if file_exists(host$)=1 then file_delete host$
  res% = dll_call1("CreateNewResourceHost",adr(host$))
  if res%=0
    clear 101
    message "Ok"
  else
    message "Erreur"
  end_if
  return

connecter:
  host$ = text$(12)   : ' "ResourceHost.dll"
  res% = dll_call1("ConnectResourceHost",adr(host$))
  if res%=0
    res% = dll_call1("GetResourceListFromHost",handle(101))
    message "Ok"
  else
    clear 101
    message "Erreur"
  end_if
  return

deconnecter:
  res% = dll_call0("DisconnectResourceHost")
  if res%=0
    clear 101
    message "Ok"
  else
    message "Erreur"
  end_if
  return
  
lister:
  res% = dll_call1("GetResourceListFromHost",handle(101))
  if res%>=0
    message "Ok: "+str$(res%)+" ressources trouvées"
  else
    message "Erreur"
  end_if
  return
  
changeapp:
  caret% = caret_position(31)
  off_change 31
  s$ = text$(31)
  if s$<>""
    if instr(appcars$,mid$(s$,caret%,1))=0
      if caret%<=1
        s$ = mid$(s$,caret%+1,400)
      else
        s$ = left$(s$,caret%-1)+mid$(s$,caret%+1,400)
      end_if
      if caret%>0 then caret% = caret% - 1
    end_if
  end_if
  text 31,upper$(s$)
  caret_position 31,caret%
  on_change 31,changeapp
  return

chercherfichier:
  fichier$ = file_name$(301)
  if fichier$="_" then return
  if file_exists(fichier$)=0
    message "Erreur: fichier inexistant"
    return
   end_if
   text 33,fichier$
   return  
  
choisirfichier:
  fichier$ = file_name$(301)
  if fichier$="_" then return
  if file_exists(fichier$)=1
    if message_confirmation_yes_no("Fichier existant. Voulez_vous le remplacer ?")<>1 then return
   end_if
   text 38,fichier$
   return  
  
Chercherdll:
  fichier$ = file_name$(300)
  if fichier$="_" then return
  text 12,fichier$
  host$ = fichier$
  return
    
ajouterapp:
  applic$ = text$(31)
  fichier$ = text$(33)
  if applic$=""
    message "Erreur: le nom de la ressource manque"
    return
  end_if
  if fichier$=""
    message "Erreur: le nom du fichier de la ressource manque"
    return
  end_if
  res% = dll_call2("AddResourceToHost",adr(applic$),adr(fichier$))
  if res%>=0
    res% = dll_call1("GetResourceListFromHost",handle(101))
    message "Ok"
  else
    message "Erreur"
  end_if
  return
  
supprimerapp:
  if item_index(101)=0
    message "Erreur: aucune ressource n'est sélectionnée"
    return
  end_if
  s$ = item_index$(101)
  res% = dll_call1("RemoveResourceFromHost",adr(s$))
  if res%=0
    res% = dll_call1("GetResourceListFromHost",handle(101))
    message "Ok"
  else
    message "Erreur"
  end_if
  return  
  
extraireapp:
  if item_index(101)=0
    message "Erreur: aucune ressource n'est sélectionnée"
    return
  end_if
  s$ = item_index$(101)
  fichier$ = text$(38)
  if file_exists(fichier$) then file_delete fichier$
  res% = dll_call2("ExtractResourceFromHost",adr(s$),adr(fichier$))
  if res%=0
    message "Ok"
  else
    message "Erreur"
  end_if
  return
  
help0:
  caption 200,""
  return
help12:
  s$ = "Nom et chemin complet de la DLL de ressources."+crlf$+crlf$+"Utiliser le bouton <...> pour choisir la DLL."+crlf$
  s$ = s$ + "Le contenu de ce champ sera utilisé pour créer une nouvelle DLL ou connecter une DLL existante."
  caption 200,s$
  return
help13:
  caption 200,"Choisir un fichier DLL existant ou l'emplacement d'une DLL à créer."
  return
help14:
  s$ = "Créer une nouvelle DLL de resources vide (sans ressources)"+crlf$
  s$ = s$ + "Le nom et l'emplacement de la DLL à créer sont dans le champ à gauche de ce bouton."
  caption 200,s$
  return  
help15:
  s$ = "Connecter une DLL de resources existante."+crlf$
  s$ = s$ + "Le nom et l'emplacement de la DLL à connecter sont dans le champ à gauche de ce bouton."
  caption 200,s$
  return  
help16:  
  caption 200,"Déconnecter la DLL actuellement connectée."
  return  
help21:
  caption 200,"Afficher la liste des ressources disponibles dans la DLL actuellement connectée."
  return  
help31:
  s$ = "Nom de la ressource."+crlf$+crlf$+"Ce nom sert à identifier la ressource."+crlf$
  s$ = s$ + "Seules les lettres majuscules et minuscules sont autorisées, ainsi que le signe <_>."
  caption 200,s$
  return  
help33:
  s$ = "Nom et chemin complet du fichuer à ajouter en tant que ressources."+crlf$+crlf$
  s$ = s$ + "Utiliser le bouton <...> pour choisir le fichier."+crlf$
  s$ = s$ + "Le contenu de ce champ désigne le fichier qui sera utilisé pour l'ajout."+crlf$+crlf$
  s$ = s$ + "Si la ressource n'existe pas encore dans la DLL, elle sera ajoutée."+crlf$
  s$ = s$ + "Si la ressource existe déjà dans la DLL, elle sera remplacée."
  caption 200,s$
  return  
help34:
  caption 200,"Choisir un fichier existant à utiliser en tant que ressoure."
  return  
help35:
  s$ = "Ajouter un fichier e tant que ressource."+crlf$+crlf$
  s$ = s$ + "Le contenu du champ à gauche désigne le fichier qui sera utilisé pour l'ajout."+crlf$+crlf$
  s$ = s$ + "Si la ressource n'existe pas encore dans la DLL, elle sera ajoutée."+crlf$
  s$ = s$ + "Si la ressource existe déjà dans la DLL, elle sera remplacée."
  caption 200,s$
  return  
help36:
  caption 200,"Supprimer la ressource sélectionnée dans la liste des ressources."  
  return  
help38:
  s$ = "Nom et chemin du fichier pour l'extraction d'une ressource."+crlf$+crlf$
  s$ = s$ + "Utiliser le bouton <...> pour choisir le fichier."+crlf$
  s$ = s$ + "La ressource sélectionnée dans la liste des ressources sera extraite dans ce fichier."+crlf$
  caption 200,s$
  return  
help39:
  caption 200,"Choisir le nom et l'emplacement du fichier dans lequel la ressource sélectionnée sera extraite."
  return  
help40:
  s$ = "Extraire une ressource dans un fichier."+crlf$+crlf$
  s$ = s$ + "La ressource extraite est celle qui est sélectionnée dans la liste des ressources."+crlf$
  s$ = s$ + "ATTENTION: il faut veiller à donner la bonne extension au fichier, sinon il ne sera pas utilisable !"
  caption 200,s$
  return  
help101:
  caption 200,"Liste des ressources disponibles."+crlf$+crlf$+"Un clic dans cette liste sélectionne la ressource pour extraction ou suppression."
  return

' test_PDF.bas

label go
dim res%, WB%, url$, PDF$
dim TxtPars$(100), IntPars%(100), FloatPars(100)

dll_on "KGF.dll"
full_space 0


button 1 : top 1,10 : left 1,330 : caption 1,"Go !" : on_click 1,go

memo 100 : top 1,10 : left 100,10 : width 100,300 : height 100,500 : bar_both 100
' item_add 100,"Background,.\Icones 16x16\Passiflore.jpg"    : ' Background,nom              affichage d'une image de fond sur toute la page
' item_add 100,"Background,#0"    : ' Background,nom              affichage d'une image de fond sur toute la page
item_add 100,"Font,Arial,96,BI,0,1"                        : ' Font,n,t,a,c,b              choisir une police par son nom, la taille, les attributs et sa couleur, le style du fond
item_add 100,"Pen,0,0,3,0"                                  : ' Pen,s,m,w,c                  choisir une plume avec son style, mode, l'épaisseur et la couleur
item_add 100,"Text,300,600,Mon texte est ici"              : ' Text,x,y,txt,f              afficher la valeur texte indice n        #n=indice n  sans #: txt=valeur string directe
item_add 100,"Integer,300,900,317,Entier: %d"              : ' Integer,x,y,n,f              afficher la valeur entière indice n format f      #n=indice n  sans #: n=valeur entière directe
item_add 100,"Float,300,1200,3.14159,Flottant money: %m"    : ' Float,x,y,v,f                afficher la valeur flottante indice n    #n=indice n  sans #: f=valeur flottante directe
item_add 100,"Image,300,1500,1200,800,#0"                  : ' Image,x,y,w,h,nom            afficher une image            #n=indice    sans #: nom=nom du fichier
TxtPars$(0) = ".\Icones 16x16\Passiflore.jpg"
PDF$ = "testPDF.pdf"

end

go:
  res% = dll_call5("PrintFormattedPDF",handle(100),adr(TxtPars$),adr(Intpars%),adr(FloatPars),adr(PDF$))
  message "res%="+str$(res%)
  execute PDF$
  return

' FormulaireCivid_PDF.bas

label go
dim res%, PDF$, s$
dim TxtPars$(100), IntPars%(100), FloatPars(100)
dim i%

dll_on "KGF.dll"
full_space 0

alpha 1 : top 1,10 : left 1,10 : caption 1,"Choix de la personne:"
combo 2 : top 2,30 : left 2,10 : width 2,300
  item_add 2,"Dupond, Martin"
  item_add 2,"Dupond, Françoise"
  item_select 2,1
  
button 10 : top 10,100 : left 10,10 : caption 10,"Go !" : on_click 10,go

memo 100 : top 100,10 : left 100,500 : width 100,300 : height 100,500 : bar_both 100
' item_add 100,"Background,.\Icones 16x16\Passiflore.jpg"     : ' Background,nom               affichage d'une image de fond sur toute la page
' item_add 100,"Background,#0"    : ' Background,nom               affichage d'une image de fond sur toute la page
' item_add 100,"Font,Arial,96,BI,0,1"                         : ' Font,n,t,a,c,b               choisir une police par son nom, la taille, les attributs et sa couleur, le style du fond
' item_add 100,"Pen,0,0,3,0"                                  : ' Pen,s,m,w,c                  choisir une plume avec son style, mode, l'épaisseur et la couleur
' item_add 100,"Text,300,600,Mon texte est ici"               : ' Text,x,y,txt,f               afficher la valeur texte indice n        #n=indice n  sans #: txt=valeur string directe
' item_add 100,"Integer,300,900,317,Entier: %d"               : ' Integer,x,y,n,f              afficher la valeur entière indice n format f      #n=indice n  sans #: n=valeur entière directe
' item_add 100,"Float,300,1200,3.14159,Flottant money: %m"    : ' Float,x,y,v,f                afficher la valeur flottante indice n    #n=indice n  sans #: f=valeur flottante directe
' item_add 100,"Image,300,1500,1200,800,#0"                   : ' Image,x,y,w,h,nom            afficher une image             #n=indice    sans #: nom=nom du fichier
' TxtPars$(0) = ".\Icones 16x16\Passiflore.jpg"

end

go:
  i% = item_index(2)
  select i%
    case 1: Script_1()
    case 2: Script_2()
  end_select
  res% = dll_call5("PrintFormattedPDF",handle(100),adr(TxtPars$),adr(Intpars%),adr(FloatPars),adr(PDF$))
  execute PDF$
  return
  
sub Script_1()
  PDF$ = "Formulaire_0.pdf"
  TxtPars$(0) = "attestation-de-deplacement-derogatoire.jpg"
  TxtPars$(1) = item_index$(2)
  TxtPars$(2) = "23/04/1956"
  TxtPars$(3) = "Melun (77)"
  TxtPars$(4) = "82 rue de la République, 91000 Evry"
  TxtPars$(5) = "Belfort"
  TxtPars$(6) = date$
  txtpars$(7) = time$
  commun()  
end_sub

sub Script_2()
  PDF$ = "Formulaire_1.pdf"
  TxtPars$(0) = "attestation-de-deplacement-derogatoire.jpg"
  TxtPars$(1) = item_index$(2)
  TxtPars$(2) = "17/11/1962"
  TxtPars$(3) = "Belfort (90)"
  TxtPars$(4) = "82 rue de la République, 91000 Evry"
  TxtPars$(5) = "Belfort"
  TxtPars$(6) = date$
  txtpars$(7) = time$
  commun()
end_sub

sub commun()
  clear 100
  TxtPars$(1) = item_index$(2)
  item_add 100,"Background,#0"                     : ' formulaire vide
  item_add 100,"Font,Arial,96,BI,0,1"              
  item_add 100,"Pen,0,0,3,0"                      
  item_add 100,"Text,1300,1050,#1"                 : ' nom, prénom
  item_add 100,"Text,1300,1250,#2"                 : ' date de naissance
  item_add 100,"Text,2550,1250,#3"                 : ' lieu de naissance
  item_add 100,"Text,1300,1420,#4"                 : ' adresse
  item_add 100,"Text,1300,5160,#5"                 : ' lieu
  item_add 100,"Text,1300,5360,#6"                 : ' date
  item_add 100,"Text,2350,5360,#7"                 : ' heure
end_sub

Image,x,y,w,h,nom