SetEditorFont()

[filperj]

Petite procédure bien pratique pour avoir des EditorGadgets lisibles à l'oeil nu

Par contre je ne suis pas sûr que ça passe sur toutes les versions de Windows

Code : Tout sélectionner

Procedure.l SetEditorFont(Edit.l,Font.s,Height.l)
  Format.CHARFORMAT\cbSize=SizeOf(CHARFORMAT)
  Format\dwMask=#cfm_size|#cfm_face
  Format\yHeight=Height
  PokeS(@Format\szFacename,Font)
  ProcedureReturn SendMessage_(GadgetID(Edit),#EM_SETCHARFORMAT,0,@Format)
EndProcedure


If OpenWindow(0,0,0,400,300,#PB_Window_SystemMenu,"") And CreateGadgetList(WindowID(0))
  EditorGadget(0,0,0,400,300)
  t=SetEditorFont(0,"Lucida Console",240)
  Debug t
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

[Dräc]

Ca mache très bien sur 98SE

[Le Soldat Inconnu]

idem sur XP pro sp1

[filperj]

Merci
En fait, d'après la doc de MS j'avais cru comprendre que ça ne passerai pas sur les versions antérieures à NT... Mais j'ai dû mal lire, c'était pas clair du tout

[nico]

Ce qui serait bien, c'est de forcer le type de font lors d'un copier-coller.

[filperj]

Si tu veux te lancer dans des manipulations plus complexes, jette un oeil à ce code de Fr3ak:
http://purebasic.myforums.net/viewtopic ... adget+font