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

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

Цвет выделения в ListView [D7]

Urvin ©   (2006-06-15 21:42:00) 

Как можно изменить цвет выделения в TListView (по умолчанию он синий)
Стандартные методы для ListBox не проходят..

---

Gero   (2006-06-23 02:14:00) [1]

К книжном магазине сейчас есть неплохие книги по Delphi, советую купить. А на вопрос забить до лучших времен.

---

_dimka   (2006-06-22 19:14:00) [2]

13?

---

Urvin   (2006-06-22 19:09:00) [3]

какой именно цвет это? (номер цвета)
ибо код навсегда заменил цвет clHighlight на красный =)

---

_dimka   (2006-06-22 18:53:00) [4]

> ПОДСКАЖИТЕ, КАКОЙ ЦВЕТ ВЫДЕЛЕНИЯ В ВИНДОВС ПО УМОЛЧАНИЮ!
> =)

clHighlight?

---

Urvin   (2006-06-22 17:08:00) [5]

нашел следующий код... применил!

ПОДСКАЖИТЕ, КАКОЙ ЦВЕТ ВЫДЕЛЕНИЯ В ВИНДОВС ПО УМОЛЧАНИЮ! =)

procedure TForm1.Button1Click(Sender: TObject);
var ChangingColors:array[0..1]of integer; // необходимые массивы-переменные
   RGBColors:array[0..1] of TColor;
begin
ChangingColors[0]:=COLOR_HIGHLIGHTTEXT;
RGBColors[0]:=clBlack; // тута пропиши цвет, который нужно использовать для выделенного текста
ChangingColors[1]:=COLOR_HIGHLIGHT;
RGBColors[1]:=clRed; // тута пропиши цвет фона выделенного текста
SetLastError(0); // сброс флага ошибки
SetSysColors(2,ChangingColors,RGBColors);
if GetLastError<>0 then RaiseLastOSError; // проверка на ошибку
end;

---

Urvin   (2006-06-19 18:30:00) [6]

Valerio, не-а

---

Valerio   (2006-06-19 03:03:00) [7]

Воть лови и пользуйся.

procedure TForm1.TreeViewCustomDrawItem(Sender: TCustomTreeView;
 Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
 NodeRect: TRect;
begin
 with TreeView.Canvas do
 begin
   if cdsSelected in State then
      Brush.Color := clRed;
   if cdsSelected in State then
       NodeRect := Node.DisplayRect(True);
  end;
end;

---

Юрий Зотов   (2006-06-18 17:39:00) [8]

> Urvin   (18.06.06 14:41) [3]

Это плохо.

---

Urvin   (2006-06-18 14:41:00) [9]

не проходит ;)

---

isasa   (2006-06-18 13:39:00) [10]

?

OnCustomDrawItem: TLVCustomDrawItemEvent = procedure(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean) of object;

OnCustomDrawSubItem: TLVCustomDrawSubItemEvent = procedure(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean) of object;

State: TCustomDrawState = cdsSelected

---

Urvin   (2006-06-18 12:18:00) [11]

совсем никак? =(

---

Наверх