DBGrid에서 입/출고를 구분해서 폰트색상을 따로 정해주려고 아래와 같이

했습니다.



procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if DBGrid1.DataSource.DataSet.FieldByName('내역').AsString='출고' then begin

DBGrid1.Canvas.Font := Column.Font;

DBGrid1.columns[4].Font.Color:=clBlue;

end

else if DBGrid1.DataSource.DataSet.FieldByName('내역').AsString= '입고' then begin

DBGrid1.Canvas.Font := Column.Font;

DBGrid1.columns[4].Font.Color:=clRed;

end

else DBGrid1.DefaultDrawing := true;

end;



이렇게 해놓고 컴파일해서 보면 폰트색상은 잘 나오는데..

문제가 지정된 특정 칼럼이 계속 리프레시되는 현상이 나타납니다.

계속 깜박거리는거죠..



이럴땐 어떻게 처리해야 되나요??