Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249588 (11024)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Doppelclick
Andreas Gebel
| Datum:03.07.01 14:50 (Gaby007@freenet.de) |
Gibt es eine möglichkeit, eine Funktion oder so zu schreiben, mit der man beim "Doppelclick" das ergebnis 1 erfüllt 0 nicht erfüllt bekommt. zbs.: if @DBClk()=1 oder so ähnlich Danke schon mal im vorraus für eine Antwort.
Rolf Koch
| Datum:03.07.01 15:28 (webmaster@rokosoft.de) |
Hi ich hab mal auf die schnelle eine Notlösung gefunden - auf den ersten Blick funktioniert es. Leider kenne ich Deine Profanversion nicht. Ab 7.0 geht das hier:
    declare buffer1$,buffer2$,buffer$,dbcl%
    Cls
    while 1
    getmessage
    let buffer1$=str$(%lastmessage)
    getmessage
    let buffer2$=str$(%lastmessage)
    let buffer$=buffer1$+buffer2$
    if @equ$(buffer$,"513514")
       let dbcl%=1
    Else
       let dbcl%=0
    Endif
    locate 10,10
    print dbcl%
    Wend
Andreas Gebel
| Datum:03.07.01 15:35 (Gaby007@freenet.de) |
Wowwww das ging ja flink :-) Danke für die schnelle Antwort... Ich habe V 6.5. Ich werde mir den Quelltext gleich mal schnappen und sehen wie du es geregelt hast.....
Rolf Koch
| Datum:03.07.01 15:39 (webmaster@rokosoft.de) |
Hoffen wir, daß Du etwas damit anfangen kannst - ganz sicher bin ich mir nicht, jedoch ist es vieleicht eine Grundidee. Man könnte natürlich auch mit anderen Variablen, zusammengefasster u.ä. arbeiten. Aber wie ich dieses Forum hier kenne, werden wieder weiterbilungen (und das ist hier das schöne) folgen :) Rolf
Andreas Gebel
| Datum:03.07.01 15:49 (Gaby007@freenet.de) |
.... Funktioniert super... hat nur nen kleinen Haken....... Das Programm bleibt an der Stelle stehen und wartet auf eine Aktion...... Soll aber so sein, daß das eigentliche Hauptprogramm weiterläuft.....Ich habe schon überlegt es irgendwie mit &GetTickCount zu machen beim 1ten reinsprung merken, beim 2ten diverenzvergleichen und wenn kleiner als 0,5 sek dann wahr. Aber wie konteroliere ich beim reinsprung in die prozedur das die Maustaste gedrückt, dann losgelassen und dann wieder gedrückt für den 2ten reinsprung mit vergleich ?????
Rolf Koch
| Datum:03.07.01 15:56 (webmaster@rokosoft.de) |
Ja ich wieder :) Also mach es doch mit einem Merker zb: Merker% und diesen übergibst Du an die Prozedur um dort zu erfahren, ob etwas wahr oder falsch ist. Rolf
Andreas Gebel
| Datum: 03.07.01 16:08 (Gaby007@freenet.de) |
Oki werde ich mal Probieren ob ich da so Profan (Spontan) was hinkriege... :-) Danke nochmal für die Bemühungen. Übrigens wie findest du meine Idee mit den zusammengefaltetten Proceduren (bei "Anregungen und Vorschlägen"), oder gibts das vieleicht schon in der 7mer ????

| Zurück zur Übersicht