DelphiLab - Рисовать текст под любым углом

Рисовать текст под любым углом

Написал Snowy

11.02.2009

procedure DrawAngledText(const ACanvas: TCanvas; const X, Y: Integer;
                         const Angle: Double; const Text: string);
var
  AFont: HFONT;
  OFont: HFONT;
  FontInfo: TLogFont;
begin
  if Windows.GetObject(ACanvas.Font.Handle, SizeOf(FontInfo), @FontInfo) = 0 then Exit;
  FontInfo.lfEscapement := Round(Angle * 10);
  FontInfo.lfOrientation := FontInfo.lfEscapement;
  AFont := CreateFontIndirect(FontInfo);
  if AFont = 0 then Exit;
  OFont := Windows.SelectObject(ACanvas.Handle, AFont);
  ACanvas.TextOut(X, Y, Text);
  Windows.SelectObject(ACanvas.Handle, OFont);
  Windows.DeleteObject(AFont);
end;

Функция принимает Canvas, на котором рисовать, координаты верхнего-левого угла первой буквы текста, угол в градусах, под которым рисовать текст и саму строку с текстом.

опубликовано

Добавить новый

Поиск

AlexAR - 7 не понимает типов переменных

2009-03-22 01:54:12

Семёрка не понимает "HFONT". Подскажите, пожалуйста, где взять библиотеку с реализацией этих типов?

Цитата

Анонимно - re: 7 не понимает типов переме

2009-03-22 10:02:08

AlexAR написано:

Семёрк
а Delphi не понимает "HFONT". Подскажите, пожалуйста, где взять библиотеку с реализацией этих типов?

Покопавшись в Delphi Help, обнаружил все необходимые объявления в Сишных WinGDI.h и GDI32.lib - насколько я понимаю - это C-Builder-овские библиотеки?

Подскажите, пожалуйста, где взять и как подключить их аналоги к Дельфям?

Цитата