Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.007 c
3-95687
Loco
2002-08-08 14:10
2002.08.29
---|Ветка была без названия|---


7-95986
МИФИст
2002-06-18 21:34
2002.08.29
Выбор строки в ListView


3-95701
kserg@ukr.net
2002-08-08 18:52
2002.08.29
Вопросы по репорту


1-95741
Александр
2002-08-18 14:31
2002.08.29
ListView


1-95891
VID
2002-08-17 16:09
2002.08.29
Программно прокрутить скроллер TrichEdit вверх и вниз





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский