Problème de police pour EditorGadget sur Mac

Codes specifiques à MacOS X
Avatar de l’utilisateur
Philippe_GEORGES
Messages : 112
Inscription : mer. 28/janv./2009 13:28

Problème de police pour EditorGadget sur Mac

Message par Philippe_GEORGES »

Le code suivant fonctionne sur PC mais pas sur Mac :

Je cherche à affecter la police d'un editorgadget.

if LoadFont (0, "Courier New", 10) ;Load Courrier Font, Size 1
SetGadgetFont(#Resultats,FontID(0))
endif

Quelqu'un a t il une solution ? :?:

Merci d'avance !
Philippe GEORGES
"La simplicité est la sophistication suprême" (De Vinci)
assistance informatique, création de logiciels
georges.informatique@gmail.com
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

Re: Problème de police pour EditorGadget sur Mac

Message par kernadec »

bonjour Philippe

Je n'ai pas de MAC
Mais as tu essayé l'exemple de la doc de : SetGadgetFont(#Gadget, PoliceID)

Sinon, il y a peut être cette solution pour les boutons :)
Cordialement

Code : Tout sélectionner

Procedure boutonImage(num_Img, x, y, w, h, colorFr, ColorTx, titre$, Ft$, hf,typ)
  ImgID = CreateImage(num_Img, w, h)
  Font=LoadFont(#PB_Any, ft$  , hf, typ) 
  StartDrawing(ImageOutput(num_Img))
    DrawingMode(1)
    Box(0, 0, w, h,colorFr)
    FrontColor(colorTx)
    DrawingFont(FontID(Font))
    DrawText(x,y,titre$)
  StopDrawing()
  ProcedureReturn ImgID
EndProcedure


OpenWindow(0,0,0,220,80,"Bouton Color",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

ButtonImageGadget(1, 50, 10, 110, 40,boutonImage(1,10,8,110,40,RGB(180,250,50),RGB(0,0,0),"  BINGO!!","arial",14,#PB_Font_Bold))

  Repeat
   Event = WindowEvent()
     
       Select Event
       
         Case #PB_Event_Gadget
           Select EventGadget()
             Case 1
               Debug "bouton1"
 
           EndSelect
       
       EndSelect

 
Until event = #PB_Event_CloseWindow
Avatar de l’utilisateur
Philippe_GEORGES
Messages : 112
Inscription : mer. 28/janv./2009 13:28

Re: Problème de police pour EditorGadget sur Mac

Message par Philippe_GEORGES »

Oui, Kernadec, les exemples fonctionnenet, mais c'est juste pour l'EditorGadget, pas moyen d'affecter une police ! (mais ça marche sous Windows)

Bonne journée

Phil
Philippe GEORGES
"La simplicité est la sophistication suprême" (De Vinci)
assistance informatique, création de logiciels
georges.informatique@gmail.com
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

Re: Problème de police pour EditorGadget sur Mac

Message par kernadec »

bonjour Philippe
j'ai trouvé un post de Shardik qui parle de ce problème et propose une solution!

http://www.purebasic.fr/english/viewtop ... 19&t=46961

Cordialement
Dernière modification par kernadec le jeu. 17/oct./2013 18:33, modifié 1 fois.
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Problème de police pour EditorGadget sur Mac

Message par Backup »

l'editor gadget est RTF compatible ...
donc un peu de code RTF devrai faire l'affaire ... ;)

a la question : mais comment faire ? reponse dans les Tutos du Forum ;)
Shardik
Messages : 4
Inscription : sam. 16/nov./2013 20:52
Localisation : Allemagne

Re: Problème de police pour EditorGadget sur Mac

Message par Shardik »

Philippe_GEORGES a écrit :Le code suivant fonctionne sur PC mais pas sur Mac :

Je cherche à affecter la police d'un editorgadget.

if LoadFont (0, "Courier New", 10) ;Load Courrier Font, Size 1
SetGadgetFont(#Resultats,FontID(0))
endif

Quelqu'un a t il une solution ? :?:
J'ai ajouté votre exemple dans le code exécutable suivant et ça marche sur mon Mac OS X 10.6.8 sans problèmes!

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 300, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 10, 10, 280, 130)
  
  If LoadFont (0, "Courier New", 10)
    SetGadgetFont(0, FontID(0))
  EndIf

  For i = 1 To 5
    AddGadgetItem(0, i, "Ligne "+Str(i))
  Next

  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
kernadec a écrit :j'ai trouvé un post de Shardik qui parle de ce problème et propose une solution!

http://www.purebasic.fr/english/viewtop ... 19&t=46961
Merci pour votre remarque sur mon exemple dans le forum anglais. Mais il fonctionne seulement avec Subsystem Carbon, qui malheureusement n'est plus contenu dans PB 5.20...
Répondre