Zoom-In and Zoom-Out Text in a TRichEdit [Undocumented Feature of TRichEdit]

Question/Problem/Abstract:

» How to do Zoom-In and Zoom-Out Text like in MS-Word

Answer:

To do zoom(in/out) of a Text
we can use TRichEdit.
TRichEdit in Default, has the ability to Zoom-In or Zoom-Out all the text within (but only in Run-Time)

So, the steps :
1. Put TRichEdit on the Form
2. Type your text in it (in TRichEdit)
3. Compile your application
4. To do Zoom-In / Zoom-Out,
just Click the left button mouse
combine with mouse-scroll-up or mouse-scroll-down
5. Look at the result/effect to the text in the TRichEdit


ps: I use Delphi 7. But i think, it'll work too with previous version

----------------
Have a good time.

copy of this article is located @ http://www.delphi3000.com/articles/article_4648.asp

:: How To Use Macro In Delphi's IDE

See the picture first

Question/Problem/Abstract:
How to make such changes [see above picture] efficiently n quicker
* Left picture : before quote formatting
* Right picture : after use macro to give quote formatting

Answer:
You can do that only using Macro
see my previous posting about Macro Shortcut In Delphi
and then follow below steps :

1. Move your text cursor into "SELECT" line
2. Activate the Recording Macro by pressing [Ctrl]+[Shift]+[r]
3. Press [Home] button in order to move the cursor to the beggining of that line
4. Press [Ctrl]+[Right Arrow] button
5. Press ['] { give opening quote you deserve }
6. Press [End] button
7. Press [space] button in order to give trailing space for that line
8. Press ['] { give closing quote you deserve }
9. Press [space] button in order to give extra space again for that line
10. Press [+] button to insert plus char at that position
11. Press [Down Arrow] in order to move down the text cursor
12. Deactivate/stop the Recording Macro by pressing [Ctrl]+[Shift]+[r] again
13. Last step is press [Ctrl]+[Shift]+[p] to play/use we've recorded macro for the remaining lines

It's simple isn't it ?
:D

Increase your coding efficiency now !!