Текущий архив: 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.05 c
