Форум: "Основная";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Urvin   (2006-06-15 21:42) [0]

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

---

← →
Urvin   (2006-06-18 12:18) [1]

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

---

← →
isasa ©   (2006-06-18 13:39) [2]

?

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 14:41) [3]

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

---

← →
Юрий Зотов ©   (2006-06-18 17:39) [4]

> Urvin   (18.06.06 14:41) [3]

Это плохо.

---

← →
Valerio ©   (2006-06-19 03:03) [5]

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

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;

---

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

Valerio, не-а

---

← →
Urvin   (2006-06-22 17:08) [7]

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

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

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;

---

← →
_dimka ©   (2006-06-22 18:53) [8]

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

clHighlight?

---

← →
Urvin   (2006-06-22 19:09) [9]

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

---

← →
_dimka ©   (2006-06-22 19:14) [10]

13?

---

← →
Gero ©   (2006-06-23 02:14) [11]

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

---

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

Форум: "Основная";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Наверх

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