KGF.dll - intégration des DLLs individuelles

dim i%
dll_on "test.dll"
i% = dll_call4("testparam",1,2 , 3, 4 )
end

library test;


uses
  SysUtils,
  Dialogs,
  Classes;

function testparam(p1,p2,p3,p4:integer):integer; stdcall; export;
begin
  showmessage('P1=['+inttostr(p1)+'] p2=['+inttostr(p2)+'] p3=['+inttostr(p3)+'] p4=['+inttostr(p4)+']');
end;

exports testparam;

begin
end.
 

' Menu_Aide.bas

label labels : gosub labels
gosub constantes
gosub variables
gosub donnees
gosub form0
gosub menu
gosub GUI
gosub initialisations
end

labels:
  label constantes, variables, donnees, form0, menu, GUI, initialisations
  label choix, fermer, sel, taille_debut, taille_choix
  return

constantes:
  dim dll$ : dll$ = "KGF.dll"
  dim icone$ : icone$ = "Menu_Aide.jpg"
  return
 
variables:
  dim no%, i%, n_help%, no_fichiers%, no_libelles%, s$, file$, n%, no_icone%
  dim version$, w7%
  return

donnees:
  data "KGF.hlp","KGF.dll de Klaus"
' ajouter ici les autres dlls: data fichier HLP,libellé
  data "*eof*"  : ' fin de la liste
  return

form0:
  border_small no%
  gosub taille_debut
  on_close 0,fermer
  return

menu:
  return

GUI:
  no% = no% + 1 :  dlist no% : no_fichiers% = no%
  no% = no% + 1 : combo no% : no_libelles% = no% : hide no% : width no%,200
    on_click no%,choix
  no% = no% + 1 : picture no% : no_icone% = no% : width no%,32 : height no%,32
    file_load no%,icone$ : on_click no%,sel
 
  return

initialisations:
  dll_on dll$
  version$ = string$(255," ")
  i% = dll_call1("GetWindowsVersion",adr(version$))
  w7% = instr(version$,"Windows 7")
  read s$
  while s$<>"*eof*"
    n_help% = n_help% + 1
    item_add no_fichiers%,s$
    read s$
    item_add no_libelles%,s$
    read s$
  end_while
  return
 
choix:
  n% = item_index(no_libelles%)
  file$ = item_read$(no_fichiers%,n%)
  i% = dll_call2("Help",1,adr(file$))
  i% = dll_call2("Help",2,0)
  hide no_libelles%
  gosub taille_debut
  show no_icone%
  return
 
sel:
  hide no_icone%
  gosub taille_choix
  show no_libelles%
  return
 
fermer:
  i% = dll_call2("Help",0,0)
  dll_off
  return

taille_debut:
  if w7%>0
    width 0,70 : height 0,70
  else
    width 0,42 : height 0,60
  end_if
  return
 
taille_choix:
  width 0,210 : height 0,50
  return

' Menu_Choc.bas

label labels : gosub labels
gosub constantes
gosub variables
gosub donnees
gosub form0
gosub menu
gosub GUI
gosub initialisations
end

labels:
  label constantes, variables, donnees, form0, menu, GUI, initialisations
  label choix, fermer, sel, taille_debut, taille_choix, placer, tick, deplacer
  return

constantes:
  dim dll$ : dll$ = "KGF.dll"
  dim icone$ : icone$ = "Menu_Aide.jpg"
  return
 
variables:
  dim no%, i%, n_help%, no_fichiers%, no_libelles%, s$, file$, n%, no_icone%
  dim no_cont%, no_timer%, x%, y%, delta%(50,2), version$, w7%
  return

donnees:
  data "KGF.hlp","KGF.dll de Klaus"
  data "Nardo.hlp","DLL de Nardo26"
' ajouter ici les autres dlls: data fichier HLP,libellé
  data "*eof*"  : ' fin de la liste
  return

form0:
  border_small no%
  gosub taille_debut
  on_close 0,fermer
  caption 0,"Cliquez sur un lien ou tapez ESC"
  return

menu:
  return

GUI:
  no% = no% + 1 : timer no% : no_timer% = no% : timer_off no%
    timer_interval no%,100 : on_timer no%,tick
  no% = no% + 1 :  dlist no% : no_fichiers% = no%
  no% = no% + 1 : dlist no% : no_libelles% = no%
  no% = no% + 1 : picture no% : no_icone% = no% : width no%,32 : height no%,32
    file_load no%,icone$ : on_click no%,sel
  no% = no% + 1 : container no% : no_cont% = no% : hide no% : width no%,590 : height no%,370
 
  return

initialisations:
  dll_on dll$
  version$ = string$(255," ")
  i% = dll_call1("GetWindowsVersion",adr(version$))
  w7% = instr(version$,"Windows 7")
  read s$
  while s$<>"*eof*"
    n_help% = n_help% + 1
    item_add no_fichiers%,s$
    read s$
    item_add no_libelles%,s$
    no% = no% + 1 : alpha no% : parent no%,no_cont% : caption no%,s$
      n% = no% : gosub placer : on_click no%,choix
      font_color no%,int(rnd(255)),int(rnd(255)),int(rnd(255))
    read s$
  end_while
  return
 
sel:
  hide no_icone%
  gosub taille_choix
  show no_cont%
  timer_on no_timer%
  return

choix:
  timer_off no_timer%
  n% = number_click - no_cont%
  file$ = item_read$(no_fichiers%,n%)
  i% = dll_call2("Help",1,adr(file$))
  i% = dll_call2("Help",2,0)
  hide no_cont%
  gosub taille_debut
  show no_icone%
  return

fermer:
  i% = dll_call2("Help",0,0)
  dll_off
  return

taille_debut:
  if w7%>0
    width 0,70 : height 0,70
  else
    width 0,42 : height 0,60
  end_if
  return

taille_choix:
  width 0,600 : height 0,400
  return
 
placer:
  left n%,rnd(width(no_cont%))
  top n%,rnd(height(no_cont%))
  x% = 1-int((rnd(1)+0.5))*2
  y% = 1-int((rnd(1)+0.5))*2
  delta%(no%,1) = x%*5
  delta%(no%,2) = y%*5
  return
 
deplacer:
  timer_off no_timer%
  if scancode=27
    hide no_cont%
    gosub taille_debut
    show no_icone%
    return
  end_if
'  s$ = str$(no%)+": "+str$(left(no%))+","+str$(top(n%))
'  s$ = s$ + "  "+str$(delta%(no%,1))+","+str$(delta%(no%,2))
'  caption 0,s$
'  message "Suite..."
  x% = left(n%)+delta%(n%,1)
  y% = top(n%)+delta%(n%,2)
  if x%<0
    delta%(n%,1) = 0 - delta%(n%,1)
    x% = 0
  end_if
  if y%<0
    delta%(n%,2) = 0 - delta%(n%,2)
    y% = 0
  end_if
  if x%>(width(no_cont%)-1)
    delta%(n%,1) = 0 - delta%(n%,1)
    x% = width(no_cont%) - 1
  end_if
  if y%>(height(no_cont%)-1)
    delta%(n%,2) = 0 - delta%(n%,2)
    y% = height(no_cont%) - 1
  end_if
  left n%,x%
  top n%,y%
  font_color n%,int(rnd(255)),int(rnd(255)),int(rnd(255))
  timer_on no_timer%
  return
 
tick:
  for n%=no_cont%+1 to no%
    gosub deplacer
  next n%
  return