AmiBlitz³
GadTools Gadgets: Fonts - Druckversion

+- 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
[attachment=112]