Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

ListBox   Найти похожие ветки 

 
Sonic90   (2007-05-12 23:15) [0]

У меня такой вопрос:если текст в строке листбокса весь не помещается,то как сделать чтобы то,что не помещается заменялось допустим на "..."?


 
{RASkov} ©   (2007-05-12 23:51) [1]

> [0] Sonic90   (12.05.07 23:15)

DrawText и DT_END_ELLIPSIS
на OnDrawItem


 
Sonic90   (2007-05-13 00:35) [2]


> {RASkov} ©   (12.05.07 23:51) [1]
> DrawText и DT_END_ELLIPSIS
> на OnDrawItem

Спасибо.


 
Германн ©   (2007-05-13 02:44) [3]

Когда-то не помню уже когда, но давно сам "сконстропупил " такую вот функцию:
function MinText(const Text: string; Canvas: TCanvas; MaxWidth: Integer): string;
var
 I: Integer;
begin
 Result := Text;
 I := 1;
 while (I <= Length(Text)) and (Canvas.TextWidth(Result) > MaxWidth) do begin
   Inc(I);
   Result := Copy(Text, 1, Max(0, Length(Text) - I)) + "...";
 end;
end;

И вызывал её в DBGrid1DrawColumnCell следущим образом:
St:=Column.Field.Text;
St:=MinText(St,DBGrid1.Canvas,Rect.Right-Rect.Left);

:)



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

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

Наверх





Память: 0.45 MB
Время: 0.142 c
2-1179092164
!aLeXa!
2007-05-14 01:36
2007.06.03
Метод главных компонент


15-1178796898
Gero
2007-05-10 15:34
2007.06.03
Персональная ветка ArtemESC


2-1179390302
dima2207
2007-05-17 12:25
2007.06.03
Замена формы !


15-1178144706
Real
2007-05-03 02:25
2007.06.03
Хостинг в Украине


3-1173319054
Antoxa2005
2007-03-08 04:57
2007.06.03
Вопросик на зание SQL. (Дамы с праздником 8 марта)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский