나름대로 해봤는데
디비그리드에 색깔은 들어가는데
기존에 있던 데이타들이 하나도 안보이네염 ㅡㅡ"
우찌해야하는지..
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with DBGrid1 do begin
if Fields[2].AsString = '양산' then
Canvas.Brush.Color := clskyblue
else
Canvas.Brush.Color := clsilver;
Canvas.FillRect(Rect);
end;
end;
소스는 요렇구요
잘 봐주세여 그럼 이만...^^;;;
hsr///////////////////////////////////////////////////////////
DefaultDrawColumnCell이함수를 사용해보세요.
DefaultDrawColumnCell(Rect, DataCol, Column,[]);