Вверх ↑
Администрация
Ответов: 15295
Рейтинг: 1519
#1: 2009-11-30 14:43:06 ЛС | профиль | цитата
а вот и корень проблемы


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); // <-- this
end;

карма: 27
0