PureBasic

Bonjour

Pour changer le fond d'un StringGadget afin qu'il soit de couleur, j'utilise la fonction SetWindowCallback.



Enumeration 
  #window 
  #window2
  #Texte
  #Texte2
EndEnumeration 

Global FontID1 
Global background, textground 

FontID1 = LoadFont(1, "Comic Sans MS", 26) 
background = CreateSolidBrush_($18F4E7) 
Textground = CreateSolidBrush_($18F4E7) 

Procedure myCallback(WindowID, Message, wParam, lParam) ; for coloring as well 
 
  Resultat = #PB_ProcessPureBasicEvents 
 
  If Message = #WM_CTLCOLOREDIT 
      
   SetTextColor_(wParam, $031A19) 
   SetBkMode_(wParam,#TRANSPARENT) 
   Resultat = textground 
      
  EndIf  
  
  ProcedureReturn Resultat 
  
EndProcedure 

OpenWindow(#window, 399, 297, 640, 180,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Fenetre 1") 
CreateGadgetList(WindowID(#window)) 
StringGadget(#Texte, 20, 20, 600, 100, "", #PB_String_BorderLess) 
SetGadgetFont(#Texte, FontID1) 
SetClassLong_(WindowID(#window), #GCL_HBRBACKGROUND, background) 
InvalidateRect_(WindowID(#window), #Null, #True) 
SetWindowCallback(@myCallback()) 
SetGadgetText(#Texte,"Essais")

OpenWindow(#window2, 99, 97, 40, 80,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Fenetre 2") 
CreateGadgetList(WindowID(#window2)) 
StringGadget(#Texte2, 20, 20, 600, 100, "", #PB_String_BorderLess) 
SetGadgetText(#Texte2,"Essais")

Repeat 
  Event = WaitWindowEvent() 
Until Event = #PB_EventCloseWindow 

End

Cela marche mais le probleme c'est que le stringadget de l'autre page prend le fond de la meme couleur.
J'ai vraiment rien compris a cette fonction.
Comment peut on faire pour reinitialiser les autres fonds de textegadget.

Si quelqu'un connait un tuto ou on explique simplement le fonctionnement de cette instruction ce serait gentil de me donner le lien.

Encore merci.

Regarde les nouvelles fonctions de la V4, SetGadgetColor

Dri

Bonjour

Tout d'abord merci, a peine je me leve du dodo que j'ai ma reponse toute chaude.
Encore merci.

En fait j'ai telechargé la v4 depuis longtemps mais je n'avais pas vu de changement significatif au premier coup d'oeil de l'editeur.

Je n'avais pas regardé le CHM qui est deja bien plus complet que le precedent.

En plus le fait qu'il ne soit pas compatible m'a un peu rebuté.
Je sais qu'il y a un convertisseur,j'ai le 1.09 et il manque une convertion pour les datas qui n'autorise plus de mettre une variable exemple :

Code : Tout sélectionner

DataSection

ImageFlecheRetour:
;****************

IncludeBinary AppPath + "Fleche arriere.bmp"

Remplacé par

Code : Tout sélectionner


DataSection

ImageFlecheRetour:
;****************

IncludeBinary "Fleche arriere.bmp"

J'ai deja du mal a apprendre, alors si ls instructions changent tout le temps, c'est la galere.

J'en profite pour te demander si tu saurais ou l'on peut lire la liste des differences entre le v3.94 et v4.
Car sur le site de fred n'en parle pas, peut etre puisqu'elle doit etre en BETA.

Merci pour tout.
Excelente journée a toi DRI
Au plaisir de te relire.

tu peux trouver la liste des nouveautés ici
http://freak.purearea.net/v4/ReadMe.html

Dri

la liste des nouveautés se trouve aussi dans le CHM

il faut aller dans la page historique et cliquer sur le mot ici.

8 Mai 2006 : Version 4.00

Comme PureBasic 4 est une mise à jour très conséquente aussi bien en terme de nouveautés que de changements, un document résumant toutes les modifications effectuées sur les bibliothèques depuis la dernière version stable est disponible ici.

Et si tu as récupéré le CHM dans ma signature , les changements sont indiqués avec un code couleur.

comtois a écrit :Et si tu as récupéré le CHM dans ma signature , les changements sont indiqués avec un code couleur.

et a ce propos Merci encore a toi et tes petits nains pour le travail accompli

Bonjour

Je vous remercie tous, vous etes des anges.

Et de plus, de vous etre penché sur mon berceau de bébé programmeur en purebasic.

Que ferais-je sans ce forum ?????

Encore merci à tous et aussi a comtois pour cette aide qui est bien plus fournie que celle d'origine, on en a jamais trop quand on débute.

Je vous souhaite une excelente journée.
Et au plaisir de vous relire.

PureBasic

J'ai rien compris au "SetWindowCallback"

J'ai rien compris au "SetWindowCallback"

Merci pour cette reponse rapide

Grand merci