XProfan

English

Jörg
Sellmeyer

OK, the program crashes now not any more at Print ex, but the Icons in the first row spoil still the Druckbild.

Icons.png	10 kB

Hochgeladen:	06/17/08

Downloadcounter:
		Download

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

06/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

which Icons? show You me your Testcode...?
will be The last Postings tommorrow in a own Thread move.

06/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[offtopic]
Frank Abbing

will be The last Postings tommorrow in a own Thread move.

not any more necessary[/offtopic]

06/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Hello Frank,
here have I time a code zusammengeschustert, the the trouble verdeutlicht:
Compile Mark Separation

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)