Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-1083227941
npr2
2004-04-29 12:39
2004.05.16
Install shield


3-1082642735
RomCom
2004-04-22 18:05
2004.05.16
Поля с данными Null в TQuery+TUpdateSQL


14-1082704568
Goida
2004-04-23 11:16
2004.05.16
Баги в Delphi7


9-1072057789
Dmitrich
2003-12-22 04:49
2004.05.16
опять DoCollision


7-1080470003
_dEMOn
2004-03-28 14:33
2004.05.16
Порты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский