Про те, як обертати текст за допомогою Delphi

Зараз ми поговоримо з Вами про те як можна засобами Дельфі обертати який-небудь текст. На перший погляд завдання не з простих, адже навіть Windows не вміє обертати зображення (ну і текст відповідно теж), але ми ж не Windows :))

Нам знадобиться мінлива-запис типу TLogFont, яка буде містити характеристики шрифту, такі як: розмір, стиль, шрифт, кут повороту. А також змінні типу hFont і TFont.

Тепер, щоб не мучити Вас очікуванням привожу код прикладу (обробник події OnClick для командної кнопки):

procedure TForm1.Button1Click (Sender: TObject);

var

Font: hFont;

LogFont: TLogFont;

F: TFont;

begin

FillChar (LogFont, SizeOf (LogFont), 0);

With LogFont do

Begin

lfHeight : = 12;// висота шрифту

lfOrientation : = 150;// кут повороту бажано, щоб збігався із

lfEscapement : = 150;// значенням цієї змінної. У даному випадку це 15 '

lfWeight : = FW_REGULAR;// наприклад жирний - FW_BOLD;

lfCharSet : = RUSSIAN_CHARSET;// тут я думаю зрозуміло

StrCopy (lfFaceName, 'Arial');// тут - ім'я шрифту

End;

Font: = CreateFontIndirect (LogFont);

F: = TFont.Create;// створюємо екземпляр об'єкта

F. Handle: = Font;

Canvas.Font: = F;

Canvas.Brush.Color: = Color;

Canvas.TextOut (300, 100, 'Font Demo');// малюємо на формк

F. Free ;//

DeleteObject (Font);// звільняємо пам'ять, видаляючи об'єкт ...

end;

Ну ось власне і все, на основі цього можна наприклад компонент написати, може я звичайно й сам незабаром його напишу, але тим не менше презентую Вам цю ідею.

Список літератури

Михайло Хрістосенко. Про те, як вирощують текст за допомогою Delphi

Для підготовки даної роботи були використані матеріали з сайту http://delphid.dax.ru .