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

Вниз

строка в ListBox как в плей-листе WinAmp   Найти похожие ветки 

 
petyun   (2002-01-17 10:04) [0]

Уважаемые мастера! Подскажите, пожалуйста, как сделать такую штуку: в строках ListBox хочется слева поместить один текст, а справа - другой (как в WinAmp слева-название, справа-время).
Причем это должно быть в одной строке.
Т.е. как узнать ширину текста, сколько необходимо пробелов, чтобы
все правильно разместить?


 
olban   (2002-01-17 11:24) [1]

Используй TStringGrid, можно сколько угодно столбцов сделать, а в ListBox не получится выровнять текст, так как, в основном, шрифты имеют разную ширину символов.


 
valery_f   (2002-01-17 11:35) [2]

Если ListBox в стиле OwnerDraw, то можно рисовать че угодно :), в т.ч. время справа. По-моему не так уж сложно...


 
Gennady   (2002-01-17 11:51) [3]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var s, s1, s2: string;
i: integer;
H: HDC;
begin
s:=TListBox(Control).Items[Index];
i:=Pos("*", s);
s1:=Copy(s, 1, i-1);
s2:=Copy(s, i+1, Length(s)-i);
h:=TListBox(Control).Canvas.Handle;
TListBox(Control).Canvas.FillRect(Rect);
DrawText(H, PChar(s1), Length(s1), Rect, DT_LEFT or DT_VCENTER);
DrawText(H, PChar(s2), Length(s2), Rect, DT_RIGHT or DT_VCENTER);
end;

как-нибудь так. здесь * - это разделитель между левой и правой частью строки.
только, как сказал valery_f "Если ListBox в стиле OwnerDraw".


 
TonnyS   (2002-01-17 12:54) [4]

http://delphi.vitpc.com/treasury/listbox.htm



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

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

Наверх





Память: 0.45 MB
Время: 0.012 c
4-9031
Olgerd
2001-11-24 17:58
2002.02.04
Убрать кнопку окна с панели задач


1-8898
nikols
2002-01-16 17:13
2002.02.04
Как получить текст HTML у TWebBrowser?


6-8958
DenKop
2001-11-08 00:43
2002.02.04
Сообщения Windows


4-9038
Artis
2001-12-09 13:24
2002.02.04
Как узнать размер файла?


3-8770
maxi
2002-01-03 11:19
2002.02.04
Как в Делфи работать с разделителями полей к базе ASCII ?





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