XProfan

- page 2 -

allô à qui Experten

Bevor je cela roue récente erfinde - gibt es irgendwo dans den Tiefen qui Code-Kiste une kleinen Code, avec dem on dedans eines Programmes de vorhandenen Bildern Tumbnails erstellen peux ? (hoffentlich habe Je l' Daumennagel richtig geschrieben

) - qui Frage steht im Zusammenhang avec diesem Thema (Bilder dans Listview représenter) alors pas offtopic

Frank
Abbing

@iF: je denke. qui Windows-Hintergrund ist oui aussi eines.
mais il y a plusieurs Arten de Listviews. qui Listview.dll soutenu qui sogenannten Report-Listviews.

@Fred: c'est noir, weil du la couleur RGB(0,0,0) = 0 gesetzt la hâte. mets dans meinen oberen Code simple dessus irgendwo rein:

Def GetSysColor(1) !USER32,GetSysColor

[quote-part:e52788ee24]qui Image_list-Befehle kennt il pas. Allerdings qui Aider zur Listview.dll aussi pas.Es sembler alors Profan-Befehle trop son. mais aussi dans cette Aider suis je pas fündig geworden. Anscheinen sommes cela Sendmassage-Befehle. je vermute cela la fois. alors: dans quel Aider stehen cet Befehle? Diesen Befehl habe je dans qui Listview.dll-Aider trouvé: CreateImageList(F,B). c'est mais aussi alles. [/quote-part:e52788ee24]
oui, CreateImageList() est zur Listview.dll. Pour qui grossen Bilder peux du cela mais pas verwenden.
qui anderen sommes APIs, qui dessus im Quellcode défini sommes:
Kompilieren Marque Séparation

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 dit, il y a trois Funktionen aus qui ComCtl32.dll des Systems.
comment qui mais dans PB défini et aufgerufen volonté doit weiss je pas. Ist jedenfalls entier normale API.

Frank
Abbing

Wüsste je pas, Horst.

@Horst: Thumbnail[s]

[quote-part:1e6dde129d]@Horst: Thumbnail[s] [/quote-part:1e6dde129d]
@iF
...mais j'étais dicht tour, gelle ?

[quote-part:2dd053f59b=Horst Horn][quote-part:2dd053f59b]@Horst: Thumbnail[s] [/quote-part:2dd053f59b]
@iF
...mais j'étais dicht tour, gelle ?

[/quote-part:2dd053f59b]
Saudicht!

Jörg
Sellmeyer

[quote-part:aad8924fec=Horst Horn]allô à qui Experten

) - qui Frage steht im Zusammenhang avec diesem Thema (Bilder dans Listview représenter) alors pas offtopic

[/quote-part:aad8924fec]
allô Horst,
avec dem neuen Créer(hSizedPic,.) ist cela vite erledigt.

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

Fred
Matthiesen

Toll, maintenant ca va dans Profan9. qui Bilder dürfen max. 80x80 Pixel avons. dans cette Auflösung est un photo aussi encore bien trop erkennen.
Habe comme Text simple angegeben et qui Spalte sur 80 reduziert. Super, maintenant habe je une Spalte seulement avec Fotos.
maintenant doit je cela Ganze seulement encore dans Purebasic zum courir avons ensuite ist cela but erreicht.
peut-être sieht Heinz cela et alors pourrait mir plus aider.
merci déjà la fois d'avance.

SUSE 10.3 / Listview.dll

je glaub Heinz et Thomas sommes ici unsere PBer, mais je crois cela ganze dans PB hinzubiegen ist garnicht schwer - zumal doch alle Apis ebenso zur Disposition stehen?!

je crois aussi - la fois maintenant mais sous uns xprofaner - dans PB muss on irgendwie komisch avec den Controlhandles tourner autour de. Wir Sauver oui (comme sich est

) qui Handles de Controls dans Longs - je crois c'est dans PB anders.

- page 3 -

Fred
Matthiesen

Salut,
alors j'ai es geschafft. Hatte Schwierigkeiten avec qui Umsetzung qui API-Funktionen. moins avec dem Aufruf comme avec den Parametern. mais quoi soll es. ici ist qui geänderte Purebasic-Code (Purebasic 4) :
Kompilieren Marque Séparation

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/'>Fin

SUSE 10.3 / Listview.dll

Frank
Abbing

[quote-part:d21511c163]Toll, maintenant ca va dans Profan9. qui Bilder dürfen max. 80x80 Pixel avons. dans cette Auflösung est un photo aussi encore bien trop erkennen.[/quote-part:d21511c163]
qui Bilder dürfen aussi grösser son. en supplément musst du cet la ligne anpassen:

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

qui beiden ersten paramètre kennzeichnen Breite et Hauteur.

Fred
Matthiesen

Habe es ausprobiert. Toll. Funktioniert.

SUSE 10.3 / Listview.dll