Gridbox

[Gerhard Putschalka]

Hallo,
es gelingt mir nicht in einer Gridbox eine Zeile mit Doppelklick auszuwählen.
Kann mir da wer helfen?

Vielen Dank
Gerhard.

In der Profanhilfe steht zwar, dass die ListView - Befehle auch bei Gridboxen verwendbar sind. Aber wo finde ich diese Befehle?

[horsthorn]

Gerhard
Ich mach da immer als "Krücke" noch ein zusätzliches "Waitinput" rein:

ungefähr so:
DECLARE box&,nr%,text$
IF GETFOCUS(box&)
Waitinput 'das ist zusätzlich gesetzt und gaukelt den Doppelklick vor
nr%=GETCURSEL(box&)
text$=GETSTRING$(box&,nr%)
ENDIF

[Bangkok]

Ich weiß nicht welche Profanversion du hast. Ich mache es meistens mit subclassing, ungefähr so, wobei grid das Handle der Gridbox ist.

SubClassProc
   If SubClassMessage(grid&, 515) 'doppel
   case datei$ <> "" : doppelklickaktion
      Set("WinProc", 1)
   elseIf SubClassMessage(grid&,516) 'rechts
        Rechtsklickaktion
      Set("WinProc", 1)
   EndIf
endproc

[Frabbing]

Die exakte Vorgehensweise, die ich auch in der Listview.dll nutze, ist:

WM_NOTIFY -> NMHDR.code = NM_DBLCLK

[horsthorn]

Gerhard
Nun hast du auch die Lösungen der "API-Giganten" - da ist natürlich mein primitiver XProfan-Code abgemeldet.
Das Schöne dabei ist aber, er funktioniert.
Egal, ob Listbox, Gridbox oder ein Listview von Frank
So kann man auch mit kleinen Sachen manchen Menschen Freude machen
oder
Warum einfach, wenn es auch umständlich geht !

[Andreas Miethe]

Zitat von horsthorn

Gerhard
Nun hast du auch die Lösungen der "API-Giganten" - da ist natürlich mein primitiver XProfan-Code abgemeldet.
Das Schöne dabei ist aber, er funktioniert.

Aber nur wenn wenn man keinen einzelnen Click auch abfragen wiil

[horsthorn]

Zitat von Andreas Miethe

Aber nur wenn wenn man keinen einzelnen Click auch abfragen wiil

Irgendwie verstehe ich das nicht, Andreas oder dein Satz ist falsch aufgebaut ?
Gerhard wollte doch nur mit Doppelklick einen Eintrag aus einer Gridbox auswählen können und das geht mit meinem Code sehr gut. Lässt man das zusätzliche 'Waitinput' weg, wird mit Einfachklick gewählt. Diesen Code benutze ich schon seit einigen Profan-Versionen. Was ist also falsch daran ?
Ihr wisst doch alle, daß ich von API soviel Ahnung habe "wie eine Kuh vom Stabhochsprung", also benutze ich weiterhin XProfan-Pur, wenn es sich machen lässt. Im anderen Falle habe ich ja: Frank, Dieter, Andreas, Andreas, Jac usw... usw...

[Bangkok]

@Horst

SubClassProc ist aber reines XProfan, darin wird ja nur eine Message abgefragt.

Ich denke mal Andreas meinte mit zwei Waitinputs kannst du dann nur den Doppelklick benutzen. Wenn z.B. in einem Programm bei einem 1 x klick etwas passieren soll und bei einem Doppelklick etwas anderes, dann geht das mit deiner Methode nicht.

[Andreas Miethe]

Zitat von horsthorn

Irgendwie verstehe ich das nicht, Andreas oder dein Satz ist falsch aufgebaut ?
Gerhard wollte doch nur mit Doppelklick einen Eintrag aus einer Gridbox auswählen können und das geht mit meinem Code sehr gut. Lässt man das zusätzliche 'Waitinput' weg, wird mit Einfachklick gewählt. Diesen Code benutze ich schon seit einigen Profan-Versionen. Was ist also falsch daran ?

Hallo Horst,

daran ist nichts falsch.
Ich meinte damit nur, dass Du Dir so den Weg verbaust, beides abzufragen, Einzel - und Doppelklick.

Aber solange es funktioniert ist es ok

[RGH]

Eine rein profane Lösung des Doppelklicks ohne Subclassing findet man z.B. auch im Quellcode des Hilfe-Helfers, der ja bei jeder XProfan-Version mit installiert wird. Der Quellcode findet sich im Unterverzeichnis SOURCE als hilfe.prf. Da wird zwischen einfachem Klick und Doppelklick (= 2. Klick auf selbes Element) unterschieden.

Gruß
Roland

[Gerhard Putschalka]

Danke für die schnelle Hilfe. Ich konnte das erst heute auswerten.

zu Horst: Deine Lösung ist originell. Und da ich wirklich nur den Doppelklick auswerten möchte genügt diese Lösung ganz. Mache ich den zweiten Klick (~ als Doppelklick) nach einigen Sekunden wird auch das als Doppelklick gewertet und wenn ich, weil ich mich irrte beim 2. Klick auf eine andere Zeile klicke wird diese ausgewählt. Das kann zu Fehlern führen. Daher schlage ich vor die Zeit bis zum 2. Klick zu begrenzen. Im Beispiel habe ich 300 Millisekunden gewählt (kann aber auch ein anderer Wert sein).
Beispiel:

Declare nr%,text$
WhileNot @GetFocus(Ende%)
IF GETFOCUS(hGrid&)
  Waitinput 'das ist zusätzlich gesetzt und gaukelt den Doppelklick vor
  nr%=GETCURSEL(hGrid&)
  text$=GETSTRING$(hGrid&,nr%)
  Messagebox(text$,"",0)
ENDIF
EndWhile

ich muss aber zugeben, dass diese Lösung falsch geht, wenn gerade über Mitternacht die Klicks erfolgen.

ZU Dieter: mit Subclassing habe ich mich bisher noch nicht befasst. Ist aber wahrscheinlich die bessere Lösung wenn ich Einfach- und Doppelklick auswerten möchte. Wo finde ich die Messagenummern?

Zu Frank: WM_NOTIFY fand ich in einem Assembler-Beispielprogramm. Mit der Umsetzung in Profan war ich leider nicht erfolgreich.

Zu Roland: ich durchschaue das Programm nicht (ist mein Problem). Aber da ich ohnehin nur den Doppelklick auswerten möchte erscheint mit das Beispiel von Horst als das was ich brauche.

Nochmals vielen Dank an Alle.

Gerhard.
Homepage von GKP


Nachtrag: ich arbeite mit XProfan11.2 und mit Windows 7.

[ts-soft]

Zitat von Gerhard Putschalka

Im Beispiel habe ich 300 Millisekunden gewählt (kann aber auch ein anderer Wert sein).

Ich finde die Lösung zwar nicht so gut , aber wenn, dann sollte man
wenigstens die Doppelklickzeit des Users berücksichtigen!
GetDoubleClickTime sollte besser geeignet sein, als 300 ms

Gruß
Thomas

[p. specht]

In AutoCAD gibts die Funktion "Doppelklick aufs Mausrad" (Die Idee wurde vermutlich bei einem Besuch im Domina-Studio geboren...)

[horsthorn]

@Gerhard

Aber da ich ohnehin nur den Doppelklick auswerten möchte erscheint mit das Beispiel von Horst als das was ich brauche.

Du glaubst garnicht, wie mich das aufbaut ! -
Danke - das mit der Zeiteingabe übernehme ich von dir

[Gerhard Putschalka]

Hallo,
hier eine Korrektur zu meinem Beitrag von heute 11:21
Ich habe den falschen Code erwischt.
Hier ist der richtige:

Declare nr%,text$,A&,B&
WhileNot @GetFocus(Ende%)
  IF GETFOCUS(hGrid&)
    A& = (3600000 * Val(@Substr$(@Time$(0),1,":"))) +(60000 * Val(@Substr$(@Time$(0),2,":"))) \
        + (1000 * Val(@Substr$(@Time$(1),1,"."))) + Val(@Substr$(@Time$(1),2,"."))
    Waitinput 'das ist zusätzlich gesetzt und gaukelt den Doppelklick vor
    B& = (3600000 * Val(@Substr$(@Time$(0),1,":"))) +(60000 * Val(@Substr$(@Time$(0),2,":"))) \
      + (1000 * Val(@Substr$(@Time$(1),1,"."))) + Val(@Substr$(@Time$(1),2,".")) - A&  
    If (B& < 300)  ' Auswertung nur dann wenn der Zeitunterschied kleiner als 300mS ist
      nr%=GETCURSEL(hGrid&)
      text$=GETSTRING$(hGrid&,nr%)
      Messagebox(text$,"",0)
    ENDIF
  EndIf
EndWhile

Zur Erklärung: die Uhrzeit (hh.mm.ss ...) wird in Millisekunden umgerechnet.