XProfan

 {$iq}
Declare lvdll&,listview&,Text$,x&,y&,z&,ilist&
Declare bild&[199]
Declare area#
Dim area#,512
Def GetSysColor(1) !"USER32","GetSysColor"
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
Windowtitle "Unbegrenzt grosse Images in Listviews einbauen"
Windowstyle 26+512
Window 0,0-640,600
Cls GetSysColor(15)
Def ImageList_Create(5) !"comctl32.dll","ImageList_Create"
Def ImageList_Destroy(1) !"comctl32.dll","ImageList_Destroy"
Def ImageList_Add(3) !"comctl32.dll","ImageList_Add"
Usefont "MS Sans Serif",10,0,0,0,0
SetDialogFont 1
Profan-interne Listbox fill
Images in The Listbox
var way$ = @$ GetDir("@")
ClearList
ChDir way$ + "\lvdata"
AddFiles "*.JPG"
ChDir way$
Gewünsche Bildgrösse for this demonstration skaliert: 30 x 30 Pixel
ilist&=ImageList_Create(30,30,33,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$23)
SetImageList(listview&,ilist&)
x& = 1 + ((1+%GetCount) / 2)  amount the erforderlichen Lines with 2 Split
BuildListview(listview&,2,x&,280,0)
text$="Spalte 1"
SetColumnName(listview&,Addr(text $),0)
text$="Spalte 2"
SetColumnName(listview&,Addr(text $),1)
Declare Nr%
Nr%= 0
x& = 0  row

While Nr% < %GetCount   amount the Images in the Listbox

    y& = 0  slot

    While y& < 2

        Text$= way$ + "\lvdata\" + @ListBoxItem$(Nr%)
        bild&[Nr%] = Create("hSizedPic", -1,Text$, 30, 30, 1)
        ImageList_Add(ilist&,bild&[Nr%],0)
        Text$= "  " + @ListBoxItem$(Nr%)
        SetItemText(listview&,addr(text $),y&,x&)
        SetIconColumn(y&)
        SetIcon(listview&,x&,Nr%)
        DeleteObject bild&[Nr%]
        inc y&
        inc Nr%
        Case nr% > %GetCount : BREAK

    EndWhile

    inc x&

EndWhile

ShowListView(listview&,8,8,612,304)
text$="Registriert any Mausklicks (left, right, Double click) on a Itemtext.
"
text$=text $+"Auch left and rights Mausklicks on Spaltenbuttens go registered."
var status&=Create("TEXT",%HWND,Text$,8,464,600,72)
InitMessages(%hwnd)

While 1

    waitinput
    Case %key=2:BREAK
    y&=GetControlParas(area #)

    If y&=2

        Text$="Der rights Mausknopf watts in slot "+Str $(Long(area#,4))+" / "+Str $(Long(area#,8))+" pressed.
        "
        SetText status&,Text$

    ElseIf y&=1

        Text$="Der left Mausknopf watts in slot "+Str $(Long(area#,4))+" / "+Str $(Long(area#,8))+" as Double click pressed.
        "
        SetText status&,Text$

    ElseIf y&=3

        Text$="Der left Mausknopf watts in slot "+Str $(Long(area#,4))+" / "+Str $(Long(area#,8))+" pressed.
        "
        SetText status&,Text$
        GetItemText(listview&,area#,Str $(Long(area#,4)),Str $(Long(area#,8)))
        Text$=trim$(String $(area#,0))
        MessageBox "Mit Linksklick could the image
        "+ Text$ +"
        in Originalgröße displayed be ...","information",$40040

    EndIf

EndWhile

Dispose area#
ImageList_Destroy(ilist&)
DestroyWindow(%hwnd)
freedll lvdll&
End

LoadFile-dialog with Bitmap-display (ex windows 2000 / XP)
(C) Uwe "Pascal" Niemeier
window 10,10-700,500
 $H Messages.ph
 $H windows.ph

proc OpenFileHook-------------------------------OpenFileHook----------------------------

    parameters dlg&,msg&,wparam&,lparam&
    case status%:return 1-----view must only once adjusted go
    casenot msg&=~WM_NOTIFY:return 1

    if long(lparam&,8)=-603---with Init existieren DefView and LV yet not!

        status%=1
        DefView&=~FindWindowEx(~GetParent(dlg&),0,"SHELLDLL_DefView","")
        sendmessage(DefView&,~WM_COMMAND,$702D,0)--Undokumentierte Message

    endif

    return 1
    endproc---------------------------------------------------------------------------------

    proc LoadPicDialog------------------------------LoadPicDialog---------------------------

        parameters way$,cover$,name$
        declare ofn#,Result$,Result&
        declare DefView&,status%------variables for Hook
        name$=name$+"z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz"--filter (with want adjust)
        dim ofn#,88+256---------------structure (Win2000/NT/XP) + Puffer
        clear ofn#
        long ofn#,0=88----------------Size structure for GetOpenFileName (76 for Win9x)
        long ofn#,4=%hwnd-------------übergeordnetes Window
        long ofn#,12=addr(name$)------filter/type
        long ofn#,28=ofn#+88----------Beginn Puffer
        long ofn#,32=255--------------Puffergrösse
        long ofn#,44=addr(way$)------Anfangspfad
        long ofn#,48=addr(cover$)-----cover
        long ofn#,52=$880024----------? Happen?
        long ofn#,68=procaddr("OpenFileHook",4)
        Result&=external("COMDLG32","GetOpenFileNameA",ofn#)
        Result$=string $(ofn#,88)
        casenot Result&:Result$=""
        procaddr("OpenFileHook",-4)
        dispose ofn#
        return Result$
        endproc---------------------------------------------------------------------------------
        print LoadPicDialog("","Bitte Image wählen","Bild")
        waitkey

SHVIEW_ICON $7029
SHVIEW_LIST $702B
SHVIEW_REPORT $702C
SHVIEW_THUMBNAIL $702D
SHVIEW_TILE $702E