Full Circle Magazine FR

Outils pour utilisateurs

Outils du site

Piste : • labo_linux • blender • c_c • c_c • c_c • c_c • c_c • inkscape • finalisation • c_c
issue112:tutoriel2

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

Les deux révisions précédentesRévision précédente
Prochaine révision		Révision précédente
issue112:tutoriel2 [2016/08/31 13:21] – d52frissue112:tutoriel2 [2016/09/02 15:20] (Version actuelle) – andre_domenech
Ligne 2: Ligne 2:
  
 In the first part of this series we installed the required compiler software and developer’s interface. We compiled a simple console-based program and a first Free Vision application. In this second part we will be tuning our Free Vision interface and making it respond to commands.** In the first part of this series we installed the required compiler software and developer’s interface. We compiled a simple console-based program and a first Free Vision application. In this second part we will be tuning our Free Vision interface and making it respond to commands.**
 +
 +Dans cette série d'articles, je construirai avec FreePascal une application en mode texte, en utilisant son interface mode texte pour l'interaction avec l'utilisateur. Celle-ci sera combinée avec d'autres technologies, plus modernes, comme l'accès aux bases de données en utilisant SQL ou l'accès Web avec HTTP. Le but final de ce projet est de démontrer comment Pascal peut être utilisé pour construire une application moderne, tout en évitant le surpoids associé à une interface graphique qui utilise un jeu de gadgets telle que GTK ou Qt.
 +
 +Dans la première partie de cette série, nous avons installé l'indispensable logiciel de compilation et l'interface développeur. Nous avons compilé un programme simple en console et une première application Free Vision. Dans cette seconde partie, nous ajusterons notre interface Free Vision pour qu'elle réponde aux commandes.
  
 **Fleshing up the menu **Fleshing up the menu
Ligne 10: Ligne 14:
  
 As readers accustomed to Turbo Pascal will have noticed, this is exactly the same syntax. In fact, I would not be surprised to learn that one of my projects from back then would just compile under Free Pascal. That is, if I manage to dig out the 3½” diskettes and a disk drive that still works. Just to refresh memories, let us note that “~” is used to indicate key accelerators, hcNoContext is the null Help Context, kbF2 is the code for keyboard key F2, and cmOpen is a 16-bit unsigned integer (word) code for standard command “Open”. The rest should be quite easy to figure out. ** As readers accustomed to Turbo Pascal will have noticed, this is exactly the same syntax. In fact, I would not be surprised to learn that one of my projects from back then would just compile under Free Pascal. That is, if I manage to dig out the 3½” diskettes and a disk drive that still works. Just to refresh memories, let us note that “~” is used to indicate key accelerators, hcNoContext is the null Help Context, kbF2 is the code for keyboard key F2, and cmOpen is a 16-bit unsigned integer (word) code for standard command “Open”. The rest should be quite easy to figure out. **
 +
 +Étoffer le menu
 +
 +Créons un menu sur mesure et rendons-le interactif. Pour ce faire, nous écraserons deux procédures différentes de l'objet standard TApplication. La première est la procédure InitMenuBar qui, comme son nom le suggère, installe la barre de menu en haut de l'écran. L'autre est la procédure qui manipule les événements de fenêtre, dans laquelle nous définirons comment nos applications doivent répondre au clic sur des boutons et autres. Ainsi, notre objet application dérive de TApplication standard, avec l'ajout de ces deux procédures. Elles sont déclarées « virtuelles » (en haut à droite), car elles écrasent des méthodes existantes.
 +
 +Nous insérerons une barre de menu basique avec deux sous-menus : un menu « File » (Fichier) avec quelques options standards et un menu « Help » (Aide) avec une option qui ouvrira la traditionnelle boîte de dialogue « About » (À propos) (voir le code ci-dessous).
 +
 +Comme les lecteurs accoutumés à Turbo Pascal l'auront remarqué, c'est exactement la même syntaxe. En fait, je ne serais pas surpris d'apprendre qu'un de mes vieux projets se compilerait normalement sous Free Pascal. C'est-à-dire, si j'arrive à retrouver mes disquettes 3" 1/2 et un lecteur de disquettes qui fonctionne encore. Juste pour vous rafraîchir la mémoire, notons que « ~ » est utilisé pour indiquer des raccourcis clavier, hcNoContext est le contexte Help vide, kbF2 est le code pour la touche F2 du clavier et cmOpen est un code en entier non signé 16-bit (un mot) pour la commande standard « Open » (Ouvrir). Le reste devrait être facile à comprendre.
  
 **Responding to events **Responding to events
