XProfan

- Page 2 -

Fred
Matthiesen

is everything Black. here the geänderte code:
Compile Mark Separation

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

here's the geänderte Purebasiccode:
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
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

@Frank: the whole IE-Dateianzeigegeschichtchen is still one LV or?

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

11/08/06 ▲

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.

11/08/06 ▲