Get line height
Posted: Thu Apr 11, 2024 12:55 am
I've been setting my own heights of all my fonts in the ListViewGadget and I'm wondering if there is a command to tell what the default line height is after the ListView gadget is created?
Code: Select all
EnableExplicit
#geneva12=12 ; default height is 24
Global rowHeight.cgfloat=15.0 ; old height for Geneva12 in beta 7
Define cnt,event,fontname$
LoadFont(#geneva12,"Geneva",12) : Fontname$="Geneva 12"
SetGadgetFont(#PB_Default,FontID(#geneva12))
OpenWindow(0, 10,10,200,600, "Default is 24", #PB_Window_MinimizeGadget)
ListViewGadget(0,0,0,200,600)
For cnt=1 To 50
AddGadgetItem(0,-1,Str(cnt))
Next
OpenWindow(1, 220,10,250,600, "Input size", #PB_Window_MinimizeGadget)
ListViewGadget(1,0,0,200,600)
CocoaMessage(0, GadgetID(1), "setRowHeight:@", @rowHeight)
For cnt=1 To 50
AddGadgetItem(1,-1,Str(cnt))
Next
StringGadget(2,204,10,40,30,StrF(rowHeight,2),#PB_String_Numeric)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Select EventType()
Case #PB_EventType_Change
rowHeight=ValF(GetGadgetText(2))
CocoaMessage(0, GadgetID(1), "setRowHeight:@", @rowHeight)
EndSelect
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow