* MAIN_WINDOW
** DECLARATION
NUM_BIN_4 IdOutilRecherche
NUM_BIN_4 IdOutilBouton
NUM_BIN_4 IdOutilBouton2
NUM_BIN_4 IdOutilMenu
NUM_BIN_4 IdOutilImage
NUM_BIN_4 IdOutilSeparateur
NUM_BIN_4 IdElement
NUM_BIN_4 IdMenu
NUM_BIN_4 IdMenuCtx
NUM_BIN_4 IdOptionMenuCtx
NUM_BIN_4 IdElementFils
NUM_BIN_4 Styles
NUM_BIN_2 CodeRetour
alpha(250) NomFichier
alpha(250) TexteOutil
alpha(250) Variable
image VarImage
alpha(250) RetourLectureInfoBulle
bool RetourLectureActivite
num_bin_4 IdImage
bool Resultat
num_bin_4 MenuAction
num_bin_4 OptMenuAction
** INITIALISATION
* !------------------------------------------- !
* ! 1 Création d'un outil de type recherche !
* !------------------------------------------- !
APPELER_METHODE menu_bar AJOUTER_OUTIL 1 _BOU_RECHERCHE IdOutilRecherche codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilRecherche _BOU_LARGEUR 200 CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilRecherche _BOU_TEXTE_INFO_BULLE 'Outil de type Recherche. Taper la chaine impr' CodeRetour
NomFichier = 'C:\img4.gif'
APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxFileToImage' NomFichier VarImage CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilRecherche _BOU_IMAGE VarImage CodeRetour
* !-------------------------------------------!
* ! Insertion des éléments de la liste de !
* ! valeurs de l'outil recherche. !
* ! A chaque élément on associe une variable !
* ! associée. !
* !-------------------------------------------!
APPELER_METHODE menu_bar ajouter_element IdOutilRecherche _BOU_RACINE _BOU_POS_FIN 'Facturations proforma' IdElement codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilRecherche IdElement _BOU_TEXTE_INFO_BULLE 'Infobulle Facturations' CodeRetour
variable = 'FACTUR'
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilRecherche IdElement _BOU_VARIABLE_ASSOCIEE variable CodeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilRecherche _BOU_RACINE _BOU_POS_FIN 'Facturations intermédiaires' IdElement codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilRecherche IdElement _BOU_TEXTE_INFO_BULLE 'Infobulle Facturations intermédiaires' CodeRetour
variable = 'FACTUR2'
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilRecherche IdElement _BOU_VARIABLE_ASSOCIEE variable CodeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilRecherche _BOU_RACINE _BOU_POS_FIN 'Facturations finales' IdElement codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilRecherche IdElement _BOU_TEXTE_INFO_BULLE 'Infobulle Facturations finales' CodeRetour
variable = 'FACTUR3'
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilRecherche IdElement _BOU_VARIABLE_ASSOCIEE variable CodeRetour
* !-------------------------------------------!
* ! Création d'un outil de type séparateur !
* !-------------------------------------------!
APPELER_METHODE menu_bar AJOUTER_OUTIL 2 _BOU_SEPARATEUR IdOutilSeparateur codeRetour
styles = _BOU_BARRE_VISIBLE_SEPARATEUR
APPELER_METHODE menu_bar FIXER_STYLES_OUTIL IdOutilSeparateur styles codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilSeparateur _BOU_LARGEUR 30 CodeRetour
* !------------------------------------------- !
* ! 2 Création d'un outil de type menu !
* !------------------------------------------- !
APPELER_METHODE menu_bar AJOUTER_OUTIL 3 _BOU_MENU IdOutilMenu codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilMenu IdElement _BOU_TEXTE_INFO_BULLE 'Infobulle menu global' CodeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilMenu _BOU_RACINE _BOU_POS_FIN 'Action' IdMenu codeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilMenu IdMenu _BOU_POS_FIN 'Fichier' IdElement codeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilMenu IdElement _BOU_POS_FIN 'Ouvrir' IdElementFils codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilMenu IdElementFils _BOU_TEXTE_INFO_BULLE 'Ouvrir un document' CodeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilMenu IdElement _BOU_POS_FIN 'Enregistrer' IdElementFils codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilMenu IdElementFils _BOU_ACTIVITE *faux CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilMenu IdElementFils _BOU_TEXTE_INFO_BULLE 'Enregistrer le document' CodeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilMenu IdElement _BOU_POS_FIN 'Enregistrer sous' IdElementFils codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilMenu IdElementFils _BOU_TEXTE_INFO_BULLE 'Enregistrer le document sous' CodeRetour
APPELER_METHODE menu_bar ajouter_element IdOutilMenu IdElement _BOU_POS_FIN 'Fermer' IdElementFils codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_ELEMENT IdOutilMenu IdElementFils _BOU_TEXTE_INFO_BULLE 'Fermer le document' CodeRetour
* !-------------------------------------------!
* ! Création d'un outil de type séparateur !
* !-------------------------------------------!
APPELER_METHODE menu_bar AJOUTER_OUTIL 4 _BOU_SEPARATEUR IdOutilSeparateur codeRetour
styles = _BOU_BARRE_VISIBLE_SEPARATEUR
APPELER_METHODE menu_bar FIXER_STYLES_OUTIL IdOutilSeparateur styles codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilSeparateur _BOU_LARGEUR 30 CodeRetour
* !-------------------------------------------!
* ! 3 Création d'outils de type bouton !
* !-------------------------------------------!
APPELER_METHODE menu_bar AJOUTER_OUTIL 5 _BOU_BOUTON IdOutilBouton codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilBouton _BOU_TEXTE 'Editer' CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilBouton _BOU_ACTIVITE *faux CodeRetour
NomFichier = 'C:\img3.gif'
APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxFileToImage' NomFichier VarImage CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilBouton _BOU_IMAGE VarImage CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilBouton _BOU_TEXTE_INFO_BULLE 'Editer le document' CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilBouton _BOU_LARGEUR 100 CodeRetour
APPELER_METHODE menu_bar CREER_MENU_CTX IdMenuCtx CodeRetour
APPELER_METHODE menu_bar AJOUTER_OPT_MENU_CTX IdMenuCtx _BOU_RACINE _BOU_POS_FIN 'Editer avec...' _BOU_SIMPLE IdOptionMenuCtx CodeRetour
APPELER_METHODE menu_bar ASSOCIER_MENU_CTX IdMenuCtx IdOutilBouton _BOU_AUCUN CodeRetour
* !-------------------------------------------!
* ! Création d'un outil de type séparateur !
* !-------------------------------------------!
APPELER_METHODE menu_bar AJOUTER_OUTIL 7 _BOU_SEPARATEUR IdOutilSeparateur codeRetour
styles = _BOU_BARRE_VISIBLE_SEPARATEUR
APPELER_METHODE menu_bar FIXER_STYLES_OUTIL IdOutilSeparateur styles codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilSeparateur _BOU_LARGEUR 30 CodeRetour
* !-------------------------------------------!
* ! Création d'un outil de type image !
* !-------------------------------------------!
APPELER_METHODE menu_bar AJOUTER_OUTIL 8 _BOU_IMAGE IdOutilImage codeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilImage _BOU_LARGEUR 50 CodeRetour
NomFichier = 'C:\img2.png'
APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxFileToImage' NomFichier VarImage CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilImage _BOU_IMAGE VarImage CodeRetour
APPELER_METHODE menu_bar FIXER_PROPRIETE_OUTIL IdOutilImage _BOU_TEXTE_INFO_BULLE 'Envoyer par mail' CodeRetour