Про те, як крутити текст за допомогою Delphi
Сейчас ми поговоримо з вами у тому як і засобами Дельфі крутити який-небудь текст. На погляд завдання з простих, навіть Windows не вміє крутити зображення (отже текст відповідно теж), але ж ми не Windows :)). Нам знадобиться переменная-запись типу TLogFont, що не міститиме характеристики шрифту, такі як: розмір, стиль, шрифт, кут повороту. До того ж перемінні типу hFont і TFont. Ну ось власне і… Читати ще >
Про те, як крутити текст за допомогою 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 (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.
Для підготовки даної праці були використані матеріали із російського сайту internet .