Fixer la couleur d'une fenêtre

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
kiriasse
Messages : 16
Inscription : mar. 26/avr./2005 15:53
Localisation : Hérault
Contact :

Fixer la couleur d'une fenêtre

Message par kiriasse »

Bonjour,

Comment donner une certaine couleur à une fenêtre ?
Je suppose qu'il faut utiliser BackColor(255, 0, 0) par exemple.
Mais comment ?
Et surtout comment trouver une réponse à ce genre de question de béotien ? J'ai cherché en vain dans l'aide de PureBasic.

Merci d'avance.
Oliv
Messages : 2117
Inscription : mer. 21/janv./2004 18:39

Message par Oliv »

http://www.purearea.net/pb/english/index.htm section codearchiv il y a un très grand regrouppement 'exemple et il y a aussi www.2dev.org (qui est en français :D ), donc avec ça tu devrais avoir de la recherche :P
Un code tiré de la section "Fenêtre" purearea :

Code : Tout sélectionner

; German forum:
; Author: 
; Date: 16. April 2003

hWnd1 = OpenWindow(0, 100, 200, 250, 260, #PB_Window_SystemMenu , "Hintergrundfarbe 1") 
hWnd2 = OpenWindow(1, 400, 200, 250, 260, #PB_Window_SystemMenu , "Hintergrundfarbe 2") 

hBrush1 = CreateSolidBrush_(RGB(255, 255, 255)) 
SetClassLong_(hWnd1, #GCL_HBRBACKGROUND, hBrush1) 

hBrush2 = CreateSolidBrush_(RGB(100, 100, 100)) 
SetClassLong_(hWnd2, #GCL_HBRBACKGROUND, hBrush2) 

InvalidateRect_(hWnd1, #Null, #True) 
InvalidateRect_(hWnd2, #Null, #True) 

Repeat 
  EventID.l = WaitWindowEvent() 
  
  If EventID = #PB_Event_CloseWindow 
    Quit = 1 
  EndIf 
  
Until Quit = 1 
DeleteObject_(hBrush1) ; Brush löschen/freigeben! 
DeleteObject_(hBrush2) 
End 
Sinon il existe la librairie "SkinWin" de Danilo qui offre beaucoup de possibiltés dans la rubrique lib :wink:
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

utilise la librairie Purecolor de Gnozal c'est plus simple
Répondre