Список шрифтов в combobox

← →
Criptonik © (2011-07-18 15:36) [0]

Доброго времени суток!

Я вывожу в combobox именя всех системных шрифтов, а как сделать чтобы имя каждого шрифта писалось этим шрифтом?

Заранее спасибо!

← →
MBo © (2011-07-18 15:46) [1]

событие OnDrawItem?

← →
SQLEXPRESS (2011-07-18 15:47) [2]

http://www.delphisources.ru/pages/faq/base/images_to_combobox.html

← →
Сергей М. © (2011-07-18 15:50) [3]

К комбобокса есть два подходящих для этой цели события:

OnDrawItem - пользовательская отрисовка элементов
OnMeasureItem - задание высоты элемента

и свойство Canvas

У Canvas"а есть св-во Font и методы TextWidth/Height, TextOut, TextRect.

Этого достаточно для решения задачи.

← →
Criptonik © (2011-07-18 16:53) [4]

у меня так ничего и не получилось

← →
Сергей М. © (2011-07-18 16:54) [5]

Прискорбняй факт.

BDS\4.0\Demos\DelphiWin32\VCLWin32\OwnerList

> Сергей М. © (18.07.11 15:50) [3]
> К комбобокса есть два подходящих для этой цели события:OnDrawItem
> - пользовательская отрисовка элементовOnMeasureItem - задание
> высоты элементаи свойство CanvasУ Canvas"а есть св-во Font
> и методы TextWidth/Height, TextOut, TextRect.Этого достаточно
> для решения задачи.

Спасибо, Разобрался в ComboBox надо было в Style поставить csOwnerDrawVariable

Список шрифтов в combobox Найти похожие ветки