Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: Doppelklick wie bei Solitär
Jürgen Richter
Datum:29.08.02 17:48 Antwortenals Email verschicken (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


René Bühling
Datum: 04.09.02 16:49 Antwortenals Email verschicken (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é


 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
doteu.info: Don´t miss your .eu-Domain