Error de código en la clase RICHEDIT

[jmartial]

Antonio,

aquí se ha olvidado la "y" del final y se rompe al hacer CanRedo:


METHOD CanRedo() INLINE ::SendMsg( EM_CANREDO, 0, 0 ) != 0 .and. ! ::lReadOnl "y" // esta falta línea 60

Otro fallo, es que botón derecho y CUT, puede pegar pero no lo corta, es decir funciona como copiar no como cortar.



Un Saludo,
Joaquín

[jmartial]

Antonio,

No sólo eso, el método CUT() no existe, con hacer ::SendMsg( WM_CUT )

debería ir bien.


Un Saludo,
Joaquín

[jmartial]

Antonio,

El método Del() también falta.


Un Saludo,
Joaquín

[jmartial]

Antonio,

También falla al llamar a SETCHARFORMAT() y pulsar cancelar, se arreglaría añadiendo

aFont := ChooseFont( aFont, @nColor )

if !Empty( aFont[ LF_FACENAME ]) <---- Esta línea

................

Endif


Un Saludo,
Joaquín

[Antonio Linares]

Joaquín,

Gracias. Es que esta clase antes derivaba de TMultiGet y finalmente se ha cambiado para derivar directamente de TControl.

Te envio por email los cambios ya implementados.