| |
| |
|
Jac
de
Lad | | qui Titel sagts déjà...allez cela? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 03.12.2007 ▲ |
|
| |
|
|
Frank
Abbing | | comme Hintergrund? No prob. Anstelle Icon allez aussi - via Imagelist. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Jaja, mais comment kriege je cela dans qui Imagelist rein?? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 03.12.2007 ▲ |
|
| |
|
|
Frank
Abbing | | Gibt ne la quantité API pour qui Imagelisten. Dein ami ist ImageList_Add(). |
|
| |
| |
| |
|
|
Jac
de
Lad | | ah komm déjà Frank. je peux à sich avec Imagelisten tourner autour de. mais seulement avec BMP/ICO et so. comment kriege je là un JPEG rein? Womit lade je cela...? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 03.12.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | je serait la fois dire, Du erzeugst avec Créer(hPic,...) un Handle et übergibst cela à qui Imageliste. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 03.12.2007 ▲ |
|
| |
|
|
Jac
de
Lad | hPic allez pas. je hab aussi déjà gegooglet sans Ende...je viens pas plus.  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 10.12.2007 ▲ |
|
| |
|
|
Jac
de
Lad | | Roland, la hâte du ne concept? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 10.12.2007 ▲ |
|
| |
|
|
GDL | Hi,
bekommst Schützenhilfe de mir.Würde aussi volontiers Jpeg comme Iconbild dans qui 1sten Spalte einer la ligne avons.
Habe zusätzlich encore cela Prob. dass zur Erstellzeit so ca. 1000 jpegs encore sur Icogröße verkleinert volonté doit.
salut
Georg |
|
| |
| |
| |
|
|
Frank
Abbing | Manche GDI-API verlangt freie Bitmaps et manche Bitmaps, qui à une HDC gekoppelt sommes. avec SelectObject() peux du Bitmaps à HDCs koppeln et lösen.
important: qui Bitmaps seulement freigeben, si après que du cela Listview détruit la hâte.
ici einer meiner Listview.dll-Source, qui cet technologie zeigt. tu peux den Source léger à deine Bedürfnisse anpassen...
KompilierenMarqueSéparationDeclare lvdll&,listview&,text$,x&,y&,z&,ilist&,bild1&,bild2&
Def GetSysColor(1) !USER32,GetSysColor
Def CreateBitmap(5) !GDI32,CreateBitmap
Def SelectObject(2) !GDI32,SelectObject
Def ImageList_Create(5) !comctl32.dll,ImageList_Create
Def ImageList_Destroy(1) !comctl32.dll,ImageList_Destroy
Def ImageList_Add(3) !comctl32.dll,ImageList_Add
$I Listview_Funktionen.inc
lvdll&=usedll(Listview.dll)
Prozedure: Icons/Bilder zufällig setzen
Proc BildSetzen
SetIconColumn(1)
SetIcon(listview&,0,Rnd(4))
SetIcon(listview&,1,Rnd(4))
SetIcon(listview&,2,Rnd(4))
SetIcon(listview&,3,Rnd(4))
SetIconColumn(2)
SetIcon(listview&,0,Rnd(4))
SetIcon(listview&,1,Rnd(4))
SetIcon(listview&,2,Rnd(4))
SetIcon(listview&,3,Rnd(4))
SetIconColumn(3)
SetIcon(listview&,0,Rnd(4))
SetIcon(listview&,1,Rnd(4))
SetIcon(listview&,2,Rnd(4))
SetIcon(listview&,3,Rnd(4))
EndProc
Windowtitle Listviews und Spielereien mit Bitmap-Grafiken
Windowstyle 26+512
Window 200,200-440,360
Cls GetSysColor(15)
Usefont MS Sans Serif,10,0,0,0,0
SetDialogFont 1
InitMessages(%hwnd)
Gewünsche Bildgrösse für dieses Demo: 64 x 64 Pixel
ilist&=ImageList_Create(64,64,33,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,RGB(255,255,255),-1,$403)
Leere Bitmap erstellen
x&=CreateBitmap(64,64,1,1,0)
MCls 64,64
StartPaint -1
Speicherbitmap mit Grafik füllen
Speicherbitmap gegen leere Bitmap tauschen, um sie in Imageliste einfügen zu können
Bitmaps zurücktauschen
Cls RGB(255,255,255)
UsePen 1,4,RGB(0,0,255)
Ellipse 5,10-50,50
y&=SelectObject(%hdc,x&)
ImageList_Add(ilist&,y&,0)
x&=SelectObject(%hdc,y&)
Wiederholen für nächstes Grafikobjekt
Cls RGB(255,255,255)
UsePen 2,2,RGB(0,255,0)
Rectangle 5,10-50,50
y&=SelectObject(%hdc,x&)
ImageList_Add(ilist&,y&,0)
x&=SelectObject(%hdc,y&)
Wiederholen...
Cls RGB(255,255,255)
UsePen 3,3,RGB(255,0,0)
RoundRect 5,10-50,50;24,24
y&=SelectObject(%hdc,x&)
ImageList_Add(ilist&,y&,0)
x&=SelectObject(%hdc,y&)
Cls RGB(255,255,255)
UsePen 4,2,RGB(255,0,255)
Line 5,10-50,50
y&=SelectObject(%hdc,x&)
ImageList_Add(ilist&,y&,0)
x&=SelectObject(%hdc,y&)
EndPaint
Leere Bitmap zerstören
DeleteObject x&
SetImageList(listview&,ilist&)
Leere Listviewspalten- und zeilen erzeugen
BuildListview(listview&,4,4,128,0)
Erste Spalte unbrauchbar machen (wegen ungewünschter Selektierung)
SetColumnWidth(listview&,0,0)
BildSetzen
Spaltentexte
text$=Thema 1
SetColumnName(listview&,Addr(text$),1)
text$=Thema 2
SetColumnName(listview&,Addr(text$),2)
text$=Thema 3
SetColumnName(listview&,Addr(text$),3)
Itemtexte generieren
x&=0
y&=0
Whileloop 12
text$=Bild +Str$(&loop)
SetItemText(listview&,addr(text$),x&+1,y&)
x&=x&+1
If x&>=3
x&=0
y&=y&+1
EndIf
EndWhile
ShowListView(listview&,16,16,400,300)
SetTimer 150
While 1
waitinput
Case %key=2:BREAK
BildSetzen
EndWhile
KillTimer
ImageList_Destroy(ilist&)
DestroyWindow(%hwnd)
freedll lvdll&
Fin
|
|
| |
| |
| |
|
|
Thomas
Freier | Frank, tu as doch cela Beispiel: Grosse_Bitmap-Icônes.prf,
avec cela peux on doch aussi *.jpg et *.gif verwenden; *.png ging pas. |
|
| |
| |
| |
|
|
Frank
Abbing | oui, Thomas. qui Code demonstriert es encore besser. Allerdings volonté pour qui entscheidenen Sachen Listview.dll-Funktionen verwendet, au cours de l'autre Code cela manuel erledigt.
ImageList_Add() peux PNG pas magasin. mais dank OLE volonté JPG, GIF et Co mais akzeptiert. Jac, je sagte dir oui déjà, ImageList_Add ist dein ami... |
|
| |
| |
| |
|
(4.050)
Deutsch
English
Français
Español
Italia