Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
k.o.e.i.g2 hat geschrieben:brauch es aber weil es ein editor werden soll da kann ichs net auf ein bild doer webgagdet oder sowas machen o.O unlogisch dat schon vorzuschlagen...
Die Überlegungen von Kaeru Gaman sind völlig korrekt und nicht Code: Alles auswählen
HTMLTemplate.s = "<html><body scroll='no' leftmargin='5' topmargin='0' marginwidth='0' marginheight='0'>#TEXT#</body></html>"
OpenWindow(0, #PB_Ignore, #PB_Ignore, 250, 120, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_Invisible)
CreateGadgetList(WindowID(0))
WebGadget(0, 5, 5, 80, 20, "")
Text.s = ReplaceString(HTMLTemplate, "#TEXT#", "<font color='red'>Pure</font><font color='green'>Ba</font><font color='blue'>sic:</font>")
SetGadgetItemText(0, #PB_Web_HtmlCode, Text)
StringGadget(1, 90, 5, 120, 20, "Feel the pure power!")
While WindowEvent() : Delay(1) : Wend
HideWindow(0, #False)
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindowdes is ja auchn Handkäs, dass ich das riechen kann was du machen willst.k.o.e.i.g2 hat geschrieben:brauch es aber weil es ein editor werden soll da kann ichs net auf ein bild doer webgagdet oder sowas machen o.O unlogisch dat schon vorzuschlagen...
Aber Kiffi... tststs... Du bist doch Vater.Kiffi hat geschrieben:Farbische (!sic) texte in textgadget?
Code: Alles auswählen
;Selektierte Buchstaben ersetzen bzw. färben.
;Codeschnipsel written by Falko
;Angepasst nach PB4 (14.4.2008
String$="Mein Test"
Buffer$=Space(255)
Global hdc
Global mychar.CHARFORMAT
;
;Ermittle die Anzahl Buchstaben der obrigen Zeile
;
Procedure.l GetCursorPos(YPos.l)
Result = SendMessage_(hdc,#EM_LINEINDEX,YPos,0)
ProcedureReturn Result
EndProcedure
;
; Farbe und Fontattribute setzen
Procedure SetCharFormat(Mask.l,Effects.l,Font.s,Color.l)
;mychar.CHARFORMAT ; Sollte vorher als global deklariert werden.
mychar\cbSize=SizeOf(CHARFORMAT)
mychar\dwMask=Mask;#CFM_BOLD|#CFM_COLOR ; Fettschrift und Color setzen
mychar\dwEffects=Effects
mychar\yHeight=500
mychar\crTextColor=Color
mychar\bCharSet=0
PokeS(@mychar\szFaceName, Font)
EndProcedure
If OpenWindow(0,0,0,322,275,"StringGadget Flags",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
hdc.l=EditorGadget (0,8,8,485,385)
AddGadgetItem(0,0,"Wie wäre es mit dieser Zeile, die wir ändern wollen.")
AddGadgetItem(0,1,"Wie wäre es mit dieser Zeile, die wir ändern wollen.")
AddGadgetItem(0,2,"Wie wäre es mit dieser Zeile, die wir ändern wollen.")
;
;In dieser Zeile ein Teilstring, Farbe und Fontattribut verändern
;
Char=GetCursorPos(1)
SendMessage_(hdc,#EM_SETSEL,Char+16,Char+28); markiere Textteil, der geändert werden soll
SetCharFormat(#CFM_BOLD|#CFM_COLOR,1,"Arial",$0000FF);Farbe auswählen
SendMessage_(hdc,#EM_SETCHARFORMAT,#SCF_SELECTION,mychar); Setzen der Attribute auf selection
SendMessage_(hdc,#EM_REPLACESEL,0,String$); Ersetze diesen Teil durch den String$
;
;Textteil Markieren und durch nur Farbe Blau und Fontattribute ersetzen
;
Char=GetCursorPos(2)
SendMessage_(hdc,#EM_SETSEL,Char+8,Char+8+8); markiere Textteil, der gefärbt werden soll
SetCharFormat(#CFM_FACE | #CFM_SIZE | #CFM_COLOR,1,"Symbol",$FF0000)
SendMessage_(hdc,#EM_SETCHARFORMAT,#SCF_SELECTION,mychar);Char-Attribute setzen
SendMessage_(hdc,#EM_GETSELTEXT,0,Buffer$); kopiere Selektieren Text in den Buffer
SendMessage_(hdc,#EM_REPLACESEL,0,Buffer$); ersetze Text dann aus dem Buffer mit den Attributen
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf