Español
Foro

GetControlParas

 

ByteAttack
¡Hola Comunidad,

Yo möchte gerne el Mausklick en un ListView auswerten.
Aunque Todavía otro Abfragen laufen, sodas una WaitInput para mi Sinestar encargado Bucle no en Cuestión kommt. Yo muss alles con GetMessage hacer.
Ejemplo:
Sinestar encargado appexit%

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

    If y&<>0

        handle&=Largo(klick#,0)

        if handle&=left&

            locate 1,1

            if y&=2

                imprimir "Left rechte Maustaste"

            elseif y&=1

                imprimir "Left linker doppelklick"

            endif

        endif

    EndIf

    Claro klick#

wend


Das funktioniert auch Prima, doch desafortunadamente scrollt entonces el ListView con mi Mauszeiger siempre con... Das geschieht con WaitInput pero no
 
Website:  [...] 
Facebook:  [...] 
13.05.2005  
 




Rolf
Koch
Hi Marc-Gordon,

como siehts de, si el Hilo.pcu de If benutzt?

Rolf
 
13.05.2005  
 




ByteAttack
Leider half el auch nichts. Ist eh una merkwürdiges Comportamiento des ListViews. Lo scrollt zwar siempre hoch y runter, jenachdem wo el Ratón befindet, y si yo una más ListView anklicke, oder el Focus irgendwo anders poner, scrollt lo munter más ???
 
Website:  [...] 
Facebook:  [...] 
14.05.2005  
 




ByteAttack
Nochmal Yo! Sombrero alguien esta Fehler auch bemerkt? Wenn Nein, se el wohl a mi Logitech Maustreiber bajo XP mentira???
 
Website:  [...] 
Facebook:  [...] 
14.05.2005  
 




Jörg
Sellmeyer
¡Hola Marc-Gordon,
Das Phänomen kenn Yo. In mi ListViewGenerator taucht lo auch de y a en.
Hab desafortunadamente todavía no Regel esta gefunden.
Saludo
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
14.05.2005  
 



Poste doch veces algo Testbares - tal vez como exe - así bekommt uno siempre bastante rápidamente passende Respuesta.

Salve.
 
14.05.2005  
 




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



Erhalte igual beim Start ne Exception.

Salve.
 
15.05.2005  
 




Rolf
Koch
y en me se el Ventana geöffnet y direkt otra vez geschlossen sin Referencia o.ä.

Und todavía una Referencia: Mir es aufgefallen, en el Menü oben en Deiner Page. Gibt lo una neue Dll?
Dort es Includedateien Liestview.dll.
Como ya he dicho, sólo Referencia.
 
15.05.2005  
 




ByteAttack
Alles NEU gemacht. Ein einfaches Testprogramm y Ver código fuente.
Si el ahora no funktioniert, gehe Yo en el Ruhestand...
KompilierenMarcaSeparación
 $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: El compilierte EXE
Hochgeladen:15.05.2005
Ladeanzahl43
Descargar
 
Website:  [...] 
Facebook:  [...] 
15.05.2005  
 




GDL
¡Hola Marc

WinME stürzt kommplett de.Nur encima Reset otra vez a Beenden.

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



En me scrollt el LV auch falso. Su Ejemplo funzt - lo liegt no al Maustreiber - más daran el el messages no zurückgesetzt voluntad. Como wiederrum debería Franco veces schauen como dies con el XProfan-Getmessage vereinbaren kann.

Wofür necesidad el Getmessage  überhaupt así dringend - en lugar de el Waitinput ?

Salve.
 
15.05.2005  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

9.391 Views

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

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie