Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

Как можно сделать в LIstBox текст по центру.   Найти похожие ветки 

 
wahnsinng ©   (2007-03-13 15:09) [0]

Как можно сделать в LIstBox текст по центру?


 
Аноним   (2007-03-13 15:35) [1]

Собственноручной отрисовкой итемов


 
Elen ©   (2007-03-13 15:39) [2]


> wahnsinng ©   (13.03.07 15:09)

дополнять каждый итем пробелами спереди и сзади до нужной длины.


 
default ©   (2007-03-13 15:43) [3]

Elen ©   (13.03.07 15:39) [2]
это если с точностью до пробела
самостоятельная отрисовка даст лучший эффект


 
default ©   (2007-03-13 15:44) [4]

Elen ©   (13.03.07 15:39) [2]
зачем сзади-то дополнять пробелыми?:)


 
Elen ©   (2007-03-13 15:45) [5]


> default ©   (13.03.07 15:43) [3]

Совершенно верно. :) Это просто один из вариантов. Еще вариант взять другой компонент, позволяющий такое.


 
Elen ©   (2007-03-13 15:46) [6]


> зачем сзади-то дополнять пробелыми?:)

Для отчета! Чтоб наверняка :)


 
Джо ©   (2007-03-13 15:55) [7]

Примерно так (Style := lbOwnerDrawFixed):

// обработчик OnDrawItem
begin
 with TListBox(Control).Canvas do
 begin
   if odSelected in State then
   begin
     Brush.Color := clActiveCaption;
     Font.Color := clHighlightText;
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText;
   end;
   ListBox1.Canvas. FillRect (Rect);

   TextOut((Rect.Right div 2) - (TextWidth(TListBox(Control).Items[Index]) div 2),
     Rect.Top,TListBox(Control).Items[Index]);
 end;
end;


Это, собственно, совет [1], просто у меня готовый код как-раз  был под рукой :)


 
Джо ©   (2007-03-13 15:56) [8]

>   ListBox1.Canvas. FillRect (Rect);


-> FillRect (Rect);



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

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.063 c
15-1173453409
Sergp_N/A
2007-03-09 18:16
2007.04.01
Чем можно создать разделы на винте?


4-1163658294
Out
2006-11-16 09:24
2007.04.01
Убийство процесса


2-1173305867
ДжекиМайер
2007-03-08 01:17
2007.04.01
достучатся до свойств


3-1168374689
VahaC
2007-01-09 23:31
2007.04.01
Как связать два компонента DBLookupComboBox


3-1167987914
Сергей Ю
2007-01-05 12:05
2007.04.01
Помогите с запросом полному нолю, т.е. мне :)