Цвет выделения в 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 на красный =)

13?

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

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