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

Вниз

Цвет в ListBox е!!!!!   Найти похожие ветки 

← →
OxyGen   (2003-03-26 13:51) [0]

Здравствуйте уважаемые мастера!

Ответьте пожалуйста, как в ListBox"е сделать цвет выделения например clMoneyGreen и цвет выделенного текста сделать черным.

С уважением, OxyGen.

---

← →
Jel ©   (2003-03-26 13:56) [1]

пиши OnDrawItem и делай как нравится

---

← →
Jel ©   (2003-03-26 14:14) [2]

При создании указываешь ListBox1.Style := lbOwnerDrawFixed;

потом

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var BackColor, FontColor : tColor;
begin
if odSelected in State then begin
BackColor := clMoneyGreen;
FontColor := clBlack;
end else begin
BackColor := clWindow;
FontColor := clWindowText;
end;
With ListBox1.Canvas do begin
Brush.Color := BackColor;
FillRect(rect);
Font.Color := FontColor;
TextOut(rect.Left, rect.Top, ListBox1.Items[Index]);
end;
end;


---

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

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

Наверх

Память: 0.46 MB
Время: 0.014 c