Sources PureBasicConsultez toutes les sources

Nombre d'auteurs : 41, nombre de sources : 88, dernière mise à jour : 13 août 2011 

 
OuvrirSommaireGadgetsEditorGadget

Valable uniquement avec Windows (utilisation de l'API).
Ce code permet d'afficher un texte en rouge dans un EditorGadget, et de le souligner en bleu.

 
Sélectionnez

#CFU_UNDERLINENONE = 0
#CFM_UNDERLINETYPE = $800000
#CFU_UNDERLINEWAVE = $8
#BlueUnderline = $10
#CyanUnderline = $20
#GreenUnderline = $30
#MagentaUnderline = $40
#RedUnderline = $50
#YellowUnderline = $60
#AquaUnderline = $90
#SeaGreenUnderline = $A0
#MaroonUnderline = $C0

If OpenWindow(0, 0, 0, 400, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 10, 40, 380, 250)
  cf2.CHARFORMAT2
  cf2\cbSize = SizeOf(CHARFORMAT2)
  cf2\dwMask = #CFM_UNDERLINETYPE | #CFM_SIZE | #CFM_COLOR
  cf2\yheight = 400
  cf2\crTextColor = #Red
  cf2\bUnderlineType = #CFU_UNDERLINEWAVE | #BlueUnderline
  SendMessage_(GadgetID(0), #EM_SETCHARFORMAT, #SCF_ALL, cf2)
  AddGadgetItem(0, -1, "PureBasic Test")
  ButtonGadget(1, 10, 10, 100, 30, "Remove Underline")
  Repeat
    event = WaitWindowEvent()
    If EventType() = #PB_EventType_LeftClick And EventGadget() = 1
      cf2\cbSize = SizeOf(CHARFORMAT2)
      cf2\dwMask = #CFM_UNDERLINETYPE
      cf2\bUnderlineType = #CFU_UNDERLINENONE
      SendMessage_(GadgetID(0), #EM_SETCHARFORMAT, #SCF_ALL, cf2)
    EndIf
  Until event = #PB_Event_CloseWindow
EndIf
End
Mis à jour le 10 janvier 2009  par Sparkie
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2008 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.