Commande FREE

Bonjour,
Serait-il possible d'avoir une syntaxe équivalente à la commande DIM ?
En effet, il est bien dommage d’écrire ceci:

Code:

DIM a,b,c
FREE a: FREE b: FREE c

alors que :

Code:

DIM a,b,c
FREE a,b,c

me parait plus cohérent et plus pratique...

J'adhère à 200%

Moi aussi !!

J'achète !...

Moi aussi !

Je dirai même plus , par extension , pour hide et show ce serait pas mal
au lieu de passer par une boucle for...next quand ils sont pas trop nombreux

Gourmand mais bon sur le principe c'est vrai que ce type de syntaxe serait pratique mais à ce moment là, c'est valable pour presque tous les mots clés ... (FONT, HEIGHT, WIDTH, ...), mais bon sur le principe je suis d'accord, ce serait pratique

Pas vraiment ,

Pour hide ,show,Free ou Dim et label le seul parametre passer est le nom/num soit d'objet soit de variable soit de fonctions

pour les autres tu as deux parametres voir plus le nom/num et la taille/dimension voir ref couleur
ou alors il faut un separateur autre que la virgule entre les objets ou autre... le / ou | par exemple puis que les () ont déjà une signification

Heu... perso je ne demande que pour la commande FREE...
et rien d'autres sinon cela va dériver et la demande initiale va passer à la trappe (comme en fevrier, voir ici) ...

C'était un peu le but de ma remarque, ygeronimi a raison sur le fait que mon exemple n'était pas bon, mais j'aurais pu pendre les off_click, off_timer, off_close, ... et biens d'autres commandes pour lesquelles cela pourrait être applicable.
En fait, je trouve que cela serait bien pratique mais bon, pour FREE ça l'ait encre plus car c'est un pendant au DIM et si l'on veut faire une programmation "modulaire" avec les dim en début de sous programmes et les free à la fin, cela ferait plus propre.

Je disais juste qu'il serait logique que les commandes du même types aient les mêmes attribut...

Pour FREE, je suis preneur (et plus si affinité)

D'accord avec Nardo (et autres), seulement FREE a,b,c pour que ce soit symétrique avec DIM.

Jicehel a écrit:

J'adhère à 200%

Pour rester dans le pourcentage, les 200% ça sera de l’overflow !
Moi j’adhère à 100%

Bonjour,
Je vais vous étonner, mais je vais vous montrer ma désaprobation.
Bien sûre, ce serait bien, mais vous êtes tous à demander du confort, alors que vous savez que Jack n'est pas un sur-homme, même si en France il y a le département de l'Hérault, où peut-être on en trouve??? Je ne sais pas.

Lorsque je demande une amélioration qui me paraît plus importante, je n'ai pas de réponse, ni de vous, no de Jack, alors que vous demandez des choses qu'on peut se passer pour l'instant.

Ainsi, j'ai besoin d'une commande qui simule un clic, qui me paraît 100 fois plus importante, et je sais que je perdrais mon temps à le demander (je sais très bien le faire en AutoIt, mais le but est de l'éviter, surtout pour ceux qui débutent, et que cela poserait problème).
Je donne un exemple:
Je veux pouvoir déplacer une forme par programme (ou un memo).Chose impossible avec Panoramic!


Avec une commande CLICK_MACHIN_TRUC, sur les ascenseurs, je peux la déplacer. Il suffit de cliquer soit sur le blanc, soit sur la flèche.
Je peux ainsi mettre des ancres dans une forme, et l'atteindre. Ca marche, je l'ai fais en Autoit, c'est le calcul qui n'ai pas évident.
Pour moi, l'ajout d'une commande est plus importante que le confort d'une commande qui existe déjà. Lorsqu'on aura toutes les commandes qu'on a besoin, là il sera temps de revoir les commandes de confort.

La je montre mon désaccord, et sur-ce, je prends ma tronçonneuse, et je reste, et je vais au bois.
Bonsoir.

Salut Cosmos, bon, je ne vais pas m'étendre sur la demande dans se post pour le FREE, mais tu devrais la développer dans un autre post pour expliquer comment tu verrais les choses, à ce jour, les ascenceurs n'ont pas de références (en plus, pour déplacer, ce serait plutôt sur la barre de titre ...) sauf erreur de ma part, donc tu devrait simuler ça et un déplacement de la souris avec le clic activé...
Mais pour déplacer, on peut le faire avec le top et le left ... donc je n'ais pas du bien comprendre ta demande
La simulation du clic à des coordonnées pourraient être pratique sans doute dans certains cas, fais en la demande en expliquant bien ce que tu n'arrive pas à faire et comment tu verrais la commande.
En tout cas, ce n'est pas par ce qu'une de tes demandes n'abouties pas, selon moi, qu'il faut refuser une évolution demandée. Pour moi, tu peux dire que selon toi elle n'est pas prioritaire (c'est ton droit), mais si tu dis que tu es contre, il faut donner les arguments qui font que selon toi ce n'est pas une bonne chose puisque pour d'autres, ça l'est (j'espère que je suis clair...)

@cosmos:
ce n'est pas une nouvelle commande ou une nouvelle fonctionnalité que je demande concernant la commande FREE c'est une syntaxe plus en accord avec l'autre commande qui est en relation (DIM). De plus il n'est pas trop tard de faire des modifs sur la syntaxe de FREE sans compter que cela restera compatible avec les prog qui l'utilise déjà...

De mémoire, Jack utilise les expressions régulières (tiens donc! ) pour contrôler la syntaxe des commandes...
Je ne pense pas que cela demande un gros boulot (ya qu'a faire idem que pour la gestion du DIM)....
mais je me trompe peut être ?...

Quand à la commande qui simule un clic, cela demandera certainement plus de temps à développer et je pense que c'est un peu restrictif...

Si c'est pour que demain on ait :
CLICK N
DOUBLE_CLICK N
RIGHT_CLICK N

et pour les ascenseurs: CLICK_CURSOR N, etc...

autant demander une commande qui simule n'importe quel évènement... (par ex: EVENT Type, Obj , params...)

Quoique, on peut dejà +/- le faire....

Code:

dll_on "user32.dll"

hide 0: top 0,screen_y/2:left 0,screen_x/2:width 0,100:height 0,100:show 0

' souris :
dim dwFlags, dx, dy, dwData, dwExtraInfo
dim MOUSEEVENTF_MOVE,MOUSEEVENTF_ABSOLUTE
MOUSEEVENTF_MOVE = 1
MOUSEEVENTF_ABSOLUTE = 32768
dwData = 0 : dwExtraInfo=0

' clavier :
dim KEYEVENT_KEYUP
dim memStat(4),virtual_code(4),Stat(4)
data 144,"NumLock",20,"CapsLock",145,"ScrollLock"
KEYEVENT_KEYUP = 2

' divers
dim a$,i,r


' on positionne la souris au centre de l'écran, sur les checkbox
dwFlags=BIN_OR(MOUSEEVENTF_ABSOLUTE,MOUSEEVENTF_MOVE) : ' mouvement en coordonnées absolues
dx = (screen_x/2 )+20 : dx= int((dx / screen_x)*65535)
dy = (screen_y/2 )+40 : dy= int((dy / screen_y)*65535)
r = dll_call5("mouse_event",dwFlags,dx,dy,dwData,dwExtraInfo)

' memorise l'état initial du clavier
for i=1 to 3
  read virtual_code(i)
  read a$
  memStat(i)=dll_call1("GetKeyState",virtual_code(i))
  ' si led allumée, on l'éteint
  if memStat(i)<>0
    r = dll_call4("keybd_event",virtual_code(i),0,0,0)
    r = dll_call4("keybd_event",virtual_code(i),0,KEYEVENT_KEYUP,0)
  end_if
  check i:caption i,a$:top i,((i-1)*20)+5:left i,10
  Stat(i)=0
next i


' chenillard
for i = 1 to 100
  if bin_and(i,3)<>0
    r = dll_call4("keybd_event",virtual_code(bin_and(i,3)),0,0,0)
    r = dll_call4("keybd_event",virtual_code(bin_and(i,3)),0,KEYEVENT_KEYUP,0)
    r = bin_and(i,3)
    Stat(r)=bin_xor(Stat(r),1)
    if Stat(r) = 1
      mark_on r
    else
      mark_off r
    end_if
    wait 100
    ' mouvement de la souris en relatif
    dwFlags = MOUSEEVENTF_MOVE : ' on passe en coordonnées relatives
    dy = 20 : ' +20px pour aller sur le checkbox suivant
    if r=3 then dy = 40*(-1) :' -40px pour revenir sur le 1er
    r = dll_call5("mouse_event",dwFlags,0,dy,0,0)
  end_if
next i

' on restitue l'état initial du clavier
for i=1 to 3
  r=dll_call1("GetKeyState",virtual_code(i))
  if memStat(i)<>r
    r = dll_call4("keybd_event",virtual_code(i),0,0,0)
    r = dll_call4("keybd_event",virtual_code(i),0,keyevent_keyup,0)
  end_if
next i
dll_off
terminate

(déterrage d'un vieux topic )

@Cosmos,
Ta demande de simulation d'un click est intéressante (je la découvre) "if la_variable_truc$=1 then CLICK_ON N". Cela serait utile dans certain cas.
Mais je ne suis pas d'accord que tu dises que c'est plus important que FREE a$,b$,c$.

Cela pour dire que les demandes de tous sont valables.....

A+

Qu'est-ce que vous voulez que je dise. Vous estimer que FREE qui marche et opérationnel, c'est plus important qu'une commande qu'on attend et qui ne vient pas.
J'ai parlé de pouvoir provoquer un clic, même plus avant dans un autre post, de la simulation de clavier, qui permet entre-autre d'avoir accept aux menus par programmation sur d'autres fenêtres. Klaus aimerait des commandes comme la modification de container, il y a la molette de la souris, ATN2(x,y). Vous voyez je ne parle pas que de mes besoins. Et à longueur de temps on se plaint par ce qu'une commande n'est pas complète, ou a une différence par rapport à un autre language.

Moi je laisse tomber! Je suis dans un monde qui me dépasse, et pour parler comme quelqu'un d'autre, j'ai les neurones en vadrouille! On préfaire tourner en rond, que d'avancer. Je crois que vous allez ne plus beaucoup me voir. Je dois être con, car incompréhension de ma part. Vous faites des choix, et pour moi c'est pas les bons, et apparemment je suis le seul à le penser.
Bonne après-midi.

Du calme Cosmos, adopte la zen attitude....

Le pb vient du fait que l'on place des discussions sur le sujet où on se trouve.
Du coup, on pourrit le sujet et il devient confus ( et je ne suis pas le dernier à le faire ).
Alors je comprends Nardo26 qui souhaite que le sujet reste sur FREE
même si je comprends aussi ta démarche .

Aller !....je t'envoie plein de petites

@Cosmos70:
Si je te fais une DLL contenant une fonction pour déplacer la souris et provquer un clic gauche à l'endroit spécifié, est-ce que cela pourrait résoudre ton problème ? Je pourrais faire cela assez facilement. J'imagine quelque chose du genre

Code:

i% = DLL_CALL2("MouseLeftClick",x%,y%)

Qu'est-ce que tu en penses ?

Voila, je n'essaye pas de faire de la polémique. Je vous dirais franchement, je réagi pour bien faire comprendre les choses, mais vous n'imaginez pas ce dont je suis capable de supporter. Ca pour moi c'est pas le problème.

J'essaye de vous dire qu'on a un développeur français, qui regarde nos postes, et qui essaye de nous satisfaire du la mesure du possible. Il y a une commande FREE qui est faite, et dont la syntaxe ne satisfait pas tout le monde, et cette commande fonctionne. Personnellement je préfèrerai que Jack, qui a un boulot immense, ne soit pas détourné de ce qu'il fait pour pouvoir avancer. Vous voulez continuellement le faire reculer. La commande FREE, un autre FOR qui boucle et contrôle à la fin, Je ne sais plus, l'autre ceci, l'autre cela. Il a toute une liste de commande à faire, sans oublier qu'il ébauche un Panoramic avec des fonctions, comme on le lui a demandé, le compilateur... Jamais personne content et satisfait.
Pour moi, Jack essaye de faire avancer les choses, et vous êtes plusieurs à vouloir revoir sa copie sur des choses antérieures. On verra cela plus tard, lorsque le principale sera fait.

Par contre quant c'est moi qui demande, il y a silence absolu. Je vais prendre l'exemple (et c'est pas le seul) de ma demande de pouvoir une ligne de commade Panoramic. Lorsque je l'ai demandé, JL35 m'a fait comprendre que cela n'avait pas de sens, et j'en passe. Lorque que c'est Klaus qui demande, tout d'un coup cela devient génial. Klaus n'est pas en cause, je crois bien qu'il n'était pas alors avec nous. Mais j'ai presque envie de vous demander si vous ne me prendez pas pour un con. Le nombre de fois que cela m'arrive, et qu'il vaut mieux que je fasse le mort...

A Klaus:
Je veux bien que tu fasse une dll pour ce que je parlais. Moi je le fais avec AutoIt, et chaque fois, j'ai vu que ça dérangeais. J'aurai préféré que Panoramic puisse avoir cette commande, car petit à petit je vais (à moins qu'on me casse la tête) je vais essayer de faire un programme qui donne une aide aux nouveaux qui arrive à Panoramic. Et au départ, il vaut mieux qu'il n'y ai pas trop de complications pour lancer le programme. Sur plusieurs programme je suis intervenu avec AutoIt, car Panoramic n'a pas de fonction pour envoyer un clic, ou pour simuler une commande clavier. Si ces commandes existaient, je n'aurai pas eu besoin d'un autre language. C'est pas grâve. Après tout, tous les programmes que j'ai envoyé, sont passés à la trappe. Donc finalement je m'écraserai, peut-être que tout le monde serait content.

Allez! c'est envoyé.

OK. Je vais m'y mettre, et tu verras bien ce que tu pourras en faire.

Bonsoir,

On a tout à fait le droit de n'être pas d'accord sur le fait d’améliorer la syntaxe d'une commande existante.
Un forum est justement là pour partager des avis et de peser le pour et le contre...

Quand aux autres demandes, il existe un bouton ...
C'est plus facile par la suite à Jack de faire le tri et d'estimer ce qui vaut le coup d'être fait ou non...

Ta demande cosmos est perdue dans un topic qui s'appelle "Commande FREE"...
comment veut tu que Jack jette un coup d'oeil à ta demande ?

Il serait plus simple que tu créé un topic dédié dans lequel on pourrait en discuter...
Actuellement ce topic commence à devenir un foutoir...

@Klaus et cosmos : Quelqu'un a essayer le bout de code que j'ai mis précédemment ? (exemple d'evenement clavier et souris via user32.dll)

Pour détecter clic gauche/droite/double clic ? Je l'ai vu passer, mais j'étais sur autre chose, à ce moment. Accepterais-tu de remettre le lien ici stp ?