Ligne 20: Ligne 32:
  
 To respond to the cmHelp command, we are using a simple if structure to set up a MessageBox. This is a fast way of creating a message dialog box, that can be of several different types (Information, Alert, Error...). We do not get to personalize it much, since the final parameter can only hold flags to set up the dialog title, and the choice of the “OK” and/or “Cancel” buttons. To create a more interesting dialog window, we would need to write our own class (inheriting from TWindow or TDialog), which, though feasible, would be slightly more work. See the third article in the series for more details.** To respond to the cmHelp command, we are using a simple if structure to set up a MessageBox. This is a fast way of creating a message dialog box, that can be of several different types (Information, Alert, Error...). We do not get to personalize it much, since the final parameter can only hold flags to set up the dialog title, and the choice of the “OK” and/or “Cancel” buttons. To create a more interesting dialog window, we would need to write our own class (inheriting from TWindow or TDialog), which, though feasible, would be slightly more work. See the third article in the series for more details.**
 +
 +Répondre aux événements
 +
 +Le menu préparé au-dessus répondra bel et bien à certains boutons, mais pas à d'autres. La différence vient de ce que la méthode par défaut HandleEvent de TApplication sait quoi faire quand arrive la commande cmQuit (elle sort, tout simplement). Mais elle n'a pas été programmée pour répondre à d'autres événements, tels que la commande cmHelp que nous avons mise dans l'élément de menu Help > About.
 +
 +C'est pourquoi nous remplacerons la méthode HandleEvent existante par la nôtre. Par exemple :
 +
 +Il est particulièrement important d'inclure l'original de HandleEvent avec le commande « héritée », car elle manipule la commande cmQuit et nous voulons que celle-là fonctionne toujours.
 +
 +Pour répondre à la commande cmHelp, nous utilisons une simple procédure if pour paramétrer une MessageBox. C'est une façon rapide de créer une boîte de dialogue de message, qui peut être de différents types (Information, Alerte, Erreur...). Nous n'allons pas la personnaliser beaucoup, car le paramètre final ne peut contenir que les flags pour déclarer le titre du dialogue et le choix des boutons « OK » et/ou « Cancel » (Annuler). Pour créer une boîte de dialogue plus sophistiquée, nous aurions à écrire notre propre classe (héritée de TWindow ou TDialog), qui, bien que faisable, demanderait un peu plus de travail. Plus de détails dans le troisième article de la série. 
  
 **Setting up a file input box **Setting up a file input box
Ligne 31: Ligne 53:
  
 FileName is a string to save the user-inputted filename, result will contain the command code of the button chosen (cmOpen or cmCancel), while pOpen is a pointer to the new dialog to be created. Now, within HandleEvent, let us reply to cmOpen in the same way we handled cmHelp (see box top right).** FileName is a string to save the user-inputted filename, result will contain the command code of the button chosen (cmOpen or cmCancel), while pOpen is a pointer to the new dialog to be created. Now, within HandleEvent, let us reply to cmOpen in the same way we handled cmHelp (see box top right).**
 +
 +Paramétrer une boîte de dialogue de saisie de fichier
 +
 +Il y a aussi d'autres types de boîtes de dialogue disponibles et prédéfinis. Pour prendre un exemple classique, dans nos programmes, nous avons souvent besoin de solliciter l'utilisateur pour saisir un fichier via une boîte de dialogue d'ouverture de fichier. Free Vision fait les choses exactement comme Turbo Vision. Nous modifierons notre HandleEvent pour répondre à cmOpen. Pour ce faire, nous aurons besoin de plusieurs variables :
 +
 +var
 +  FileName: String;
 +  result : integer;
 +  pOpen : PFileDialog;
 +
 +FileName est une chaîne de caractères pour sauvegarder le nom de fichier saisi par l'utilisateur, result contiendra le code de commande du bouton choisi (cmOpen ou cmCancel), tandis que pOpen est un pointeur vers la nouvelle boîte de dialogue à créer. Maintenant, dans HandleEvent, répondons à cmOpen de la même façon que nous avons opéré pour cmHelp (voir le cadre en haut à droite).
  
 **We have created a new FileDialog object, specifying that we wish to filter files with the ’*.txt’ pattern. When executed, the command chosen by the user is stored in variable result, and can then be examined to control subsequent actions.  **We have created a new FileDialog object, specifying that we wish to filter files with the ’*.txt’ pattern. When executed, the command chosen by the user is stored in variable result, and can then be examined to control subsequent actions. 
