Aide à la génération de code avec fonctions KGF.dll

' KGF dll modèle de syntaxe pour éditeurs Panoramic.bas
                        
label chercher                        
                        
dim nom$, n%, i%, nom1$

width 0,800
alpha 1 : top 1,10 : left 1,10 : caption 1,"Fonction à chercher:"
edit 2 : top 2,10 : left 2,130 : width 2,300
button 3 : top 3,10 : left 3,440 : caption 3,"Chercher" : on_click 3,chercher
alpha 4 : top 4,40 : left 4,10 : caption 4,"Syntaxe:
edit 5 : top 5,40 : left 5,130 : width 5,500

dlist 6 : file_load 6,"KGF DLL fonctions exportées 06 08 2020.txt"

end


chercher:
  nom$ = trim$(text$(2))
  if nom$=""
    message "Il faut donner un nom de fonction !"
    return
  end_if
  
  n% = count(6)
  for i%=1 to n%
    nom1$ = item_read$(6,i%)
    if instr(nom1$,nom$)>0
      text 5,nom1$
      return
    end_if
  next i%
  message "La fonction "+nom$+" n'est pas trouvée."  

  return

' KGF dll modèle de syntaxe pour éditeurs Panoramic.bas
                        
LABEL chercher , memoriser                      
                        
DIM n%, i%

WIDTH 0,900 : HEIGHT 0,520
ALPHA 1 : TOP 1,10 : LEFT 1,5 : FONT_SIZE 1,10 : CAPTION 1,"Fonction à chercher:"
EDIT 2 : TOP 2,10 : LEFT 2,130 : WIDTH 2,300
BUTTON 3 : TOP 3,10 : LEFT 3,440 : CAPTION 3,"Chercher" : ON_CLICK 3,chercher
ALPHA 4 : TOP 4,40 : LEFT 4,10
LIST 5 : HIDE 5 : TOP 5,60 : LEFT 5,5 : WIDTH 5,(WIDTH_CLIENT(0)-10) : HEIGHT 5,380 : ON_CLICK 5,memoriser
DLIST 6 : FILE_LOAD 6,"KGF DLL fonctions exportées 06 08 2020.txt"
ALPHA 7 : TOP 7,450 : LEFT 7,5 : TOP 7,HEIGHT_CLIENT(0)-40 : FONT_SIZE 7,10
  

END

chercher:
  CAPTION 4,"Recherche des syntaxes correspondantes..."
  CAPTION 7,"Cliquez sur la ligne correspondante pour la mémoriser dans presse_papier de Windows"
  HIDE 5 : CLEAR 5 : i%=0 : PAUSE 100
  
  FOR n%=1 TO COUNT(6)
     IF INSTR(ITEM_READ$(6,n%),TEXT$(2))<>0 THEN ITEM_ADD 5,ITEM_READ$(6,n%) : i%=i%+1
  NEXT n%
  CAPTION 4,"Syntaxe(s) trouvée(s) : "+STR$(i%)+" / "+STR$(COUNT(6))
  SHOW 5 : SHOW 7
RETURN

memoriser:
   CLIPBOARD_STRING_COPY ITEM_READ$(5,ITEM_INDEX(5))
   CAPTION 7,"La ligne suivante est mémorisée dans le presse_papier : "+CHR$(13)+ITEM_READ$(5,ITEM_INDEX(5))
RETURN

' KGF dll modèle de syntaxe pour éditeurs Panoramic avec LIST.bas
                        
label chercher, change, choix                        
                        
dim nom$, n%, i%, nom1$

width 0,800 : height 0,700
alpha 1 : top 1,10 : left 1,10 : caption 1,"Fonction à chercher:"
edit 2 : top 2,10 : left 2,130 : width 2,300 : on_change 2,change
list 21 : top 21,40 : left 21,10 : width 21,500 : height 21,500 : on_click 21,choix
file_load 21,"KGF DLL fonctions exportées 06 08 2020.txt"
'   on_change 2,filtrer
button 3 : top 3,10 : left 3,440 : caption 3,"Chercher" : on_click 3,chercher
alpha 4 : top 4,570 : left 4,10 : caption 4,"Syntaxe:
' edit 5 : top 5,40 : left 5,130 : width 5,500
edit  5 : top 5,570 : left 5,130 : width 5,500

dlist 6 : file_load 6,"KGF DLL fonctions exportées 06 08 2020.txt"


end

change:
  nom$ = lower$(trim$(text$(2)))
  clear 21
  for i%=1 to count(6)
    nom1$ = item_read$(6,i%)
    if nom$=""
      item_add 21,nom1$
    else
      if instr(lower$(nom1$),nom$)<>0 then item_add 21,nom1$
    end_if
  next i%
  return
  
choix:
  text 5,item_read$(21,item_index(21))
  clipboard_string_copy text$(5)
  return  

chercher:
  nom$ = lower$(trim$(text$(2)))
  if nom$=""
    message "Il faut donner un nom de fonction !"
    return
  end_if
  
  n% = count(6)
  for i%=1 to n%
    nom1$ = item_read$(6,i%)
    if instr(lower$(nom1$),nom$)>0
      text 5,nom1$
      clipboard_string_copy nom1$
      return
    end_if
  next i%
  message "La fonction "+nom$+" n'est pas trouvée."  

  return

' test_LestSelector..bas

dim res%, LS%, fichier$

dll_on "KGF.dll"

height 0,800

edit 1 : top 1,480 : left 1,10 : width 1,300
' on_change 1,........  ici,, on intercepte le fait que l'utilisateur a fait son choix !

fichier$ = "KGF DLL fonctions exportées 06 08 2020.txt"
LS% = dll_call6("CreateListSelector",handle(0),30,40,300,400,adr(fichier$))
res% = dll_call2("SetListSelectorResultEdit",LS%,handle(1))
res% = dll_call2("ShowListSelector",LS%,1)

end

' test_LestSelector..bas

label choix

dim res%, LS%, fichier$

dll_on "KGF.dll"

height 0,800

edit 1 : top 1,480 : left 1,10 : width 1,300
on_change 1,choix    : '   ici,, on intercepte le fait que l'utilisateur a fait son choix !

fichier$ = "KGF DLL fonctions exportées 06 08 2020.txt"
LS% = dll_call6("CreateListSelector",handle(0),30,40,300,400,adr(fichier$))
res% = dll_call2("SetListSelectorResultEdit",LS%,handle(1))
res% = dll_call2("ShowListSelector",LS%,1)

end

choix:
  message "Syntaxe choisie: "+chr$(13)+chr$(10)+text$(1)
  return