memogi wrote:

> DBGrid에서 마이너스 값의 색을 빨간색으로 나타나게 하고 싶은데...

> 방법을 찾을수가 없군요....

> 고수님들의 한수 가르침을 부탁드립니다.

>

> 좋은하루되세요...

> 감사합니다...

>





참고하세요.

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

Field: TField; State: TGridDrawState);

var FieldValue : Double;

begin



Fieldvalue := Field.DataSet.FieldByName('필드명').AsFloat;

if (FieldValue < 0) then

begin

(Sender as TDbGrid).canvas.brush.Color := clRed;

(Sender as TDbGrid).canvas.FillRect(Rect) ;

(Sender as TDbGrid).canvas.TextOut(Rect.Left,Rect.Top,Field.Text );

end

else

begin

(sender as TDbGrid).DefaultDrawDataCell(Rect,Field,State) ;

end ;

end;



end.

memogi wrote:

> DBGrid에서 마이너스 값의 색을 빨간색으로 나타나게 하고 싶은데...

> 방법을 찾을수가 없군요....

> 고수님들의 한수 가르침을 부탁드립니다.

>

> 좋은하루되세요...

> 감사합니다...

>

OnDrawColumnCell event를 사용하시면 될겁니다.

저도 별로 사용 안해봐서 정확한 사용법은 모르겠군요.