Платные хостинги     Раскрутка сайта     Книги по программированию

Delphi - текст, написанный под углом, большая просьба помочь разработке

- Если не обязательно делать это самому то воспользуйтесь компонентами из JVCL - там это есть (Free+Source). Взять JVCL можно с http://jvcl.sourceforge.com.

- Для того чтобы вывести текст под углом, вытянуть или сжать его нужно воспользоваться структурой 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;highlightSyntax('delphiTIxMmU','delphi');

- Pegas, где ты был раньше, я недели две назад хотел узнать про одну только эту строчку...Блин, и прогу уже сдал...

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD