PureBasic

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


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

Ca mache très bien sur 98SE

idem sur XP pro sp1

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

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

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

PureBasic

SetEditorFont()

SetEditorFont()