XProfan

****************** ListView-Demo: TileView mit Icon
****************** XProfan 10 / Windows XP
****************** © by TCS (Uwe Pascal Niemeier) 052007
window 100,10-500,550
usefont MS Sans Serif,15,7,0,0,0
setdialogfont 1
usermessages 16
 $H Windows.ph
 $H commctrl.ph
declare Tiles#
struct Tiles=x1&,x2&,x3&,x4&,x5&--Array: 5 mögliche Spalten / Extra-Zeilen
dim Tiles#,Tiles
declare TileInfo#
struct LVTILEINFO=Size&,Item&,Columns&,puColumns&
dim TileInfo#,LVTILEINFO
TileInfo#.Size&=sizeof(TileInfo#)
TileInfo#.puColumns&=Tiles#
declare TileView#
struct TILEVIEW=Size&,Mask&,Flags&,x&,y&,Lines&,xa&,ya&,xb&,yb&
dim TileView#,TILEVIEW
TileView#.Size&=sizeof(TileView#)
TileView#.Mask& =2--LVTVIM_COLUMNS
TileView#.Lines&=5--Max. Anzahl Zeilen (nicht verwendete leer)
var IcoList&=~ImageList_Create(64,64,1,1,0)
external(comctl32,ImageList_AddIcon,IcoList&,~LoadIcon(%hinstance,Profan))
var Lv&=create(gridbox,%hwnd,a;0;0;b;0;0;c;0;0;d;0;0;e;0;0,0,10,10,300,420)--5 Spalten
sendmessage(Lv&,~LVM_SETIMAGELIST,~LVSIL_NORMAL,IcoList&)
sendmessage(Lv&,(~LVM_FIRST+142),4,0)----------LVM_SETVIEW,LV_VIEW_TILE
sendmessage(Lv&,(~LVM_FIRST+162),0,TileView#)--LVM_SETTILEVIEWINFO
addstring(Lv&,Name 1|Info 1|Extra 1|Daten 1|Text 1)
addstring(Lv&,Name 2|Info 2|Extra 2|Daten 2|Text 2)
addstring(Lv&,Name 3|Info 3|Extra 3|Daten 3|Text 3)
TileInfo#.Item&   =0--------------------------------------Zeile 0
TileInfo#.Columns&=4--Anzahl Spalten als Extra-Zeilen
Tiles#.x1&        =4--Text
Tiles#.x2&        =2--Extra
Tiles#.x3&        =3--Daten
Tiles#.x4&        =1--Info
sendmessage(Lv&,(~LVM_FIRST+164),0,TileInfo#)--LVM_SETTILEINFO
TileInfo#.Item&   =1--------------------------------------Zeile 1
TileInfo#.Columns&=1--Anzahl Spalten als Extra-Zeilen
Tiles#.x1&        =4--Text
sendmessage(Lv&,(~LVM_FIRST+164),0,TileInfo#)--LVM_SETTILEINFO
TileInfo#.Item&   =2--------------------------------------Zeile 2
TileInfo#.Columns&=3--Anzahl Spalten als Extra-Zeilen
Tiles#.x1&        =1--Info
Tiles#.x2&        =2--Extra
Tiles#.x3&        =3--Daten
sendmessage(Lv&,(~LVM_FIRST+164),0,TileInfo#)--LVM_SETTILEINFO

while 1

    waitinput
    case %umessage=16:break-------Ende

endwhile

case IcoList&:~ImageList_Destroy(IcoList&)
dispose Tiles#
dispose TileInfo#
disponer TileView#

****************** ListView-Demo: Grouping
****************** XProfan 10 / Windows XP
****************** © by TCS (Uwe Pascal Niemeier) 052007
window 100,10-500,550
usefont MS Sans Serif,15,7,0,0,0
setdialogfont 1
usermessages 16
 $H Windows.ph
 $H commctrl.ph
declarar Texto#
dim Texto#,255
declarar LvGroup#
struct LVGROUP=Size&,Mask&,pszHeader&,cchHeader&,pszFooter&,cchFooter&,
GroupId&,StateMask&,State&,Align&
dim LvGroup#,LVGROUP
LvGroup#.Size&=sizeof(LvGroup#)
LvGroup#.Mask&=$11--LVGF_HEADER | LVGF_GROUPID
LvGroup#.pszHeader&=Texto#
declarar Lv#
struct Lv=Mask&,Item&,x#(32),GroupID&
dim Lv#,Lv
Lv#.Mask&=$100--LVIF_GROUPID
var Lv&=create(gridbox,%hwnd,a;0;50;b;0;50;c;0;50;d;0;50;e;0;50,0,10,10,300,310)
sendmessage(Lv&,(~LVM_FIRST+157),1,0)--LVM_ENABLEGROUPVIEW (Grouping una/de)
~MultiByteToWideChar(0,0,Test,-1,Texto#,255)-------------Gruppe 1 invertir
LvGroup#.GroupId&=111
sendmessage(Lv&,(~LVM_FIRST+145),-1,LvGroup#)--LVM_INSERTGROUP
~MultiByteToWideChar(0,0,Nochn Test,-1,Texto#,255)------Gruppe 1 invertir
LvGroup#.GroupId&=222
sendmessage(Lv&,(~LVM_FIRST+145),-1,LvGroup#)--LVM_INSERTGROUP
addstring(Lv&,Name 1|Info 1|Extra 1|Daten 1|Texto 1)
addstring(Lv&,Name 2|Info 2|Extra 2|Daten 2|Texto 2)
addstring(Lv&,Name 3|Info 3|Extra 3|Daten 3|Texto 3)
Lv#.Item&=0-------------------------------------Línea 0
Lv#.GroupID&=111
sendmessage(Lv&,~LVM_SETITEM,0,Lv#)
Lv#.Item&=1-------------------------------------Línea 1
Lv#.GroupID&=222
sendmessage(Lv&,~LVM_SETITEM,0,Lv#)
Lv#.Item&=2-------------------------------------Línea 2
Lv#.GroupID&=111
sendmessage(Lv&,~LVM_SETITEM,0,Lv#)

mientras que 1

    waitinput
    caso %umessage=16:romper-------Ende

endwhile