Вывести текст под углом, сжатым и т.д.
Для того чтобы вывести текст под углом, вытянуть или сжать его нужно воспользоваться структурой LOGFONT. Здесь показаны не все ее возможности,но на мой взгляд, самые интересные. procedure TForm1.FormPaint(Sender: TObject);var
lf: TLogFont;
begin
FillChar(lf, SizeOf(lf), 0);
with lf do begin
// Высота буквы
lfHeight := 15; // Ширина буквы
lfWidth := 20; // Угол наклона в десятых градуса
lfEscapement := 100; // Жирность 0..1000, 0 - по умолчанию
lfWeight := 1000; // Курсив
lfItalic := 0; // Подчеркнут
lfUnderline := 1; // Зачеркнут
lfStrikeOut := 1; // CharSet
lfCharSet := RUSSIAN_CharSet; // Название шрифта
StrCopy(lfFaceName, 'Arial');
end;
with Form1.Canvas do begin
FillRect(ClipRect);
Font.Handle := CreateFontIndirect(lf);
TextOut(0, 100, 'It is a text string');
end;
end;
