XProfan

PRFellow-Vorlage
Autor: Thomas Hölzer
Eine Drag-ListBox
Näheres siehe in win32.hlp
Def MakeDragList(1) !"COMCTL32","MakeDragList"
Def DrawInsert(3) !"COMCTL32","DrawInsert"
Declare i%,h&
SetTrueColor 1
WindowTitle "WinFellow"
Cls RGB(192,192,192)
Let h&=CreateListbox(%hwnd,"",280,48,185,200)

While lt(i%,11)

    AddString(h&,str$(i%))
    Inc i%

Wend

MakeDragList(h&)

While 1

    GetMessage

    IF GetFocus(h&)

        DrawInsert(%hwnd,h&,GetCurSel(h&))

    EndIf

Wend

 $H Windows.ph
 $H Messages.ph
 $H Shellapi.ph
Set("Fastmode",1)

Proc Newproc

    Parameters Wnd&,Msg&,wParam&,lParam&
    Declare Dummy$

    If Msg& = ~WM_DROPFILES

        Whileloop 0,~DragQueryFile(wParam&,$FFFFFFFF,0,0)-1

            Dummy$ = Space$(~Max_Path)
            ~DragQueryFile(wParam&,&Loop,Addr(Dummy$),~Max_Path)
            AddString(Listbox&,Trim$(Dummy$))

        EndWhile

        Return 0

    Endif

    Return ~CallWindowProc(OldProc&,Wnd&,Msg&,wParam&,lParam&)

EndProc

Declare Ende&,Listbox&,OldProc&
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
ListBox& = Create("Listbox",%hwnd,"",0,0,300,300)
~DragAcceptFiles(Listbox&,1)
OldProc& = ~SetWindowLong(%hwnd,~GWL_WNDPROC,ProcAddr(NewProc,4))

Whilenot ende&

    Waitinput

Wend

Fin