Как задать ширину полей DropDownBox для TDBLookupComboboxEh?

[altcore]

Нужно автоматически подбирать ширину полей.
На событие OnDropDown повесил примерно такую процедуру:

 
procedure TCreateControls.MyDropDown(Sender: TObject);
var i, wd: Integer;
begin
   wd:= 0;
   with TDBLookupComboboxEh(Sender) do
      begin
         for i:= 0 to DropDownBox.Columns.Count -1 do
            begin
               DropDownBox.Columns.Items[i].OptimizeWidth;
               wd:= wd + DropDownBox.Columns.Items[i].Width;
            end;
         DropDownBox.Width:= wd;
      end;
end;

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

[altcore]

ничего не посоветуете?

[artemavd]

Я что-то сути вопроса не очень понял..

По идее ширина столбцов и самого выпадающего списка должна

Каких столбцов? В гриде?

[altcore]

Имеется ввиду ширина полей в выпадающем списке(DropDownBox).

[artemavd]

А вы уверены, что там используется именно TDBLookupComboBoxEh? Мне кажется там какой-то специальный и другой компонент. Сомневаюсь, что TDBLookupComboBoxEh умеет такое..

[soleil@mmc]

а что происходит если сделать тупо так?

DropDownBox.Width:=100;

[altcore]

Сообщение от artemavd

А вы уверены, что там используется именно TDBLookupComboBoxEh? Мне кажется там какой-то специальный и другой компонент. Сомневаюсь, что TDBLookupComboBoxEh умеет такое..

Естественно уверен, т.к. это моя форма. Умеет что? Выпадающий список из нескольких полей?

    
ctrlLookup := TDbLookupComboBoxEh.Create(Self.Owner);
with ctrlLookup do begin 
...
     DropDownBox.Columns.Add.FieldName := 'KOD';
     DropDownBox.Columns.Add.FieldName := 'NAME';
     DropDownBox.Columns[0].Title.Caption := 'Код';
     DropDownBox.Columns[1].Title.Caption := 'Наименование';
...

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

Сообщение от soleil@mmc

а что происходит если сделать тупо так?

DropDownBox.Width:=100;

Изменится ширина выпадающего списка. Естественно, если задать достаточное значение, то все будет нормально отображаться. Просто наименования сильно рознятся по длине. Хочется более элегантно сделать.

[soleil@mmc]

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

[altcore]

Сообщение от soleil@mmc

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

Не понимаю я вас

DropDownBox смещается влево, если его ширина не позволяет отобразится вправо от Lookup'a. Я могу задать ширину вручную, но тогда для коротких наименований будет слишком широкое поле. Вы мне предлагаете для каждого контрола задать константу для макс. ширины? А смысл какой в этом? Может еще по всему справочнику пробежаться и максимальные значения найти?! И что вы подразумеваете под "ресетить значения вылезшие за максимум"?

Меня интересует вопрос - должен ли метод OptimizeWidth делать то, что я хочу. Если да, то что я делаю не правильно?

[soleil@mmc]

Сообщение от altcore

Если да, то что я делаю не правильно?

не читаешь хелпы/доки (на крайняк копнуть сурсы компонента)