XProfan

- Página 2 -

Fred
Matthiesen

Ist alles schwarz. Hier el geänderte Code:
Kompilieren Marca Separación

Declare lvdll&,listview&,text$,x&,y&,z&,ilist&,bild1&,bild2&
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
Cls @Rgb(23,23,23)
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
InitMessages(%hwnd)
ilist&=ImageList_Create(80,80,33,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,@Rgb(0,0,0),-1,$3)
bild1&=Create("hPic",-1,"C:	est	est3.bmp")
ImageList_Add(ilist&,bild1&,0)
bild2&=Create("hPic",-1,"C:TestTest3.bmp")
ImageList_Add(ilist&,bild2&,0)
SetImageList(listview&,ilist&)
InsertColumn listview&,"Name",200,0
InsertColumn listview&,"Index",160,0
SetItem listview&,"Test","Test"
SetItem listview&,"Test","Test"
SetItem listview&,"Test","Test"
SetIcon(listview&,0,0)
SetIcon(listview&,1,1)
SetIcon(listview&,2,2)
SetIconColumn(1)
SetIcon(listview&,0,0)
SetIcon(listview&,1,0)
SetIcon(listview&,2,2)
ShowListView(listview&,8,8,480,320)

While 1

    waitinput
    Case %key=2:BREAK

EndWhile

ImageList_Destroy(ilist&)
DestroyWindow(%hwnd)
freedll lvdll&
End

SUSE 10.3 / Listview.dll

Fred
Matthiesen

Hier es el geänderte Purebasiccode:
Kompilieren Marca Separación

IncludeFile "Listview.pb"
Global flen.l, lhandle.l, bereich.l
Global datei.s, datei2.s, db_datei.s
Global spalte1.s, spalte2.s, spalte3.s, sp1.s, sp2.s, sp3.s, selected.s
spalte1.s = "Name"
spalte2.s = "Index"
Dim Spalten.l(2)
Dim Sortspalten.l(2)
selected = Space(16384)
fenster1.l = OpenWindow(0, 100, 100, 600, 460, "List - View", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

If CreateGadgetList(WindowID(0))

    ButtonGadget(1, 10, 10 ,70, 20, "Ende")
    Frame3DGadget(10, 5, 100, 580, 350, "Listview", #PB_Frame3D_Double)
    fenster.l = GadgetID(10)
    ; Listview initialisieren und erstellen
    lhandle = CreateListview(fenster, 150, 150, RGB(255, 255, 255), -1, $31)
    IColumn(lhandle, @spalte1, 240, 0)
    IColumn(lhandle, @spalte2, 80, 1)

EndIf

; Listview anzeigen
ShowListview(lhandle, 5, 15, 570, 320)
; Messageverwaltung einschalten
InitMessages(fenster)

Repeat

    EventID.l = WaitWindowEvent()

    Select EventID

        Case #PB_Event_CloseWindow
        Quit = 1
        Case #PB_Event_Gadget

        Select EventGadget()

            Case 7
            Ouit=1

        EndSelect

    EndSelect

Until Quit = 1

; Messageverwaltung wieder ausschalten
CloseMessages(fenster)
FreeMemory(0)
DestroyWindow_(fenster1)
CloseWindow(0)
CloseLibrary(#lvdll)
./../../references-fonction/XProfan/end/'>End

SUSE 10.3 / Listview.dll

@Franco: Das todo IE-Dateianzeigegeschichtchen es doch una LV oder?

¡Hola a el Experten

Antes de que yo el Rad neu erfinde - hay irgendwo en el Tiefen el Code-Kiste una pequeña Code, con el uno innerhalb uno Programmes de vorhandenen Bildern Tumbnails redactar kann ? (hoffentlich Yo el Daumennagel correcto geschrieben

) - el Cuestión es en el Zusammenhang con diesem Thema (Bilder en Listview darstellen) also no offtopic

Frank
Abbing

@IF: Yo denke. Der Windows-Hintergrund es sí auch uno.
Aber lo son mehrere Arten de Listviews. El Listview.dll unterstützt el sogenannten Report-Listviews.

@Fred: Es schwarz, porque du Farbe RGB(0,0,0) = 0 gesetzt hast. Setze en media oberen Code simplemente oben irgendwo rein:

Def GetSysColor(1) !USER32,GetSysColor

[quote:e52788ee24]El Image_list-Befehle sabe él no. Aunque el Ayuda a Listview.dll auch no.Lo scheinen also Profano-Befehle a ser. Aber auch en dieser Ayuda bin Yo no fündig geworden. Anscheinen son el Sendmassage-Befehle. Yo vermute el veces. Also: en welcher Ayuda posición esta Befehle? Diesen Befehl Yo en el Listview.dll-Ayuda gefunden: CreateImageList(F,B). Pero esto es auch alles. [/quote:e52788ee24]
Sí, CreateImageList() gehört a Listview.dll. Für el grossen Bilder kannst Si es usted el pero no uso.
El otro son APIs, el oben en el Quellcode definiert son:
Kompilieren Marca Separación

Def ImageList_Create(5) !"comctl32.dll","ImageList_Create"
Def ImageList_Destroy(1) !"comctl32.dll","ImageList_Destroy"
Def ImageList_Add(3) !"comctl32.dll","ImageList_Add"re>

Genauer dijo, lo son drei Características de el ComCtl32.dll des Systems.
Como el aber en PB definiert y aufgerufen voluntad necesario blanco Yo no. Ist jedenfalls bastante normale API.

Frank
Abbing

Wüsste Yo no, Horst.

@Horst: Thumbnail[s]

[quote:1e6dde129d]@Horst: Thumbnail[s] [/quote:1e6dde129d]
@IF
...pero yo war dicht dran, gelle ?

[quote:2dd053f59b=Horst Horn][quote:2dd053f59b]@Horst: Thumbnail[s] [/quote:2dd053f59b]
@IF
...pero yo war dicht dran, gelle ?

[/quote:2dd053f59b]
Saudicht!

Jörg
Sellmeyer

[quote:aad8924fec=Horst Horn]¡Hola a el Experten

) - el Cuestión es en el Zusammenhang con diesem Thema (Bilder en Listview darstellen) also no offtopic

[/quote:aad8924fec]
¡Hola Horst,
Mit el neuen Crear(hSizedPic,.) es el rápidamente hecho.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Fred
Matthiesen

Toll, ahora es en Profano9. El Bilder dürfen max. 80x80 Pixel haben. In dieser Auflösung es una Foto auch todavía bien a erkennen.
Posesiones como texto simplemente angegeben y el Spalte en 80 reduziert. Super, ahora Yo una Spalte sólo Fotos.
Jetzt muß Yo el Ganze sólo aún en Purebasic para Laufen haben entonces el Ziel erreicht.
Tal vez sieht Heinz el sí y podría me más helfen.
Gracias ya veces en el voraus.

SUSE 10.3 / Listview.dll

08.11.2006 ▲

Yo glaub Heinz y Thomas son hier unsere PBer, pero yo glaube Todo en PB hinzubiegen es garnicht schwer - especialmente doch todos Apis ebenso disponible posición?!

Yo glaube auch - veces ahora aber bajo uns xprofaner - en PB muss uno irgendwie komisch con el Controlhandles umgehen. Wir speichern sí (como se gehört

) el Handles de Controls en Longs - Yo glaube el es en PB anders.

08.11.2006 ▲