XProfan

WhileNot appexit%

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

    If y&<>0

        handle&=Long(klick#,0)

        if handle&=left&

            locate 1,1

            if y&=2

                print "Left rechte Maustaste"

            elseif y&=1

                print "Left linker doppelklick"

            endif

        endif

    EndIf

    Clear klick#

wend

 $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#
Dispose lvitem#
freedll lvdll&