Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: Doppelklick wie bei Solitär
Jürgen Richter
| 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
René Bühling
| 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é

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |