B4J Question [Solved] Get/Read the title bar height

…
 Dim windowHeight As Double = asJO(MainForm.RootPane).RunMethodJO("getScene",Null).RunMethodjo("getWindow",Null).RunMethod("getHeight",Null)
 Dim sceneHeight As Double = MainForm.RootPane.Height
 Log(windowHeight) ' height including title
 Log(sceneHeight) ' usable height inside rootpane
 Dim titleBarHeight as Double = windowHeight - sceneHeight
 Log($"Window Title bar is  ${titleBarHeight} pixels"$)
End Sub
' uses JavaObject library
Sub asJO(o As JavaObject) As JavaObject
 Return o
End Sub

MainForm.WindowHeight - MainForm.Height

#if java
import com.sun.jna.Native;
import com.sun.jna.platform.win32.User32;
import com.sun.jna.platform.win32.*;
public static Integer getTitleHeight(){
 User32 INSTANCE = Native.load("user32", User32.class);
 return INSTANCE.GetSystemMetrics(User32.SM_CYCAPTION);
}
public static Integer getBorderHeight(){
 User32 INSTANCE = Native.load("user32", User32.class);
 return INSTANCE.GetSystemMetrics(User32.SM_CXFRAME);
}
#End If