|
Algo ya está resuelto
Ya estoy un poco más encaminado
Por ejemplo para asignarle la propiedad Negrita al texto hago:
Edit1.Font.Style := Edit1.Font.Style+[fsBold]
Para sacarla hago:
Edit1.Font.Style := Edit1.Font.Style-[fsBold]
Para preguntar por un estilo hago
If Edit1.Font.Style=[fsBold] Then ...
El problema es que si el estilo tiene asignado más de una propiedad Ej:
(FsBold + FsItalic)
la pregunta anterior da como resultado falso, entonces tengo que preguntar:
If Edit1.font.Style=[fsBold] Then ...
If Edit1.font.Style=[ FsBold, fsItalic ] Then ...
y todas las combinaciones. Puedo hacerlo, no son muchas, pero es muy desprolijo.
pregunta:
¿como puedo preguntar?
Si [FsBold] está incluido en la lista de Edit1.Font.Style Entonces...
Se entiende?.
Gracias.
|