PureBoard

Code: Alles auswählen

;Richedit Farben und Textattribute. written by Falko 
If OpenWindow(0,0,0,500,400,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget colors and attribute") And CreateGadgetList(WindowID(0)) 
    hdc.l=EditorGadget (0,8,8,485,385,#PB_Container_Raised) 
    
    ;Textcolor Grün und Fett
    
     mychar.CHARFORMAT 
     mychar\cbSize=SizeOf(CHARFORMAT) 
     mychar\dwMask=#CFM_BOLD|#CFM_COLOR  
     mychar\dwEffects=1 
     mychar\crTextColor=$00FF00 
    
    SendMessage_(hdc,#EM_SETCHARFORMAT,#SCF_SELECTION,mychar) 
     AddGadgetItem(0,0,"Hier in der ersten Zeile Grün und Fett") 
    
    ;Textcolor Rot und Wahlweise Fett bzw. normaltext(default)
    
     mychar\cbSize=SizeOf(CHARFORMAT) 
     mychar\dwMask=#CFM_COLOR|#CFM_BOLD 
     mychar\dwEffects=0 ; bei #CFE_BOLD wirds auch Fett 
     mychar\crTextColor=$0000FF 
  
     
     For i= 1 To 5 
      SendMessage_(hdc,#EM_SETCHARFORMAT,#SCF_SELECTION,mychar) 
      AddGadgetItem(0,i,"Und hier in der Zweiten Zeile der Rest Rot"+Str(i)) 
     Next i 
     
     ;Textcolor Blau,kursiv,Fett,Zeilenabstand und Texthöhe
     
     mychar\cbSize=SizeOf(CHARFORMAT) 
     mychar\dwMask=#CFM_COLOR|#CFM_ITALIC|#CFM_BOLD|#CFM_OFFSET|#CFM_SIZE  
     mychar\dwEffects=#CFE_ITALIC|#CFE_BOLD ; bei 1 wirds auch Fett 
     mychar\yOffset=30
     mychar\yHeight=300
     mychar\crTextColor=$FF0000 
     
   
     For i= 1 To 5 
      SendMessage_(hdc,#EM_SETCHARFORMAT,#SCF_SELECTION,mychar) 
      AddGadgetItem(0,i+5,"Und hier ab der zwölften Zeile der Rest Blau"+Str(i+5)) 
     Next i 
   
  
     SendMessage_(hdc,#EM_SETBKGNDCOLOR,0,$FFCC99); Hintergrund gesetzt
   
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
  EndIf