Get line height

[WilliamL]

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?

[WilliamL]

Compare font sizes from before beta 8 to now. Change fonts and sizes and adjust until satisfied. It also gives you the default size of font when both windows have the same number of lines.

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