PureBasic

Merci Dobro de ton intervention 8) , c'est vrai que j'aurai dû remplacer les nbc par les nbcar des formats d'allocation image [If nbc<22500 ...] :oops:

En choisissant un nom de variable plus explicite comme nbp (nombre de pixel), il n'y aura plus de confusion possible. 8)

L'erreur des retours de ...

Le problème viennait des variables compteur et nbc, elles ne partagent pas les mêmes unités. 8O
variable unité pixel RGB
nbc unité R ou G ou B (caractère)

compteur=compteur+1

If compteur=nbc ; Problème d'unité pixel RGB Vs R ou G ou B
compteur=0
Break 2
EndIf
Rajout de la variable nbcar ...

C'est cette ligne là qui cause les retours automatiques de ligne. :idea:

SendMessage_(GadgetID(#editeur), #EM_SETTARGETDEVICE, #Null, 0)

Ensuite, il manque le closefile à rajouter :idea:

StopDrawing()
FreeImage(#Image)

CloseFile(#Fichier) ; *** (Manque le CloseFile) ***

;-editeur
If ...

Des .ICL, ce site en contient :

http://www.icone-gif.com/
http://www.icone-gif.com/icone/cartoons/divers/

@ peluche

Thyphoon, le truc curieux correspond à la tentative de stockage d'un Chr(0), à cause d'un Xor de 2 caractères identiques dans un String. 8O

Structure OneByte
a.b
EndStructure

Procedure.s XorString(a.s,b.s)
ProcedureReturn Chr(Asc(a) ! Asc(b))
EndProcedure

Procedure.l Bin2Dec ...

En déplaçant la fenêtre en dehors de l'écran avec le pixel affiché, l'instruction 'Point()' retourne -1. 8O
Ecrire directement sur une fenêtre pour récupérer la couleur d'un pixel n'est pas fiable. 8O

Il vaut mieux dessiner dans une image, puis de l'afficher dans la fenêtre directement ou avec un ...

Pour faire le point dans une fenêtre, il suffit de placer l'affichage dans l'évènement #PB_Event_Repaint. 8)

#Fenetre = 1
#Image = 2
#GadgetImage = 3

OpenWindow(#Fenetre, x, y, 500, 500, "Editeur KCC", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
SetWindowColor(#Fenetre, RGB(255,255,255 ...

Sans UCASE ça marche bien.
@ peluche

Ah non, on ne peut pas être le maillon faible http://img246.imageshack.us/img246/200/amf5.gif le jour de son anniversaire.

Bon anniversaire Progi1984. http://titou.files.wordpress.com/2006/12/cake.gif

Tu as même eu de la chance cette année, que ce ne soit pas tombé un Vendredi 13, en plus. :wink ...

C'est quand même un dysfonctionnement qui a son importance.

J'ai transmis le problème à Houston :

http://www.purebasic.fr/english/viewtopic.php?t=29796

@ peluche

Je pense qu'il y a un problème de mémorisation. 8O
Dès qu'on utilise la lecture, sans fileseek toute écriture est pointée automatiquement à la fin du fichier.

If CreateFile(38,"c:\test1.txt")

For i=1 To 5
WriteStringN(38,Str(i))
Next i

CloseFile(38)

EndIf

Debug "Debut lecture fichier ...

http://www.ikarusaudiokit.it/images/Animazioni2/genie_float_md_wht.gif Merci pour avoir exaucé 3 de nos voeux en une même fois. 8)

La version 4 de PureBasic http://www.gentles.info/KAP/gears_lg_wht.gif concerve bien l'état d'esprit initial des précedentes versions, avec pleins de bons trucs en ...

Il y aurait un début de solution, si cela fonctionne bien en blitz. 8O

Fabriquer un exécutable avec un premier messagerequester qui afficherait "START", puis lire la valeur du premier octet du fichier "C:\a.txt", et afficher cette valeur dans un autre messagerequester. 8)
Le tout sans ouvrir de ...

Que vient faire cette boucle d'évènements en plein milieu d'une procédure? Mystère.

La boucle standard est tout à fait capable de gérer les messages de plusieurs fenêtres, sans avoir besoin d'en mettre une dans chaque procédure qui ouvre une fenêtre.
Je ne vois pas le problème, selon le contexte ...

Le problème se situe entre le contenu de la liste du ListIconGadget et la liste chainée.
On efface les élements selectionnés dans la liste du ListIconGadget mais pas dans la liste chainée, qui sert de sauvegarde.

Une autre solution pour le RemoveGadget() :

Procedure RemoveGadget()
Protected i.l ...