Font size
Posted: Wed Apr 12, 2006 4:43 am
Is there a way to increase font size without using actions?
Keys: ApplyStyleConversion method and OnStyleConversion event.
How to modify this demo to add a command increasing font size by 1 point:
1) Add a new constant
TEXT_SIZEPLUS1 = 9;
2) Add a button calling rve.ApplyStyleConversion(TEXT_SIZEPLUS1);
3) In TForm1.rveStyleConversion, in the case statement, add
Code: Select all
TEXT_SIZEPLUS1:
FontInfo.Size := FontInfo.Size+1;