Français
Forum

GetControlParas

 

ByteAttack
allô Community,

je voudrais volontiers den Mausklick dans einem ListView auswerten.
Allerdings habe je encore autre Abfragen courir, sodas un WaitInput pour mon WhileNot Boucle pas dans Frage venez. je muss alles avec GetMessage faire.
Beispiel:
WhileNot appexit%

    GetMessage
    ... autre Abfragen
    y&=GetControlParas(klick#)

    Si y&<>0

        handle&=Long(klick#,0)

        si handle&=left&

            locate 1,1

            si y&=2

                imprimer "Left rechte Maustaste"

            elseif y&=1

                imprimer "Left linker doppelklick"

            endif

        endif

    EndIf

    Claire klick#

Wend


cela funktioniert aussi Prima, doch malheureusement scrollt ensuite cela ListView avec meinem Mauszeiger toujours avec... cela geschieht avec WaitInput mais pas
 
Website:  [...] 
Facebook:  [...] 
13.05.2005  
 




Rolf
Koch
Hi Marc-Gordon,

comment siehts aus, si Du qui Fil.pcu de Si benutzt?

Rolf
 
13.05.2005  
 




ByteAttack
malheureusement half cela aussi rien. Ist eh un merkwürdiges Verhalten des ListViews. Es scrollt zwar toujours hoch et runter, jenachdem wohin sich qui souris est, et si je un d'autre ListView anklicke, ou bien den Concentrer irgendwo anders mets, scrollt es munter plus ???
 
Website:  [...] 
Facebook:  [...] 
14.05.2005  
 




ByteAttack
Nochmal je! Hat quelqu'un cette faute aussi bemerkt? si non, wird cela wohl à meinem Logitech Maustreiber sous XP liegen???
 
Website:  [...] 
Facebook:  [...] 
14.05.2005  
 




Jörg
Sellmeyer
allô Marc-Gordon,
cela Phänomen kenn je. dans meinem ListViewGenerator taucht es aussi ab et à sur.
Hab malheureusement encore aucun règle dabei trouvé.
Salut
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
14.05.2005  
 



Poste doch la fois quelque chose Testbares - peut-être comme exe - so bekommt on toujours entier vite passende répondre.

Salve.
 
14.05.2005  
 




ByteAttack
Siehe unten
 
Website:  [...] 
Facebook:  [...] 
15.05.2005  
 



Erhalte juste beim Start ne Exception.

Salve.
 
15.05.2005  
 




Rolf
Koch
et chez mir wird cela la fenêtre ouvert et direct wieder geschlossen sans Hinweis o.ä.

et encore un Hinweis: Mir ist aufgefallen, im menu dessus sur Deiner le chasseur. Gibt es une neue Dll?
là steht Includedateien Liestview.dll.
Comme je le disais, seulement Hinweis.
 
15.05.2005  
 




ByteAttack
Alles NEW gemacht. un simple Testprogramm et Voir le texte source.
si cela maintenant pas funktioniert, vais je dans den Ruhestand...
KompilierenMarqueSéparation
 $P+
SetErrorLevel 0
USERMESSAGES 16,$0044
Declare prgexit%,lvdll&,ilist&,MerkeX%,MerkeY%,X%,Y%,listview&,bereich#,icons#,bytes&,x&,y&,text$
Dim bereich#,200000
Dim icons#,40000
Def GetSystemMetrics(1) !"USER32","GetSystemMetrics"
DEF MoveWindow(6) ! "USER32","MoveWindow","%%%%%%","%"
Def GetSysColor(1) !"USER32","GetSysColor"
 $I ListView_Funktionen.inc
lvdll&=usedll("Listview.dll")
ilist&=CreateImageList(1,0)

Proc Update

    Declare innenX%,innenY%,left%,viertel%,YBereich%
    innenX%=(%WinRight-%WinLeft)-(GetSystemMetrics(33)+GetSystemMetrics(33))
    innenY%=(%WinBottom-%WinTop)-(GetSystemMetrics(4)+GetSystemMetrics(33)+GetSystemMetrics(33))
    MerkeX%=%WinRight-%WinLeft
    MerkeY%=%WinBottom-%WinTop

    if MerkeX%<640

        SetWindowPos %hwnd=%WinLeft,%WinTop-640,MerkeY%;0

    elseif MerkeY%<480

        SetWindowPos %hwnd=%WinLeft,%WinTop-MerkeX%,480;0

    endif

    MoveWindow(listview&,5,5,innenX%-10,innenY%-20,59,1)

EndProc

Hauptfenster
SetTrueColor 1
WindowStyle 31
WindowTitle "ListView Test"
Window %maxX/2-320,(%maxY/2-240)-640,480
CLS GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,$00FFFFFF,-1,$30)
SetImageList(listview&,ilist&)
text$="C:"
bytes&=FilelistToCsv(addr(text$),bereich#,0,0,31,icons#)
x&=SetColumnsFromMem(listview&,bereich#,addr(y&))
CsvToListview(listview&,(bereich#+y&),(bytes&-y&),x&)
x&=GetLines(listview&)
SetIconsFromMem(listview&,0,icons#,x&)
Dispose icons#
Dispose bereich#
AutoSortListview listview&,1,2,1,2,1
SetColumnWidth(listview&,0,-1)
SetColumnWidth(listview&,1,-1)
SetColumnWidth(listview&,2,-1)
SetColumnWidth(listview&,3,-1)
SetColumnWidth(listview&,4,-2)
SortManual(listview&,0,0)
ShowListView(listview&,5,5,780,550)
InitMessages(%hwnd)
MerkeX%=%WinRight-%WinLeft
MerkeY%=%WinBottom-%WinTop
Update
Declare handle&
Dim bereich#,320

WhileNot prgexit%

    GetMessage
    Case %Umessage=16:prgexit%=1
    X%=%WinRight-%WinLeft
    Y%=%WinBottom-%WinTop
    CaseNot X%=MerkeX%:Update
    CaseNot Y%=MerkeY%:Update
    Clear bereich#
    y&=GetControlParas(bereich#)

    If y&<>0

        handle&=Long(bereich#,0)   Listview Handle
        text$=String$(bereich#,64) Itemtext
        WindowTitle text$

    EndIf

Wend

Dispose bereich#
CloseMessages(%hwnd)
Dispose clv1#
Dispose clv2#
Dispose clvall#
Disposetem#
freedll lvdll&

370 kB
Kurzbeschreibung: qui compilierte EXE
Hochgeladen:15.05.2005
Downloadcounter43
Download
 
Website:  [...] 
Facebook:  [...] 
15.05.2005  
 




GDL
allô Marc

WinME stürzt kommplett ab.seulement sur Reset wieder trop finissons.

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
15.05.2005  
 



chez mir scrollt qui LV aussi faux. Dein Beispiel funzt - es liegt pas am Maustreiber - plutôt daran cela qui messages pas zurückgesetzt volonté. là wiederrum devrait Frank la fois regarder comment il ca avec dem XProfan-Getmessage convenir peux.

Wofür brauchst cela Getmessage  überhaupt so dringend - statt dem Waitinput ?

Salve.
 
15.05.2005  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

9.000 Views

Untitledvor 0 min.
RudiB.10.04.2021
iF28.09.2020
Jörg Sellmeyer15.05.2018
Uwe Lang22.06.2013
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie