V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar

Nouvelle version:
KGF.dll V2.63 du 02/12/2013

Nouveauté:
correction d'un bug dans la fonction AddButtonToToolbar, concernant la prise en compte correcte du paramètre after%, quelque soit l'orientation de la Toolbar

Modules modifiés;
KGF.dll

Les sources sont à jour.

Un grand merci à toi Klaus!
Maintenant, ça fonctionne correctement. Et c'est plus logique d'utiliser -1 pour after% de manière à ranger les boutons l'un après l'autre, puisque after signifie après en anglais!
Cependant, je viens de détecter un autre problème que je n'avais pas remarqué avant: quand la toolbar vient en bas du form ou à droite du form, donc side%=2 ou side%=3 elle n'est pas tout à fait collée à la bordure du form. Voici 2 images qui montre l'anomalie:

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur10

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur11

Désolé pour le dérangement.
A+ Wink

Ca doit venir de la version de Windows et de l'épaisseur de la bordure. Voici ce que ça donne chez moi, sous XP Pro SP3:

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Aa120

et

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Aa212

Tu vous que chez moi, le bord extérieur de la barre est plutôt "mangé" par le bord de la form.

As-tu un moyen de mesurer le nombre de pixels d'écart chez toi ? Sous quelle version es-tu ?

Je suis sous MS Windows 7 Home Premium 64-bit SP1 , j'utilise des icones 32x32, et je pense que l'écart à droite est de 8 ou 9 pixels et en bas de 6 ou 7 pixels. Ma résolution écran est 1600x900.

Pourrais-tu faire un test ?

Lorsque ta fenêtre a la taille définitive, fais stp ceci:

Code:: dim res%,largeur%,hauteur%,gauche%,haut%
dll_on "KGF.dll" <===== adapter le chemin
res% = DLL_call5("GetFormMetrics",handle(0),adr(gauche%),adr(haut%),adr(largeur%),adr(hauteur%))
memo 1234
item_add 1234,"gauche="+str$(gauche%)
item_add 1234,"haut="+str$(haut%)
item_add 1234,"largeur= "+str$(largeur%)
item_add 1234,"hauteur="+str$(hauteur%)
item_add 1234,"width="+str$(width(0))
item_add 1234,"height="+str$(height(0))

Puis, poste stp le contenu du mémo - ainsi je pourrai adapter en fonction du système !

voici le résultat du mémo:
gauche=0
haut=0
largeur= 800
hauteur=860
width=800
height=860

Merci. C'est ce que je redoutais: dans ma mesure, les bords sont inclus, et non exclus comme je pensais. Je vais corriger cela.

Un autre essai, si tu veux bien !

Prends sur mon WebDav le fichier KGF_debug.dll. C'est exactement KGF.dll, sauf la fonction GetFormMetrics qui va affichier 3 messages. Exécute le même morceau de code que toute à l'heure, avec cette DLL, et note les 4 messages. ils me donneront les mesures exactes intérieur/extérieur de la form et donc des bordures.

voici ce que j'obtiens avec KGF_debug.dll

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur12

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur13

euh... as-tu changé le nom en LOAD_DLL "KGF_debug.dll" ?

j'ai changé ma ligne 6:
dll_on "c:\PANORAMIC\KGF.dll"
en dll_on "c:\PANORAMIC\KGF_debug.dll"
après avoir mis le fichier KGF_debug.dll dans le répertoire C:\PANORAMIC.
Ce n'est pas comme cela qu'il faut faire?
J'avoue que je suis un peu perdu là.

Oui, c'est bien comme ça qu'il faut faire. Mais quelque fois, il faut réenregistrer le source Panoramic dans l'éditeur avant de le lancer - l'éditeur se mélange souvent les pinceaux avec le dossier source, le dossier par défaut, etc. Chez moi, ça provoque ce genre d'erreur, et c'est résolu après un nouvel enregistrement.

EDIT

On m'appelle à table, et je verrai la suite un peu plus tard...

Maintenant, j'ai droit à ce message d'erreur pour cette ligne:
res% = DLL_call5("GetFormMetrics",handle(0),adr(gauche%),adr(haut%),adr(largeur%),adr(hauteur%))
Not correct arithmetic expression: No DLL loaded line 130
Bon, moi aussi je vais aller à table, Bon appétit!

