Вверх ↑
Разработчик
Ответов: 26305
Рейтинг: 2146
#1: 2009-11-30 14:48:55 ЛС | профиль | цитата
Короче, делаем вот так


procedure THIComboBox.SetIconsManager;
begin
if value <> nil then
begin
fIconsManager := value;
if Assigned(_prop_BoxDrawManager) then
ItemHeight := max((value.imgsz + _prop_BoxDrawManager.AddSize * 2), Control.Canvas.TextExtent('W').cy);
end;
SetStrings(_prop_Strings);
Control.Text := _prop_Text;
end;

И все будет работать
карма: 22

0