Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Раскраска ячейки в DBGrid   Найти похожие ветки 

 
Dark Elf   (2004-06-30 18:00) [0]

Уважаемые мастера!

Как мне раскрасить определённую ячейку в DBGrid?

Заранее благодарен за ответ


 
menart ©   (2004-06-30 18:04) [1]

dbgrid1.Canvas.Brush.Color:=clyellow;


 
Соловьев ©   (2004-06-30 18:04) [2]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168


 
Dark Elf   (2004-06-30 18:05) [3]

Спасибо!
Вы мне очень помогли!


 
menart ©   (2004-06-30 18:06) [4]

procedure TFMain.DBGDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TMainfVolFackt.Value=TMainfVolPlan.Value then
begin
 dbg.Canvas.Brush.Color:=clgreen;
 dbg.Canvas.FillRect(Rect);
 dbg.Canvas.TextOut(Rect.Left,Rect.Top,Column.Field.Text)
end;
if TMainfVolFackt.Value>TMainfVolPlan.Value then
begin
 dbg.Canvas.Brush.Color:=clyellow;
 dbg.Canvas.FillRect(Rect);
 dbg.Canvas.Font.Color:=clblue;
 dbg.Canvas.TextOut(Rect.Left,Rect.Top,Column.Field.Text)
end;
if TMainfVolFackt.Value<TMainfVolPlan.Value then
begin
 dbg.Canvas.Brush.Color:=clred;
 dbg.Canvas.FillRect(Rect);
//  dbg.Canvas.Font.Color:=clblue;
 dbg.Canvas.TextOut(Rect.Left,Rect.Top,Column.Field.Text)
end;
end;


 
Dark Elf   (2004-06-30 18:11) [5]

Ещё раз спасибо! :)


 
Ильш ©   (2004-07-01 07:42) [6]

флейм...
хотя конечно поиском воспользоваться было бы куда быстрее



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

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
8-1083840133
lexx_av
2004-05-06 14:42
2004.07.25
Построение графика с помощью tchart


3-1088693288
1g0r
2004-07-01 18:48
2004.07.25
глюк MySQL + dbExpress = "dbExpress Error: Invalid Username/P...


1-1089285803
Tom
2004-07-08 15:23
2004.07.25
Oсвобождение критической секции


14-1088763429
Igorek
2004-07-02 14:17
2004.07.25
Грусно - до чего же ламерство окрепло...


14-1088838650
Knight
2004-07-03 11:10
2004.07.25
Что в психушках вообще туго с финансированием стало?