XProfan

English

Jac
de
Lad

Hi,

How I Icons in Gridboxen einbaue white I now, but white Perhaps someone How one Check boxes install, inquire and settle can?? goes certainly again SetWindowLong, but of it Have I do not plenty Idea...be glad, I strain Callback-functions understood Have)

Jac

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

07/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Uwe
''Pascal''
Niemeier

Hello Jac!

Guckst You here:
(have The icons of letzen time same dringelassen)
Compile Mark Separation

window 100,100-400,300
 $H Windows.ph
 $H Commctrl.ph
numwidth 3
def ImageList_AddIcon(2) !comctl32,ImageList_AddIcon--Diese API ist nirgendwo definiert
declare Lv&
Lv&=create(GridBox,%hwnd,Links;0;100;Mitte;0;100;Rechts;0;100,1,10,50,300,100)
addstring(Lv&,Eintrag 1.1|Eintrag 1.2|Eintrag 1.3)
addstring(Lv&,Eintrag 2.1|Eintrag 2.2|Eintrag 2.3)
addstring(Lv&,Eintrag 3.1|Eintrag 3.2|Eintrag 3.3)
def LvGetCheck(2) testbit(sendmessage(&(1),~LVM_GETITEMSTATE,%(2),~LVIS_STATEIMAGEMASK),13)

proc LvSetCheck---------------------------------LvSetCheck------------------------------

    parameters Lv&,Item&,Mode%
    Lv#.StateMask&=~LVIS_STATEIMAGEMASK
    Lv#.State&    =$1000*(Mode%+1)
    sendmessage(Lv&,~LVM_SETITEMSTATE,Item&,Lv#)
    endproc---------------------------------------------------------------------------------
    declare IcoList&
    IcoList&=~ImageList_Create(16,16,33,0,0)--Icons Grösse 16*16 (3.Parameter: Farbtiefe)
    --Die Höhe der Lv-Zeilen passt sich der Grösse der Icons an!
    ImageList_AddIcon(IcoList&,~LoadIcon(%hinstance,stein))--Icon 0 in IcoList
    ImageList_AddIcon(IcoList&,~LoadIcon(%hinstance,dos))----Icon 1 in IcoList
    ImageList_AddIcon(IcoList&,~LoadIcon(%hinstance,weg))----Icon 2 in IcoList
    --IcoList für Tabellenansicht mit ListView verbinden
    sendmessage(Lv&,~LVM_SETIMAGELIST,~LVSIL_SMALL,IcoList&)
    --Checkboxen + Icons in SubItems + Gitterlinien
    sendmessage(Lv&,~LVM_SETEXTENDEDLISTVIEWSTYLE,0,~LVS_EX_CHECKBOXES | ~LVS_EX_SUBITEMIMAGES | ~LVS_EX_GRIDLINES)
    declare Lv#
    struct Lvi=Mask&,Item&,SubItem&,State&,StateMask&,Text&,TextMax&,Image&,Param&
    dim Lv#,Lvi
    clear Lv#
    Lv#.Mask&=~LVIF_IMAGE
    Lv#.Item&   =0-----------------------------Zeile  0
    Lv#.SubItem&=0-----------------------------Spalte 0
    Lv#.Image&  =1-----------------------------Icon 1
    sendmessage(Lv&,~LVM_SETITEM,0,Lv#)
    Lv#.Item&   =0-----------------------------Zeile  0
    Lv#.SubItem&=1-----------------------------Spalte 1
    Lv#.Image&  =2-----------------------------Icon 2
    sendmessage(Lv&,~LVM_SETITEM,0,Lv#)
    Lv#.Item&   =0-----------------------------Zeile  0
    Lv#.SubItem&=2-----------------------------Spalte 2
    Lv#.Image&  =0-----------------------------Icon 0
    sendmessage(Lv&,~LVM_SETITEM,0,Lv#)
    LvSetCheck(Lv&,1,1)---Eintrag abhaken (0 als 3.Parameter löscht den Haken)
    usermessages 16--Close abfangen

    while 1

        waitinput
        locate 0,0
        print Gewählt:,getcursel(Lv&)
        print Check  :,LvGetCheck(Lv&,getcursel(Lv&))
        case %umessage=16:break

    endwhile

    --Aufrufen, wenn das Grid nicht mehr gebraucht wird:
    destroywindow(Lv&)
    ~ImageList_Destroy(IcoList&)
    ../Function-References/XProfan/dispose/'>dispose Lv#