V2.59 du 27/11/2013 - icones 16x16 et 32x32 pour Toolbar

Nouvelle version:
KGF.dll V2.59 du 27/11/2013

Nouveautés:
- possibilité d'utiliser des icônes 16x16 et 32x32 pixels
- code action 7 pour ModifyToolbar pour changer la taille des icônes
- code action 9 pour GetToolbarInfo pour récupérer la taille actuelle des icônes

Modules modifiés:
KGF.dll
KGF.chm
KGF.doc
KGF.pdf

La doc et les sources sont à jour.

On a maintenant des icônes de 16x16 pixels par défaut. La bibliothèque interne (KGF_x comme nom de fichier icône) est exclusivement et 16x16 pixels, pour des raisons d'encombrement.

Après la création de la Toolbar, et avant la création du premier bouton, on peut maintenant utiliser ModifyToolbar(7,32,0,0) pour passer à une taille de 32x32 pixels par icône. Toutes les icônes de la Toolbar seront affichées avec la même taille.

Même en taille 32x32 pixels, les icônes de la bibliothèque interne peuvent être utilisées. Elles seront agrandies pour s'ajuster à la taille 32x32 pixels. On perd donc en netteté, mais c'est possible. Cependant, il vaut mieux créer une bibliothèque personnelle via l'outil IcoLibrary.exe, avec des icônes qui sont toutes en 32 bits.

Encore un mot: la documentation de Delphi indique, pour un objet TToolbar, que les images des boutons (les icônes) doivent toutes être de 16x16 pixels. J'ai contourné cette limitation; et ça marche sur mon XP Pro SP3. J'espère que ça marchera aussi sur d'autres systèmes. J'attends vos retours d'expérience...

Sujet: re Mer 27 Nov 2013 - 14:46

Tout comme à Jack, je t' envoie mes félicitations pour ces avancées qui vont
rendre nos programmes plus présentables. Et tout comme pour le compilateur, je peste de
ne pas être sur mon ordi perso pour tester tout cà... Laughing

Ps : J' ai signalé sur le site dans la vie du forum l' avancée de KGF et la naissance du compilateur.
J' ai même mise la naissance du compilateur sur la page d' acceuil.

Bonsoir Klaus Smile

Je suis en train d'étudier avec grand intérêt tes fonctions de toolbar. Seulement voilà, j'aurais aimé pouvoir la placer en bas du form ou encore avoir la possibilité de la mettre verticalement à droite ou à gauche du form, mais là ça me parait plus complexe à faire.
D'autre part, quand elle est en haut du form, il faut tenir compte de sa hauteur avant d'afficher d'autres objets ou faire des print.
voir mon code exemple où j'utilise des icones en 32x32

Code:: label click_toolbar

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

dll_on "c:\PANORAMIC\KGF.dll"

edit 1 : hide 1
top 1,height(0)-48: ' Inefficace, la toolbar reste en haut et ne se place pas en bas!
on_change 1,click_toolbar

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

' ==============================================================
' 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
res% = dll_call4("ModifyToolbar",2,0,0,0) : ' ajuster la toolbar à la largeur du form

