XProfan

- Page 2 -

Hello on The Experten

before I the wheel new erfinde - there somewhere into depths the code-box a small code, the one with within one Program of vorhandenen Images Tumbnails create can ? (hopefully have I the Daumennagel correctly. written

) - The question standing in the Context of these Topic (Images in list view present) means not offtopic

Frank
Abbing

@iF: i think. The windows-background is indeed one.
but there's several types of Listviews. The List view.dll supported The so-called Report-Listviews.

@Fred: its Black, because You colour RGB(0,0,0) = 0 staid have. set in my oberen code simply supra somewhere mere:

Def GetSysColor(1) !USER32,GetSysColor

[quote:e52788ee24]The Image_list-command knows it not. though The Help to List view.dll neither.it shine means Profan-command To his. but too in this Help be I do not fündig become. Anscheinen are the Sendmassage-command. I suspect the time. means: in which Help stand these command? Diesen commands have I in the List view.dll-Help found: CreateImageList(F,B). But this is too everything. [/quote:e52788ee24]
Yes, CreateImageList() heard to List view.dll. for the grossen Images can you the but not use.
The others are APIs, The supra in the Source definiert are:
Compile Mark Separation

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>

Accurate said, there are three functions from the ComCtl32.dll the Systems.
How The but in PB definiert and called go must knows I do not. is anyway integrally normal API.

Frank
Abbing

Know I do not, Horst.

@Horst: Thumbnail[s]

[quote:1e6dde129d]@Horst: Thumbnail[s] [/quote:1e6dde129d]
@iF
...but I was solid dran, gelle ?

[quote:2dd053f59b=Horst horn][quote:2dd053f59b]@Horst: Thumbnail[s] [/quote:2dd053f59b]
@iF
...but I was solid dran, gelle ?

[/quote:2dd053f59b]
Saudicht!

Jörg
Sellmeyer

[quote:aad8924fec=Horst horn]Hello on The Experten

) - The question standing in the Context of these Topic (Images in list view present) means not offtopic

[/quote:aad8924fec]
Hello Horst,
with the new Create(hSizedPic,.) is the quick Done.

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

Fred
Matthiesen

cool, now goes it in Profan9. The Images can max. 80x80 Pixel having. in this dissolution is a photo too yet well To discern.
have as Text simply indicated and the slot on 80 minimizes. super, now have I a slot only with photos.
now must I the whole only still in Purebasic running having then is the target access.
Perhaps sees Heinz the Yes and could me moreover help.
thanks already time beforehand.

SUSE 10.3 / Listview.dll

I mean Heinz and Thomas are here our PBer, but I faith the whole in PB hinzubiegen is not at all heavy - especially since still any Apis likewise available stand?!

I faith too - time now but under us xprofaner - in PB must one somehow comic with the Controlhandles bypass. we Save Yes (as itself heard

) The Handles of Controls in Longs - I faith this is in PB differently.

- Page 3 -

Fred
Matthiesen

Hi,
means I have it geschafft. having difficulty with the Umsetzung the API-functions. less with the appeal as with the Parameters. but what should it. here's the geänderte Purebasic-code (Purebasic 4) :
Compile Mark Separation

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='./../../Function-References/XProfan/end/'>End

SUSE 10.3 / Listview.dll

Frank
Abbing

[quote:d21511c163]cool, now goes it in Profan9. The Images can max. 80x80 Pixel having. in this dissolution is a photo too yet well To discern.[/quote:d21511c163]
The Images can too greater his. moreover must You these row adjust:

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

The both first Parameter mark wide and Höhe.

Fred
Matthiesen

have it ausprobiert. cool. functions.

SUSE 10.3 / Listview.dll