KGF_dll - nouvelles versions

Une petite chose qui n' a rien à voir et que tu peux peut être sécuriser.

J' ai créé un sixième objet synedit et comme je suis un peu (beaucoup) fainéant,
je suis servi du copier/coller puis changer les numéros.

Sauf que j' avais oublié de créer le edit  mais que son numéro était valable
puisque les numéros sont dans un tableau pré-défini de 6 cases.
Ceci dit, le handle devait être bidon car le numéro devait être 0...et que 0 c' est le form de base.

Du coup, pas de message d' erreur...  

Je ne suis peut être pas clair sur ce coup là

Si, si, c'est clair. Donc, tu as passé le handle de la form 0, et les messages sont adressés à la form 0. As-tu remarqué un changement de titre sur la form 0, lorsque tu saisis dans ce sixième Synedit ?

J'ai trouvé d'où vient le problème. Lors de l'activation initiale d'un Synedit, celui-ci est mis en avant-plan et activé, pour Windows. Et le fait de changer d'onglet ne change pas ça. Il y a deux solutions à ce problème:
1. déclencher un évèmenemt sur le changement d'onglet
2. changer l'activation en cliquant dans le Synedit
Dans les deux cas, il faut que le fasse une modif dans la DLL, et je m'y mets. Patience...

La raison pour laquelle je ne rencontre pas ce problème avec mon Synedit_Editor, c'est parce que je palce chaque Synedit dans une form séparée, et j'intercepte le nouvel évènement ON_ACTIVATE sur ces forms. Mais je te trouverai une solution.

Pour le sixième synedit, j' avoue que je n' ai pas fait attention au titre du form 0 
mais je me suis rendu compte très vite de ma bourde...

Prends le temps qu' il faut, j' ai du boulot avec le reste. 
Je suis sur les panneaux de droite et j' ai une petite idée tordu 
pour la liste des Sub Projet dans ceux de gauche  .

Nouvelle version:
KGF.dll V4.20 du 03/02/2015

Nouveautés:
- Synedit: correction d'un bug: après une sauvegarde, l'indicateur interne "modifié" n'était pas effacé.

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc est inchangée.

Pour Ygeronimi:
recharge la DLL - ça marche maintenant. Dans ton programme principal, j'ai désactivé 2 lignes par un commentaire "klaus==>" - elles sont inutiles. Voici la section concernée:

Code:

' ENREGISTREMENT D UN PROJET
Sub Save_Project()
   dim_local file$,i%,O%
   if ProjectName$=""
      message "Aucun Projet n' est ouvert !..."
      exit_sub
   end_if
'   off_change Syn_Edit%
   if Syn_Etat%(1)=1
      file$=ProjectPath$ +"MAIN.bas"
      Syn_res% = dll_call4("SyneditSaveToFile",Syn%(1),adr(file$),1,0)
   end_if
   if Syn_Etat%(2)=1
      file$=ProjectPath$ +"VAR.bas"
      Syn_res% = dll_call4("SyneditSaveToFile",Syn%(2),adr(file$),1,0)
   end_if
   if Syn_Etat%(3)=1
      file$=ProjectPath$ +"LAB.bas"
      Syn_res% = dll_call4("SyneditSaveToFile",Syn%(3),adr(file$),1,0)
   end_if
   if Syn_Etat%(4)=1
      file$=ProjectPath$ +"GUI.bas"
      Syn_res% = dll_call4("SyneditSaveToFile",Syn%(4),adr(file$),1,0)
   end_if
   if Syn_Etat%(5)=1
      file$=ProjectPath$ +"FCT.bas"
      Syn_res% = dll_call4("SyneditSaveToFile",Syn%(5),adr(file$),1,0)
   end_if
   for i%=1 to 5
      Syn_Etat%(i%)=0
' klaus==>      text Syn_Edit%(i%),""
      Tab_res% = dll_call6("TabObjectFunction",Tab%,8,i%,0,0,0)
   next i%
'   O% = dll_call6("TabObjectFunction",Tab%,3,0,0,0,0)
'   message str$(O%)
' klaus==>   Syn_res% = dll_call3("SyneditFunction",O%,2,0)
'   on_change Syn_Edit%,Change
End_sub

 

Merci Klaus !
Je vais tester cela tout de suite...


Edit :  
 Cela fonctionne à merveille !!! Et, en plus, il me semble que 
le traitement de l' enregistrement est plus rapide.
Merci Klaus.

Très bien ! C'est comme ça que KGF.dll progresse ! Merci à toi !

De rien Klaus.

As tu pu voir le retour du nombre de lignes d' un objet synedit ? 

Promis, après j' arrête...je passe à LabelPictureButton pour quelques heures...

Nouvelle version:
KGF.dll V4.21 du 03/02/2015

Nouveautés:
- Synedit: ajout code 28 à SyneditFunction: retourner le nombre de lignes de l'objet Synedit

Modules modifiés:
KGF.dll

Les sources et la doc sont sont à jour.

Chouette !!! je me mets à jour tout de suite !
Merci Klaus.

Par contre, la fonction 19 renvoie 1 ou 0 mais pas le numéro de la ligne...

Euh... pour le code 19, c'est normal. Et c'est ce que dit la doc: retourner 1 si la chaîne existe, et 0 sinon.