Ligne 37: Ligne 70:
  
 However, there are a couple of points to be noted since the last time I stared at one of these, back in the days of MS-DOS. The first is that it seems to handle well a POSIX file system, with the “/” file separator instead of MS-DOS’s idiosyncratic “C:” and “\”. The user can easily navigate through a standard Ubuntu home directory. On the other hand, we can also see that Unicode characters in filenames that do not appear in the common ASCII codepage (codes up to 127) have been altered, specifically the accents in “Música” and “Públic”. This may be a minor problem for some, or major for others if the intended end user’s environment is mostly in a non-latin script. ** However, there are a couple of points to be noted since the last time I stared at one of these, back in the days of MS-DOS. The first is that it seems to handle well a POSIX file system, with the “/” file separator instead of MS-DOS’s idiosyncratic “C:” and “\”. The user can easily navigate through a standard Ubuntu home directory. On the other hand, we can also see that Unicode characters in filenames that do not appear in the common ASCII codepage (codes up to 127) have been altered, specifically the accents in “Música” and “Públic”. This may be a minor problem for some, or major for others if the intended end user’s environment is mostly in a non-latin script. **
 +
 +Nous avons créé un objet FileDialog, en spécifiant que nous souhaitons filtrer les fichiers avec le motif « *.txt ». À l'exécution, la commande choisie par l'utilisateur est stockée dans la variable result et peut ensuite être analysée pour piloter les actions qui en découlent.
 +
 +La boîte de dialogue obtenue n'a rien de spécial car elle est standard dans Turbo et Free Vision. Elle fonctionne tout simplement et est très réactive.
 +
 +Cependant, depuis la dernière fois que j'en ai contemplé une, du temps de MS-DOS, il y a deux points à noter. Le premier est qu'elle semble manipuler correctement un système de fichiers POSIX, avec le séparateur de fichier « / » à la place des « C: » et « \ » spécifiques à MS-DOS. L'utilisateur peut facilement naviguer dans le répertoire home habituel d'Ubuntu. D'autre part, nous pouvons aussi voir que les caractères Unicode dans les noms de fichiers qui n’apparaissent pas dans la page de code ASCII ordinaire (codes jusqu'à 127) sont modifiés, particulièrement les accents dans « Música » et dans « Públic ». C'est peut-être un problème mineur pour certains, ou pour d'autres un problème majeur, si l'environnement visé pour un utilisateur final est principalement en écriture non latine.
  
 **By this point, we have been using several of Free Vision’s library units, which must be included at the beginning of our program file: **By this point, we have been using several of Free Vision’s library units, which must be included at the beginning of our program file:
Ligne 43: Ligne 82:
  
 The complete code for this example is available at http://pastebin.com/ZTbN7Eft, in which the reader can see the points covered in this part of the series: personalizing the Free Vision menu bar, responding to commands, and using default message boxes and dialogs. In the next part, we will see how to connect our application to a modern database such as Sqlite3. ** The complete code for this example is available at http://pastebin.com/ZTbN7Eft, in which the reader can see the points covered in this part of the series: personalizing the Free Vision menu bar, responding to commands, and using default message boxes and dialogs. In the next part, we will see how to connect our application to a modern database such as Sqlite3. **
 +
 +À ce stade, nous avons utilisé plusieurs unités de la bibliothèque de Free Vision, qui doivent être incluses au début de notre fichier de programme :
 +
 +uses App, Objects, Menus, Drivers, Views, Dialogs, MsgBox, StdDlg;
 +
 +Le code complet de cet exemple est sur http://pastebin.com/ZTbN7Eft, où le lecteur peut voir les points couverts dans cette partie de la série : personnaliser la barre de menu de Free Vision, répondre aux commandes et utiliser les boîtes de messages et les dialogues par défaut. Dans la prochaine partie, nous regarderons comment connecter notre application à une base de données moderne comme Sqlite3.
issue112/tutoriel2.1472642461.txt.gz · Dernière modification : 2016/08/31 13:21 de d52fr