EPB V 1.48
http://michel.dobro.free.fr/download.php
alors j'ai du revoir pas mal de trucs
@Mindphazer: le fait que EPB "bouffe" 50% durant le chargement est normal
ça signifie que EPB travail !
a part ça j'ai revu le chargement de gros listing , ça devrai aller beaucoup plus vite
cependant, la conception même de EPB l'empêche de travailler sur de trop gros listing
enfin... si on veux garder les petits plus...
justement pour éviter les écueils due a la taille des listings
je ne met a jour les listview qu'a l'appui sur Return et au clic souris
et la complétion de nos propre procedures,constantes seulement si clic sur l'onglet du listing
ou a l'utilisation de Control+tab (tabulation total)
de sorte que ça devrai bien se passer
donc si vous voulez voir apparaitre vos procedure dans la complétion,
il vous faudra soit utiliser control+tab , soit cliquer sur l'onglet du code
c'est un compromis , pour pouvoir utiliser des listings plus important
utilisez "
_declare" en haut de votre listing
et vous aurez instantanément les déclarations de vos procedures qui s'inscriront toute seules comme
des grandes

utile si comme moi vous aimez mieux les procedures en fin de listing
Chris m'a donné une bonne idée
pouvoir controler EPB pour vos utilitaires et ainsi , permettre de positionner le curseur
ou inserer /remplacer une ligne, un mot, une lettre ... bref on peut maintenant quasi tout faire
faire a EPB
il vous faut pour cela utiliser dans vos code cette procedure :
voici l'exemple qui est fourni dans l'archive:
Code : Tout sélectionner
Declare envoie_epb(text.S,type)
; cette procedure vous permettra d'envoyer des commandes a EPB
; utilile si vous dévellopez un utilitaire, qui aurai besoin de poser un résultat dans EPB
; ****************** exemple d'utilisation **************************************
;envoie_epb("un Petit Message",0) ; pose au curseur
;
;envoie_epb("un Petit Message",1) ; Remplace la ligne en cours (par rapport au curseur)
;
;envoie_epb("un Petit Message",2) ; insert une ligne (par rapport au curseur)
;
;envoie_epb("20",3) ; saute a la ligne 20
;
;envoie_epb("10",4) ; positionne le curseur apres le 10eme caratere
;
;envoie_epb("5,10",5) ; selectione apres le 5em caractere sur une longueur de 10 caractere de la ligne en cours
;
; exemple de selection et remplacement :
;envoie_epb("5,10",5) ; selectione apres le 5em caractere sur une longueur de 10 caractere de la ligne en cours
;envoie_epb("message qui remplace",6) ; et remplace par le message
;
; recuperation de la ligne en cours par le clipboard()
; envoie_epb("message bidon",7) ; Recupere la ligne en cours, retour par le clipboard
; Delay(200)
; Debug GetClipboardText()
; *****************************************************************************
Procedure envoie_epb(text.S,type)
#file=1
MailSlot$ = "\\.\mailslot\test"
MailSlotData = RegisterWindowMessage_("DATASENT")
If OpenFile(#file, MailSlot$)
WriteString(#file,Str(type)+#TAB$)
WriteString(#file,text.S)
CloseFile(#file)
PostMessage_(#HWND_BROADCAST, MailSlotData, 0, 0)
EndIf
EndProcedure
;
; EPb