XProfan

[quote:6fef3db1e6]How can I Own photos/Images in a list view present.[/quote:6fef3db1e6]
In of my Adressenverwaltung ADRESSOR can I To each entry a Steckbrief create. in the is then too the zugehörende photo - see Image
Runterladen can You whom ADRESSOR of of my Homepage - see under...

bild_in LV.jpg	109 kB

Kurzbeschreibung:	photo in Adressenverwaltung

Hochgeladen:	11/06/06

Downloadcounter:
		Download

well Horst, this is but no Listvieweintrag, separate the photo is outside the List view.

Frank
Abbing

Listviews can no photos imply, only one Hintergrundsbild.
Machbar wären Icons, The one photo show, but here's The Size very limited.

Fred
Matthiesen

Hello Frank,
How tall must max. the Icon his and How becomes it eingefügt. which commands?

SUSE 10.3 / Listview.dll

...i'm of course not Frank, but on your question a response of me: If you The List view.dll have, have you got too The Help. in the Help is a Unterverzeichnis with PRF-demonstration-code. look you there time whom code profan_icons.prf on - here you see, How Icons loaded go. The Size depends itself to the Zeilenhöhe - if the up to 32x32 Pixel goes, is the statement for a photo imaginable besch...

- rather is, if You so How I, a Unterdatei erstellst, in the then photos loaded go

Frank
Abbing

The Size the Icons is under whom different Betriebssystemen differently. XP can - so far I know - 256x256 Pixel grosse Icons process, 98 only 32x32 Pixel. everything without Gewähr.
moreover must You a Imagelist create, a list, in the Icons assembled go. its but thoroughly possible, too Bitmaps into Imagelist To loading, in lieu of of Icons. These list anyway know You hereafter with the List view.dll-function SetImageList() one List view To. one Item or Subitem one Icon from the list allocate goes then with SetIconColumn(), SetIcon(), SetIconMode(), SetIconsFromMem() and/or SetIconsWith().
The List view.dll own too functions, circa Imagelisten automatically To Generate, though not which with so grossen Icons. The APIs to are but slight yourself To using. ImageList_Create and ImageList_Add.
If I time Time have, try I time one demonstration with Riesengrafiken To basteln.

Frank
Abbing

so, having grade ne quarter of an hour Time to that try. goes objectively with all Bitmapbildern, and the even very simply. here one Testcode, the with 80x80 Pixel grossen Images operates. must yet vervollständigt go (Images enable etc.), shows but, as goes.
Compile Mark Separation

!Declare lvdll&,listview&,text$,x&,y&,z&,ilist&,bild1&,bild2&
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
Cls GetSysColor(15)
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,GetSysColor(24),-1,$3)
bild1&=Create("hPic",-1,"testpic.bmp")
ImageList_Add(ilist&,bild1&,0)
bild2&=Create("hPic",-1,"testpic2.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,0)
SetIconColumn(1)
SetIcon(listview&,0,1)
SetIcon(listview&,1,0)
SetIcon(listview&,2,1)
ShowListView(listview&,8,8,480,320)

While 1

    waitinput
    Case %key=2:BREAK

EndWhile

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

Hey, without Texts is the already ne nice Bilderanzeige...

listview.jpg	47 kB

Hochgeladen:	11/06/06

Downloadcounter:
		Download

[quote:9e3b6fe95e]so, having grade ne quarter of an hour Time to that try. goes objectively with all Bitmapbildern, and the even very simply. here one Testcode, the with 80x80 Pixel grossen Images operates. must yet vervollständigt go (Images enable etc.), shows but, as goes.[/quote:9e3b6fe95e]
@Hello Frank

The Idea is super

- now have I again pursuit until spring

- will be my ADRESSOR-Program paraphrase

Frank
Abbing

Hello.

[quote:08ca1262e0]The Idea is super - now have I again pursuit until spring - will be my ADRESSOR-Program paraphrase [/quote:08ca1262e0]
will be with opportunity another little so experiment. Dass The story with Bitmaps too so well works, had I at reading this Postingfrage not virtual.

Fred
Matthiesen

thanks Frank for Answer, but:
I have the program in Profan9 launched and the commands: Cls GetSysColor(15) knows it not. have then Getsyscolor deleted, then went it moreover. then stayed it in this row stick:
listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$3)
too here have I GetSysColor simply through 0 supplant. now shows it Although a List view on, but any boxes are Black.
now Yes, I have now attempts the to Purebasic To konvertieren. 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.

SUSE 10.3 / Listview.dll

getsyscolor

is a user32dll api - in PB then faith just GetSysColor_ write. can also supplant in XProfan in rgb(r&,g&,b&) or. rgb(255,0,0) for ruddy - or directly in The Constant supplant $00FF0000 for blue. 0 (zero) is naturally Black!

If you however with XProfan with Prekompiler XPSE

work can also simply so getsyscolor write, any Apis from whom Standardheaders go correctly umgesetzt in suitable call

s.

means take simply XPSE then goes too getsyscolor, or getsyscolor by def

define.