Comment mettre une couleur de fond ? et appeler une fenetre

[djmcg]

ai-je bien compris !!

Mettre une couleur de fond à une fenêtre.

Si j'ai bien compris je peux aider ??

En s'inspirant du totos et de renseigement glaner sur le forum...

Code : Tout sélectionner

Procedure Ouvre_Fenetre_Acceuil()
  If OpenWindow(#Fenetre_acceuil, 0, 0, 300, 300, #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SystemMenu | #PB_Window_Invisible, "Bienvenu dans le programme de Gestion Comptable")
    SetClassLong_(WindowID(0), #GCL_HBRBACKGROUND, CreateSolidBrush_(RGB(255, 176, 138)))
    HideWindow(0, 0) ; On montre la fenêtre
    ShowWindow_(WindowID(), #SW_MAXIMIZE)
    Repeat
      Event = WaitWindowEvent()
    Until Event = #WM_CLOSE
  EndIf  
EndProcedure

Avais-je bien compris la question ?
Bien sur avec la version démo, ca ne va pas marché. Enfin je pense.

[Backup]

@Venom :

ah bah oui la ligne contenant

BitBlt_(h

ne marche pas avec la demo de purebasic puisque c'est un appel a l'api windows !!

cours acheter le pure !!!

[Flype]

je viens de lire tout le post et je me disais que meme avec la version demo c réalisable. en tout cas j'espère n'ayant pas trop envie d'installer la version demo

Code : Tout sélectionner

; flype

Enumeration
  #Fenetre
EndEnumeration

Enumeration
  #Image_Fond
EndEnumeration

Enumeration
  #Gadget_Image
  #Gadget_Bouton
EndEnumeration

Hauteur = 640
Largeur = 480

If OpenWindow(#Fenetre,0,0,Hauteur,Largeur,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Purebasic")
  
  CreateImage(#Image_Fond,Hauteur,Largeur)
  
  CreateGadgetList(WindowID(#Fenetre))
  ImageGadget(#Gadget_Image,0,0,0,0,UseImage(#Image_Fond))
  ButtonGadget(#Gadget_Bouton,50,50,150,30,"Changer de couleur")
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        Select EventGadgetID()
          Case #Gadget_Bouton
            UseImage(#Image_Fond)
            StartDrawing(ImageOutput())
              r=Random(255)
              g=Random(255)
              b=Random(255)
              Box(0,0,Hauteur,Largeur,RGB(r,g,b))
            StopDrawing()
            HideGadget(#Gadget_Image,#True)
            HideGadget(#Gadget_Image,#False)
        EndSelect
    EndSelect
  ForEver
  
EndIf

[venom]

desoler mais avec la version demo sa fonctionne pas meme le code de flype erreur

Code : Tout sélectionner

,#True et #False

la demo ne le reconer pas
chu degouter mais bon merci quand meme de m'avoir aider fodra que je voie pour la version complete sa sera mieu
merci quand meme @++

[Flype]

hey pas de problème pour autant...

#True est en fait 1
et #False c'est 0
partout où il y a #True et #False tu les remplaces par 1 et 0 et m'est avis que ca devrait marcher

[venom]

tu a raison flype la en maittant 1 et 2 sa fonctionne. mais et t'il possible d'avoir plus de couleur car moi j'en ai que deux merci