Caracteres d'un EditorGadget proportionnels à sa taille

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Caracteres d'un EditorGadget proportionnels à sa taille

Message par Kwai chang caine »

Bonjour à tous

Est il possible de créer un editor gadget avec la font qui est proportionnelle à la taille du gadget ou plutot de la fenetre ou il est déposé.

On réduit la fenetre , la font réduit, on l'agrandie elle s'agrandie toute seule.

Merci de vos reponses
Bonne journée
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

En principe, oui.

Il suffit de recharger la fonte avec une taille différente et de l'affecter au gadget.

Essaye en utilisant l'évenement #WM_Size (ou #PB_Event_SizeWindow)
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Merci pour ta reponse CHRIS

Je vais chercher dans cette direction :wink:
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

Tu peux toujours essayer ça. C'est pas très "propre", comme code, mais c'est une piste.

Code : Tout sélectionner

 If OpenWindow(0, 0, 0, 320, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
    
    If CreateGadgetList(WindowID(0)) 
      EditorGadget(0, 5, 5, 310, 140)
      Font = LoadFont(0, "Arial", GadgetHeight(0) /4)
      
      SetGadgetFont(0, Font)
    EndIf
    
    AddGadgetItem(0, a, "Ligne "+Str(a)) 
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_SizeWindow
          ResizeGadget(0, 5, 5, WindowWidth(0) - 10, WindowHeight(0) - 10)
          Font = LoadFont(0, "Arial", GadgetHeight(0) / 4)
          SetGadgetFont(0, Font)
          
        Case #PB_Event_CloseWindow : Quit = 1
      EndSelect
    : Until  Quit = 1  
  EndIf 
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Tu es genial CHRIS

C'est exactement "çaquejevoulais" :D
J'avais commencé mais je ne t'apprend pas que j'y arrivais pas (Evidemment si j'y etais arrivé, je ne serais plus KCC :lol: )

Y'a juste le clignotement qui est un peu dommage, mais c'est vraiment un supermegabon début.

Encore mille merci
Répondre