[GB.FORM.TERMINAL]
* BUG: Found a workaround for the dblclick event. git-svn-id: svn://localhost/gambas/trunk@7730 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
parent
ad2a5315e4
commit
007abf12c3
4 changed files with 69 additions and 3 deletions
|
@ -9,7 +9,6 @@ Component=gb.image
|
||||||
Component=gb.gui
|
Component=gb.gui
|
||||||
Component=gb.form
|
Component=gb.form
|
||||||
Authors="Benoît Minisini\nFabien Bodard"
|
Authors="Benoît Minisini\nFabien Bodard"
|
||||||
Environment="GB_GUI=gb.qt5"
|
|
||||||
TabSize=2
|
TabSize=2
|
||||||
Language=fr
|
Language=fr
|
||||||
Type=Component
|
Type=Component
|
||||||
|
|
44
comp/src/gb.form.terminal/.src/TerminalView/Form1.class
Normal file
44
comp/src/gb.form.terminal/.src/TerminalView/Form1.class
Normal file
|
@ -0,0 +1,44 @@
|
||||||
|
' Gambas class file
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub Form_MouseUp()
|
||||||
|
|
||||||
|
Print "MouseUp"
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub Form_MouseDown()
|
||||||
|
|
||||||
|
Print "MouseDown"
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub Form_DblClick()
|
||||||
|
|
||||||
|
Print "DblClick"
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub Form_Open()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub DrawingArea1_Draw()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub DrawingArea1_MouseDown()
|
||||||
|
|
||||||
|
Print "MouseDown"
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub DrawingArea1_MouseUp()
|
||||||
|
|
||||||
|
Print "MouseUp"
|
||||||
|
|
||||||
|
End
|
9
comp/src/gb.form.terminal/.src/TerminalView/Form1.form
Normal file
9
comp/src/gb.form.terminal/.src/TerminalView/Form1.form
Normal file
|
@ -0,0 +1,9 @@
|
||||||
|
# Gambas Form File 3.0
|
||||||
|
|
||||||
|
{ Form Form
|
||||||
|
MoveScaled(0,0,64,64)
|
||||||
|
{ DrawingArea1 DrawingArea
|
||||||
|
MoveScaled(20,6,34,37)
|
||||||
|
Background = Color.DarkGray
|
||||||
|
}
|
||||||
|
}
|
|
@ -351,7 +351,7 @@ Public Sub View_MouseDown()
|
||||||
GetMouseXY(ByRef X, ByRef Y)
|
GetMouseXY(ByRef X, ByRef Y)
|
||||||
$hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseDown)
|
$hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseDown)
|
||||||
Endif
|
Endif
|
||||||
|
'Print "MouseDown"
|
||||||
End
|
End
|
||||||
|
|
||||||
Public Sub View_MouseMove()
|
Public Sub View_MouseMove()
|
||||||
|
@ -408,7 +408,7 @@ Public Sub View_MouseUp()
|
||||||
GetMouseXY(ByRef X, ByRef Y)
|
GetMouseXY(ByRef X, ByRef Y)
|
||||||
$hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseUp)
|
$hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseUp)
|
||||||
Endif
|
Endif
|
||||||
|
'Print "MouseUp"
|
||||||
End
|
End
|
||||||
|
|
||||||
Public Sub View_MouseWheel()
|
Public Sub View_MouseWheel()
|
||||||
|
@ -443,6 +443,20 @@ Public Sub View_KeyPress()
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
|
Public Sub View_DblClick()
|
||||||
|
Dim X As Integer
|
||||||
|
Dim Y As Integer
|
||||||
|
If $hFilter.MouseActive Then
|
||||||
|
If Not $bMouseDown Then
|
||||||
|
GetMouseXY(ByRef X, ByRef Y)
|
||||||
|
$hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseDown)
|
||||||
|
Endif
|
||||||
|
|
||||||
|
Endif
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
|
||||||
Private Function Column_Read() As Integer
|
Private Function Column_Read() As Integer
|
||||||
|
|
||||||
Return $hScreen.Column
|
Return $hScreen.Column
|
||||||
|
|
Loading…
Reference in a new issue