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

Вниз

Вопрос про 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

---

← →
cypher   (2002-08-19 18:23) [7]

так вариант почти работает, но затирает ветки дерева =(

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;


---

← →
cypher   (2002-08-19 18:28) [8]

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

---

← →
Ученик   (2002-08-19 18:32) [9]

Попробуй Ученик © (19.08.02 18:12)

---

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

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

Наверх

Память: 0.45 MB
Время: 0.006 c