XProfan

 {$iq}
Declarar lvdll&,listview&,texto$,x&,y&,z&,ilist&
Declarar bild&[199]
Declarar bereich#
Dim bereich#,512
Def GetSysColor(1) !"USER32","GetSysColor"
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
Windowtitle "Unbegrenzt grosse Bilder en Listviews einbauen"
Windowstyle 26+512
Ventana 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
Profano-interne Listbox füllen
Bilder en el Listbox
var Pfad$ = @GetDir$("@")
ClearList
ChDir Pfad$ + "\lvdata"
AddFiles "*.JPG"
ChDir Pfad$
Gewünsche Bildgrösse para dieses Demo 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)  Anzahl el erforderlichen Zeilen en 2 Spalten
BuildListview(listview&,2,x&,280,0)
text$="Spalte 1"
SetColumnName(listview&,Addr(texto$),0)
text$="Spalte 2"
SetColumnName(listview&,Addr(texto$),1)
Declarar Nr%
Nr%= 0
x& = 0  Línea

Mientras que Nr% < %GetCount   Anzahl el Bilder en el Listbox

    y& = 0  Spalte

    Mientras que y& < 2

        texto$= Pfad$ + "\lvdata\" + @ListBoxItem$(Nr%)
        bild&[Nr%] = Crear("hSizedPic", -1,texto$, 30, 30, 1)
        ImageList_Add(ilist&,bild&[Nr%],0)
        texto$= "  " + @ListBoxItem$(Nr%)
        SetItemText(listview&,addr(texto$),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 todos Mausklicks (links, rechts, Haga doble clic en) en una Itemtext.
"
text$=texto$+"Auch linke y rechte Mausklicks en Spaltenbuttens voluntad registriert."
var status&=Crear("TEXT",%HWND,texto$,8,464,600,72)
InitMessages(%hwnd)

Mientras que 1

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

    If y&=2

        texto$="Der rechte Mausknopf wurde en Spalte "+Str$(Largo(bereich#,4))+" / "+Str$(Largo(bereich#,8))+" gedrückt.
        "
        SetText status&,texto$

    ElseIf y&=1

        texto$="Der linke Mausknopf wurde en Spalte "+Str$(Largo(bereich#,4))+" / "+Str$(Largo(bereich#,8))+" como Haga doble clic en gedrückt.
        "
        SetText status&,texto$

    ElseIf y&=3

        texto$="Der linke Mausknopf wurde en Spalte "+Str$(Largo(bereich#,4))+" / "+Str$(Largo(bereich#,8))+" gedrückt.
        "
        SetText status&,texto$
        GetItemText(listview&,bereich#,Str$(Largo(bereich#,4)),Str$(Largo(bereich#,8)))
        texto$=trim$(String$(bereich#,0))
        MessageBox "Mit Linksklick podría el Bild
        "+ texto$ +"
        en Originalgröße adecuado voluntad...","Information",$40040

    EndIf

EndWhile

Disponer bereich#
ImageList_Destroy(ilist&)
DestroyWindow(%hwnd)
freedll lvdll&
End

LoadFile-Diálogo con Mapa de bits-Anzeige (de Windows 2000 / XP)
(C) Uwe "Pascal" Niemeier
window 10,10-700,500
 $H Messages.ph
 $H Windows.ph

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

    parámetros dlg&,msg&,wparam&,lparam&
    caso Status%:volver 1-----Ansicht muss sólo una vez adaptado voluntad
    casenot msg&=~WM_NOTIFY:volver 1

    if long(lparam&,8)=-603---En Init existieren DefView y LV todavía no!

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

    endif

    volver 1
    ENDPROC---------------------------------------------------------------------------------

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

        parámetros Pfad$,Titel$,Name$
        declarar ofn#,Result$,Result&
        declarar DefView&,Status%------Variables para Hook
        Name$=Name$+"z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz"--Filter (en Bedarf adaptar)
        dim ofn#,88+256---------------Struktur (Win2000/NT/XP) + Puffer
        clear ofn#
        long ofn#,0=88----------------Grösse Struktur para GetOpenFileName (76 para Win9x)
        long ofn#,4=%hwnd-------------übergeordnetes Ventana
        long ofn#,12=addr(Name$)------Filter/Typ
        long ofn#,28=ofn#+88----------Beginn Puffer
        long ofn#,32=255--------------Puffergrösse
        long ofn#,44=addr(Pfad$)------Anfangspfad
        long ofn#,48=addr(Titel$)-----Titel
        long ofn#,52=$880024----------Flags
        long ofn#,68=procaddr("OpenFileHook",4)
        Result&=external("COMDLG32","GetOpenFileNameA",ofn#)
        Result$=cadena$(ofn#,88)
        casenot Result&:Result$=""
        procaddr("OpenFileHook",-4)
        disponer ofn#
        volver Result$
        ENDPROC---------------------------------------------------------------------------------
        imprimir LoadPicDialog("","Bitte Bild wählen","Bild")
        waitkey

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