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

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

Вопрос про DevExpress

cypher ©   (2002-08-18 00:41:00) 

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

---

Ученик   (2002-08-19 18:32:00) [1]

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

---

cypher   (2002-08-19 18:28:00) [2]

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

---

cypher   (2002-08-19 18:23:00) [3]

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

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;


---

Ученик   (2002-08-19 18:12:00) [4]

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

---

cypher   (2002-08-19 18:09:00) [5]

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

---

cypher   (2002-08-19 18:05:00) [6]

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

---

Ученик   (2002-08-19 13:47:00) [7]

Попробуй так

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 12:51:00) [8]

а жаль =(

---

cypher   (2002-08-18 16:47:00) [9]

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

---

Наверх