How to move an window to linux desktop outside, Now we can only move windows within the desktop!
B4X:
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private ox, oy As Double
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.SetFormStyle ("TRANSPARENT")
MainForm.BackColor = fx.Colors.Transparent
MainForm.Show
End Sub
Sub Button1_Click
MainForm.Close
End Sub
Private Sub MainForm_MousePressed (EventData As MouseEvent)
ox = EventData.X
oy = EventData.Y
End Sub
Private Sub MainForm_MouseDragged (EventData As MouseEvent)
Dim jo As JavaObject = EventData
MainForm.WindowLeft = jo.RunMethod("getScreenX", Null) - ox
MainForm.WindowTop = jo.RunMethod("getScreenY", Null) - oy
End Sub
Attachments
Last edited: