- How to determine the path to the users Application Data
- Hiding the cursor from the screen
- How to merge strings in two TStringList's
- Hide caret (text cursor) "inside" TMemo component
~~~~~~~~~~~~~~~~~~~~~~~~~
{
How to draw rotated text
This example creates a rotated font and displays it on the form by assigning the handle of the rotated to the Form’s Canvas Font via the Font’s Handle property. Rotating fonts is a straightforward process, so long as the Windows Font Mapper can supply a rotated font based on the font you request. If you are using a TrueType font there is virtually no reason for failure.
}
var
lf: LOGFONT; // Windows native font structure
begin
Canvas.Brush.Style := bsClear; // set the brush style to transparent
FillChar(Addr(lf), SizeOf(lf), Byte(0)) ;
lf.lfHeight := 20;
lf.lfEscapement := 10 * 45; // degrees to rotate
lf.lfOrientation := 10 * 45;
lf.lfCharSet := DEFAULT_CHARSET;
StrCpy(lf.lfFaceName, 'Tahoma') ;
Canvas.Font.Handle := CreateFontIndirect(Addr(lf)) ;
Canvas.TextOut(10, 100, 'Rotated text') ; // output the rotated font
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to determine the path to the users Application Data
« Display standard Windows Properties dialog
To receive a Delphi tip in your e-mail box each week, sign up for the free About Delphi Programming newsletter!