Statusbar Couleur

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Statusbar Couleur

Message par Ar-S »

J'ai trouvé pas ma de codes (notamment de nico et denis) pour colorer une statusbar. Seulement j'aimerai savoir s'il ni a pas plus simple.
Plusieurs dizaines de lignes voir plus pour colorer une statusbar je ne trouve vraiment pas ça pratique.
je n'ai pas trouvé de code courts (même utilisant les API), si vous avez ça dans vos besaces ça me serait utile.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Statusbar Couleur

Message par falsam »

Un canvas peut être ?
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Statusbar Couleur

Message par falsam »

En reprenant l'exemple de l'aide et en ajoutant deux lignes d'API

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 355, 180, "Statusbar Color", #PB_Window_SystemMenu | #PB_Window_ScreenCentered|#PB_Window_SizeGadget) 
  HStatus = CreateStatusBar(0, WindowID(0)) 
  AddStatusBarField(90)
  AddStatusBarField(100)
  AddStatusBarField(#PB_Ignore) ; dimensionne automatiquement ce champ
  AddStatusBarField(100)

  StatusBarText(0, 0, "Area normal")
  StatusBarText(0, 1, "Area borderless", #PB_StatusBar_BorderLess)
  StatusBarText(0, 2, "Area right & raised", #PB_StatusBar_Right | #PB_StatusBar_Raised) 
  StatusBarText(0, 3, "Area centered", #PB_StatusBar_Center)
  
  SendMessage_(HStatus, #CCM_SETBKCOLOR, 0, RGB(255, 215, 0)) 
  SetWindowTheme_(HStatus, @null.w, @null.w) 
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf
Mais c'est moche.

PS : Le forum bug en ce moment ! (Accés lent et/ou déconnexion)
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Répondre