Печать повернутого текста

Delphi , Графика и Игры , Canvas

procedure AngleTextOut(CV: TCanvas; const sText:
  string; x, y, angle: integer);
var
  LogFont: TLogFont;
  SaveFont: TFont;
begin
  SaveFont := TFont.Create;
  SaveFont.Assign(CV.Font);
  GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
  with LogFont do
  begin
    lfEscapement := angle * 10;
    lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
  end; {with}
  CV.Font.Handle := CreateFontIndirect(LogFont);
  SetBkMode(CV.Handle, TRANSPARENT);
  CV.TextOut(x, y, sText);
  CV.Font.Assign(SaveFont);
  SaveFont.Free;
end;

Here is a translation of the text into Russian:

Процедура Delphi под названием AngleTextOut печатает текст на канвасе (TCanvas) под углом. Она принимает четыре параметра:

• CV: канвас, где будет печататься текст
• sText: текст, который будет печататься
• x, y: координаты верхнего левого угла текста
• angle: угол в градусах, под которым текст должен быть печатан

Вот шаг за шагом, что делает процедура:

1. Она создает временный шрифт (SaveFont) и присваивает ему текущий шрифт канваса (CV.Font).
2. Она получает структуру logfont, связанную с сохраненным шрифтом, используя GetObject.
3. Она модифицирует структуру logfont, чтобы установить эксептацию (угол печати символов) в значение параметра angle, умноженное на 10.
4. Она устанавливает шаг и семейство шрифта в фиксированный шаг и FF_ДОНТКЕЙР, соответственно.
5. Она создает новый.handle шрифта с помощью CreateFontIndirect с модифицированной структурой logfont.
6. Она устанавливает режим фона канваса в прозрачный с помощью SetBkMode.
7. Она печатает текст на указанных координатах (x, y) и угле с помощью CV.TextOut.
8. Наконец, она присваивает сохраненный шрифт обратно оригинальному шрифту канваса и освобождает временный шрифт.

Процедура использует структуру TLogFont для изменения свойств шрифта, что является общим подходом в Delphi для настройки шрифтов. Функция CreateFontIndirect создает новый.handle шрифта на основе модифицированной структурой logfont.

Альтернативное решение:

Если вы хотите упростить код или сделать его более эффективным, можно использовать свойство TCanvas.Font.Angle, чтобы установить угол печати текста напрямую. Это свойство позволяет задать угол печати текста без необходимости модифицировать структуру logfont.

Пример:

procedure AngleTextOut( CV: TCanvas; const sText: string; x, y, angle: integer );
begin
  CV.Font.Angle := angle;
  SetBkMode(CV.Handle, TRANSPARENT);
  CV.TextOut(x, y, sText);
end;

Код этого примера достигает того же результата, что и оригинальная процедура, но с меньшим количеством строк кода.

Процедура AngleTextOut позволяет печатать текст с указанным углом поворота на canvas в Delphi.

Комментарии и вопросы

:: Главная :: Canvas ::