| Les deux révisions précédentesRévision précédenteProchaine révision | Révision précédente |
| issue112:tutoriel2 [2016/09/02 08:23] – d52fr | issue112:tutoriel2 [2016/09/02 15:20] (Version actuelle) – andre_domenech |
|---|
| 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 gadget tel que GTK ou Qt. | 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. | 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. |
| Étoffer le menu | É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 aux touches appuyées 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. | 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 vraie 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 la boîte ci-dessous). | 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 noté, c'est exactement la même syntaxe. En fait, je ne serais pas surpris d'apprendre qu'un de mes vieux projets se compilerai simplement 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. | 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 |
| Répondre aux événements | Répondre aux événements |
| |
| Le menu préparé au-dessus répondra vraiment à certains boutons, mais pas aux 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 (simplement, elle sort). Mais elle n'a pas été programmée pour répondre à d'autres événements, tels que la commande cmHelp que nous avons mis dans l'élément de menu Help > About. | 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 notre. Par exemple : | C'est pourquoi nous remplacerons la méthode HandleEvent existante par la nôtre. Par exemple : |
| |
| C'est spécialement important d'inclure l'original de HandleEvent avec le commande « héritée », car elle manipule la commande cmQuit avec laquelle nous voulons travailler. | 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 (Inforamtion, 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 largement plus de travail. À voir dans le troisième article de la série pour plus de détails. | 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 |
| Paramétrer une boîte de dialogue de saisie de fichier | 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 de façon très voisine de Turbo Vision. Nous modifierons notre HandleEvent pour répondre à cmOpen. Pour ce faire, nous aurons besoin de plusieurs variables : | 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 | var |
| 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 ». A 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. | 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. Simplement, elle fonctionne et est très réactive. | 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, il y a deux points à noter depuis la dernière fois que j'en ai contemplé une, du temps de MS-DOS. La première 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, spécialement les accents dans « Música » et dans « Públic ». C'est peut-être un problème mineur pour certains, ou pour la plupart des gens si l'environnement visé pour un utilisateur final est principalement en écriture non-latine. | 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: |
| 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. ** |
| |
| Au point où nous sommes arrivés, nous avons utilisé plusieurs unités de la bibliothèque de Free Vision, qui peuvent être incluses au début de notre fichier de programme : | À 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; | uses App, Objects, Menus, Drivers, Views, Dialogs, MsgBox, StdDlg; |
| |
| Le code complet de cet exemple est sur : http://pastebin.com/ZTbN7Eft, dans lequel 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. | 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. |
