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
» Interception des touches quel que soit l'objet Panoramic
par Minibug Hier à 21:32

» Une copie de Panoramic Editeur
par Jean Claude Hier à 21:02

» KGF_dll - nouvelles versions
par Klaus Hier à 0:13

» Animation 3D 4 faces avec le logo de Panoramic
par Marc Hier à 0:07

» Animation 3D 2 faces avec le logo de Panoramic
par Minibug Sam 26 Mai 2018 - 20:01

» [RESOLU] pas de caractères accentués dans resource hacker
par Minibug Ven 25 Mai 2018 - 13:50

» Panoramic et la 3D.
par Pedro Alvarez Ven 25 Mai 2018 - 9:34

» Problème mathématique en 3D
par Marc Jeu 24 Mai 2018 - 18:24

» Nouvelle version 0.33
par jean_debord Jeu 24 Mai 2018 - 9:02

» Reprise du développement et de la documentation
par Fredisland Jeu 24 Mai 2018 - 7:14

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 V2.58 du 26/11/2013 - nouvelle fonction GetToolbarInfo

Aller en bas 
AuteurMessage
Klaus

avatar

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

MessageSujet: V2.58 du 26/11/2013 - nouvelle fonction GetToolbarInfo   Mar 26 Nov 2013 - 23:54

Nouvelle version:
KGF.dll V2.58 du 26/11/2013

Nouveauté:
- nouvelle fonction GetToolbarInfo
- nouveau code action pour ModifyToolbar


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


La doc et les sources sont à jour.

La nouvelle fonction GetToolbarInfo peut retourner 8 informations différentes sur la Toolbar.
Le nouveau code action de ModifyToolbar peut changer l'ID d'un bouton

Pour voir comment on se sert de ces deux nouvelles fonctionnalités, cliquer sur le bouton Aide (la bouée):
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_361")
  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"
      aide()
    case 7
      message "Sortie"
      terminate
  end_select
  return
 
sub aide()
  memo 10 : top 10,60 : left 10,10 : width 10,400 : height 10,350
  item_add 10,"Informations sur la Toolbar:"
  GetToolbarInfo(1,0)  : ' tester si la toolbar existe
  if GetToolbarInfo%=1 then item_add 10,"La Toolbar existe"
  GetToolbarInfo(2,0)  : ' tester si la toolbar est active
  if GetToolbarInfo%=1
    item_add 10,"La Toolbar est active"
  else
    item_add 10,"La Toolbar est inactive"
  end_if
  GetToolbarInfo(3,0)  : ' tester si la toolbar visible
  if GetToolbarInfo%=1
    item_add 10,"La Toolbar est visible"
  else
    item_add 10,"La Toolbar est invisible"
  end_if
  GetToolbarInfo(4,0)  : ' retourner le nombre de boutons de la toolbar
  item_add 10,"Nombre de boutons: "+str$(GetToolbarInfo%)
  GetToolbarInfo(5,2)  : ' tester si le bouton p1% existe
  if GetToolbarInfo%=1
    item_add 10,"Le bouton 2 existe"
  else
    item_add 10,"Le bouton 2 existe"
  end_if
  GetToolbarInfo(6,2)  : ' tester si le bouton p1% est actif
  if GetToolbarInfo%=1
    item_add 10,"Le bouton 2 est actif"
  else
    item_add 10,"Le bouton 2 est inactif"
  end_if
  GetToolbarInfo(7,2)  : ' tester si le bouton p1% est visible
  if GetToolbarInfo%=1
    item_add 10,"Le bouton 2 est visible"
  else
    item_add 10,"Le bouton 2 est invisible"
  end_if
  GetToolbarInfo(8,2)  : ' retourner l'ID du bouton p1%
  item_add 10,"L'ID du bouton 2 est "+str$(GetToolbarInfo%)
 

  ModifyToolbar(6,2,17)  : ' changer l'ID du bouton 2 en 17
  GetToolbarInfo(8,2)  : ' retourner l'ID du bouton p1%
  item_add 10,"Le nouvel ID du bouton 2 est "+str$(GetToolbarInfo%)
  ModifyToolbar(6,2,2)  : ' rechanger l'ID du bouton 2 en 2
  GetToolbarInfo(8,2)  : ' retourner l'ID du bouton p1%
  item_add 10,"Le nouvel ID du bouton 2 est "+str$(GetToolbarInfo%)


  message "Taper RETURN pour continuer..."
  delete 10
end_sub

#INCLUDE "KGF_SUB.bas"

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
 
V2.58 du 26/11/2013 - nouvelle fonction GetToolbarInfo
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Nouvelle interface Bbox, toujours rien ?
» La future gamme ideo du 26 août chez Bouygues Telecom ?
» La nouvelle Subaru WRX au Salon de Los Angeles 2013
» Nouvelle mise a jour cartographique CN Europe 2013.10
» Nouvelle de Numericable (Mobile / Free)

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: