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

' 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"