nesco писал(а):
а нельзя ли прицепить это к свойству Height контрола нет, это не очень хорошая идея. Я вообще не очень понимаю, почему при назначении DrawBox меняется высота элемента - это так задумано, или вручную где-то ставится?
С учетом выше отписанного код инициализации должен быть примерно такой
#pas
with Control{$ifndef F_P}^{$endif} do
begin
if ManFlags and $8 > 0 then
begin
OnMeasureItem:= _OnMeasureItem;
OnDrawItem := _OnDrawItem;
end;
SetStrings(_prop_Strings);
Text := _prop_Text;
OnSelChange := _OnClick;
end;
установка иконок
#pas
procedure THIComboBox.SetIconsManager;
begin
if value <> nil then
fIconsManager := value;
end;
получение высоты
#pas
function THIComboBox._OnMeasureItem;
begin
Result := _prop_ItemHeight {+ _prop_BoxDrawManager.AddSize * 2}; // <--- не знаю, для чего это, но наверно можно раскомментировать
end;
Поиск
Друзья
Администрация