| |
| |
|
| - page 1 - |
|
Jörg
Sellmeyer | allô Frank,
dans Deinem Beispiel Alle_Maustasten_abfangen.prf benutzt Du SetTimer 10 à Listviewvariablen trop füllen. Ist cela qui einzige Possibilité qui Mausklicks sur qui Spaltenbuttons sûrement trop erwischen?
sans ca va nämlich pas 
je hab selber aussi viel rumprobiert mais la plus part du temps wird qui zweite gleiche Klick sur une Spaltenbutton im gleichen Contrôle pas plus registriert.
si zwischendurch dans cela Listview geklickt wird gehts wieder.
je hoffe, je konnte mich einigermaßen verständlich faire 
ah oui - und dir à linke Bouton de la souris!
qui simplicité halber juste la fois Code en supplément.
Salut
Jörg
KompilierenMarqueSéparation $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 ▲ |
|
| |
|
|
| |
| |
| - page 1 - |
|
Jörg
Sellmeyer | c'est déjà bien sûr mais maintenant la hâte Du pour qui normalen Klicks im Listview GetControlParas et pour Headerklicks GetVar et (seulement pour à gauche) Utilisateur Messages.
si Du qui Utilisateur Messages aussi encore pour qui anderen Klicks einbaust ist qui Abfrage einfacher. alors z. B.:
$1401 = En-tête Link
$1402 = En-tête à droite
$1403 = normaler Linksklick
$1404 = normaler Droit
$1405= Double-cliquez sur
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10.03.2007 ▲ |
|
| |
|
|
Frank
Abbing | j'ai oui rien degegen. cela nächte Update venez bestimmt  . |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Frank Abbing
j'ai oui rien degegen. cela nächte Update venez bestimmt .
cela voulais je écouter! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10.03.2007 ▲ |
|
| |
|
|
Frank
Abbing |
tu as Deinen Gewinn ausprobiert, stimmts? je hörs mir justement à - ist vraie zum piepen!
arrêt! qui Sprachausgabe entstammt pas meinem Gewinn. avec cela erzeugte Discours hört sich nämlich fürchterlich à (seulement SAPI) et cela Tool ist jadis wieder deinstalliert.
Hab mir Voice Reader de linguatec bestellt, cela hört sich um Längen besser à...
cela jedenfalls ist mon attitude. |
|
| |
| |
| |
|
|
| @Hi Frank
cela jedenfalls ist mon attitude.
...mon aussi ! |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
Frank
Abbing |
$1403 = normaler Linksklick
$1404 = normaler Droit
$1405= Double-cliquez sur
Problem: trois Infos volonté ici nécessaire: listviewhandle, spaltenindex, zeilenindex.
Per Message peux je mais seulement deux versenden (lparam et wparam)... |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Den Zeilenindex peux on ensuite oui wieder avec normalen Profanmitteln ou bien Listview.dll-Mitteln abfragen.
KompilierenMarqueSéparation |
|
| |
|
|
Frank
Abbing | | Hab es so gelöst, dass Spalte et la ligne transfert wird. Mittels GetVar(7) peux qui Listview-Handle ermittelt volonté, si erforderlich. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Poste doch la fois un Beispiel.
je fände es besser, si cela Handle transfert wird. ensuite peux on une GetFocus ähnliche Funktion définir, à Events abfragen.
KompilierenMarqueSéparation |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.03.2007 ▲ |
|
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Ok, avec dem zusätzlichen Flag chez GetVar() ca va aussi so.
je würds ensuite so faire:
KompilierenMarqueSéparation
avec meiner dessus beschriebenen Methode nécessaire on mais cela Flag 7 gar pas. Pour cette braucht on avec Deiner Methode GetControlParas pas plus absolument... |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.03.2007 ▲ |
|
| |
|
|
Frank
Abbing |
Pour cette braucht on avec Deiner Methode GetControlParas pas plus absolument...
Gar pas, würd je dire...
comment mans dreht et wendet ist oui égal. |
|
| |
| |
| |
|
(527)
[/offtopic]
Deutsch
English
Français
Español
Italia