초보 wrote:

> dbgrid에서 각 record의 각 컬럼의 색깔을 다른게 칠하는 방법은 없나요 ?

>

> dbgrid1.Columns[9].color:=clgreen;

> 식으로 했더니 모든 Record의 해당 컬럼의 색깔이 같은 색이 되어버리더군요...

>

> 방법좀 가르쳐 주세요...



//참고하세요.

//제가 비디오 관리 프로그램 만들면서 했던 소스중에 짤러서..

//보냅니다.

procedure TTapeForm.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if VIDEODM.Tape_Table['대여상태'] = '대여' then begin //고객이 테잎을 대여중일때

if Column.FieldName = '테잎코드' then begin

DBGrid1.Canvas.Font.Color := clWhite;

DBGrid1.Canvas.Brush.Color := clBlue;

DBGrid1.Canvas.FillRect(Rect);

DBGrid1.Canvas.TextOut(Rect.Left+1, Rect.Top+3, VIDEODM.Tape_Table['테잎코드']);

end;

end;

end;

수고 많으십니다.



우하하, 왕초보입니다.



자세히 갈켜 주신데로 했는데요, 변하질 않아요.. 헐



if DataM.Q_pummok['pbipum'] = '정수물품' then begin

if Column.FieldName = 'ccode' then begin

DBGrid4.Canvas.Font.Color := clWhite;

DBGrid4.Canvas.Brush.Color := clBlue;

DBGrid4.Canvas.FillRect(Rect);

DBGrid4.Canvas.TextOut(Rect.Left+1, Rect.Top+3, DataM.Q_pummok['ccode']);

end;

end;



pbipum이라는 필드에 '정수물품'이라는 항목이 있으면 표시해 주고 싶은데요. 않되요.



테이블이 아니라 쿼리라 그런가요? 아님, DBGrid에 다른 설정이 있는가요.



혹시 초보가 실수 할 수 있는 것을 좀 찝어 주세요.