Le message est clair: pour une raison ou une autre, DLL_ON n'a pas trouvé la DLL. Comme il s'agit juste d'un test, place-la dans le dossier où est ton source, enlève la référence au dossier dans DLL_ON et lance comme ça. En tout cas, en cas de doute, c'est comme ça que je teste.

Bon, après bien des déboires, j'ai réussi à avoir les messages:
left=0 0
top=0 0
right=800 784
bottom=860 822

Plus rien ne fonctionnait pendant un moment. J'ai du relancer l'ordi et ça ne marchait pas non plus après cela, jusqu'à ce que je m' aperçoive que tout à l'heure, j'avais introduit un dll_off dans mon programme juste avant la fonction GetFormMetrics.

Bon, j'ai eu le temps de voir ça. Sans avoir un W7 sous la main, j'ai apporté les corrections que j'ai déduites de ces chiffres. Peux-tu recharger KGF.dll à partir de mon WebDav (pas KGF_demo.dll) et réessayer ? Je serais curieux de connaître le résultat.

Bonjour Klaus, Smile

Bon, j'ai enfin compris ce qui se passe et je suis désolé Embarassed

de t'avoir fait perdre ton temps. Voici ce que j'avais dans mon programme:

Code:: res% = dll_call4("ModifyToolbar",1,255,255,255) : ' blanc
res% = dll_call4("ModifyToolbar",7,32,0,0) : ' icones 32 x 32
width 0, width(0) + 200
height 0,screen_y-40
res% = dll_call4("ModifyToolbar",2,0,0,0) : ' ajuster la toolbar à la largeur du form
   ' si side%=0 (en haut) ou side%=2 (en bas)
   ' ajuster la toolbar à la hauteur du form
   ' si side%=1 (à gauche) ou side%=3 (à droite)

Mais si je déplace dll_call4("ModifyToolbar",2,0,0,0) avant dll_call4("ModifyToolbar",7,32,0,0), c'est à dire comme cela:

Code:: res% = dll_call4("ModifyToolbar",1,255,255,255) : ' blanc
width 0, width(0) + 200
height 0,screen_y-40
res% = dll_call4("ModifyToolbar",2,0,0,0) : ' ajuster la toolbar à la largeur du form
   ' si side%=0 (en haut) ou side%=2 (en bas)
   ' ajuster la toolbar à la hauteur du form
   ' si side%=1 (à gauche) ou side%=3 (à droite)
res% = dll_call4("ModifyToolbar",7,32,0,0) : ' icones 32 x 32

les toolbars avec side%=2 ou 3, se collent bien le long de la bordure du form. Oui, mais un peu trop maintenant que tu as modifié à nouveau ta dll, et je suis vraiment confus Embarassed

car j'avais bien lu dans ta doc que "ModifyToolbar",7,..." doit être effectué juste avant la création des boutons.
Voici les images de ce qui se passe maintenant:

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur14

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur15

Là sur ces images on voit que les icones rentrent presque sous la bordure du form. Normal puisque tu as modifié KGF en fonction des résultats obtenus par KGF_debug.
Mille pardons de t'avoir fait perdre ton temps Klaus! Embarassed

A+

Oh, tu ne m'as pas fait perdre mon temps ! tu m'as incité à créer un mécanisme à l'intérieur de la DLL pour conditionner mon code en fonction du système d'exploitation, et c'est utile pour moi aussi.

J'ai donc "corrigé" la DLL à nouveau. Si tu pouvais recharger KGF.dll à partir de mon WebDav et réessayer... Je pense que ça devrait aller.

Personnellement, je teste avec cette version modifiée de ton programme (utilisant les icônes internes):

Code:: ' bignono_1.bas

label click_toolbar

dim res%, icon$, after%, hint$

dll_on "KGF.dll"

edit 1 : hide 1

on_change 1,click_toolbar

' ==============================================================
' res% = dll_call2("CreateToolbar",handle(cible%),handle(edit%),side%)
' ==============================================================
res% = dll_call3("CreateToolbar",handle(0),handle(1),3)

