FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Pourquoi le compilateur stagne
par Jean Claude Aujourd'hui à 9:54

» Immortaliser les photos de famille
par jjn4 Hier à 18:29

» Concours de Morpions
par jjn4 Hier à 18:11

» Compilateur FBPano
par jean_debord Hier à 10:12

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Lun 25 Nov 2013 - 17:32

Nouvelle version:
KGF/dll V2.57 du 25/111/2013

Nouveautés:
- possibilité d'utiliser une bibliothèque d'icônes personnelle pour AddButtonToToolbar
- correction du bug dans RemoveToolbar


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


La doc et les sources sont à jour.

Présentation des deux nouveautés:

On peut maintenant créer une ou plusieurs bibliothèques d'icônes personnelles. Une telle bibliothèque porte l'extension *.ILB (Icon Library), et elle doit être fabriquée par l'utilitaire IcoLibrary.exe (sur mon WebDav, dossier DLLs\IcoLibrary. On doit informer KGF.dll du nom de fichier de la bibliothèque à utiliser. Cela se fait par ModifyToolbar, code action 5. Ensuite, dans AddButtonToToolbar, on peut utiliser "USER_x" comme nom dde fichier icône, où x représente le numéro de l'icône dans la bibliothèque.

Ensuite, le bug gênant dans RemoveLibrary a été corrigé. On peut maintenant créer une Toolbar, lui ajouter des boutons, puis l'effacer et remettre des boutons, et la supprimer complètement pour en créer une autre, etc. Il n'y a plus de problème avec ça.

Et voici une petite démo de ces possibilités (il faut adapter le nom et chemin de fichier vers la bibliothèque personnelle, en ligne 70):

Code:
' test_Toolbar.bas

label click_toolbar, enlever, close0, creer, effacer, recreer

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

on_close 0,close0

KGF_initialize("KGF.dll")


button 1 : top 1,70 : left 1,10 : caption 1,"Créer"
  on_click 1,creer
  
button 2 : top 2,70 : left 2,120 : caption 2,"Effacer"
  on_click 2,effacer

button 3 : top 3,70 : left 3,230 : caption 3,"Recréer"
  on_click 3,recreer

button 11 : top 11,110 : left 11,10 : caption 11,"Enlever"
  on_click 11,enlever


end

enlever:
  RemoveToolbar(1)   : ' supprimer la toolbar
  return

close0:
  RemoveToolbar(1)   : ' supprimer la toolbar
  message "Fini."
  dll_off
  return

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

creer:
' edit 777 : hide 777 : on_change 777,click_toolbar

' res% = dll_call2("CreateToolbar",handle(0),handle(777))
CreateToolbar(0,0)
' res% = dll_call4("ModifyToolbar",1,255,255,0)  : ' jaune
ModifyToolbar(1,255,255,0)  : ' jaune

width 0, width(0) + 200
' res% = dll_call4("ModifyToolbar",2,0,0,0)
ModifyToolbar(2,0,0,0)

hint$ = ""    : ' sans hint
' icon$ = "C:\Documents and Settings\Klaus\Mes documents\Mes projets Delphi\KGF\Icones 16x16\new.ico"   : ' bouton image
icon$ = "KGF_1"   : ' bouton image
after% = -1
' res% = dll_call4("AddButtonToToolbar",1,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(1,after%,hint$,icon$)

hint$ = ""   : ' sans hint
icon$ = " "  : ' séparateur
after% = -1
' res% = dll_call4("AddButtonToToolbar",0,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(0,after%,hint$,icon$)

hint$ = "Ouverture du fichier"   : ' avec hint
' icon$ = "C:\Documents and Settings\Klaus\Mes documents\Mes projets Delphi\KGF\Icones 16x16\open.ico"   : ' bouton image
 icon$ = "KGF_2"   : ' bouton image
 icon$ = "USER_56"
lib$ = ".\KGF.ilb"   : ' utiliser KGF.ilb en tant que librairie personnelle
ModifyToolbar(5,adr(lib$),0,0)
after% = -1
' res% = dll_call4("AddButtonToToolbar",2,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(2,after%,hint$,icon$)

hint$ = ""   : ' sans hint
icon$ = ""   : ' diviseur
after% = -1

' res% = dll_call4("AddButtonToToolbar",0,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(0,after%,hint$,icon$)


' res% = dll_call4("ModifyToolbar",3,0,0,0)  : ' désactiver la toolbar
ModifyToolbar(3,0,0,0)  : ' désactiver la toolbar


' res% = dll_call4("ModifyToolbar",3,0,1,0)  : ' activer la toolbar
ModifyToolbar(3,0,1,0)  : ' désactiver la toolbar


' res% = dll_call4("ModifyToolbar",3,0,0,0)  : ' désactiver bouton 3
ModifyToolbar(3,3,0,0)  : ' désactiver bouton 3


' res% = dll_call4("ModifyToolbar",3,3,1,0)  : ' activer bouton 3
ModifyToolbar(3,3,1,0)  : ' activer bouton 3


' res% = dll_call4("ModifyToolbar",4,0,0,0)  : ' invisible la toolbar
ModifyToolbar(4,0,0,0)  : ' désactiver la toolbar


' res% = dll_call4("ModifyToolbar",4,0,1,0)  : ' visible la toolbar
ModifyToolbar(4,0,1,0)  : ' désactiver la toolbar


' res% = dll_call4("ModifyToolbar",4,3,0,0)  : ' invisible bouton 3
ModifyToolbar(4,3,0,0)  : ' désactiver bouton 3


' res% = dll_call4("ModifyToolbar",4,3,1,0)  : ' visible bouton 3
ModifyToolbar(4,3,1,0)  : ' activer bouton 3

return

effacer:
  RemoveToolbar(0)   : ' effacer la toolbar
  return

recreer:
CreateToolbar(0,0)
' message "c ****************"
ModifyToolbar(1,255,255,0)  : ' jaune
' message "d ***************"

width 0, width(0) + 200
ModifyToolbar(2,0,0,0)
' message "d1 *************"

hint$ = ""    : ' sans hint
icon$ = "C:\Documents and Settings\Klaus\Mes documents\Mes projets Delphi\KGF\Icones 16x16\new.ico"   : ' boutin image
after% = -1
' res% = dll_call4("AddButtonToToolbar",1,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(1,after%,hint$,icon$)

hint$ = ""   : ' sans hint
icon$ = " "  : ' séparateur
after% = -1
' res% = dll_call4("AddButtonToToolbar",0,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(0,after%,hint$,icon$)

hint$ = "Ouverture du fichier"   : ' avec hint
icon$ = "C:\Documents and Settings\Klaus\Mes documents\Mes projets Delphi\KGF\Icones 16x16\open.ico"   : ' boutin image
after% = -1
' res% = dll_call4("AddButtonToToolbar",2,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(2,after%,hint$,icon$)

hint$ = ""   : ' sans hint
icon$ = ""   : ' diviseur
after% = -1
' res% = dll_call4("AddButtonToToolbar",0,after%,adr(hint$),adr(icon$))
AddButtonToToolbar(0,after%,hint$,icon$)
return


#INCLUDE "KGF_SUB.bas"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Lun 25 Nov 2013 - 18:46

Super Klaus, les programmes vont pouvoir avoir des interfaces plus évoluées.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Lun 25 Nov 2013 - 19:45

J'ai étendu le nombre d'icônes internes à 360 ! Sans changement de version pour KGF.dll.
et un bug mineur dans l'outil IcoLibrary.exe a été corrigé.

Utilisez IcoLibrary.exe pour afficher la liste des icônes disponibles, à partir du fichier KGF.ilb dans le dossier DLLs\IcoLibrary sur mon WebDav. Ce fichier a également été modifié pour refléter l'état actuel des icônes internes.

Sauf besoin spécifique, je n'ajouterai plus d'icônes internes à KGF.dll. Le choix actuel est très vaste. Pour des besoins personnels, il convient d'utiliser la technique des bibliothèques personnelles (établies par IcoLibrary.exe) et utilisables par par ModifyToolbar code action 5, puis AddButtonToToolbar avec le nom de fichier "USER=x".

En recherchant sur le net avec le critère "free icons 16x16", on trouve des dizaines de sites avec littéralement des dizaines de milliers d'icônes gratuites. Gardez juste en mémoire qu'il faut tdes icônes 16x16 pixels, en format *.ICO. Si c'est un autre format, il faut utiliser un convertisseur de format.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pan59

avatar

Nombre de messages : 367
Age : 60
Localisation : Wattignies
Date d'inscription : 16/10/2011

MessageSujet: Toolbar   Lun 25 Nov 2013 - 22:58

Bonsoir.

Bravo Klaus.

Mais ce qui me gêne un peu, c'est la dimension des icônes.

