Вопрос по TCheckBox.

← →
Дельфятник (2002-04-26 12:01) [0]

Хотелось бы уменьшить расстояние между окошком, куда ставится галочка и надписью (Caption). Реально ли это сделать?

← →
Song (2002-04-26 12:35) [1]

Конечно реально. Рисуйте сами на событии onDrawItem где угодно, хоть на самой галочке

← →
Дельфятник (2002-04-26 13:04) [2]

Вы, наверное, перепутали. У TCheckBox"a нет обработчика события OnDrawItem ни в Delphi5 ни в Delphi6. Я пробовал сделать наследника TCheckBox, который обрабатывает это событие, но у меня не получилось.

uses StdCtrls;

type
TMyCheckBox=class(TCheckBox)
property OnDrawItem;
end;

При компиляции выдаётся сообщение "Property OnDrawItem does not exist in base class".

С уважением.

← →
Игорь Шевченко (2002-04-26 13:05) [3]

День добрый, Song,

Особенно интересно искать у TCheckBox событие OnDrawItem :-)

С уважением,

← →
Song (2002-04-26 13:54) [4]

Ой, да извините, я перепутал с TCheckListBox
Ой, срам-то какой... :-\

← →
Игорь Шевченко (2002-04-26 14:38) [5]

День добрый,

Сходите на www.flatstyle2k.com, там есть набор компонент FlatStyle рисующий все. Если не подойдет конкретно TFlatCheckbox,
то хоть идею посмотрите :-)

С уважением,

← →
Дельфятник (2002-04-26 15:59) [6]

Поскольку у меня было несколько TCheckBox"ов друг под другом, то мне подошёл TCheckListBox. Спасибо всем за участие.

← →
Aleks1 (2002-04-26 21:53) [7]

А по исходному вопросу есть один радикальный совет не требующий никаких компонент. Уменьшить ширину CheckBox до ширины квадратика. А справа от него положить Label на любом расстоянии и все!

Вопрос по TCheckBox. Найти похожие ветки