ListView DLL & WindowStyle 512

[Hovy]

Hallo zusammen,

ich habe mit dem nachfolgendem Code das Problem, dass bei WindowsStyle 512 das Drücken der Enter-Taste nicht von den UserMessages $1400 festgestellt wird. Wenn man den Sytle weg lässt klappt alles wie gewünscht.

Mache ich hier einen Fehler oder ist dies gewünscht oder vielleicht ein kleiner Fehler in der DLL ?
Ich verwende die aktuelle Version der DLL 2.12, bei 2.11 verhält es sie ebenso.

Viele Grüße
Georg

$H Messages.ph
$H Windows.ph
$I Listview_Funktionen.inc

WindowStyle 2 + 8 + 16 + 128 + 256 + 512
Window 0,0-1024,768

Var lvdll& = @UseDLL("Listview.dll")

Var ListView& = CreateListview(%hWnd,%hInstance,0,Rgb(255,255,255),-1,($1 | $10 | $20))
InitMessages(%hWnd)
InsertColumn listview&,"Neue Spalte",200,0
SetItem listview&,"Neues_Item 0"
SetItem listview&,"Neues_Item 1"
SetItem listview&,"Neues_Item 2"
SetItem listview&,"Neues_Item 3"
SetItem listview&,"Neues_Item 4"
SetItem listview&,"Neues_Item 5"
SetItem listview&,"Neues_Item 6"
SetItem listview&,"Neues_Item 7"
SetItem listview&,"Neues_Item 8"
SetItem listview&,"Neues_Item 9"
ShowListview(ListView&,100,100,300,300)


UserMessages $1400

WhileNot %Key = 2
    If %UMessage = $1400
        Locate 1,1
        Print "Taste = ";@Str$(&UlParam)
    EndIf
    WaitInput
EndWhile
EraseListview(listview&)
~DestroyWindow(listview&)
CloseMessages(%hWnd)
$I Listview_Dispose.inc
FreeDLL lvdll&
End

[Frabbing]

Mache ich hier einen Fehler oder ist dies gewünscht oder vielleicht ein kleiner Fehler in der DLL ?

Der Fehler kann ja nicht in der Dll liegen, wenn XProfan-Komponenten verändert werden.

Wenn du den Dialogstyle setzt, ändert sich das Verhalten des Hauptfenster. Die Listview.dll ermittelt den Tastendruck mittels Notify-Messages, die das Hauptfenster sendet. Mit dem Dialogstyle ist es eben so, dass das Hauptfenster den Druck der Entertaste nun nicht mehr meldet, darum erhält die Dll keine Nachricht, dass Enter gedrückt wurde.

[Hovy]

Zitat von Frabbing

Der Fehler kann ja nicht in der Dll liegen, wenn XProfan-Komponenten verändert werden.

Wohl war
Sendet das Hauptfenster überhaupt keine Messages mehr wenn Enter gedrückt wird
Oder gibt es irgendwo was verstecktes was man z.B. mit SubClass abfangen könnte. Die Bedienung ist einfach unschön wenn Enter nicht klappt, ist aber reine Kosmetik.

Viele Grüße
Georg

[Frabbing]

Enter wird im Dialogstyle wohl benutzt, um den Focus abzugeben.
Es gibt aber mehrere Möglichkeiten, zu deinem Ziel zu gelangen, z.B. eine Kombination mit IsKey(13). Oder du subclassed dein Listview und fragst WM_CHAR/WM_KEYUP ab.

    If ((%UMessage = $1400) or IsKey(13))
        Locate 1,1
        If IsKey(13)
          Print "Taste = 13"
        Else
          Print "Taste = ";@Str$(&UlParam)
        Endif
    EndIf

[Hovy]

Hallo Frank,

vielen Dank für den Tipp.
Mit ((IsKey(13)) AND (&NotifyWnd = ListView&))) kann man zuverlässig die Enter Taste abfangen.


Viele Grüße
Georg

[Frabbing]

Wunderbar.