XProfan

Español

Jörg
Sellmeyer

Ok, el Programa stürzt ahora no mehr beim Drucken de, aber el Icons en el ersten Línea verderben siempre todavía el Druckbild.

Icons.png	10 kB

Hochgeladen:	17.06.2008

Ladeanzahl:
		Descargar

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

17.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Welche Icons? Zeigst du me deinen Testcode...?
Werde el letzten Postings morgen en una eigenen Hilo mover.

17.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[offtopic]
Frank Abbing

Werde el letzten Postings morgen en una eigenen Hilo mover.

no mehr nötig[/offtopic]

17.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Franco,
Hier Yo veces a la Code zusammengeschustert, de los Problema verdeutlicht:
Kompilieren Marca Separación

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)