KGF SCROLLIMAGE

Bonjour Klaus,

Bon le chat noir est encore là :

;
Lorsque l'on click sur ok la fenêtre se ferme et tout fonctionne sauf qu' en distribution...

Es-tu sûr que la bonne version de KGF.dll est présente sur ce site ?

@ Klaus,

La fenêtre n'apparait pas tout de suite mais après un petit laps de temps
je dirai 10/15 secondes.

La version est la bonne.

Il reste à placer de petits messages à des endroits stratégiques pour isoler l'endroit qui pose problème...

Bonjour à tous !

@Klaus
L’objet scrollImage plante lors du survol de l’image avec la souris.

Voici ton programme de démo issu de KGF.chm pour constater le dysfonctionnement :

Code:: ' test_ScrollImage.bas

label creer, supprimer, charger, change, reduire, augmenter

dim res%, SI%, img$, no%, no_W%, no_H%, zoom%
zoom% = 100

no% = no% + 1 : open_dialog no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.bmp;*.jpg;*.gif;*.png"

no% = no% + 1 : button no% : caption no%,"Créer" : on_click no%,creer
no% = no% + 1 : button no% : left no%,width(no%-1) : caption no%,"Supprimer" : on_click no%,supprimer
no% = no% + 1 : button no% : left no%,left(no%-1)+width(no%-1) : caption no%,"Charger" : on_click no%,charger

no% = no% + 1 : button no% : left no%,left(no%-1)+width(no%-1) : caption no%,"Zoom -" : on_click no%,reduire
no% = no% + 1 : button no% : left no%,left(no%-1)+width(no%-1) : caption no%,"Zoom +" : on_click no%,augmenter

no% = no% + 1 : scroll_bar no% : no_W% = no% : top no%,30 : left no%,50 : width no%,500
  min no%,100 : max no%,1200 : position no%,450 : on_change no%,change
no% = no% + 1 : scroll_bar no% : no_H% = no% : vertical no% : top no%,60 : left no%,10 : height no%,350
  min no%,100 : max no%,1200 : position no%,300 : on_change no%,change

dll_on "KGF.dll"

end

creer:
  if SI%=0 then SI% = dll_call2("CreateScrollImage",handle(0),0)
  if SI%<>0 then res% = dll_call5("LocateScrollImage",SI%,50,60,position(no_W%),position(no_H%))
' !!!!!!!!!! activer la ligne suivante pour avoir une image résultante de dimensions fixes:
' res% = dll_call4("FixedSizeScrollImage",SI%,1,1500,1000)
  return

supprimer:
  SI% = dll_call1("DeleteScrollImage",SI%)
  return

change:
  if SI%<>0 then res% = dll_call5("LocateScrollImage",SI%,50,60,position(no_W%),position(no_H%))
  return

charger:
  img$ = file_name$(1)
  if img$="_" then return
  if file_exists(img$)=0 then return
  res% = dll_call1("LoadAnyImageFile",adr(img$))
  res% = dll_call1("LoadScrollImage",SI%)
  return

reduire:
  if SI%=0 then return
  if zoom%>25 then zoom% = zoom% - 25
  res% = dll_call2("ZoomScrollImage",SI%,zoom%)
  return

augmenter:
  if SI%=0 then return
  if zoom%<800 then zoom% = zoom% + 25
  res% = dll_call2("ZoomScrollImage",SI%,zoom%)
  return

J’en profite pour signaler une erreur dans la doc en ce qui concerne ce programme de démo :

Il manque un paramètre à la fonction CreateScrollImage (probablement une évolution de cette fonction qui est passée de 1 à 2 paramètres au fil du temps):

Capture d’écran:

Bon débogage et encore mille mercis pour KGF !

Ok, je vais regarder cela. Merci !

J'ai corrigé un bug dans ScrollImage.
Recharge KGF.dll - il n'y a plus de plantage lors du survol.

» Objet ScrollImage
» Version d'essai des objets ScrollImage et ScrollPanel