[Résolu] Un bug avec la dernière version de KGF

Bonjour Klaus !

Je travaille actuellement sur un ancien programme.
Et je viens a l'instant de mettre à jour la DLL et maintenant j'ai l'erreur suivante :

29 Expression arithmétique incorrecte : Erreur dans une fonction a la ligne 426

Et la ligne 426 correspondante est la suivante :

res%=dll_call2("SetMultiSelectionLimit",LB_ssp%,9)

y aurait il une modification a apporter suite au changement pour le compilateur ?!
Merci d'avance Wink

Edit : Je précise que j'ai remis l'ancienne version en attendant et tout est rentré dans l'ordre ! Wink

Non, rien de changée. Il faut seulement que la variable LB_ssp% soit la valeur retournée par CreateIconListBox.

Bonjour Klaus

Permet moi d'insister...

Je viens de recharger la nouvelle version et j'ai toujours le problème et le même message !

Je confirme qu'il y a donc bien une modification dans KGF puisque la précédente version,
qui est en faite la version 0.8.70 du 02.01.2018 fonctionne correctement.

Pourrais tu regarder s'il te plais ?
Merci d'avance. Wink

Tu peux tester avec le code GPP2 qui est sur mon webdav https://www.cloudme.com/fr.
C'est une version du 24.04.2018 qui fonctionne parfaitement. Pour KGF c'est dans le dossier dll.

Mais oui, c'est bien sûr... La fonction a changé de nom ! Elle s'appelle maintenant SetMultiSelectionLimitOfIconListBox ! D'ailleurs, c'est comme ça dans la doc...

EDIT

Voici le programme de démo:

Code:: ' test_IconComboBox.bas

label creer, supprimer, UserEvent, creerL, supprimerL, selectionL, changeL3, selectL3

dim res%, ICB%, IL%, ILB%, no%, s$, WParam%, LParam%, index%, UserICB%, UserILB%
dim no_DoIcons%, no_DoIndent%, options%, no_memo%, no_Multi%, no_Limite%
dim cFond% : cFond% = hex("FFFFFF") : ' blanc
dim cFont% : cFont% = hex("000000") : ' noir
dim cSelect% : cSelect% = hex("FF0000") : ' bleu

' dim ilb$ : ilb$ = "KGF.ilb"
dim ilb$ : ilb$ = "MonTest_32x32.ilb"

dll_on "KGF.dll"
width 0,700

on_user_event UserEvent

no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%

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 : check no% : top no%,10 : left no%,260 : no_Multi% = no% : width no%,120 : caption no%,"Sélection multiple"
no% = no% + 1 : alpha no% : top no%,10 : left no%,390 : caption no%,"Limite de sélection:"
no% = no% + 1 : spin no% : top no%,10 : left no%,490 : no_Limite% = no% : width no%,60 : min no%,0

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

no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1)+100 : caption no%,"Créer" : on_click no%,creerL
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Supprimer" : on_click no%,supprimerL
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Sélection" : on_click no%,selectionL
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Change ligne 3" : on_click no%,changeL3
no% = no% + 1 : button no% : top no%,40 : left no%,left(no%-1)+width(no%-1) : caption no%,"Clic ligne 3" : on_click no%,selectL3

' 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") : ' IconComboBox
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 IconComboBox ligne "+str$(index%)+" = "+s$
return
end_if
if bin_and(user_event_wparam,hex("FF000000"))=hex("0A000000") : ' IconListBox
if bin_and(user_event_wparam,hex("00FF0000"))<>hex("00010000") then return
index% = bin_and(user_event_wparam,hex("0000FFFF"))
UserILB% = user_event_lparam : ' ici, on a l'identifiant de l'objet ayant généré l'évènement !
s$ = string$(50," ")
res% = dll_call3("GetItemOfIconListBox",ILB%,index%,adr(s$))
s$ = trim$(s$)
message "clic dans IconListBox ligne "+str$(index%)+" = "+s$
return
end_if
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)

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

res% = dll_call4("SetColorsForIconComboBox",ICB%,cFond%,cFont%,cSelect%)

return

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

creerL:
if ILB%<>0 then return
options% = 0
if checked(no_DoIcons%)=1 then options% = options% + 1
if checked(no_DoIndent%)=1 then options% = options% + 2
ILB% = dll_call3("CreateIconListBox",handle(0),IL%,options%)
res% = dll_call5("LocateIconListBox",ILB%,240,80,200,300)
res% = dll_call2("SetMultiSelectionLimitOfIconListBox",ILB%,position(no_Limite%))

if 1=2
transp% = hex("FFFFFF")
s$ = "Déjeuner"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),1,1,0,0)
s$ = "Hors-d'oeuvres"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),4,1,0,1)
s$ = "Pâté de campagne"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),7,1,0,2)
s$ = "Radis/Beurre"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),10,1,0,2)
s$ = "Plats"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),13,1,0,1)
s$ = "Steak/frites"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),16,1,0,2)
s$ = "Dîner"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),19,1,0,0)
else
s$ = "Déjeuner"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),2,1,0,0)
s$ = "Hors-d'oeuvres"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),1,0,0,1)
s$ = "Pâté de campagne"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),0,1,0,2) : ' pas d'icône !
s$ = "Radis/Beurre"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),1,0,0,2)
s$ = "Plats"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),2,1,0,1)
s$ = "Steak/frites"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),1,0,0,2)
s$ = "Dîner"
res% = dll_call6("AddItemToIconListBox",ILB%,adr(s$),2,1,0,0)
end_if

res% = dll_call4("SetColorsForIconListBox",ILB%,cFond%,cFont%,cSelect%)
res% = dll_call2("OptionsForIconListBox",ILB%,checked(no_Multi%))

return

supprimerL:
ILB% = dll_call1("DeleteIconListBox",ILB%)
return

selectionL:
res% = dll_call2("GetAllSelectedItemsFromIconListBox",ILB%,handle(no_memo%))
message text$(no_memo%)
return

changeL3:
res% = dll_call6("ChangeElementIconInIconListBox",ILB%,3,1,0,0,2)
s$ = "Oeuf dur - mayonnaise"
res% = dll_call3("ChangeElementTextInIconListBox",ILB%,3,adr(s$))
return

SelectL3:
res% = dll_call2("SelectItemOfIconListBox",ILB%,3)
return

Bonjour Klaus !

Merci pour cette info. C'est vrai que je n'ai pas pris le temps de regarder dans la doc. Mad

J’étais plus dans l'idée d'une modif faite récemment avec le compilateur.

Je viens de tester et ça refonctionne correctement avec la dernière version de KGF.
Encore merci Klaus ! Wink

» [RESOLU] Problème dernière version PANORAMIC 0.9.28i16
» Je cherche Panoramic_Editor version V.0.9.29i9 Résolu
» pb avec les *.bmp [Resolu]
» Version instantanée V 0.9.28i18 du 27/04/2018
» Problème avec Open_Dialog (résolu)