English
Forum

GetControlParas

 

ByteAttack
Hello Community,

i want gladly whom Click in a ListView evaluate.
though have I yet others inquire walk, sodas one WaitInput for my WhileNot Loop not question comes. I must everything with GetMessage make.
example:
WhileNot appexit%

    GetMessage
    ... others inquire
    y&=GetControlParas(klick#)

    If y&<>0

        handle&=Long(klick#,0)

        if handle&=left&

            locate 1,1

            if y&=2

                print "Left rights Maustaste"

            elseif y&=1

                print "Left linker doppelklick"

            endif

        endif

    EndIf

    Clear klick#

wend


the functions too lovely, still unfortunately scrolls then the ListView with my Cursor always with... the happens with WaitInput but not
 
Website:  [...] 
Facebook:  [...] 
05/13/05  
 




Rolf
Koch
Hi Marc-Gordon,

How siehts from, if you The Thread.pcu of If using?

Rolf
 
05/13/05  
 




ByteAttack
unfortunately helped the too nothing. is eh one merkwürdiges behaviour the ListViews. it scrolls of course always high and down, according as where the mouse befindet, and if I one other ListView anklicke, or whom Focus somewhere differently set, scrolls it munter moreover ???
 
Website:  [...] 
Facebook:  [...] 
05/14/05  
 




ByteAttack
Nochmal I! has someone this Error too notice? If No, becomes the well on my Logitech Maustreiber XP lying???
 
Website:  [...] 
Facebook:  [...] 
05/14/05  
 




Jörg
Sellmeyer
Hello Marc-Gordon,
the Phänomen kenn I. In my ListViewGenerator diving it too ex and on on.
Have unfortunately yet no rule thereby found.
Greeting
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
05/14/05  
 



Poste still time something Testbares - Perhaps as exe - so get one always integrally quick suitable Answer.

salvo.
 
05/14/05  
 




ByteAttack
See under
 
Website:  [...] 
Facebook:  [...] 
05/15/05  
 



sustain same at Start ne Exception.

salvo.
 
05/15/05  
 




Rolf
Koch
and by me becomes the window opened and directly again closed without Info o.ä.

and another Info: i'm noticed, in the Menu supra on your Page. gives it a new Dll?
there standing Include Files Liestview.dll.
As I said, only Info.
 
05/15/05  
 




ByteAttack
everything NEW made. One simple Testprogramm and View source.
If the now not functions, I'm going into superannuation...
CompileMarkSeparation
 $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: The compilierte EXE
Hochgeladen:05/15/05
Downloadcounter43
Download
 
Website:  [...] 
Facebook:  [...] 
05/15/05  
 




GDL
Hello Marc

WinME crashes kommplett ex.only over Reset again To terminate.

Hello
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
05/15/05  
 



by me scrolls The LV too wrong. your example working - it's located not on the Maustreiber - sooner on it the The messages not reset go. there wiederrum should Frank time look How it this with the XProfan-Getmessage arrange can.

For which need the Getmessage  at all so urgently - instead of the Waitinput ?

salvo.
 
05/15/05  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

9.022 Views

Untitledvor 0 min.
RudiB.04/10/21
iF09/28/20
Jörg Sellmeyer05/15/18
Uwe Lang06/22/13
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie