Скачать: CL | DM;

Цвет выделения в ListBox е   Найти похожие ветки 

← →
OxyGen ©   (2003-04-06 14:50) [0]

Здравствуйте!

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

Спасибо за ответы

---

← →
Song ©   (2003-04-06 18:02) [1]

Дык TListBox.Style:=lbOwnerDrawFixed и пиши обработчик onDrawItem

---

← →
Chlavik ©   (2003-04-06 19:32) [2]

Помойму if DrawState = odSelected (не уверен)

---

← →
Alpine ©   (2003-04-06 19:44) [3]

При создании указываешь 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;

---

← →
OxyGen ©   (2003-04-06 19:58) [4]

Огромное всем шпасибо!!!!!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c