Вопрос про DevExpress

← →
cypher © (2002-08-18 00:41) [0]

Как в TdxTreeList устанавливить цвет столбца? Там цвет устанавливатеся только там, где есть строки (элементы), а под ними цвет не меняется... мне нужно чтобы например первый столбик был серого цвета всегда, вне зависимости от того сколько в нем элементов.

← →
cypher © (2002-08-18 16:47) [1]

Ни за что не поверю, что никто не знает.. =(

← →
cypher © (2002-08-19 12:51) [2]

а жаль =(

← →
Ученик © (2002-08-19 13:47) [3]

Попробуй так

procedure TForm1.dxTreeList1CustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
begin
if ANode = dxTreeList1.LastNode then begin
ARect.Bottom := dxTreeList1.ClientRect.Bottom;
ACanvas.Brush.Color := AColumn.Color;
ACanvas.FillRect(ARect)
end
end;

← →
cypher © (2002-08-19 18:05) [4]

спасибо, есть хоть от чего плясать, но...
Мне нужно закрасить первый столбец.. в первом столбце дерево, и root этого дерева (веточки, линии) все равно не красятся.

← →
cypher © (2002-08-19 18:09) [5]

да, совсем забыл, я делал почти также, только DrawCell перехватывал не у самого ListTree, а у ListTreeColumn, так как нада цвет у определенного столбика поменять..

← →
Ученик © (2002-08-19 18:12) [6]

Задай TdxTreeView.Color=цвет первого столбца, остальные столбцы -clWindow

так вариант почти работает, но затирает ветки дерева =(
procedure TfrmMain.dxTreeList1Column1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: String; var AColor: TColor; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean); begin ARect.Bottom := dxTreeList1.ClientRect.Bottom; ARect.Left := 0; ACanvas.Brush.Color := $00EEF5F7; ACanvas.FillRect(ARect); end;

и image"s затирает у элементов..

Вопрос про DevExpress Найти похожие ветки