Raz du panneau debugger par NETMAESTRO

[Kwai chang caine]

Bonjour la famille

C'est noel apres noel

Le maitre NETMESTRO viens de me donner un super code pour ajouter une fonction à pure que FRED n'a pas eu le temps de rajouter dans la 4.20. Il a dit qu'il le ferait .....en attendant..........
Apres donc le retour à la ligne du maitre grace à un executable ..... voici donc le RAZ du panneau debbuger par le code avec une lib.

J'avais déjà demandé ça sur le forum FR, et on avait pas eu de réponses positives, et en plus je ne retrouve pas le POST.

Et je suis tellement préssé de vous en faire profiter.
J'suis exité comme une puce, twoin, twoin, twoin

Alors voila, attention c'est tout chaud, voici la lib TainTain:

http://purebasic.myftp.org/?filename=fi ... ebugWindow

Et le code, Re TainTain

Code : Tout sélectionner

;===================================================== 
; Library:          ClearDebugWindow 
; Author:           Lloyd Gallant (netmaestro) 
; Date:             August 7, 2007 
; ==================================================== 

Procedure FindListBox(hwnd, *lbhwnd.LONG) 
  cn$=Space(255) 
  GetClassName_(hwnd, @cn$, 254) 
  If UCase(cn$) = "LISTBOX" 
    *lbhwnd\l = hwnd 
    ProcedureReturn 0 
  Else 
    ProcedureReturn 1 
  EndIf 
EndProcedure 

Procedure FindDebugWindow(hwnd, *debugoutput.LONG) 
  wt$ = Space(255) 
  GetWindowText_(hwnd, @wt$, 254) 
  If FindString(wt$, "Debug Output", 1) Or FindString(wt$, "Messages du débogueur", 1) Or FindString(wt$, "Debugger-Ausgabe", 1) Or FindString(wt$, "Salida Depurador", 1) 
    *debugoutput\l = hwnd 
    ProcedureReturn 0 
  Else 
    ProcedureReturn 1 
  EndIf 
EndProcedure 

ProcedureDLL ClearDebug() 
  Protected debugoutput=0, listboxhwnd=0 
  time = ElapsedMilliseconds() 
  Repeat 
    EnumWindows_(@FindDebugWindow(), @debugoutput) 
    Delay(1) 
  Until debugoutput Or ElapsedMilliseconds()-time > 200 
  If debugoutput 
    EnumChildWindows_(debugoutput, @FindListBox(),@listboxhwnd) 
  EndIf 
  If listboxhwnd 
    SendMessage_(listboxhwnd, #LB_RESETCONTENT,0,0) 
    ProcedureReturn 1 
  Else 
    ProcedureReturn 0 
  EndIf 
EndProcedure 

Debug "Happy New Year!" 
Debug "Bullfrogs rule the world" 
Debug "Stand by for a cleared debug window in one second..." 
Debug "" 
Delay(1000) 
ClearDebugWindow() 

Et le lien Re TainTainTain:

http://www.purebasic.fr/english/viewtop ... sc&start=0

Mille merci à ce maitre parmis les maitres

[comtois]

Tu vois bien que les meilleurs codes sont sur le forum anglais et pas ici , tu passes ton temps à aller les chercher là bas

Je taquine hein , il me semble que j'ai lu des trucs à ce sujet récemment

[Kwai chang caine]

Tu as raison, je ne sais pas si c'est les meilleurs, mais il y a une sacré brochette de CAID sur le forum US.

Si il savait a quel point je les admire
Mais mon probleme c'est que je ne sais pas comment le leur faire comprendre et surtout comment me faire comprendre tout court

J'ai décidé de me remettre à l'anglais, ils meritent bien que je fasse cet effort.
Je ne renie pas le forum FR, car ici on peut parler (hein CHRIS ) de couture et d'autres choses
Non je rigole, la prog c'est la vie, la passion, les coups de nerfs, les coup de foudre, et tout ça on a deja beaucoup de mal a le faire passer par le texte en français, mais alors en anglais .....

Et puis y'a beaucoup plus de monde...

C'est pourquoi, je me suis dit que de rammener les codes comme le retour à la ligne, et celui la, dans la famille française, eh ben ça nous permettrait d'attendre la v8.5 ou les fonctions seront natives

Les romains avaient plein de dieux differents, moi aussi et c'est vous tous, les vrais programmeurs de toute la planete, qui repoussent les limites de l'incroyable tous les jours.
Si seulement vous saviez le bonheur que vous me procurez tous .....
C'est autre chose que les fetes de fin d'année bidon ou on est obligé de se les feter à partir du 25 decembre, et apres, on retourne dans notre vie metro boulot dodo, sans s'occuper du voisin qui déperi à coté.
Pour moi et grace à vous tous les CAIDS fr et us c'est noel tous les jours, meme en été et ça c'est la vraie magie de "NOEL"

[Chris]

Autant je trouvais la fonction pour les retours à la ligne utile, voire indispensable, autant celle-là me paraît sans grand intérêt.

Effacer le débugger, pourquoi faire?
Ca me paraît un peu... "gadget", comme fonction.

A la limite, une fonction de copie de la sélection me semblerait plus utile.

[Kwai chang caine]

Aaaahhh! je retrouve mon rochon favoris

Bah en fait, je cherchais ça car quand tu as noire de variables dans une boucle, le debugger il arrette pas de defiler et d'en ecrire des pages.
Avec cette fonction un coup de RAZ et hop tu es sur que ce qui est ecris est vraiment les dernieres et en plus c'est bien plus propre.

Moi c'est ce que j'avais besoin, mais vu que ça a été demandé déjà et que fred a dit qu'il le ferait c'est peut etre aussi qu'il le juge utile pour d'autres fonctions.

Ou alors qu'il est poli

[Kwai chang caine]

Yoooouuuupiii

J'suis arrivé a les faire rire et à mettre de la bonne humeur outre atlantique aussi

Le bouffon KCC a encore frappé

http://www.purebasic.fr/english/viewtop ... 693#225693
http://www.purebasic.fr/english/viewtop ... 719#225719