[Turbo Pascal] [Turbo Vision] Problème avec kbAltX

[Turbo Vision] Problème avec kbAltX

Bonjour à tous.

Je rencontre un problème avec l'exemple du didacticiel "Introduction à Turbo Vision" : 1.3.2. Définition de la barre de menus et de la barre d'état.

Après avoir écris le code dans TP7, je compile, et le debugger m'affiche une erreur 3 : identifiant inconnu sur kbAltX (de même sur cmQuit).

Il s'agit de constantes. Mais sont-elles définies dans TP, TV ou faut-il que je les crée?

J'ai pas mal fouillé sur le site et le net mais je n'ai rien trouvé.

Merci d'avance.

Hello,

Ce sont des constantes qui sont définies dans les unités utilisées pour Turbo Vision. Pour les utiliser, il faut vérifier que toutes les unités pour Turbo Vision soient déclarées: App, Objects, Menus, Drivers, Views.

N'ayant pour TP sur cette machine, je n'ai pas la doc et je ne sais plus dans quelle unité c'est exactement défini.

Après vérification, les constantes de ce type sont définies dans l'unité Views:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 constantes cmXXXX pour les objets Turbo Vision
 
Les symboles de commandes standard suivants sont prédéfinis par Turbo
Vision. Ils sont utilisés par les objets standard:
 
 Commande ¦ Valeur¦ Signification
 
 cmValid  ¦ 0     ¦ Valeur transmise à TView.Valid pour tester la
          ¦       ¦ validité d'un elvis venant d'être créé.
          ¦       ¦
 cmQuit   ¦ 1     ¦ Demande à TProgram.HandleEvent d'appeler
          ¦       ¦ EndModal(cmQuit) pour provoquer la fin
          ¦       ¦ du programme. La ligne d'état ou l'une des
          ¦       ¦ options de la barre de menus comporte une
          ¦       ¦ entrée qui connecte l'événement kbAltX à
          ¦       ¦ la commande cmQuit.
          ¦       ¦
 cmError  ¦ 2     ¦ Code jamais géré par aucun objet. Il permet
          ¦       ¦ donc de représenter des commandes non encore
          ¦       ¦ définies ou non supportées.
          ¦       ¦
 cmMenu   ¦ 3     ¦ Force la méthode TMenuView.HandleEvent à appeler
          ¦       ¦ ExecView sur elle-même afin d'effectuer une
          ¦       ¦ sélection dans un menu. Le résultat peut
          ¦       ¦ générer une nouvelle commande par PutEvent.
          ¦       ¦ La ligne d'état contient normalement une entrée
          ¦       ¦ qui connecte l'événement kbF10 à la commande
          ¦       ¦ cmMenu.
          ¦       ¦
 cmClose  ¦ 4     ¦ Cette commande est gérée par TWindow.HandleEvent
          ¦       ¦ si le champ InfoPtr de la structure événement
          ¦       ¦ possède la valeur nil ou s'il pointe sur la
          ¦       ¦ fenêtre. Si la fenêtre est à ce moment-là
          ¦       ¦ l'elvis modal (c'est le cas des boîtes de
          ¦       ¦ dialogue modales), il y a génération d'une
          ¦       ¦ commande evCommand possédant la valeur cmCancel
          ¦       ¦ par le biais de PutEvent.
          ¦       ¦ Dans le cas contraire (fenêtre non modale),
          ¦       ¦ la méthode Close de la fenêtre est appelée
          ¦       ¦ si la fenêtre autorise la fermeture
          ¦       ¦ (indicateur wfClose). Un clic sur la
          ¦       ¦ case Ferme de la fenêtre génère un événement
          ¦       ¦ evCommand possédant la valeur de commande cmClose
          ¦       ¦ et faisant pointer le champ InfoPtr sur la
          ¦       ¦ fenêtre. La ligne d'état ou l'une des options
          ¦       ¦ de menu connecte normalement l'événement kbAltF3
          ¦       ¦ à la commande cmClose.
          ¦       ¦
 cmZoom   ¦ 5     ¦ Cette commande force TWindow.handleEvent à
          ¦       ¦ appeler TWindow.Zoom sur elle-même si la
          ¦       ¦ fenêtre autorise cette fonction (indicateur
          ¦       ¦ wfZoom). De plus, le champ InfoPtr de la
          ¦       ¦ structure événement doit posséder la valeur
          ¦       ¦ nil ou pointer sur la fenêtre. Un clic sur
          ¦       ¦ la boîte Zoom de la fenêtre ou un double clic
          ¦       ¦ dans la barre de titres génère un événement
          ¦       ¦ evCommand dont le champ Command possède la
          ¦       ¦ valeur cmZoom et dont le champ InfoPtr pointe
          ¦       ¦ sur la fenêtre. La ligne d'état ou une
          ¦       ¦ option de menu connecte normalement
          ¦       ¦ l'événement kbF5 à la commande cmZoom.
          ¦       ¦
 cmResize ¦ 6     ¦ Cette commande demande à TWindow.HandleEvent
          ¦       ¦ d'appeler TView.DragView sur elle-même si
          ¦       ¦ la fenêtre autorise le redimensionnement (indicateurs
          ¦       ¦ wfMove et wfGrow). La ligne d'état ou une
          ¦       ¦ option de menu connecte normalement
          ¦       ¦ l'événement kbCtrlF5 à la commande cmResize.
          ¦       ¦
 cmNext   ¦ 7     ¦ Demande à TDesktop.HandleEvent d'amener la
          ¦       ¦ dernière fenêtre du bureau au premier plan.
          ¦       ¦ La ligne d'état ou une option de menu connecte
          ¦       ¦ normalement l'événement kbF6 à la commande cmNext.
          ¦       ¦
 cmPrev   ¦ 8     ¦ Demande à TDesktop.HandleEvent d'amener la première
          ¦       ¦ fenêtre du bureau derrière toutes les autres. La
          ¦       ¦ ligne d'état ou une option de menu connecte
          ¦       ¦ normalement l'événement kbShiftF6 à la commande
          ¦       ¦ cmPrev.

Effectivement il me manquait les unités Views (pour tout ce qui commence par cmXXXX) et Drivers (pour les kbXXX). :roll:

Mais comme j'ai pris les exemples un par un et qu'ils n'en faisaient pas mention celà ne m'a pas fait tilter.

Par contre, en ouvrant l'archive j'ai vu que les cinqs unités apparaissaient.

Pour info, où avez-vous trouvé ce que vous énoncez ci-dessus.:mrgreen:

Et merci pour l'information.:ccool:

On trouve ces infos dans la documentation de Turbo Pascal, toujours très utile ;) Il suffit de faire un Ctrl+F1 dans l'éditeur sur le mot dont on souhaite avoir des infos, et on apprend plein de choses supplémentaires ;)

[Edit] Merci à l_autodidacte pour la précision sur le shortcut [/Edit]