Реферат: О том, как вращать текст с помощью Delphi

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

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

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

procedureTForm1.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

Дляподготовки данной работы были использованы материалы с сайта delphid.dax.ru.

еще рефераты
Еще работы по информатике, программированию