procedure TForm1.RealDBGrid1DrawRow(Sender: TObject; ARow: Integer;
var Text: String; var BCol, FCol: TColor; var FStyle: TFontStyles);
begin
with RealDBGrid1.DataSource.DataSet do
if Active and (FieldByName('서브번호').AsString = '1' then
BCol := 넣고싶은 색깔(ex. clYellow);
end;
var Text: String; var BCol, FCol: TColor; var FStyle: TFontStyles);
begin
with RealDBGrid1.DataSource.DataSet do
if Active and (FieldByName('서브번호').AsString = '1' then
BCol := 넣고싶은 색깔(ex. clYellow);
end;