' ==============================================================
' res% = dll_call4("ModifyToolbar",action%,p1%,p2%,p3%)
' ==============================================================
res% = dll_call4("ModifyToolbar",1,255,255,255) : ' blanc
res% = dll_call4("ModifyToolbar",7,32,0,0) : ' icones 32 x 32
width 0, width(0) + 200
height 0,screen_y-40
res% = dll_call4("ModifyToolbar",2,0,0,0) : ' ajuster la toolbar à la largeur du form
' si side%=0 (en haut) ou side%=2 (en bas)
' ajuster la toolbar à la hauteur du form
' si side%=1 (à gauche) ou side%=3 (à droite)

' ==============================================================
' res% = dll_call4("AddButtonToToolbar",id%,after%,adr(hint$),adr(icon$))
' ==============================================================
hint$ = "afficher la photo"
icon$ = "KGF_1"
res% = dll_call4("AddButtonToToolbar",1,0,adr(hint$),adr(icon$))
hint$ = "prendre une photo"
icon$ = "KGF_2"
after% = 0-1
res% = dll_call4("AddButtonToToolbar",2,after%,adr(hint$),adr(icon$))
hint$ = "aller à gauche"
icon$ = "KGF_3"
res% = dll_call4("AddButtonToToolbar",3,after%,adr(hint$),adr(icon$))
hint$ = "avancer"
icon$ = "KGF_4"
res% = dll_call4("AddButtonToToolbar",4,after%,adr(hint$),adr(icon$))
hint$ = "aller à droite"
icon$ = "KGF_5"
res% = dll_call4("AddButtonToToolbar",5,after%,adr(hint$),adr(icon$))
hint$ = "reculer"
icon$ = "KGF_6"
res% = dll_call4("AddButtonToToolbar",6,after%,adr(hint$),adr(icon$))
hint$ = "filmer"
icon$ = "KGF_7"
res% = dll_call4("AddButtonToToolbar",7,after%,adr(hint$),adr(icon$))
hint$ = "grossir"
icon$ = "KGF_8"
res% = dll_call4("AddButtonToToolbar",8,after%,adr(hint$),adr(icon$))
hint$ = "réduire"
icon$ = "KGF_9"
res% = dll_call4("AddButtonToToolbar",9,after%,adr(hint$),adr(icon$))
hint$ = "police"
icon$ = "KGF_10"
res% = dll_call4("AddButtonToToolbar",10,after%,adr(hint$),adr(icon$))
hint$ = "style"
icon$ = "KGF_11"
res% = dll_call4("AddButtonToToolbar",11,after%,adr(hint$),adr(icon$))
hint$ = "aligner à gauche"
icon$ = "KGF_12"
res% = dll_call4("AddButtonToToolbar",12,after%,adr(hint$),adr(icon$))
hint$ = "centrer"
icon$ = "KGF_13"
res% = dll_call4("AddButtonToToolbar",13,after%,adr(hint$),adr(icon$))
hint$ = "aligner à droite"
icon$ = "KGF_14"
res% = dll_call4("AddButtonToToolbar",14,after%,adr(hint$),adr(icon$))
hint$ = "Majuscules/Minuscules"
icon$ = "KGF_15"
res% = dll_call4("AddButtonToToolbar",15,after%,adr(hint$),adr(icon$))
hint$ = "interdire"
icon$ = "KGF_16"
res% = dll_call4("AddButtonToToolbar",16,after%,adr(hint$),adr(icon$))
hint$ = "autoriser"
icon$ = "KGF_17"
res% = dll_call4("AddButtonToToolbar",17,after%,adr(hint$),adr(icon$))
hint$ = "ajouter"
icon$ = "KGF_300"
after% = 3
res% = dll_call4("AddButtonToToolbar",18,after%,adr(hint$),adr(icon$))
END

click_toolbar:
message "Bouton cliqué: "+text$(1)
return

Ceci me permet de choisir:
- en ligne 16, la position de la Toolbar
- en ligne 22, la taille des icônes, en plaçant cette ligne en commentaire pour les 16x16

Il faut bien sûr adapter le chemin vers KGF.dll en ligne 7.

Bon, maintenant ça fonctionne, mais si seulement je déplace dll_call4("ModifyToolbar",7,32,0,0) après dll_call4("ModifyToolbar",2,0,0,0). Or dans ton exemple que tu viens de poster avec tes icones en 16x16 qui s'agrandissent en 32x32, ça fonctionne normalement et pourtant dll_call4("ModifyToolbar",7,32,0,0) est avant dll_call4("ModifyToolbar",2,0,0,0) scratch

J'ai mis sur mon webdav un dossier toolbar.zip avec les icones 32x32 que j'utilise et le programme essai_toolbar.bas.
Comme j'essaye de comprendre comment fonctionne ces fonctions, j'ai découvert un autre problème avec les séparateurs et les diviseurs!
J'ai introduit cette portion de code:

Code:: ' ... code ...
hint$ = "afficher la photo"
icon$ = repico$+"photo.ico"
res% = dll_call4("AddButtonToToolbar",1,(-1),adr(hint$),adr(icon$))
hint$ = "prendre une photo"
icon$ = repico$+"camera.ico"
res% = dll_call4("AddButtonToToolbar",2,(-1),adr(hint$),adr(icon$))

' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
' LE n° id% n'a aucune incidence, mais sur les toolbar verticales, si on utilise §§
' un diviseur "icon$="" (chaîne vide)" il n'apparait pas et si on utilise §§
' un séparateur "icon$ = " " (1 espace)" des icones disparaissent et les autres §§
' sont mélangés! et pire sur le coté droit, side%=3 elles sont à moitié visible §§
hint$ = "" :' §§
icon$ = " " :' §§
res% = dll_call4("AddButtonToToolbar",3,(-1),adr(hint$),adr(icon$)) :' §§
hint$ = "aller à gauche" :' §§
' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§

icon$ = repico$+"back_alt.ico"
res% = dll_call4("AddButtonToToolbar",3,(-1),adr(hint$),adr(icon$))
hint$ = "avancer"
' etc ...

voici ce que ça donne à l'affichage:

V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar Captur16

Seulement la moitié de mes boutons, mélangés et à moitié visibles!
J'espère ne pas te faire perdre ton temps cette fois ci! Smile

A+

J'ai pris le zip et je regarde ce qui se passe.

En position verticale (side%=1 ou 3), il est normal que le diviseurne s'affiche pas. En effet, le diviseur est toujours une petite barre verticale, ce qui n'a aucun sens pour une Toolbar verticale. Je l'ignore donc simplement. Je vais ajouter cette info dans la doc.

Le coup des séparateurs est cocasse. Je vais creuser cela.

Klaus, tu pourrais faire une petite barre horizontale dans ce cas là comme séparateur plutôt que de l'ignorer, non ?

J'ai corrigé le problème des séparateurs. Tu peux réessayer en rechargeant KGF.dll à partir de mon WebDav ? Je voudrais savoir si le problème technique est résolu pour toi, avant de publier une nouvelle version... Merci !

@Jicehel:
le problème des diviseurs est lié à celui des séparateurs. Cela vient du fait que toutes les icônes ont la même hauteur sauf pour le séparateur et c'est ce qui a causé le problème de Bignono. Si j'introduis une image de ligne horizontale, j'aurai le même problème. Je vais voir ce que je peux faire.

Super Klaus! cheers

Le problème est résolu. Ça fonctionne!
Si je trouve d'autres problèmes je n'hésiterais pas à t'en faire part, quoique là je ne vais guère avoir de temps libre pour tester la suite de tes fonctions, j'ai du monde à la maison et il faut gérer.
Merci encore
A+ Wink

Merci beaucoup, Bignono ! J'apprécie ton aide - c'est précieux pour la mise au point en conditions réelles, en sortant du "labo" !

Je vais faire une nouvelle version contenant tout ça, avec la doc correspondante.

Sujet: Re: V2.63 du 02/12/2013 - correction bug dans AddButtonToToolbar

» V2.64 du 03/12/2013: correction bug dans AddButtonToToolbar
» 2.22 du 27 avril 2013: correction dans SearchStringList
» 2.13 du 8 Avril 2013: correction bug dans ClickSetLinkRect
» 2.23 du 28 avril 2013: correction bug dans SearchStringList
» 2.45 du 17/9/2013: correction bug dans ExecuteProgram