KGF_dll - nouvelles versions

Je vais prendre ta solution et la comparer avec ce que j' ai trouvé pour voir.

Mais, une autre constatation.
J' ai collé une image clair dans les carrés de ma solution et là, le noir s' affiche... drunken

Puis, après çà, Sleep

, il est temps... Laughing

J' ai un comportement bizarre :

J' ouvre la fenêtre d' édition des subs
Lorsque je ferme cette fenêtre, je réécris dans l' objet synedit de l' onglet visible.
Si je tape sur la touche "Entrée" ou "Saut de ligne", la fenêtre de d' édition se ré ouvre ainsi que mon panneau de liste des subs enregistrées ( à droite).

Je pensais que l' objet actif était resté celui de la fenêtre d' édition donc j' ai créé un label Close1
qui utilise la fonction 2 pour rendre la main à l' objet de l' onglet visible mais rien.

Peut être que cette fonction est faite plus pour un objet fenêtré que rattaché ou que cela n' a rien à voir .
Peux tu me dire ce que tu en penses ?

Je me demande si cette fonction d' édition ne va pas être dans une petite appli externe (pluggin),
cela éclaircirait un peu mon code scratch

je n'arrive pas à reproduire cela. J'ai téléchargé la dernière version (PPE_2_04_05022015_02h02). J'ouvre le volet des procédures, par l'icône dont le hint affiche "Procédures". Je double-clique sur une des lignes - je reçois un appel de cette procédure dans ma fenêtre de saisie. Je ferme la fenêtre des procédures. Je clique dans ma fenêtre de saisie et je tape du texte, sans problème. Je tape Return ou Nouvelle Ligne, et ça réagit correctement par une insertion d'une rupture de ligne, pas de réaffichage d'une fenêtre quelconque.

Où est le problème ?

J' ai mis un zip sur le webdav 17h12

- cliquer sur l' icône "Procédures"
le panneau des procédures apparaît
- cliquer sur le bouton "+" du panneau
la fenêtre d' ajout d' une procédure apparaît
- fermer la fenêtre (par la croix, seul choix possible)
la fenêtre disparait
-Ecrire dans l' objet synedit de l' onglet visible puis presser la touche "Entrée/Retour à la ligne" ou même celle de "Entrée/ ="
Surprise, la fenêtre d' ajout des procédures ré-apparait

Bizarre, non ?

JJN4 !!! sors de mon ordi !!! Laughing

Ce n'est pas lié à Synedit ni au LabelPictureButton. Tu charges une variable NClic% par le contenu de Number_Click lorsqu'on clique sur un objet Panoramic. C'est le cas du bouton "+" dans la fenêtre de gestion des procédures. Et lorsque tu fermes cette fenêtre, la valeur de cette variable reste.

Maintenant, lorsque tu frappes "Return", le dernier objet Panoramic cliqué garde le focus, pour Panoramic. Et c'est le bouton "+". Et donc, la routine d'interceptions des clics est appelée, détecte le clic sur le "+" (NClic%=120), et effectue tout à fait logiquement l'affichage de cette fenêtre et de tout ce qu'il faut à ce niveau-là.

Donc, ce qu'il faut, c'est de prévoir une sortie "propre" de ta fenêtre de saisie du code des procédures. LA croix rouge seule ne suffit pas, car la fenêtre continue d'exister, ainsi que le bouton "+" qui garde d'ailleurs le focus. Et donc, il intercepte le Return.

Soit, tu supprimes la fenêtre, soit du déplaces le curseur par un Set_Focus ailleurs, ou une solution similaire pour faire de sorte que le bouton "+" ne garde pas le focus.

Voilà une explication logique et clair mais à laquelle je n' aurai pas pensé
tellement je focalise sur les autres objets.

Je vais rajouter cela dans le label Close1

Merci Klaus !

(Je suis en train de reprendre mes sources, pour restructurer toutes ces procédures et fonctions.
Il y en a dans tous les sens, et cela devient illisible...c' est le souk !!! )

Une suggestion: lorsque tu fais disparaître le volet, déclare INACTIVE sur la form concernée. Puis, lorsque tu le fais revenir, refais ACTIVE sur cette form...

Je vais essayer cette idée.
Je pense mettre un zip dans la nuit.
Merci Klaus.

( resultat : desactivation du bouton sur son clic et reactivation à l' ouverture du panneau )

Au secours!!!

Je récupère le numero de la derniere ligne par la fonction 28
J' y vais par la fonction 18
Je la sélectionne par la fonction 14 avec 1 en paramètre (pour 1 ligne )
je la copie dans le presse papier par la fonction 22 avec 0 en paramètre "copier"
je récupère cette ligne par a$=clipboard_string_paste$
je lui rajoute des chr$(13)+chr$(10) de façon à aller à la ligne 2 fois pour créer un saut de ligne
puis j' insère cette mixture par la fonction "SyneditInsertString"

Sauf que là, je récupère tout le presse papier avec le copier anterieur à ces actions...
As tu un autre moyen d' arriver à mes fins ?...

Peux-tu me poster cela avec un extrait simple de code ? Pour que je voie concrètement comment tu fais ? Juste les quelques lignes concernées ?

Code::    NL% = dll_call3("SyneditFunction",syn%(3),28,0)
   Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
   Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)
   Syn_res% = dll_call3("SyneditFunction",syn%(3),22,0)
   pp$=clipboard_string_paste$
   par$=pp$+chr$(13)+chr$(10)+chr$(13)+chr$(10)
   Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
   par$=lm$+":"+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
   Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))

c' est compliqué de ne mettre que quelques lignes...

le texte de depart du synedit est :

' ************************************************
' Labels
'*************************************************
SUB Labels()
END_SUB

Edit : on dirait que la fonction à ajouter dans le presse papier
au lieu de remplacer son contenu par celui que j' ai copié

RE EDIT : A moins qu' il y ait un moyen de placer le curseur à la fin de la derniere ligne ou ligne n° x

Je suppose que tu veux construire une maquette d'une SUB, à partir du nom de la SUB contenu dans le presse-papier. J'ai utilisé ton code pour faire un programme complet, opérationnel. Il y a deux boutons: le premier exécute ton code tel quel, le second exécute ma version qui est une légère variante de ton code. Compare...

Code:: label test, test_klaus
dim NL%, Syn_res%, pp$, par$, lm$, form%, edit%
dim syn%(5)

form% = 0
edit% = 1
lm$ = "--lm$--"
dll_on "KGF.dll"
Syn_res% = dll_call0("SyneditInitialize")
edit edit% : top edit%,300 : left edit%,10 : hide edit%
memo 2 : top 2,300 : left 2,10 : width 2,200
item_add 2,"MonLabel"
clipboard_string_copy "MonLabel"

syn%(3) = dll_call2("SyneditCreate",handle(form%),handle(edit%))
Syn_res% = dll_call5("SyneditGeometry",syn%(3),10,10,400,200)

button 10 : top 10,220 : left 10,10 : caption 10,"Test Ygeronimi"
on_click 10,test
button 11 : top 11,220 : left 11,120 : caption 11,"Test Klaus"
on_click 11,test_klaus

pp$ = "' ************************************************"
pp$ = pp$ + chr$(13)+chr$(10)+"' Labels"
pp$ = pp$ + chr$(13)+chr$(10)+"' *************************************************"
pp$ = pp$ + chr$(13)+chr$(10)+"SUB Labels()"
pp$ = pp$ + chr$(13)+chr$(10)+"END_SUB"
pp$ = pp$ + chr$(13)+chr$(10)
Syn_res% = dll_call3("SyneditFunction",syn%(3),2,0)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(pp$))
end

test:
' ********* code par Ygeronim
NL% = dll_call3("SyneditFunction",syn%(3),28,0)
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)
Syn_res% = dll_call3("SyneditFunction",syn%(3),22,0)
pp$=clipboard_string_paste$
par$=pp$+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
par$=lm$+":"+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
' ********* fin du code par Ygeronimi
return

test_klaus:
' ********* code par Ygeronim
NL% = dll_call3("SyneditFunction",syn%(3),28,0)
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)
Syn_res% = dll_call3("SyneditFunction",syn%(3),22,0)
pp$=trim$(clipboard_string_paste$)
par$=chr$(13)+chr$(10)+pp$+":"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
par$=par$ + lm$+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
' ********* fin du code par Ygeronimi
return

Mon souci est que lorsque je recupere le contenu du presse papier
il contient ce que je viens d' y copier + le copier précédent...

Je vais voir avec ton code ce que cela donne .

J' ai toujours ce problème avec le "coller"
qui me colle une demi tonne de choses en plus de ce que je viens de copier.

copier précédent + copier actuel

je crois que je vais laisser cette fonction de coté.
j' ai trop de truc bizarres avec le copier/ coller

J' attendrai de nouvelles fonctions... Laughing

Alors, fais précéder ton appel de la fonction DLL par

Code:: clipboard_string_copy ""

Et ça devrait être résolu

J' ai mis un zip avec mon souci celui du 09022015_01h38

Pour reproduire, tu crées un projet et tu ajoutes un label par le panneau
le nom dans le edit puis clic sur le bouton puis vas voir dans LAB.bas...
...si cela se passe comme chez moi, c' est pas vraiment ce à quoi on s' attend. Wink

Edit : on s' est croisé, je vais essayer ton idée, je n' y avais pas pensé à çà... Laughing

Cela va déjà mieux, ilme manque juste un bout de ce que je suis sensé avoir copié...
lol!

c' est rien, c' est nerveux...

Code::    item_add L%,lm$
   clipboard_string_copy ""
   NL% = dll_call3("SyneditFunction",syn%(3),28,0)
   message str$(NL%)
   Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
   Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)
   wait 5000
   Syn_res% = dll_call3("SyneditFunction",syn%(3),22,0)
   par$=lm$+":"+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
   pp$=trim$(clipboard_string_paste$)+chr$(13)+chr$(10)+chr$(13)+chr$(10)
   message pp$
   par$=par$+pp$
   Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))

j' ai mis un message pour voir le numéro de la derniere ligne
Twisted Evil

c' est la bonne !!!
j' ai mis un wait pour visualiser ce que sélectionnait la fonction 14
affraid

je vois le surlignage mais il manque la dernière lettre dans le surlignage
puis j' ai mis un message pour voir pp$ qui est sensé renvoyer la ligne collé dans le presse papier
par la fonction 22
affraid

rien, vide, néant

KGF_dll - nouvelles versions - Page 13 Captur18

KGF_dll - nouvelles versions - Page 13 Captur19

KGF_dll - nouvelles versions - Page 13 Captur20

D'accord. Je vois mieux ce que tu veux obtenir. Le problème du surlignage et de la mise en presse-papier semble être un bug que je vais corriger.

Mais pourquoi veux-tu mettre le End_Sub en mémoire ? Il suffit de se positionner à la ligne+1 et d'insérer directement ton texte, sans utiliser la fonction qui copie END_SUB... Ce que tu veux obtenir, c'est tout de même:

Code:: SUB Labels()

END_SUB

MonLabel:

... EM$...
RETURN

Ai-je bien compris ? Ou veux-tu obtenir ceci:

Code:: SUB Labels()
LABEL MonLabel

END_SUB

MonLabel:

... EM$...
RETURN

Dans ce cas:
1. cherche "SUB Labels()" à partir de la première ligne
2. positionne sur la ligne suivante
3. Insère "LABEL "+nom$+chr$(13)+chr$(10)
4. cherche "END_SUB"
5. positionne sur la ligne suivante
6. Insère nom$+":"+chr$(13)+chr$(10)+chr$(13)+chr$(10)+EM$+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)

Et voilà... Pas besoin d'utiliser le presse-papier pour cela. Mais je suis d'accord, il faur que je corrige ce bug.

Si je peux aller à la ligne 19 quand il n' y en a que 18, moi, ca me va .
mais ma logique me disait de la créer avant d' y aller . Laughing

le truc c' est de pouvoir ajouter un label
sans se retrouver au milieu d' un code inséré manuellement par l' utilisateur.
donc, pour ca, je dois imperativement l' ajouter apres la derniere ligne.

Aller je prends, je mets en place et puis dodo... Laughing

Merci pour toute cette aide Klaus.

Et oui, ça marche, d'ailleurs comme ITEM_INSERT en Panoramic. On insère AVANT la ligne dont le numéro est passé en paramètre. C'est pourquoi le code suivant marche:

Code:: memo 1 : height 1,200
dim i%
for i%=1 to 20
' ici, tu es systématiquement 1 plus loin que la dernière ligne !
item_insert 1,count(1)+1,str$(i%)
next i%
end

item_insert avec un numéro de ligne plus grand que le dernier numéro existant est équivalent à item_add, en Panoramic. C'est pouquoi je n'ai pas vu la nécessité de faire une fonction de type add ou append - insert avec un numéro de ligne plus grand que le contenu actuel est suffisant.

Code::    NL% = dll_call3("SyneditFunction",syn%(3),28,0)
   NL%=NL%+1
   Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
   par$=lm$+":"+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
   Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))

Résultat :

KGF_dll - nouvelles versions - Page 13 Captur21

