Как вращать текст 3Delphi , Графика и Игры , CanvasКак вращать текст 3Для того чтобы вывести текст под углом, вытянуть или сжать его нужно воспользоваться структурой 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; Статья Как вращать текст 3 раздела Графика и Игры Canvas может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |