نحوه علامت گذاری برخی ردیفها در dbgrid

[arefih]

سلام دوستان در یک dbgrid چگونه میتوان ردیفهایی که یک شرط خاص را دارا هستند را با یک رنگ دیگری نمایش داد . با تشکر

[mofrad]

کد زیر برای رنگ آمیزی DbGrid است: (حالا میتونید شرط ها رو هم اضافه کنید)


procedure TForm1.ColorGrid(dbgIn: TDBGrid; qryIn: TQuery; const Rect: TRect;
DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
iValue: LongInt;
begin
// color only the first field
if (DataCol = 0) then
begin
// Check the field value and assign a color
iValue := qryIn.FieldByName('HINWEIS_COLOR').AsInteger;
case iValue of
1: dbgIn.Canvas.Brush.Color := clGreen;
2: dbgIn.Canvas.Brush.Color := clLime;
3: dbgIn.Canvas.Brush.Color := clYellow;
4: dbgIn.Canvas.Brush.Color := clRed;
end;
// Draw the field
dbgIn.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
ColorGrid(DBGrid1, Query1, Rect, DataCol, Column, State);
end;

[nilidelphi]

دوست عزیز برات یه نمونه برنامه میزارم که در دلفی 7 نوشته شده
اگه مطالعه کنید متوجه خواهید شد: