Version d'essai d'un objet IconComboBox

' test_IconComboBox.bas


label creer, supprimer, UserEvent

dim res%, ICB%, IL%, no%, s$, WParam%, LParam%, index%, UserICB%
dim ilb$ : ilb$ = "KGF.ilb"


dll_on "KGF.dll"

on_user_event UserEvent


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

IL% = dll_call2("CreateImageList",16,16)
res% = dll_call2("LoadImageList",IL%,adr(ilb$))
end

UserEvent:
  if bin_and(user_event_wparam,hex("FF000000"))<>hex("09000000") then return
  if bin_and(user_event_wparam,hex("00FF0000"))<>hex("00010000") then return
  index% =  bin_and(user_event_wparam,hex("0000FFFF"))
  UserICB% = user_event_lparam  : ' ici, on a l'identifiant de l'objet ayant généré l'évènement !
  s$ = string$(50," ")
  res% = dll_call3("GetItemOfIconComboBox",ICB%,index%,adr(s$))
  s$ = trim$(s$)
  message "clic dans ligne "+str$(index%)+" = "+s$
  return

creer:
  if ICB%<>0 then return
  ICB% = dll_call2("CreateIconComboBox",handle(0),IL%)
  res% = dll_call5("LocateIconComboBox",ICB%,20,50,200,0)
  
  s$ = "Déjeuner"
  res% = 17
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),1,2,3,0)
  s$ = "Hors-d'oeuvres"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),4,5,6,1)
  s$ = "Pâté de campagne"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),7,8,9,2)
  s$ = "Radis/Beurre"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),10,11,12,2)
  s$ = "Plats"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),13,14,15,1)
  s$ = "Steak/frites"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),16,17,18,2)
  s$ = "Dîner"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),19,20,21,0)

  return

supprimer:
  ICB% = dll_call1("DeleteIconComboBox",ICB%)
  return

