Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

Увидеть весь тект в выподающем меню   Найти похожие ветки 

← →
Vitalnet   (2004-04-22 20:32) [0]

Уважаемые мастера!
Подскажите пожалуйста каr сделать что в Combox был виден весь тект потому что не умещается в ширине формы.
Спасибо.

---

← →
Yanis ©   (2004-04-22 21:54) [1]

Я так понял у тебя максимальная длина строки Item"а больше чем сам ComboBox!?
В инете чё то я не нашел как это делается, но F1 всегда спасёт.
Используй этот код.

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
 i,max:Integer;
begin
 max := ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[0]);
 for i := 0 to ComboBox1.Items.Count-1 do
   If ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]) > max then
     max := ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]);

 ComboBox1.Perform(CB_SETDROPPEDWIDTH,max,0);
end;


---

← →
Игорь Шевченко ©   (2004-04-23 11:21) [2]

http://www.delphikingdom.com/treasury/combo.htm

?

---

← →
Vitaliygavrilov   (2004-04-27 10:51) [3]

Из приведенного выше ссылки не работает в случае если программно производиться изменение items combobox

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.057 c