VPF::TComboBox и OnMeasureItem - Форум программистов

h5who

Дата 23.2.2008, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 23.2.2008

Репутация: нет
Всего: нет

У моего ComboBox — Style = csOwnerDrawVariable, в Items добавлено парочка значений,
OnMeasureItem:

Код


 if Index <> -1 then
   Height := 30;

В итоге получается, что выпадащий список не раскрывается, но если добавить к примеру 10 записей в Items, то все будет работать как надо.

Что я делаю не так?

h5who

Дата 23.2.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 23.2.2008

Репутация: нет
Всего: нет

Вообще может кто-то у себя проверить такой фокус? Очень хочу понять присутствует ли такой глюк у всех остальных.

Я так понял, что вся загвоздка в вычислении высоты выпадающего списка. Нужно найти то место где вычисляется высота для выпадающего списка, пока у меня это не очень получается, ище где-то в недрах TCustomCombo, ...

h5who

Дата 23.2.2008, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 23.2.2008

Репутация: нет
Всего: нет

Нашел "ошибку" во внутренностях StdCtrls:

Код


procedure TCustomCombo.AdjustDropDown;
var
  Count: Integer;
begin
  Count := ItemCount;
  if Count > DropDownCount then Count := DropDownCount;
  if Count < 1 then Count := 1;
  FDroppingDown := True;
  try
    MessageBox(0, PChar(IntToStr(ItemHeight)), nil, 0);
    SetWindowPos(FDropHandle, 0, 0, 0, Width, ItemHeight * Count +
      Height + 2, SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or SWP_NOREDRAW or
      SWP_HIDEWINDOW);
  finally
    FDroppingDown := False;
  end;
  SetWindowPos(FDropHandle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or
    SWP_NOZORDER or SWP_NOACTIVATE or SWP_NOREDRAW or SWP_SHOWWINDOW);
end;

Высота элемента ItemHeight высчитывается из указанного изначально. А у меня же реальная высота элементов указывается в OnMeasureItem. Как грамотно исправить не представляю.

Подскажите.

Esperito

Дата 27.2.2008, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 2.9.2007

Репутация: нет
Всего: 3

Цитата(h5who @ 23.2.2008, 13:43)

У моего ComboBox — Style = csOwnerDrawVariable, в Items добавлено парочка значений,
OnMeasureItem:

Код


 if Index <> -1 then
   Height := 30;

Эм... А зачем ты проверяешь Index на значение -1? У тебя просто получается что комбобокс того размера, который указан при дизайне, а вот выпадающие элементы того размера, который указан в OnMeasureItem. Это так нужно?

MetalFan

Дата 27.9.2009, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Столкнулся с той же ерундой... хотел как "красивше", с OwnerDrawVariable, да фиг там(

--------------------

There are always someone smarter than you...

Keeper89

Дата 27.9.2009, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Что-то я не понял, что не раскрывается. Вот как у меня:
user posted image

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

MetalFan

Дата 30.9.2009, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Keeper89, счас на свежую голову проверю... что-то у меня среди ночи с этим овнердровом не срослось)

--------------------

There are always someone smarter than you...

MetalFan

Дата 30.9.2009, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

хм... в общем косяк имеет место быть... вообще сложилось впечатление, что борландовцы очень кривую обертку сделали для комбобокса... касательно режимов с кастомной отрисовкой.

Добавлено через 8 минут и 21 секунду
возникает, когда например в OnMeasureItem вернули Height > чем ItemHeight * Count + Height + 2. это вычисление неверно в случае с csOwnerDrawVariable.

Добавлено через 14 минут и 50 секунд
собстно переписав AdjustDropDown сл.образом:

Код


  TComboBoxODV = class( TComboBox )
  protected
    procedure AdjustDropDown; override;
  end;
implementation
{ TComboBoxODV }

procedure TComboBoxODV.AdjustDropDown;
var
  Count: Integer;
  lItemsHeight: Integer;
  i: Integer;
begin
  Count := ItemCount;
  if Count > DropDownCount then Count := DropDownCount;
  if Count < 1 then Count := 1;
  FDroppingDown := True;
  try
    if Style = csOwnerDrawVariable then
    begin
      lItemsHeight := 0;
      for i := 0 to Count - 1 do
        lItemsHeight := lItemsHeight + SendMessage(FDropHandle, CB_GETITEMHEIGHT, i, 0);
    end
    else
      lItemsHeight := ItemHeight * Count;
    SetWindowPos(FDropHandle, 0, 0, 0, Width, lItemsHeight +
      Height + 2, SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or SWP_NOREDRAW or
      SWP_HIDEWINDOW);
  finally
    FDroppingDown := False;
  end;
  SetWindowPos(FDropHandle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or
    SWP_NOZORDER or SWP_NOACTIVATE or SWP_SHOWWINDOW);
end;

тогда вроде бы все отрабатывает нормально.

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »