XProfan

 {$iq}
Déclarer lvdll&,listview&,text$,x&,y&,z&,ilist&
Déclarer bild&[199]
Déclarer bereich#
Faible bereich#,512
Def GetSysColor(1) !"User32","GetSysColor"
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
Windowtitle "Unbegrenzt grosse Bilder dans Listviews einbauen"
Windowstyle 26+512
Fenêtre 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 füllen
Bilder dans qui Listbox
var Pfad$ = @GETDIR $("@")
ClearList
ChDir Pfad$ + "\lvdata"
AddFiles "*.JPG"
ChDir Pfad$
Gewünsche Bildgrösse pour cet 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 qui erforderlichen Zeilen chez 2 Spalten
BuildListview(listview&,2,x&,280,0)
text$="Spalte 1"
SetColumnName(listview&,Addr(text$),0)
text$="Spalte 2"
SetColumnName(listview&,Addr(text$),1)
Déclarer Nr%
Nr%= 0
x& = 0  la ligne

Tandis que Nr% < %GetCount   Anzahl qui Bilder dans qui Listbox

    y& = 0  Spalte

    Tandis que y& < 2

        text$= Pfad$ + "\lvdata\" + @ListBoxItem$(Nr%)
        bild&[Nr%] = Créer("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%
        Cas nr% > %GetCount : BREAK

    Endwhile

    inc x&

Endwhile

ShowListView(listview&,8,8,612,304)
text$="Registriert alle Mausklicks (à gauche, à droite, Double-cliquez sur) sur une Itemtext.
"
text$=text$+"Auch linke et rechte Mausklicks sur Spaltenbuttens volonté registriert."
var status&=Créer("TEXT",%HWND,text$,8,464,600,72)
InitMessages(%hwnd)

Tandis que 1

    waitinput
    Cas %clé=2:BREAK
    y&=GetControlParas(bereich#)

    Si y&=2

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

    ElseIf y&=1

        text$="Der linke Mausknopf wurde dans Spalte "+Str$(Long(bereich#,4))+" / "+Str$(Long(bereich#,8))+" comme Double-cliquez sur gedrückt.
        "
        SetText status&,text$

    ElseIf y&=3

        text$="Der linke Mausknopf wurde dans Spalte "+Str$(Long(bereich#,4))+" / "+Str$(Long(bereich#,8))+" gedrückt.
        "
        SetText status&,text$
        GetItemText(listview&,bereich#,Str$(Long(bereich#,4)),Str$(Long(bereich#,8)))
        text$=$ Trim(String$(bereich#,0))
        MessageBox "Mit Linksklick pourrait cela Bild
        "+ text$ +"
        dans Originalgröße angezeigt volonté...»information",$40040

    EndIf

Endwhile

Dispose bereich#
ImageList_Destroy(ilist&)
DestroyWindow(%hwnd)
freedll lvdll&
Fin

LoadFile-Dialog avec Bitmap-Anzeige (ab 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&
    cas Status%:return 1-----Ansicht muss seulement einmal angepasst volonté
    casenot msg&=~WM_NOTIFY:return 1

    si long(lparam&,8)=-603---chez Init existieren DefView et LV encore pas!

        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 Pfad$,Titel$,nom$
        declare ofn#,Result$,Result&
        declare DefView&,Status%------Variablen pour Hook
        nom$=nom$+"z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz"--filtre (chez besoin anpassen)
        dim ofn#,88+256---------------Struktur (Win2000/NT/XP) + Puffer
        clear ofn#
        long ofn#,0=88----------------Grösse Struktur pour GetOpenFileName (76 pour Win9x)
        long ofn#,4=%hwnd-------------übergeordnetes la fenêtre
        long ofn#,12=addr(nom$)------filtre/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$=string$(ofn#,88)
        casenot Result&:Result$=»
        procaddr("OpenFileHook",-4)
        dispose ofn#
        return Result$
        endproc---------------------------------------------------------------------------------
        imprimer LoadPicDialog(»,"Bitte Bild wählen","Bild")
        waitkey

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