ÎCB% = dll_call2("CreateIconComboBox",handle(dest%,IL%) : ' IL% : identifiant d'une image list avec les icônes
res% = dll-call5("LocateIconComboBox",ICB%, x%,y%,w%,h%)
ICB% = dll-call1("DeleteIconComboBox",ICB%)
res% = dll_call6("AddItemToIconComboBox",ICB%,adr(txt$),ico1%,ico2%,ico3%, indent%) : ' icox%: index des icônes dans IL%  indent%: indentation  res%=index de la ligne ajoutée
res% = dll_call3("GetItemOfIconComboBox",ICB%, index%, adr(txt$))  : ' txt$: reçoit le libellé de la ligne cliquée
res% = dll_call2("SelectItemOfIconComboBox",ICB%,index%)

res% = dll_call2("CreateImageList",w%,h%)

res% = dll_call1("LoadAnyImageFile",adr(nom$))

res% = dll_call2("ResizePicture",w%,h%)

res% = dll_call4("AddImageToImageList",IL%,0,trans%,RGB%)

res% = dll_call2("SaveImageList",IL%,adr(fic$))

res% = dll_call2("LoadImageList",IL%,adr(fic$))

DIM res% , nom$ , ILB% , fic$

DLL_ON "KGF.dll"

ILB% = dll_call2("CreateImageList",15,15)

PICTURE 1 : LEFT 1,5 : TOP 1,5 : WIDTH 1,15 : HEIGHT 1,15
OPEN_DIALOG 2 : Filter 2,"Images|*.bmp;*.jpg;*.gif;*.png"

nom$=FILE_NAME$(2) : FILE_LOAD 1,nom$

res% = dll_call1("LoadAnyImageFile",adr(nom$))
res% = dll_call4("AddImageToImageList",ILB%,ADR(nom$),0,0)

fic$="D:\BASIC\GPP - 2.02\biblio.ilb"
res% = dll_call2("SaveImageList",ILB%,adr(fic$))

END

' ManageImageList.bas

label creer, charger, sauver, fermer, chargerimage
dim IL%, res%, no%, no_largeur%, no_hauteur%, no_open%, no_save%
dim w%, h%, f$

no% = no% + 1 : open_dialog no% : no_open% = no%
no% = no% + 1 : save_dialog no% : no_save% = no%

no% = no% + 1 : alpha no% : caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_largeur% = no% : width no%,50
  left no%,50 : min no%,16 : max no%,800 : position no%,16
  
no% = no% + 1 : alpha no% : caption no%,"Hauteur:" : left no%,150
no% = no% + 1 : spin no% : no_hauteur% = no% : width no%,50
  left no%,200 : min no%,16 : max no%,600 : position no%,16
  
no% = no% + 1 : button no% : top no%,40 : caption no%,"Créer" : on_click no%,creer
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Charger" : on_click no%,charger
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Sauver" : on_click no%,sauver
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Fermer" : on_click no%,fermer

no% = no% + 1 : button no% : top no%,70 : caption no%,"Image" : on_click no%,chargerimage

dll_on "KGF.dll"


end


creer:
  if IL%<>0 then return
  inactive no_largeur% : inactive no_hauteur%
  w% = position(no_largeur%)
  h% = position(no_hauteur%)
  IL% = dll_call2("CreateImageList",w%,h%)
  return
  
charger:
  if IL%=0 then return
  filter no_open%,"Librairies (ILB)|*.ilb"
  f$ = file_name$(no_open%)
  if f$="_" then return
  if file_exists(f$)=0
    message "Non trouvé"
    return
  end_if
  res% = dll_call2("LoadImageList",IL%,adr(f$))
  message str$(res%)+" images chargées"
  return
  
sauver:
  if IL%=0 then return
  filter no_save%,"Librairies (ILB)|*.ilb"
  f$ = file_name$(no_save%)
  if f$="_" then return
  if file_exists(f$)=1
    if message_confirmation_yes_no("Existe déjà. Remplacer ?")<>1 then return
  end_if
  res% = dll_call2("SaveImageList",IL%,adr(f$))
  return
  
fermer:
  if IL%=0 then return
  res% = dll_call1("DeleteImageList",IL%)
  IL% = 0
  active no_largeur%
  active no_hauteur%
  return
  
chargerimage:
  filter no_open%,"Images|*.bmp;*.jpg;*.gif;*.png"
  f$ = file_name$(no_open%)
  if f$="_" then return
  if file_exists(f$)=0
    message "Non trouvé"
    return
  end_if
  res% = dll_call1("LoadAnyImageFile",adr(f$))
  res% = dll_call2("ResizePicture",w%,h%)
  ' ======= ici, pas de couleur de transparence !
  res% = dll_call4("AddImageToImageList",IL%,0,0,0)
  return  
  

' test_IconComboBox.bas


label creer, supprimer, UserEvent

dim res%, ICB%, IL%, no%, s$, WParam%, LParam%, index%, UserICB%
dim no_DoIcons%, no_DoIndent%, options%, transp%
' dim ilb$ : ilb$ = "KGF.ilb"
dim ilb$ : ilb$ = "MonTest_32x32.ilb"


dll_on "KGF.dll"

on_user_event UserEvent

no% = no% + 1 : check no% : top no%,10 : no_DoIcons% = no% : caption no%,"Afficher icônes"
no% = no% + 1 : check no% : top no%,10 : left no%,130 : no_DoIndent% = no% : caption no%,"Indentation"

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

' IL% = dll_call2("CreateImageList",16,16)
IL% = dll_call2("CreateImageList",32,32)
res% = dll_call2("LoadImageList",IL%,adr(ilb$))
end

UserEvent:
  if bin_and(user_event_wparam,hex("FF000000"))<>hex("09000000") then return
  if bin_and(user_event_wparam,hex("00FF0000"))<>hex("00010000") then return
  index% =  bin_and(user_event_wparam,hex("0000FFFF"))
  UserICB% = user_event_lparam  : ' ici, on a l'identifiant de l'objet ayant généré l'évènement !
  s$ = string$(50," ")
  res% = dll_call3("GetItemOfIconComboBox",ICB%,index%,adr(s$))
  s$ = trim$(s$)
  message "clic dans ligne "+str$(index%)+" = "+s$
  return

creer:
  if ICB%<>0 then return
  options% = 0
  if checked(no_DoIcons%)=1 then options% = options% + 1
  if checked(no_DoIndent%)=1 then options% = options% + 2
  ICB% = dll_call3("CreateIconComboBox",handle(0),IL%,options%)
  res% = dll_call5("LocateIconComboBox",ICB%,20,80,200,0)
  
  res% = 17
  
 if 1=2
  transp% = hex("FFFFFF")
  s$ = "Déjeuner"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),1,1,0,0)
  s$ = "Hors-d'oeuvres"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),4,1,0,1)
  s$ = "Pâté de campagne"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),7,1,0,2)
  s$ = "Radis/Beurre"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),10,1,0,2)
  s$ = "Plats"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),13,1,0,1)
  s$ = "Steak/frites"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),16,1,0,2)
  s$ = "Dîner"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),19,1,0,0)
 else
  s$ = "Déjeuner"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),2,1,0,0)
  s$ = "Hors-d'oeuvres"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),1,0,0,1)
  s$ = "Pâté de campagne"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),0,1,0,2)  : ' pas d'icône !
  s$ = "Radis/Beurre"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),1,0,0,2)
  s$ = "Plats"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),2,1,0,1)
  s$ = "Steak/frites"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),1,0,0,2)
  s$ = "Dîner"
  res% = dll_call6("AddItemToIconComboBox",ICB%,adr(s$),2,1,0,0)
 end_if

  return

supprimer:
  ICB% = dll_call1("DeleteIconComboBox",ICB%)
  return

res% = dll_call1("GetIconComboBoxHandle",ICB%)