Главная страница
    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.048 c
1-1083077698
Алексей Петухов
2004-04-27 18:54
2004.05.16
полное имя файла


3-1082632889
Draught
2004-04-22 15:21
2004.05.16
как получить эти данные


1-1082892200
Makhanev A.S.
2004-04-25 15:23
2004.05.16
ThreadSafe...


11-1069704456
zeddy
2003-11-24 23:07
2004.05.16
mckSkinEngine


4-1080106998
WELLiON
2004-03-24 08:43
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский