• Откуда: Москва
  • На форуме с 27 августа 2012г.
  • Сообщений: 21
  • Спасибо: 0

Тема: Font в TDMSStatic

Здравствуйте.

Столкнулся с такой проблемой, хотел в TDMSStatic со шрифтом повозиться (размер поменять, цвет и т.д.), но свойство Font непонятно как использовать, и документации по этому вопросу нет, так же в отладчике в поле Font стоят вопросы (см. рис.)

Font в TDMSStatic

  • На форуме с 3 декабря 2012г.
  • Сообщений: 155
  • Спасибо: 2

Re: Font в TDMSStatic

Надеюсь в следующих сборках будет исправлено. Очень нехватает выделения текста шрифтом большего размера.

Ответ от McZag (изменено: McZag, 9 января 2013г. 14:50:15)

  • Откуда: Москва
  • На форуме с 16 марта 2007г.
  • Сообщений: 670
  • Спасибо: 13

Re: Font в TDMSStatic

Shoorup пишет:

Надеюсь в следующих сборках будет исправлено. Очень нехватает выделения текста шрифтом большего размера.

Спасибо за замечание!

Если вам очень надо писать большим текстом, попробуйте пока использовать контролы из Microsoft Forms 2.0. Несмотря на некоторую убогость, они есть на любом компьютере с Windows.

1. Добавьте на форму элемент управления ActiveX, например, Label:
Font в TDMSStatic
2. Дайте своему элементу системное имя, например, MY_FIRST_CONTROL
3. Добавьте код для обработки

Sub Form_BeforeShow(Form, Obj)
  set myLabel = Form.Controls("MY_FIRST_CONTROL").ActiveX
  myLabel.Caption = "Значимые даты"
  myLabel.Font.Size = 20
End Sub

4. На форме вышеприведенный код будет выглядеть примерно так:
Font в TDMSStatic