Вниз
Скачать: CL | DM;

Вопрос про 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c
4-96021
Ally
2002-06-26 13:59
2002.08.29
WideChar в RichEdit


14-95961
[NIKEL]
2002-08-01 00:02
2002.08.29
Кто нибудь работал с СУБД ЛИНТЕР?


4-96015
Dr.Karter
2002-06-25 16:04
2002.08.29
Работа с удаленным компьютером


1-95751
XPatriot
2002-08-19 12:14
2002.08.29
База данных...


3-95677
Faun
2002-08-08 12:21
2002.08.29
Обновление клиентов и MSSQL




   Наверх