Font von TreeGadget-Item

[CSHW89]

Hi Leute,
kleine frage. ich hatte gehofft, dass die antwort auf meine frage in den Snippets von RSBasic ist. dem ist leider nicht so. deshalb muss ich euch ein wenig belestigen.
ich möchte eigentlich nur den font eines eintrags eines treegadgets ändern. hab halt mehrere einträge und manche sollen 'Symbol' sein, also griechische buchstaben.

Code: Alles auswählen

If OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_SystemMenu|1)
  TreeGadget(1, 10, 10, 180, 180)
  AddGadgetItem(1, -1, "a")
  AddGadgetItem(1, -1, "a") ;<--- dieser soll z.B. symbol sein
  
  
  Repeat: Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

hoffe ihr hab vorschläge, danke schon mal,
lg kevin

[STARGÅTE]

Wenn du "nur" griechische Buchstaben brauchst, kannst du das auch mit nur einer Schrift art erreichen, welche UNICODE unterstützt:

Einfach UniCode-Exe aktiveren und das ergebnis wäre:

Code: Alles auswählen

For n = $3b1 To $3b4
 Gri$ + Chr(n)+" "
Next

If OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_SystemMenu|1)
  TreeGadget(1, 10, 10, 180, 180)
  AddGadgetItem(1, -1, "a b c d ")
  AddGadgetItem(1, -1, Gri$)
   
  Repeat: Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

[CSHW89]

ach ja, komplizierte fragen haben meist einfache lösungen . danke danke danke
lg kevin

[STARGÅTE]

es gibt sicher auch n API lösung, wie es bei ListIconGadget möglich ist:
http://www.purearea.net/pb/CodeArchiv/G ... or+Font.pb

[CSHW89]

das hatte ich auch schon gesehen. hab ein wenig rumexperimentiert. hat aber i-wie nicht funktioniert. naja egal, ich habs jetzt mit unicode gemacht, also danke nochmal
lg kevin