+- AmiBlitz³ (https://www.amiblitz.de/community)
+-- Forum: Blitzbasic2 (https://www.amiblitz.de/community/forum-5.html)
+--- Forum: Basics & Manual (https://www.amiblitz.de/community/forum-19.html)
+--- Thema: GadTools Gadgets: Fonts (/thread-257.html)
GadTools Gadgets: Fonts - hackball - 14.11.2021
Manchmal will man verschiedene Fonts für diverse Gadgets verwenden, z.B. weil man in einem Listview lieber alles nett untereinander gelistet haben will und man sich mit Charakter-Spalten begnügt.
Dann hilft der einfache Trick, den IntuiFont zu wechseln während des Erstellens der Gadget-List:
Code:
FindScreen1
NEWTYPE.listv
a.w
text.s
End NEWTYPE
Dim List lv.listv(10)
AddItem lv():lv()\text="list item 1"
AddItem lv():lv()\text="list item 2"
AddItem lv():lv()\text="list item 3"
LoadFont 1,"topaz.font",11
LoadFont 2,"times.font",11
Use IntuiFont1
GTButton 1,1,5,5,250,15,"topaz testbutton",0
Use IntuiFont2
GTButton 1,2,5,25,250,15,"times testbutton",0
Use IntuiFont1
GTListView 1,3,5,45,250,100,"",0,lv()
Window 1,100,50,300,200,$140F,"gt fonts test",2,1
AttachGTList1,1
Repeat
Until WaitEvent=$200
End