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
Antonio,
No sólo eso, el método CUT() no existe, con hacer ::SendMsg( WM_CUT )
debería ir bien.
Un Saludo,
Joaquín
Antonio,
El método Del() también falta.
Un Saludo,
Joaquín
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
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.
