Autor | Thema: Doppelklick wie bei Solitär | | Datum:29.08.02 17:48 
(jrs-brain@gmx.de) | |
'Profan 7.0 ----- Ich hätte so gerne einen Doppelklick !
'Danke! Jürgen
Windowtitle "ESC = Ende"
Window 450,200 - 300,200
Declare x%
$H Messages.ph
UserMessages ~WM_LButtonDown
UserMessages ~WM_LButtonUp
UserMessages ~WM_LBUTTONDBLCLK
Whilenot @ScanKey(27)
IF @Neq(%Umessage,~WM_LButtonDown)
Drawtext 100,50, "keine Maustaste "
ElseIf @NEq(%UMessage,~WM_LButtonUp)
Drawtext 100,50, "LINKE MAUSTASTE"
EndIf
'-------------------------------------
If @Equ(%UMessage,~WM_LBUTTONDBLCLK)
Drawtext100,50, " Doppelklick "
waitinput' Funktioniert leider nicht
endif
'-------------------------------------
inc x%
case @GT(x%,300):let x% = 0
drawtext x%, 5, "°"
sleep 5
WEnd
End
|
| | Datum: 04.09.02 16:49 
(rene.buehling@gmx.de) | |
declare zaehler&, tmp&
proc doublecheck
tmp&=&gettickcount-zaehler&
waitinput 'Keine Ahnung, warum waitinput hier nicht ausgeführt wird, aber nötig ist...
if @lt(tmp&,500)
return 1
else
let zaehler&=&gettickcount
return 0
endif
endproc
Windowtitle "ESC = Ende"
Window 450,200 - 300,200
Declare x%
$H Messages.ph
UserMessages ~WM_LButtonDown
UserMessages ~WM_LButtonUp
UserMessages ~WM_LBUTTONDBLCLK
Whilenot @ScanKey(27)
IF @equ(%Umessage,~WM_LButtonDown)
Drawtext 100,50, "LINKE MAUSTASTE"
'-------------------------------------
doublecheck
If @equ(@%(0),1)
Drawtext 100,50, " Doppelklick "
waitinput
endif
'-------------------------------------
else
Drawtext 100,50, "keine Maustaste "
endif
inc x%
case @GT(x%,300):let x% = 0
drawtext x%, 5, "°"
sleep 5
WEnd
End
MfG
René
|
|
|