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

Покрасить строчку в DBGrid   Найти похожие ветки 

← →
Alex-kosmonavt   (2004-01-27 10:59) [0]

Как покрасить строчку в нужный цвет, если определенное поле этой строки содержит определенное значение?
Я нашел способ как определить значение, но не могу понять как в процедуре TextOut задать текстовую строку, значение ячейки, хелп!
Вот немного кода
Где вопросики там проблема
With Grid.Canvas do
begin
if (qGetPr.FieldByName("Type").AsString="Main") and not (gdfocused in State) then
begin
Brush.Color:=clRed;
font.Color:=clBlack;
FillRect(Rect);
TextOut(Rect.Left,Rect.Top, ???????? );
end


← →
fdff   (2004-01-27 11:02) [1]

Держи краба

if (table1.FieldByName("kolich").Value=999) then
DBGrid1.Canvas.Font.Color := clred;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);


← →
Alex-kosmonavt   (2004-01-27 11:07) [2]

Ругается говорит не знаю что такое Column


← →
Плохиш_   (2004-01-27 11:07) [3]

Новый курс дошёл до темы раскрашивания грида :-)


← →
Stas ©   (2004-01-27 11:09) [4]

Ты наверное перепутал событие тебе нужно это:
onDrawColumnCell
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin


← →
Alex-kosmonavt   (2004-01-27 11:13) [5]

Точно!
Тьфу, поспешил , и тыкнул в соседний евент, там где ондроу дата селл.

все теперь работает. Сенькс


← →
DenK_vrtz ©   (2004-01-27 11:17) [6]

>Alex-kosmonavt

Когда же поиском то научимся пользоваться? Этот вопрос каждый день задают, максимум через день



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

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



Память: 0.46 MB
Время: 0.012 c
7-53792
Alien
2003-11-29 10:19
2004.02.17
>>> Как программно расшарить папку? <<<


3-53426
}|{yk
2004-01-26 11:25
2004.02.17
В какой системной таблице находятся названия таблиц?


14-53721
syte_ser78
2004-01-29 11:24
2004.02.17
FreePascal Текстовый режим


14-53746
lipskiy
2004-01-28 01:01
2004.02.17
Ищу компонент поиска в строках


1-53500
Sirus
2004-02-06 07:17
2004.02.17
Как добавить PopupMenu к форме....




   Наверх