Un autre editeur particulier

Sujet: Re: Un autre editeur particulier Mar 22 Sep 2015 - 14:22

yes bravo minibug la voila la solution
tant convoité
t un bon!!!!

je t'invite si tu veut a te rendre dans webdaw
pour essaye editbas
cela te donnera des idées pour gpp

panoramic@pascal10000
id: panoramic123

Sujet: Re: Un autre editeur particulier Mar 22 Sep 2015 - 15:12

Je n'ai pas les DLL utils.dll , form.dll ... !! drunken

PS : OK c'est récupéré.

Pas mal l'interface, effectivement.
Je regarde d'un peu plus près tout ca... drunken

Sujet: Re: Un autre editeur particulier Mar 22 Sep 2015 - 18:48

Bonsoir,

J'émet un bémol au code de Minibug.
Il fonctionne, mais il présente un inconvénient majeur: il y a systématiquement un enfant crée en même temps qu'un SUB_MENU. Ce qui a pour conséquence d'avoir le signe > après le nom du SUB_MENU.
Le menu est sans fin.

Mais la voie est bonne...

PS: on peut aussi faire l'économie de trois variables.

Code:: DIM num%
LABEL saisie

WIDTH 0,600 : HEIGHT 0,60 : LEFT 0,400 : MAIN_MENU 10 : num%=11
SUB_MENU num% : PARENT num%,10 : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
END

saisie:
  OFF_CLICK NUMBER_CLICK : caption 0,str$(OBJECT_PARENT(NUMBER_CLICK))
  IF message_input("Edit Menu", "Sub_Menu" , " ")=1
   CAPTION NUMBER_CLICK,MESSAGE_TEXT$
   IF OBJECT_TYPE(OBJECT_PARENT(NUMBER_CLICK))=12
   SUB_MENU num% : PARENT num%,10 : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   SUB_MENU num% : PARENT num%,NUMBER_CLICK : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   END_IF
   IF OBJECT_TYPE(OBJECT_PARENT(NUMBER_CLICK))=13
   SUB_MENU num% : PARENT num%,OBJECT_PARENT(NUMBER_CLICK) : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   SUB_MENU num% : PARENT num%,NUMBER_CLICK : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   END_IF
  END_IF
RETURN

A plus.

Sujet: Re: Un autre editeur particulier Mar 22 Sep 2015 - 19:22

jean claude!
effectivement mais tant que on click pas dessus
il n'y a pas de risque!
et un autre aussi renommer son papa mais c mieux que rien

Sujet: Re: Un autre editeur particulier Mar 22 Sep 2015 - 19:23

Bien vu Jean Claude pour les variables ! Wink

Concernant les menus enfants, ils sont nécessaires a la création.
Une fois le menu généré il est facile de supprimer tous les objets du menu qui correspondent a STRING$(10," ") par un DELETE sur ces objets avec un petit test. Et donc là plus de ">" qui restent. bounce

Cela est juste vrai lors de la création du menu ! cheers

@Pascal : On s'est croisé, LOL !

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 7:56

Salut à tous,

Comme solution je propose ça:

Code:: DIM num%,num_main_menu%,n%
LABEL saisie

WIDTH 0,600 : HEIGHT 0,60 : LEFT 0,400 : MAIN_MENU 10 : num_main_menu%=10 : num%=11
SUB_MENU num% : PARENT num%,10 : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
END

saisie:
  OFF_CLICK NUMBER_CLICK : caption 0,str$(OBJECT_PARENT(NUMBER_CLICK))
  IF message_input("Edit Menu", "Sub_Menu" , " ")=1
   CAPTION NUMBER_CLICK,MESSAGE_TEXT$
   IF message_confirmation_yes_no("Voulez-vous continuer votre menu ?")=1
   IF OBJECT_TYPE(OBJECT_PARENT(NUMBER_CLICK))=12
   SUB_MENU num% : PARENT num%,10 : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   SUB_MENU num% : PARENT num%,NUMBER_CLICK : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   END_IF
   IF OBJECT_TYPE(OBJECT_PARENT(NUMBER_CLICK))=13
   SUB_MENU num% : PARENT num%,OBJECT_PARENT(NUMBER_CLICK) : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   SUB_MENU num% : PARENT num%,NUMBER_CLICK : CAPTION num%,STRING$(10," ") : ON_CLICK num%,saisie : num%=num%+1
   END_IF
   ELSE
   FOR n%=num_main_menu%+1 to num%-1
   IF CAPTION$(n%)=STRING$(10," ") THEN DELETE n%
   NEXT n%
   END_IF
  END_IF
RETURN

A+

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 11:53

oui jean claude
c'est une idée mais pas très esthétique la boite de dialogue
cela en fait 2 simultané
je retiens ton idée quand même

y a un hic les enfants peuvent devenir des parents
en faisant un essai deux numéros ce sont croisés
et un sous menu a disparu

j'ai trouver une solution que je tente de mettre au point

toute vos idées seront les bien venu et ont peut invité
ce défi à tout les panoramicien a trouver la solution

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 11:57

Citation :: y a un hic les enfants peuvent devenir des parents
en faisant un essai deux numéros ce sont croisés
et un sous menu a disparu

Comment cela peut il être possible, puisqu'il y a un numéro d'objet différent pour chaque ? !!! What a Face

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 12:38

bjr minibug

ce fut le menu enfant (deroulant) du 1er item qui a disparu
ben je ne peut pas te l'expliqué j'ai refait d'autre test
et cela ne c'est plus reproduit en essayant de refaire
la même manœuvre
je ne sais pas comment j'ai fait mon compte! alors gros mystère!!!!

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 13:15

Le NUMBER_CLICK a la place d"une variable est peut-être la source du problème...

Je réfléchis a une autre manière de faire ou l'on crée les objets les uns après les autres sans passer par des sélections multiples et inutiles.

C'est Jean Claude qui va être content !! Laughing

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 13:22

@Minibug,
Je confirme que ton code ne pose aucun problème de création d'objet.

@Pascal1000
Si j'ai bien compris l'utilité de ton programme au départ, à savoir créer un menu Panoramic en situation (auto_menu), alors ce n'est pas un clic de plus qui est important. C'est toujours mieux que d'écrire le code à la main....

@Tous,
J'ai presque terminé une nouvelle version basée sur la précédente. Je la met en ligne dès que c'est terminé.
PS: c'est fait, mais j'ai des soucis. c'est ici => https://panoramic.1fr1.net/t4434-auto-creation-d-un-menu-panoramic-besoin-d-aide#53258

A+

Sujet: Re: Un autre editeur particulier Mer 23 Sep 2015 - 22:41

bsr a tous

voila ce que j'ai tenter a exploite

dsl pour le code suprimer

d'ouvrir une fenêtre avec une option d'un check
ce qui permétai d'anuler le label crée
et d'exploite le label creerenfant

mais le probleme c que cette fenêtre n'est pas exploitable du fait
qu'un dialogue est ouvert vous le constaterez de vous même lors de vos teste

l'idée etait de créer 3 sub_menu en meme temp au label creerenfant
num% celui qui est créer
num2% pour son enfant
et num3% qui remplace num2%

tandis que le label creer
sont pour num% et num2%

tourjour important pas de gosub mais un goto à la ligne 55
sinon vous allez avoir des surprises a vous de voir pour ce choix

Sujet: Re: Un autre editeur particulier Jeu 24 Sep 2015 - 10:25

voici une version presque fini mais il est opérationnelle
pour créer les menus

Code:: annuler dsl

encore quelque ptit truc a mettre au point

Sujet: Re: Un autre editeur particulier Jeu 24 Sep 2015 - 19:48

suprimer

Sujet: Re: Un autre editeur particulier Jeu 24 Sep 2015 - 20:06

Bonsoir Pascal,

Où peut-on trouver "form.dll", je ne l'ai pas trouvé sur ton webdav ?

A+

Sujet: Re: Un autre editeur particulier Jeu 24 Sep 2015 - 20:18

form.dll appartient a nardo26 il permet de gerer les boutons
des form
tu peut utilisé kgf il me semble que c options sont présent
tu peut également supprimer cette option tu ne risque rien

Sujet: Re: Un autre editeur particulier Jeu 24 Sep 2015 - 21:05

Effectivement ça fonctionne sans la DLL, il faut juste supprimer les lignes correspondantes.

1) Il y a un problème avec la case à cocher "enfant", il semble qu'elle ne marche pas à tous les coups.

2) si on clique sur un menu ou sous-menu existant, il y a création d'un nouveau SUB_MENU, mais le code contient toujours l'ancien SUB_MENU.

Bon courage.

A demain.

Sujet: Re: Un autre editeur particulier Jeu 24 Sep 2015 - 21:16

ok j.c
c bizarre ça fonctionne bien chez moi mais je continuerai des teste

» Un autre éditeur panoramic
» Substituer l’icône de l’éditeur EliP par une autre.
» Explorateur particulier
» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
» Editeur EliP 5 : Tiny éditeur Panoramic