Мой DELPHI – Программирование

Всё для программера
9июня

При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter

admin | Рубрика: Delphi FAQ
Метки: , , , , , , , , , 
Вопрос:

При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter, появляется ошибка
“There are no fonts installed”.

Ответ:

Эти установки должны показать
шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows
ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно
и с экраном и с принтером. Прочитать остальную часть записи »

8июня

Как выдать текст под наклоном?

admin | Рубрика: Советы
Метки: , ,

Как выдать текст под наклоном?

Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts
(например “Arial”). Например:


var
  LogFont : TLogFont;
 

...
  GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
  { Вывести текст 1/10 градуса против часовой стрелки }
  LogFont.lfEscapement := Angle*10;
  Canvas.Font.Handle := CreateFontIndirect(LogFont);