12.08.2012, 21:29
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Не поленись, покопайся в исходниках Дельфи. Там везде предполагается, что высота итема фиксирована.
Код:
procedure TCustomCombo.AdjustDropDown;
...
SetWindowPos(FDropHandle, 0, 0, 0, Width, ItemHeight * Count + Height + 2, SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or SWP_NOREDRAW or SWP_HIDEWINDOW);
...
end;
...
function TCustomComboBox.GetItemHt: Integer;
begin
if FStyle in [csOwnerDrawFixed, csOwnerDrawVariable] then
Result := FItemHeight else
Result := Perform(CB_GETITEMHEIGHT, 0, 0);
end;
код взят из 7-ой версии.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|