|
#1
|
|||
|
|||
Компонент ListBox
Здравствуйте! Подскажите пожалуйста как сделать чтобы забитый текст в компонент Listbox был по центру?
Например Цитата:
Заранее спасибо! С меня +1! Добавлено через 43 минуты Эммм, ну чего нет знатоков по такому компоненту? Добавлено через 1 час 25 минут Мдаа, наверно вопрос очень сложный ((( |
#2
|
|||
|
|||
Да нет, не сложный. Просто, видимо, поздно уже.
Делается это проще всего через ручную отрисовку итемов. Тебе потребуется метод канвы TextWidth для расчета точки начала отрисовки. |
#3
|
|||
|
|||
Код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var S: string; begin with TListBox(Control), Canvas do begin S := Items[Index]; FillRect(Rect); SetBkMode(Handle, TRANSPARENT); SetTextAlign(Handle, TA_CENTER); TextOut(ClientWidth div 2, Rect.Top, S); end; end; |
#4
|
|||
|
|||
Цитата:
Спасибо огромное! Все получилось! |
#5
|
|||
|
|||
А где обещаный +1?
|
Этот пользователь сказал Спасибо Kapitoshka438 за это полезное сообщение: | ||
Gareth (05.03.2020)
|