B4J Code Snippet Center form

[I'm quite surprised I didn't find this]

'Center the form, on the parent form if it is passed (you can pass Null)
'otherwise on the Desktop.
Private Sub CenterForm(Frm As Form, Parent As Form)
    Dim JFX1 As JFX
    If Initialized(Parent) Then
        Frm.WindowLeft = Parent.WindowLeft + (Parent.Width - Frm.Width) / 2
        Frm.WindowTop  = Parent.WindowTop  + (Parent.Height - Frm.Height) / 2
    Else
        Dim PS As Screen = JFX1.PrimaryScreen
        Frm.WindowLeft = (PS.MaxX - PS.MinX) / 2 - Frm.Width / 2
        Frm.WindowTop  = (PS.MaxY - PS.MinY) / 2 - Frm.Height / 2
    End If
End Sub

I used a local variable, JFX1, but obviously you can use the classic fx declared by default in the B4J templates.

 

[Erel]

Nice one!

You can use the Initialized keyword here:

If Initialized(Parent) Then