XProfan

Français

Jörg
Sellmeyer

Ok, cela Programme stürzt maintenant pas plus beim Drucken ab, mais qui Icônes dans qui ersten la ligne la perte toujours cela Druckbild.

Icons.png	10 kB

Hochgeladen:	17.06.2008

Downloadcounter:
		Download

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

17.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

quelle Icônes? Zeigst du mir deinen Testcode...?
Werde qui letzten Postings demain dans une eigenen Fil Déplacer.

17.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[offtopic]
Frank Abbing

Werde qui letzten Postings demain dans une eigenen Fil Déplacer.

pas plus nötig[/offtopic]

17.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

allô Frank,
ici habe je la fois une Code zusammengeschustert, qui cela Problem verdeutlicht:
Kompilieren Marque Séparation

Proc BuildIL

    Parameters Color&
    Declare IL&
    Declare Icon&,Anzahl&,Datei$
    IL& = External(COMCTL32,ImageList_Create,16,16,254,3,3)
    External(COMCTL32,ImageList_SetBkColor,IL&,Color&)
    Datei$=Par$(0)
    Icon& = External(SHELL32,ExtractIconA,%hinstance,Addr(Datei$),0)
    External(COMCTL32,ImageList_AddIcon,IL&,Icon&)
    Icon& = External(SHELL32,ExtractIconA,%hinstance,Addr(Datei$),1)
    External(COMCTL32,ImageList_AddIcon,IL&,Icon&)
    Icon& = External(SHELL32,ExtractIconA,%hinstance,Addr(Datei$),2)
    External(COMCTL32,ImageList_AddIcon,IL&,Icon&)
    Return IL&

EndProc

Proc DruckeLV

    Parameters LV&,txt$
    LVPrintListview(LV&,%hwnd,%hinstance,80,120,200,120,200,3,3,Addr(txt$),0,67)

EndProc

Declare clv1#,clv2#,clvall#,lvitem#
Dim clv1#,256
Dim clv2#,64
Dim clvall#,1400
Dim lvitem#,292
Declare HLVDll&,LV&,B#
Declare ImageList&
hLVDll& = ImportDll(D:IncListView.dll,LV)
Print LVGetDllVersion()
LVInitMessages(%hwnd)
LV&=LVCreateListView(%hwnd,%hinstance,-1,$C3FDFF,-1,$21)
ImageList& = BuildIL($C3FDFF)
LVSetImageList(LV&,ImageList&)
LVShowListview(LV&,10,20,400,400)
Var Text$=Spalte
LVIColumn(LV&,Addr(Text$),60,1)
LVSetColumnAlignment(LV&,0,1)hier muß man nochmal nachhelfen, da sonst der Text nicht rechtsbündig angezeigt wird
LVIColumn(LV&,Addr(Text$),100,1)
LVIColumn(LV&,Addr(Text$),100,1)
LVIColumn(LV&,Addr(Text$),100,1)
AddString(LV&,01|Test|Test|Test)
AddString(LV&,02|Test|Test|Test)
LVSetCheckBoxState(LV&,0,1)
LVSetIcon(LV&,0,0)
LVSetIcon(LV&,1,1)
Var Button& = Create(Button,%hwnd,Drucken,450,20,60,24)
UserMessages 16

While 1

    Waitinput

    If %umessage = 16

        Break

    ElseIf Clicked(Button&)

        DruckeLV(LV&,Test)

    EndIf

Wend

LVEraseListview(LV&)
DestroyWindow(LV&)
LVCloseMessages(%hwnd)