Ce code 10 effectue une vraie recherche, avec positionnement du curseur. Retourne également 1 si trouvé et 0 sinon. Mais si trouvé, le curseur est positionné sur la chaîne trouvée.

Le code 10 recherche de texte vers avant ou arrière 
Mais quoi ? puisque on ne lui donne pas de texte à chercher...

Je cherche à récupérer la ligne ou se situe le texte recherché.
Il me semblait que la 19 était la mieux et renvoyait 0 si pas de texte trouvé.

Tu l'as essayé, ce code 10 ? Il ouvre une fenêtre de dialogue de recherche, dans laquelle on spécifie entre autres le texte à chercher...

Je n'ai pas fourni de fonction de recherche par programme, retournant l'endroit trouvé. En effet, ce n'est pas significatif du tout, puisqu'on ne chercherait que dans les lignes "dépliées", et non globalement dans tout le texte.

Mais je te propose une solution: je peux faire un code fonction à SyneditFunction qui retourne la position de début, la position de fin ou la longueur de la chaîne trouvée... je peux en dériver également le numéro de ligne et le numéro de colonne. Mais ce sera la position (caractère ou ligne) dans le Synedit dans l'état dans lequel il est, sans tenir compte des segments repliés.

Si tu veux travailler dans le texte par programme, il vaut mieux le copier dans autre chose, via un fichier temporaire, en utilisant SyneditSaveToFile en mode "déplié", puis tu charges ce fichier, soit dans une DLIST, un MEMO etc.

L'objet Synedit est conçu pour une utilisation interactive et non programmée. C'est pourquoi les fonction de recherche et de remplacement ouvrent un dialogue qui lui, lance l'opération proprement-dite.

Ces fonctions peuvent être utiles mais pour l' instant, je pense que j' ai trouvé un paliatif
mais à la condition express que l' utilisateur passent par les outils et ne code pas en direct
sur l' objet. Auquel cas, je perds le fil.

Mais j' ai d' autres soucis notamment avec les LabelPictureButton
qui n' affiche pas mes images et restent "enfoncés".

Je vais faire un zip d' ici quelques minutes...

clic sur afficher la liste des procedures
puis sur le bouton au dessus de la liste
La fenetre s' ouvre. 
J' ai placé 4 LPB mais j' ai pas les images et les boutons restent enfoncés si je re clic.
(ligne 1500 à 1507 pour le graphique et 1534 pour la gestion du clic )

Si tu double clic sur le nom d' une sub, elle l' appel est importée dans l' objet actif (onglet en vue )
La sub est importé dans l' onglet FCT.bas mais il y a mieux...
regarde dans le panneaux de gauche "Procedures" et normalement si on va sur l' onglet FCT et que l' on double clic
sur une des procedures dans le panneau de gauche, on va a la ligne de debut  de cette procedure

Le retour du numéro de ligne m' aurait servi à aller à la ligne de la sub 
en la recherchant par son nom dans l' objet 5 (onglet FCT) et ce quelque soit les écritures de l' utilisateur
après une importation.

J'ai modifié SyneditFunction code 19 pour retourner 0 si le critère n'est pas trouvé (comme avant) et le numéro de ligne si le critère est trouvé (au lieu de 1). Je n'ai pas changé la version, mais la foc est mise à jour.

Ok, Merci Klaus.

Je vais mettre en application tout de suite.

Y a t il une taille minimal pour les LabelPictureButton ?



J' ai suivi l' exemple dans le code que tu as donné plus haut, mais je n' ai pas d' affichage des images...
à moins que... il me vient une idée mais je ne suis pas sûr.

A ma connaissance, pas de taille minimale. Et même la taille du bouton s'adapte automatiquement à la taille de l'image.

J' ai essayé avec des chaines vides "" avec des chaines "   " à la place du texte que je veux pas
mais non, pas d' image.

Un truc bizarre, cela fonctionne si je me sers de ton image "test.bmp"
même en la renommant.
Si je sers des miennes, rien...

Poutant elles sont en 24 aussi...

Pourrais-tu faire juste un mini-programme avec 2 ou 3 LabelPictureButton, avec ses images de ta production ainsi qu'un LabelPictureButton avec mon image. Puis placer cette petite maquette dans un ZIP pour que je puisse l'analyser ? Le code de PPE devient un peu trop complexe pour isoler un problème rapidement...

Tu peux le dire, c' est le bordel !


Il va falloir que je fasse une pause pour remettre un peu d' ordre là dedans.


Pour notre problème, je vais faire cela.

Le zip est sur mon webdav  "Pb_LPB.zip"

Je vais voir ça !

  J' ai trouvé une image qui fonctionne !


Le noir est une couleur de transparence mais note la disposition des carrés de couleur
pour des boutons de 22x22 les carrés font 18x18 et la disposition....

Le problème vient de ton fichier BMP qui ne doit pas avoir un format standard. Je n'ai rien pu faire avec ce fichier, même en jouant avec les dimensions.

Alors, j'ai pris le mien et j'ai installé tes couleurs. Tu le trouves à la racine de mon WebDav, sous le nom de Yannick_x.bmp. Avec ça, ça marche.

Je vais plus tard regarder ce problème plus en détail, mais en attendant, tu as une solution...