| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выделить цветом [D6, Win95/98]

ATLANTIDO ©   (2002-03-08 00:34:00) 

Подскажите плиз ! Как выделить строку в ComboBox другим
цветом ? Может это unreal ?

---

ATLANTIDO   (2002-03-09 15:30:00) [1]

Спасибо, разобрался.

---

Dimk   (2002-03-09 00:24:00) [2]

А Ты попробуй сначала
SaveColor := Canvas.Brush.Color; // сохранить цвет старый
....
// тут Тебе надо выделить
Canvas.Brush.Color := TipaNewColor; // :o)
Canvas.FillRect(Rect);
....
// потом надо вернуть обратно цвет кисти
Canvas.Brush.Color := SaveColor

Тоже можно и с фонтом проделать - у него есть Color тоже
Canvas.Font.Color

---

ATLANTIDO   (2002-03-09 00:00:00) [3]

Вот мой кусок кода:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var Icon:TIcon;
k : byte;
begin
k:=5;
With TComboBox(Control) Do
Begin
Icon:=TIcon.Create;
try
ImageList1.GetIcon(Index,Icon);
Canvas.FillRect(Rect);
if GameList[Index+1].path="-" then Canvas.TextOut(Rect.Left+5,Rect.Top+2,Items[Index])
else Canvas.TextOut(Rect.Left+27+k,Rect.Top+2,Items[Index]);
Canvas.Draw(Rect.Left+2+k,Rect.Top+2,Icon);
finally
Icon.Free;
end;
End;
end;

Как видно , я выделяю строки путем их смещения (типа абзацы).
Выглядит так:

заголовок1:
.....
.....
.....
заголовок2:
.....
.....
.....

Т. е. выделяются строки по условию GameList[Index+1].path="-".
Хотелось бы их выделять не только позиционированием, но и цветом.
Если я правильно понял, то при обработке события Drawitem
можно динамически шрифт (а если шрифт то и цвет) менять (ComboBox1.Font:= ....) ?

---

Song   (2002-03-08 18:02:00) [4]

Обрабатывай onDrawItem

---

Наверх