Page 1 of 1

Error de código en la clase RICHEDIT

Posted: Fri Mar 24, 2006 6:04 pm
by 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

Posted: Fri Mar 24, 2006 6:20 pm
by 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

Posted: Fri Mar 24, 2006 6:31 pm
by jmartial
Antonio,

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


Un Saludo,
Joaquín

Posted: Fri Mar 24, 2006 6:43 pm
by 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

Posted: Fri Mar 24, 2006 7:00 pm
by 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 _ ya implementados.