Le format 16x16 étant bien trop petit pour l'utilisation dans mon programme.

Ne pourrait-on pas le choisir (exemple: 32x32, ou autre).

Merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Lun 25 Nov 2013 - 23:27

Je finis les fonctionnalités pour ma Toolbar comme je l'ai en tête. Je verrai la taille après. Je pense que 32x32 sera possible.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pan59

avatar

Nombre de messages : 367
Age : 60
Localisation : Wattignies
Date d'inscription : 16/10/2011

MessageSujet: ToolBar.   Lun 25 Nov 2013 - 23:31

Bonsoir.

OK, merci Klaus.

Aurons-nous le choix d'afficher un objet Toolbar de façon verticale ou horizontale ?

Et un format d'icône au choix ?

Merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Lun 25 Nov 2013 - 23:35

Pour que tu es un peu de challenge Klaus, je pense que l'idée de pan59 consistant à pouvoir choisir la taille des icônes entre 8 et 64 pixels par exemple serait vraiment sympa et te donnerais un peu de fil à retordre (au moins un minimum même si ça sera sans doute moins complexe que ce que tu viens déjà d'accomplir ...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Mar 26 Nov 2013 - 0:34

Je finis d'abord tout ce que j'ai à faire pour 16x16 pixels. C'est proche. Ensuite, je pense que le 32x32 pixels sera possible facilement.

Je n'envisage pas d'aller au-delà. Il est par exemple facile, avec Panoramic, de faire un container avec une série de picture de 48x48, 64x64 etc et de charger ces picture, soit à partir de JPG ou BMP, soit à partir de ICO via une fonction de KGF.dll. Donc, en-dehors du projet actuel de Toolbar.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Mar 26 Nov 2013 - 0:57

C'est sûr Klaus... J'avoue que là je cherchais juste un peu à te donner de quoi de casser un peu la tête Wink C'est très bien en 16 et en 32.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Mar 26 Nov 2013 - 11:01

Voici un petit exemple de ce qu'on peut faire avec la Toolbar. J'ai choisi uniquement des icônes internes (par "KGF_x"). Il faudra bien sûr adapter le code en remplaçant des commandes MESSAGE par des appels de procédures pour chaque fonction créée, ou par des GOSUB.
Code:
' essai_Toolbar.bas

labels()
creer_toolbar()

end

sub labels()
  label click_toolbar
end_sub

sub creer_toolbar()
  KGF_initialize("KGF.dll")
  CreateToolbar(0,0)
  ModifyToolbar(1,255,255,0)
  AddButtonToToolbar(1,-1,"Nouveau","KGF_334")
  AddButtonToToolbar(2,-1,"Ouvrir","KGF_90")
  AddButtonToToolbar(3,-1,"Imprimer","KGF_96")
  AddButtonToToolbar(4,-1,"Chercher","KGF_360")
  AddButtonToToolbar(0,-1,""," ")
  AddButtonToToolbar(5,-1,"Paramètres","KGF_309")
  AddButtonToToolbar(6,-1,"Aide","KGF_289")
  AddButtonToToolbar(0,-1,""," ")
  AddButtonToToolbar(7,-1,"Sortie","KGF_170")
end_sub

click_toolbar:
  ' signaler l'icône cliquée
  message "Click sur icône "+text$(CreateToolbar_Edit%)
  ' agir selon l'identifiant de l'icône
  select val(text$(CreateToolbar_Edit%))
    case 1
      message "Nouveau"
    case 2
      message "Ouvrir"
    case 3
      message "Imprimer"
    case 4
      message "Chercher"
    case 5
      message "Paramètres"
    case 6
      message "Aide"
    case 7
      message "Sortie"
      terminate
  end_select
  return

#INCLUDE "KGF_SUB.bas"

En si peu de lignes, c'est puissant, non ? Et notez la gestion de l'évènement lorsqu'on clique sur une des icônes. Il suffit de déclarer le label click_Toolbar, et tout vient à cet endroit...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   Mar 26 Nov 2013 - 16:45

L'interface est clairement simplifiée au niveau de la mise en place.
Le source n'en sera que plus lisible
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar   

Revenir en haut Aller en bas
 
V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar
» Télécharger Norton Antivirus 2013 gratuit 6 mois
» Script pour faire un tableau au coins arrondi dans sa PA
» jets d'eau animés dans fontaine?
» Créer une page personnelle pour les partenaires

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: