XProfan

Proc SetNumbers

    Parameters LV&,Spalte&,hdl&,Text$
    Declare nr$,Lines&,00$
    Lines& = GetLines(LV&)
    00$ = MkStr$("0",Len(Str$(Lines&)))

    If %pcount = 1

        WhileLoop 0,Lines& -1

            Case IsKey(27):Break
            nr$ = Format$(00$,&Loop)
            SetItemText(LV&,Addr(nr$),Spalte&,&Loop)

        Wend

    ElseIf %pcount = 3

        WhileLoop 0,Lines& -1

            Case IsKey(27):Break
            nr$ = Format$(00$,&Loop)
            SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
            SetText hdl&,Text$ + nr$
            bei hoher Geschwindigkeit erübrigt sich das mit dem Text evtl. aber so ist eine
            Fortschrittsanzeige möglich

        Wend

    EndIf

EndProc

invoke SendMessage,[ebp+8],4100,0,0
mov ecx,eax         ; ecx = Anzahl Zeilen
xor edi,edi         ; edi = Zeile = 0

.if ecx!=0

    mov esi,[ebp+8]   ; esi = Handle
    mov edx,[ebp+12]  ; edx = Startzeilennummer
    routea:
    push  ecx
    push  edx
    push  edi
    push  edi
    push  [ebp+16]
    push  OFFSET unwichtig5
    push  [ebp+8]
    invoke dwtoa,edx,addr unwichtig5
    call  SetItemText
    pop   edi
    pop   edx
    pop   ecx
    inc   edx
    inc   edi
    cmp   ecx,edi
    jne   routea
    xor   eax,eax

.endif