XProfan

- Página 2 -

¡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

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.

- Página 3 -

Fred
Matthiesen

¡Hola,
also Yo lo geschafft. Hatte Schwierigkeiten con el Umsetzung el API-Características. Weniger con el Aufruf como con el Parametern. Aber qué se lo. Hier es el geänderte Purebasic-Code (Purebasic 4) :
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
Dim Inhalt.s(2)
GetSysColor_(1)
Bildliste=ImageList_Create_(80,80,ILC_COLOR32,5,1)
ImageList_Destroy_(Bildliste)
ImageList_Add_(Bildliste,3,0)
spalte1.s = "Foto"
spalte2.s = "Name"
Inhalt(0)=""
Inhalt(1)="Name"
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")
    PanelGadget(10, 5, 100, 580, 350);, "Listview", #PB_Frame3D_Double)

EndIf

fenster.l = GadgetID(10)
ilist=ImageList_Create_(80,80,33,0,0)
lhandle = CreateListview(fenster, 150, 150, RGB(255, 255, 255), -1, $31)
bild1=LoadImage(0,"test.bmp",#PB_Image_DisplayFormat)
ImageList_Add_(ilist,bild1,0)
bild2=LoadImage(1,"test2.bmp",#PB_Image_DisplayFormat)
ImageList_Add_(ilist,bild2,0)
SetImageList(lhandle,ilist)
IColumn(lhandle, @spalte1, 80, 0)
IColumn(lhandle, @spalte2, 180, 1)
SItem(lhandle,@inhalt(),2)
SItem(lhandle,@inhalt(),2)
SItem(lhandle,@inhalt(),2)
SetIcon(lhandle,0,0)
SetIcon(lhandle,1,1)
SetIcon(lhandle,2,0)
SetIconColumn(1)
SetIcon(lhandle,0,1)
SetIcon(lhandle,1,0)
SetIcon(lhandle,2,1)
InitMessages(fenster)
ShowListview(lhandle, 5, 15, 570, 320)
SetParent_(GadgetID(10),fenster)

Repeat

    EventID.l = WaitWindowEvent()

    Select EventGadget()

        Case 1
        CloseMessages(fenster)
        FreeMemory(0)
        DestroyWindow_(fenster1)
        CloseWindow(0)
        End

    EndSelect

Until WaitWindowEvent() = #PB_Event_CloseWindow

4 href='./../../funktionsreferenzen/XProfan/end/'>End

SUSE 10.3 / Listview.dll

Frank
Abbing

[quote:d21511c163]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.[/quote:d21511c163]
El Bilder dürfen auch grösser ser. Dazu musst du esta Línea adaptar:

ilist&=ImageList_Create(80,80,33,0,0)

El beiden ersten Parámetro kennzeichnen Breite y Höhe.

Fred
Matthiesen

Posesiones lo ausprobiert. Toll. Funktioniert.

SUSE 10.3 / Listview.dll