Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
03.06.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
18627.zip — 3.31 kb
  • o-tom-kak-vrashhat-tekst-s-pomoshhju-delphi_18627_1.rtf — 12.92 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

О том, как вращать текст с помощью Delphi
О том, как вращать текст с помощью 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(lfF aceName, 'Arial');//здесь - имя шрифта
End;
Font := CreateFontIndirect(LogFont);
F := TFont.Create;//создаем экземпляр объекта
F.Handle := Font;
Canvas.Font := F;
Canvas.Brush.Color := Color;
Canvas.Out(300, 100, 'Font Demo'); // рисуем
на
формк
F. Free;//
DeleteObject(Font);// освобождаем
память
, удаляя
объект ...
end;
Ну вот собственно и все, на основе этого можно к примеру компонент написать, может я конечно и сам скоро его напишу, но тем



Ваше мнение



CAPTCHA