peux t'on ecrire plus gros dans une statusbar?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

peux t'on ecrire plus gros dans une statusbar?

Message par bernard13 »

Bonjour

j'ai une question :

peux t'on ecrire plus gros dans une statusbar?

merci
fweil
Messages : 505
Inscription : dim. 16/mai/2004 17:50
Localisation : Bayonne (64)
Contact :

Message par fweil »

bernard13,

Il faut utiliser l'API Windows ..

Par exemple :

Code : Tout sélectionner

          SendMessage_(hStatusBar, #WM_SETFONT, FontID, #False)
où hStatusBar est le handle de la barre et FontID le handle d'une police. Le dernier paramètre est #False si on ne veut pas redessiner la barre immédiatement ou #True dans le cas contraire.

Tout cela est bien indiqué dans la doc API.

Exemple de code complet :

Code : Tout sélectionner

Enumeration
  #Window_Main
  #StatusBar
  #Gadget_String
EndEnumeration

;
;
;
  WindowWidth = 640
  WindowHeight = 480
  FontID = UseFont(LoadFont(#PB_Any, "Verdana", 12, #PB_Font_HighQuality))
  If OpenWindow(#Window_Main, 0, 0, WindowWidth, WindowHeight, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "MyWindow")
      AddKeyboardShortcut(#Window_Main, #PB_Shortcut_Escape, #PB_Shortcut_Escape)
      hStatusBar = CreateStatusBar(#StatusBar, WindowID(#Window_Main))
      If hStatusBar
          StatusBarText(#StatusBar, 0, "Status text")
          SendMessage_(hStatusBar, #WM_SETFONT, FontID, #False)
      EndIf
      If CreateGadgetList(WindowID(#Window_Main))
          StringGadget(#Gadget_String, 10, 10, WindowWidth - 20, WindowHeight - 40, "String gadget")
      EndIf
      Quit = #False
      Repeat
        Select WaitWindowEvent()
          Case #PB_Event_CloseWindow
            Quit = #True
          Case #PB_Event_Menu
            Select EventMenuID()
              Case #PB_Shortcut_Escape
                Quit = #True
            EndSelect
        EndSelect
      Until Quit
  EndIf
End
Mon avatar reproduit l'image de 4x1.8m présentée au 'Salon international du meuble de Paris' en janvier 2004, dans l'exposition 'Shades' réunisant 22 créateurs autour de Matt Sindall. L'original est un stratifié en 150 dpi.
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

mais je connais pas les apis helas
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

c'est quoi le Handle?
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Tu ne sais toujours pas utiliser SetGadgetText après plus d'1 an d'inscription, alors t'expliquer le reste, c'est franchement inutile.
fweil
Messages : 505
Inscription : dim. 16/mai/2004 17:50
Localisation : Bayonne (64)
Contact :

Message par fweil »

@nico,

arf ... mdr, mais bon c'est pas politiquement correct !!!

@bernard13,

Bon j'ai répondu à l'essentiel en donnant un joli code tout propre et bien explicite.

Maintenant il faut en profiter pour ouvrir la doc PureBasic et la doc WinAPI et tu devrais en tirer profit pour comprendre ce que sont ces choses que tu utilises déjà sans savoir ce que c'est précisément.

Un handle est un numéro de référence donné par le système d'exploitation qui est attribué à un objet ou une séquence de programme.

Par exemple lorsque l'on récupère la valeur WindowID(), on récupère en fait ce numéro de référence pour la fenêtre courante.

Idem pour GadgetID() par exemple.

Quand à l'utilisation des API il suffit bien souvent de procéder par mimétisme avec les auteurs qui postent sur le forum pour voir comment ça marche, et de bidouiller ensuite pour adapter.

A commencer par la constante API #WM_SETFONT, une requête Web comme :

http://search.microsoft.com/search/res ... s=1&swc=0

te donnera accès à plein de pages d'infos.

et

http://msdn.microsoft.com/library/defa ... tfont.asp

aux informations contenues dans l'aide API officielle.

Il faut penser à lire un max pour progresser dans ce domaine.
Mon avatar reproduit l'image de 4x1.8m présentée au 'Salon international du meuble de Paris' en janvier 2004, dans l'exposition 'Shades' réunisant 22 créateurs autour de Matt Sindall. L'original est un stratifié en 150 dpi.
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

desoler je comprend pas l'anglais
Répondre