XProfan

Español

Jörg
Sellmeyer

¡Hola Franco,
En folgendem Code stürzt el Programa de, si yo de el Menü el Punkt drucken auswähle y en el entonces auftauchenden Diálogo en drucken oder abbrechen klicke

Kompilieren Marca Separación

 $I Listview_Funktionen.inc

Proc Drucken

    Parameters LV&
    Declare txt$
    txt$=Ausdruck 1
    PrintListview(LV&,%hwnd,%hinstance,80,120,200,120,200,3,3,Addr(txt$),0,65)

EndProc

Declare hDll&,LV&,hFont&
Window 10,10 - 660,560
hfont& = Create(Font,Arial,18,0,0,0,0)
PopUp Programm
AppendMenu 100,&drucken
Separator
Appendmenu 101,be&enden
hDll&=UseDll(Listview.dll)
InitMessages(%hwnd)
LV&=CreateListView(%hwnd,%hinstance,-1,$FFFFFF,-1,$21)
SetFont LV&,hFont&
EnableDragDrop(LV&,5)
Declare Text$
Text$=Nr;Test;Test-Test;Tester;Tester;Test;Test
CsvToHeader(LV&,Addr(Text$),0)
Hier bei Version 2.0 SetColumnsFromMem verwenden
SetColumnsFromMem(LV&,Addr(Text$),0)
SetColumnWidth(LV&,0,40)
SetColumnWidth(LV&,1,190)
SetColumnWidth(LV&,2,150)
SetColumnWidth(LV&,3,86)
SetColumnAlignment(LV&,0,1)
SetColumnAlignment(LV&,5,1)
Setitem(LV&,01,Test 1)
Setitem(LV&,02,Test 2)
Setitem(LV&,03,Test 3)
Setitem(LV&,04,Test 4)
ShowListView(LV&,10,10,WIDTH(%hwnd) - 20,HEIGHT(%hwnd) - 20)

While 1

    WaitInput

    If %menuitem = 101

        Break

    ElseIf %menuitem = 100

        Drucken(LV&)

    EndIf

EndWhile

CloseMessages(%hwnd)  _ONCE
DeleteObject LV&
DeleteObject hFont&

Das passiert con el Versión 2.1!! Mit el alten Versión funktioniert lo. Yo seh ya, Yo muß doch el alte primero otra vez uso.

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

23.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Usted hast sí el Betaversion. Na Yo sehs me a.

23.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

¡Hola Franco,
como Tuve letzte Semana doch bastante, como Yo dir una Mail dazu schickte.
Gracias a Jörg. Nun haben wir wenigstens 2 Meldungen a Franco.
Hab me letzte Semana nen Wolf gesucht y para Schluß otra vez el alte
Versión benutzt.

Franco : Tal vez haste auch unbeabsichtigt algo a el Druckroutine geändert.
Algo como es sí rápidamente passiert. Denke como ans Löschen uno Parámetros,
el entonces später otra vez bajo anderem Namen auftaucht o. otra vez una-
gefügt se.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

23.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Werd el Bug ya encontrar...