' ==============================================================
' res% = dll_call4("AddButtonToToolbar",id%,after%,adr(hint$),adr(icon$))
' ==============================================================
hint$ = "afficher la photo"
icon$ = "C:\PANORAMIC\icones\photo.ico"
res% = dll_call4("AddButtonToToolbar",1,0,adr(hint$),adr(icon$))
hint$ = "prendre une photo"
icon$ = "C:\PANORAMIC\icones\camera.ico"
res% = dll_call4("AddButtonToToolbar",2,0,adr(hint$),adr(icon$))
hint$ = "aller à gauche"
icon$ = "C:\PANORAMIC\icones\back_alt.ico"
res% = dll_call4("AddButtonToToolbar",3,0,adr(hint$),adr(icon$))
hint$ = "avancer"
icon$ = "C:\PANORAMIC\icones\up_alt.ico"
res% = dll_call4("AddButtonToToolbar",4,0,adr(hint$),adr(icon$))
hint$ = "aller à droite"
icon$ = "C:\PANORAMIC\icones\forward_alt.ico"
res% = dll_call4("AddButtonToToolbar",5,0,adr(hint$),adr(icon$))
hint$ = "reculer"
icon$ = "C:\PANORAMIC\icones\down_alt.ico"
res% = dll_call4("AddButtonToToolbar",6,0,adr(hint$),adr(icon$))
hint$ = "filmer"
icon$ = "C:\PANORAMIC\icones\film.ico"
res% = dll_call4("AddButtonToToolbar",7,0,adr(hint$),adr(icon$))
hint$ = "grossir"
icon$ = "C:\PANORAMIC\icones\magnifier_zoom_in.ico"
res% = dll_call4("AddButtonToToolbar",8,0,adr(hint$),adr(icon$))
hint$ = "réduire"
icon$ = "C:\PANORAMIC\icones\magnifier_zoom_out.ico"
res% = dll_call4("AddButtonToToolbar",9,0,adr(hint$),adr(icon$))
hint$ = "police"
icon$ = "C:\PANORAMIC\icones\font.ico"
res% = dll_call4("AddButtonToToolbar",10,0,adr(hint$),adr(icon$))
hint$ = "style"
icon$ = "C:\PANORAMIC\icones\style.ico"
res% = dll_call4("AddButtonToToolbar",11,0,adr(hint$),adr(icon$))
hint$ = "aligner à gauche"
icon$ = "C:\PANORAMIC\icones\text_align_left.ico"
res% = dll_call4("AddButtonToToolbar",12,0,adr(hint$),adr(icon$))
hint$ = "centrer"
icon$ = "C:\PANORAMIC\icones\text_align_center.ico"
res% = dll_call4("AddButtonToToolbar",13,0,adr(hint$),adr(icon$))
hint$ = "aligner à droite"
icon$ = "C:\PANORAMIC\icones\text_align_right.ico"
res% = dll_call4("AddButtonToToolbar",14,0,adr(hint$),adr(icon$))
hint$ = "Majuscules/Minuscules"
icon$ = "C:\PANORAMIC\icones\text_allcaps.ico"
res% = dll_call4("AddButtonToToolbar",15,0,adr(hint$),adr(icon$))
hint$ = "interdire"
icon$ = "C:\PANORAMIC\icones\stop3.ico"
res% = dll_call4("AddButtonToToolbar",16,0,adr(hint$),adr(icon$))
hint$ = "autoriser"
icon$ = "C:\PANORAMIC\icones\accept.ico"
res% = dll_call4("AddButtonToToolbar",17,0,adr(hint$),adr(icon$))
hint$ = "ajouter"
icon$ = "C:\PANORAMIC\icones\add.ico"
res% = dll_call4("AddButtonToToolbar",18,0,adr(hint$),adr(icon$))
' ICI IL FAUT TENIR COMPTE DE LA HAUTEUR DE LA TOOLBAR CAR LES PRINT OU UN ALPHA OU UN
' PICTURE SONT CACHÉS SOUS LA TOOLBAR CE QUI EST NORMAL!
print width(0): ' INVISIBLE CACHÉ par la toolbar
print width(0): ' INVISIBLE CACHÉ par la toolbar
print width(0): ' INVISIBLE CACHÉ par la toolbar
print width(0): ' Seulement celui-là est visible!
alpha 2:left 2,100:top 2,0:caption 2,"COUCOU": ' INVISIBLE CACHÉ par la toolbar
alpha 3:left 3,100:top 3,40:caption 3,"COUCOU": ' VISIBLE à partir de 40!
END

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

Serait-t-il possible de rajouter un paramètre dans res% = dll_call4("ModifyToolbar",action%,p1%,p2%,p3%) afin de pouvoir placer la toolbar où l'on veut dans le form? Genre top_toolbar...
A+ Wink

Un autre problème: Si je veux créer une seconde toolbar avec un edit dont le numéro est différent elle ne semble pas être prise en compte, et les icones s'ajoutent toujours à la première.
A+

@Bignono:
1. Je ne suis effectivement pas encore au bout du développement de fonctionnalités pour la Toolbar. La possibilité de la placer ailleurs qu'en haut de la fenêtre en fait partie, et ce sera fait prochainement.
2. A ce jour, on peut placer dans la Toolbar, des boutons, des séparateurs et des diviseurs, tel que la doc l'indique. Je vais étudier la possibilité d'y placer des edit et des combo.
3. Au stade actuel, on en peut effectivement que créer une seule Toolbar. C'est pourquoi je parle partour de la Toolbar. Je passerai plus tard à une version multi-toolbar...

OK Klaus,

bien compris que tu n'en es qu'aux premiers stades de développement de la toolbar. Merci de ta réponse et bon courage pour la suite.
A+ Wink

Sujet: Re: V2.59 du 27/11/2013 - icones 16x16 et 32x32 pour Toolbar

» V2.56 du 25/11/2013: 135 icônes intégrées pour Toolbar !
» Utilitaire : génère grille (bmp) 8x8 , 16x16 , 32x32 , 64x64
» V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar
» V2.55 du 23/11/2013: nouvelle fonctions Toolbar
» V2.65 du 04/12/2013 - Toolbar pos. auto si chg taille form