Virtual Listview custom control

[Faiseur]

Hello,

This is a "non-official" custom control for IDE RadAsm. RaList is a "Virtual ListView custom control". KetilO is probably on holiday and I await his news to know if agree for this project, for the code and the name 'RaList'.

Do not hesitate to announce me mistranslations with the examples. My English is simple.

Link:

'canceled'

Note to KetilO: this is a major update with my preceding version in your email. I use HeapAlloc with RALIST structure and added several functions and examples.

Faiseur

[KetilO]

Hi Faiseur.

Back from my vacation.

Your RAList control looks great.

Found a bug. When opening an existing dialog with RAList in design mode, RAList crashes.

Code Select Expand


    .if Mode == 1 ; File
        invoke ReadFile,hfile,[ebx].RALIST.pData,dwSize,addr dwread,NULL
        .if Mode != 3
            invoke lstrcpyn,[ebx].RALIST.pOriginal,[ebx].RALIST.pData,dwSize
        .endif
    .else ; Mem
        invoke lstrcpyn,[ebx].RALIST.pData,Cible,dwSize
        .if Mode != 3
            invoke lstrcpyn,[ebx].RALIST.pOriginal,Cible,dwSize
        .endif
    .endif

    xor ebx,ebx
    mov edx,hID
    mov esi,[edx].RALIST.pData
    mov ebx,esi
    mov edi,[edx].RALIST.pIndex
    xor edx,edx
    xor ecx,ecx
    mov ecx,dwSize

    .while ecx != 0
        mov al,[esi] <--- Crashes here
        .if al == 9
            mov byte ptr [esi],0
            inc edx
        .elseif al == 13
            mov [edi],ebx
            mov byte ptr [esi],0
            mov byte ptr [esi+1],0
            lea ebx,[esi+2]
            add edi,8
            inc edx
        .endif
        inc esi
        dec ecx
    .endw


KetilO

[Faiseur]

Hello KetilO,

I do not manage to repeat the crash...  :red  What do you want to say by "design mode" ?

Thanks,

Faiseur

[KetilO]

Hi Faiseur

Here is what I do.

1. Start RadASM
2. Open Example0\RaList.rap project
3. Double click on RaList.dlg in RadASM's project browser

RadASM crashes.

KetilO

[KetilO]

Hi Faiseur

I had also the old RaView custom control installed.
After removing that control all works well.

Nice job Faiseur  :U

KetilO

[Faiseur]

Hi Faiseur

I had also the old RaView custom control installed.

Ok  :wink

I sent the final version in PM.