Error de código en la clase RICHEDIT

jmartial · Post by **jmartial** » Fri Mar 24, 2006 6:04 pm

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 · Post by **jmartial** » Fri Mar 24, 2006 6:20 pm

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 · Post by **jmartial** » Fri Mar 24, 2006 6:31 pm

Antonio,

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

Un Saludo,
Joaquín

jmartial · Post by **jmartial** » Fri Mar 24, 2006 6:43 pm

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

Post by **Antonio Linares** » Fri Mar 24, 2006 7:00 pm

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.