Как можно сделать в 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]

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

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

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

Примерно так (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], просто у меня готовый код как-раз был под рукой :)

> ListBox1.Canvas. FillRect (Rect);

-> FillRect (Rect);

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