c' est item_add qui permet d' aller au delà de la ligne de fin
item_insert met à ligne désigné et repousse la dite ligne
(Jack c' est un arrangé en Panoramic pour que cela fonctionne comme item_add )
et si je fais ceci avec la dll, la ligne n' est pas mise une ligne plus bas mais à la suite du texte inséré.
c' est logique puisque le curseur est à la position 0 de la ligne.

Ne te bile pas, c' est largement l' heure d' aller fermer les yeux.
Demain il fera jour...et on y verra plus clair... Laughing

Nouvelle version:
KGF.dll V4.22 du 09/02/2015

Nouveautés:
- Synedit: correction de quelques anomalies, ajout code 29 à SyneditFunction

Modules modifiés:
KGF.dll, KGF.chm

Les sources et la doc sont à jour.

1. La sélection d'une ligne va maintenant jusqu'au bout, au lieu d'ignorer le dernier caractère
2. Le positionnement sur une ligne après la dernière ligne présente ajoute automatiquement une ligne blanche en fin de texte
3. Le nouveau code 29 à SyneditFunction ajoute du texte à la fin de tout le texte présent sans un objet Synedit (identique à ITEM_ADD de Panoramic)

@Ygeronimi:
Avec cette version, essaie le code suivant:

Code:: label test, test_klaus, test2
dim NL%, Syn_res%, pp$, par$, lm$, form%, edit%
dim syn%(5)
dim label_klaus$, n_label%

form% = 0
edit% = 1
lm$ = "--lm$--"
dll_on "KGF.dll"
Syn_res% = dll_call0("SyneditInitialize")
edit edit% : top edit%,300 : left edit%,10 : hide edit%
memo 2 : top 2,300 : left 2,10 : width 2,200
item_add 2,"MonLabel"
clipboard_string_copy "MonLabel"

syn%(3) = dll_call2("SyneditCreate",handle(form%),handle(edit%))
Syn_res% = dll_call5("SyneditGeometry",syn%(3),10,10,400,200)

button 10 : top 10,220 : left 10,10 : caption 10,"Test Ygeronimi"
on_click 10,test
button 11 : top 11,220 : left 11,120 : caption 11,"Test Klaus"
on_click 11,test_klaus
button 12 : top 12,220 : left 12,230 : caption 12,"Test 2"
on_click 12,test2

pp$ = "' ************************************************"
pp$ = pp$ + chr$(13)+chr$(10)+"' Labels"
pp$ = pp$ + chr$(13)+chr$(10)+"' *************************************************"
pp$ = pp$ + chr$(13)+chr$(10)+"SUB Labels()"
pp$ = pp$ + chr$(13)+chr$(10)+"END_SUB"
pp$ = pp$ + chr$(13)+chr$(10) + chr$(13)+chr$(10)
Syn_res% = dll_call3("SyneditFunction",syn%(3),2,0)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(pp$))
end

test:
' ********* code par Ygeronim
NL% = dll_call3("SyneditFunction",syn%(3),28,0)
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)
Syn_res% = dll_call3("SyneditFunction",syn%(3),22,0)
pp$=clipboard_string_paste$
par$=pp$+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
par$=lm$+":"+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
' ********* fin du code par Ygeronimi
return

test_klaus:
NL% = dll_call3("SyneditFunction",syn%(3),28,0)
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)
Syn_res% = dll_call3("SyneditFunction",syn%(3),22,0)
pp$=trim$(clipboard_string_paste$)
par$=chr$(13)+chr$(10)+pp$+":"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
par$=par$ + lm$+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(Par$))
return

test2:
n_label% = n_label% + 1
label_klaus$ = "MonLabe_l"+str$(n_label%)
par$ = "SUB Labels()"
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,1)
NL% = dll_call3("SyneditFunction",syn%(3),19,adr(par$))
NL% = NL% + 1
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
par$ = "LABEL "+label_klaus$+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(par$))

NL% = dll_call3("SyneditFunction",syn%(3),28,0)
' NL% = NL% + 1
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
par$=label_klaus$+":"+chr$(13)+chr$(10)+"RETURN"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
Syn_res% = dll_call2("SyneditInsertString",syn%(3),adr(par$))

Syn_res% = dll_call3("SyneditFunction",syn%(3),18,1)
par$ = "SUB Labels()"
NL% = dll_call3("SyneditFunction",syn%(3),19,adr(par$))
Syn_res% = dll_call3("SyneditFunction",syn%(3),18,NL%)
Syn_res% = dll_call3("SyneditFunction",syn%(3),14,1)

return

Utilise le bouton "Test 2", à plusieurs reprises. Est-ce que cela convient ?

Merci Klaus !

Je ne teste pas tout de suite, je viens de me faire appeler Georges par mon frigo
et si je veux grignoter quelque chose à midi.... Laughing

En tout cas, cela va résoudre tous mes problèmes. Merci.

Génial Klaus !

Cela fait exactement ce que je voulais. C' est pas beau çà... Laughing

Je n' ai même pas eu à modifier le code, juste la dll et hop tout est rentré dans l' ordre.

» KGF_dll - nouvelles versions
» Nouvelles versions
» Synedit_Editor - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions