Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Покрасить строчку в DBGrid [D7, dBase, FoxPro, Paradox]

Alex-kosmonavt © (2004-01-27 10:59:00)

Как покрасить строчку в нужный цвет, если определенное поле этой строки содержит определенное значение?
Я нашел способ как определить значение, но не могу понять как в процедуре 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

DenK_vrtz (2004-01-27 11:17:00) [1]

>Alex-kosmonavt

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

Alex-kosmonavt (2004-01-27 11:13:00) [2]

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

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

Stas (2004-01-27 11:09:00) [3]

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

Alex-kosmonavt (2004-01-27 11:07:00) [4]

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

Плохиш_ (2004-01-27 11:07:00) [5]

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

fdff (2004-01-27 11:02:00) [6]

Держи краба

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

Наверх

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