| |
| |
|
| - Página 1 - |
|
Jörg
Sellmeyer | ¡Hola Franco,
In Deinem Ejemplo Alle_Maustasten_abfangen.prf benutzt Usted SetTimer 10 a Listviewvariablen a füllen. Ist el el einzige Möglichkeit el Mausklicks en el Spaltenbuttons sicher a erwischen?
Ohne es nämlich no 
Yo También se viel rumprobiert aber meistens se el zweite gleiche Clic en una Spaltenbutton en el gleichen Control no mehr registriert.
Wenn zwischendurch en el Listview geklickt se gehts otra vez.
Yo hoffe, Yo podría mich einigermaßen verständlich hacer 
Ach sí - lo va a linke Botón del ratón!
Der Einfachheit halber igual veces Code dazu.
Saludo
Jörg
KompilierenMarcaSeparación $I Listview_Funktionen.inc
Declare LVDllHdl&
Declare bereich#,status&
Declare text$,x&,y&
Dim bereich#,320
LVDllHdl&=UseDll(Listview.dll)
Declare ListView1&
Proc SetListView1
InitMessages(%hwnd)
Declare tmptxt$
tmptxt$=Spalte 1;Spalte 2;Spalte 3
IColumn(ListView1&,Addr(tmptxt$),60,0)
tmptxt$=Spalte 2
IColumn(ListView1&,Addr(tmptxt$),60,0)
tmptxt$=Spalte 3
IColumn(ListView1&,Addr(tmptxt$),60,0)
WhileLoop 0,6
AddString(ListView1&,MkStr$(Test + Format$(00,&Loop) + |,3))
Wend
ShowListView(ListView1&,1,1,Width(%hwnd) - 2,Height(%hwnd) - 200)
EndProc
Proc ExitLV
CloseMessages(%hwnd)
FreeDll LVDllHdl&
EndProc
UserMessages 16
WindowStyle $218
Window 100,100 - 620,520
ListView1&=CreateListView(%hwnd,%hinstance,0,14417146,-1,$21)
SetListView1
status&=Create(TEXT,%HWND,text$,8,364,600,72)
While 1
WaitInput
Case %umessage = 16:Break
y&=GetControlParas(bereich#)
If y&=2
text$=Der rechte Mausknopf wurde in Spalte +Str$(Long(bereich#,4))+ / +Str$(Long(bereich#,8))+ gedrückt.
ElseIf y&=1
text$=Der linke Mausknopf wurde in Spalte +Str$(Long(bereich#,4))+ / +Str$(Long(bereich#,8))+ als Doppelklick gedrückt.
ElseIf y&=3
text$=Der linke Mausknopf wurde in Spalte +Str$(Long(bereich#,4))+ / +Str$(Long(bereich#,8))+ gedrückt.
EndIf
If y&<>0
text$=text$+Dieses ereignete sich im Listview mit dem Handle +Str$(Long(bereich#,0))+.
SetText status&,text$
Endif
x&=GetVar(2)
If x&<>-1
y&=GetVar(3)
text$=Der rechte Mausknopf wurde über dem Spaltenbutton in Spalte +Str$(x&)+ gedrückt.
text$=text$+Dieses ereignete sich im Listview mit dem Handle +Str$(y&)+.
SetText status&,text$
EndIf
x&=GetVar(4)
If x&<>-1
y&=GetVar(5)
text$=Der linke Mausknopf wurde über dem Spaltenbutton in Spalte +Str$(x&)+ gedrückt.
text$=text$+Dieses ereignete sich im Listview mit dem Handle +Str$(y&)+.
SetText status&,text$
EndIf
Wend
ExitLV
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10.03.2007 ▲ |
|
| |
|
|
| |
| |
| - Página 1 - |
|
Jörg
Sellmeyer | Es ya klar aber ahora hast Usted para el normalen Klicks en el Listview GetControlParas y para Headerklicks GetVar y (sólo para links) Mensajes del usuario.
Si usted el Mensajes del usuario auch todavía para el otro Klicks einbaust Es el Abfrage einfacher. Also z. B.:
$1401 = Encabezamiento Link
$1402 = Encabezamiento Rechts
$1403 = normaler Linksklick
$1404 = normaler Rechtsklick
$1405= Haga doble clic en
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10.03.2007 ▲ |
|
| |
|
|
Frank
Abbing | Yo habe sí nichts degegen. Das nächte Actualización kommt determinado  . |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Frank Abbing
Yo habe sí nichts degegen. Das nächte Actualización kommt determinado .
Das Yo quería hören! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10.03.2007 ▲ |
|
| |
|
|
Frank
Abbing |
Usted hast Su Gewinn ausprobiert, stimmts? Yo hörs me gerade a - es echt para piepen!
Halt! El Sprachausgabe entstammt no mi Gewinn. Damit erzeugte Lingua hört se nämlich fürchterlich a (sólo SAPI) y el Tool es längst otra vez deinstalliert.
Hab me Voice Reader de linguatec bestellt, el hört son Längen mejor a...
Das jedenfalls es mi Meinung. |
|
| |
| |
| |
|
|
| @Hi Franco
Das jedenfalls es mi Meinung.
...mi auch ! |
|
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
Frank
Abbing |
$1403 = normaler Linksklick
$1404 = normaler Rechtsklick
$1405= Haga doble clic en
Problema: Drei Infos voluntad hier benötigt: listviewhandle, spaltenindex, zeilenindex.
Per Message kann Yo aber sólo zwei versenden (lparam y wparam)... |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Den Zeilenindex puede ser entonces sí otra vez con normalen Profanmitteln oder Listview.dll-Mitteln abfragen.
KompilierenMarcaSeparación |
|
| |
|
|
Frank
Abbing | | Hab lo así gelöst, dass Spalte y Línea transferencia se. Mittels GetVar(7) kann el Listview-Handle ermittelt voluntad, si erforderlich. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Poste doch veces una Ejemplo.
Yo fände lo mejor, si el Handle transferencia se. Dann puede ser una GetFocus ähnliche Función definieren, a Events abfragen.
KompilierenMarcaSeparación |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.03.2007 ▲ |
|
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Ok, con el zusätzlichen Flag en GetVar() es auch así.
Yo würds entonces así hacer:
KompilierenMarcaSeparación
Mit meiner oben beschriebenen Método benötigt uno aber el Flag 7 nada. Dafür braucht uno con Deiner Método GetControlParas no mehr necesariamente... |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.03.2007 ▲ |
|
| |
|
|
Frank
Abbing |
Dafür braucht uno con Deiner Método GetControlParas no mehr necesariamente...
Gar no, würd Yo sagen...
Como mans dreht y wendet es sí egal. |
|
| |
| |
| |
|
(1.128)
[/offtopic]
Deutsch
English
Français
Español
Italia