Le portail francophone de la géomatique

Bonjour
Utilisez CommandInfo(attribut)... (avec l'attribut CMD_INFO_DLG_OK)

Salut,

CommandInfo(attribut)
Atribut --> CMD_INFO_DLG_OK
retourne une valeur logique soit (true) si l'utilisateur clic sur OK
(False) si clic sur cancel ou esc etc....
Cette commande n'est valide qu'au cours d'un dialogue.
A+
Joël

Je voyais plutôt ça comme ceci:

if commandinfo(CMD_INFO_DLG_OK) then
blablabla
else
blablabla

Quel est ton langage de prog --> delphi?
if Res_DLG = 'T' then ---> es tu sure de la syntaxe?
---> "T" (peut être)
As tu essayé:

 if commandinfo(CMD_INFO_DLG_OK) then
 Res_DLG = "T"

Dernière modification par Spacejo (Thu 01 July 2010 19:21)

Bonjour
CommandInfo(CMD_INFO_DLG_OK) renvoie une valeur logique vrai/faux (un booléen)
Suivant le langage et le paramétrage (par mapbasic.def en MB) on peut associer vrai au caractère "T" ou à l'entier 1, faux à "F" ou 0...

Bonjour
On pourrait peut être sauter cette étape et définir MsgString en boolean puis passer directement à
MsgString := 'CommandInfo(' + InttoStr(CMD_INFO_DLG_OK) + ')';
If MsgString then (pour le cas "vrai")
...

ps: bien sur MsgString n'est plus alors un nom de variable bien adapté

je viens de tester ce bout de programme mais j'y arrive pas à faire appel à la procédure interne contrôle des couches, c'est quoi le problème au juste ?

Include "MapBasic.DEF"

Declare Sub MyProc

Create Menu "&Essai" As
"&Controle des couches" Calling MyProc
Alter Menu Bar Add "Essai"

Sub MyProc
  // il me refuse cette ligne ? 817 est l'identifaint de la procedure controle des couches
  Calling 817
end sub

if CommandInfo(CMD_INFO_DLG_OK) = "T" then
   note "oui"
    else note "non"
end if

Dernière modification par Just-Soft (Wed 07 July 2010 10:52)

Dites donc, on n'est pas aux ordres !!
Surtout si vous ne prenez pas le temps de piocher plus la doc. avant de multiplier les tentatives et de nous en faire les arbitres..
Ce code marchera mieux mais vous obtiendrez toujours "oui" puisque CommandInfo(CMD_INFO_DLG_OK) n'est utilisable que lors de l'utilisation d'une boite de dialogue personnalisée et comprenant un OKbutton

Include "MapBasic.DEF"
Declare Sub Main
Declare Sub MyProc

Sub Main
Create Menu "&Essai" As
"&Controle des couches" Calling MyProc
Alter Menu Bar Add "Essai"
end sub

Sub MyProc
 Run Menu Command 801
  if CommandInfo(CMD_INFO_DLG_OK)=1 then
   note "oui"
   else note "non"           'ne marchera pas...
  end if
end sub

Bonjour,

Dans ce cas,

Include "MapBasic.DEF"
Declare Sub Main
Declare Sub MyProc

Sub Main
Create Menu "&Essai" As
"&Controle des couches" Calling MyProc
Alter Menu Bar Add "Essai"
end sub

Sub MyProc
 Run Menu Command 801
  if CommandInfo(CMD_INFO_DLG_OK)=1 then
        if TableInfo(table_id, TAB_INFO_EDITED) = True then
        ' Fait ce que tu as a faire car ta table a des editions non sauvegarder
        else 
        end if
  end if
end sub

@ jean94
- le if CommandInfo(CMD_INFO_DLG_OK)=1 ne sert pas car on n'est pas dans le cas d'une boite de dialogue personnalisée
- bien le TableInfo(table_id, TAB_INFO_EDITED)...mais quel table_id ?? On cherche à savoir si l'utilisateur à oui ou non modifié une de ses couche, n'importe laquelle...

@ Maurice : donc ce que tu recommande c'est de créer une boite de dialogue personnalisée ? mais je crois que le plus simple serait de tester si on est dans le cas d'un changement de document à ce niveau comment dois-je procéder ? ou bien si on est dans le cas de la fermeture d'une couche ? ça me parait facile de voir si la couche en question a été modifiée ou non ?

@jean94 : oui oui, je pense que dans un cas général on peut songer à boucler, d'ailleurs je peux faire ça dans un timer (puisque je pilote MI par Delphi) mais en MB seul je ne sait pas si cela existe bien que Maurice dans un post m'a suggéré l'utilisation des eventhandlers que j'ai pas pu réaliser !!!

ce programme me tient à coeur, d'autres bénévoles pour une amélioration.
merci à vous tous.