박일용 wrote:

> DBGrid에서 현재 그리드 Indicator각 가리키는 레코드의

> 색을 바꾸고 싶습니다.

> 그리드 옵션의 RowSelect를 True로 바꾸는것 말고

> 다른 방법은 없는지요...

>



DBGrid의 Options라는 속성중 dgAlwaysShowEditor속성은

False로, dgAlwaysShowSelection속성은 True로 한다음,

DBGrid의 OnDrawDataCell 이벤트에 아래와 같이 작성하시면 됩니다.



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

Field: TField; State: TGridDrawState);

Begin

If gdSelected in State then

with (Sender as TDBGrid).Canvas do begin

Brush.Color := clRed; //선택된 Cell의 색깔을 빨간색으로 바꿔줍니다.

FillRect(Rect);

TextOut(Rect.Left, Rect.Top, Field.AsString);

end;

End;



즐거운 프로그래밍 하세요~

구창민 wrote:

> 박일용 wrote:

> > DBGrid에서 현재 그리드 Indicator각 가리키는 레코드의

> > 색을 바꾸고 싶습니다.

> > 그리드 옵션의 RowSelect를 True로 바꾸는것 말고

> > 다른 방법은 없는지요...

> >

>

> DBGrid의 Options라는 속성중 dgAlwaysShowEditor속성은

> False로, dgAlwaysShowSelection속성은 True로 한다음,

> DBGrid의 OnDrawDataCell 이벤트에 아래와 같이 작성하시면 됩니다.

>

> Procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

> Field: TField; State: TGridDrawState);

> Begin

> If gdSelected in State then

> with (Sender as TDBGrid).Canvas do begin

> Brush.Color := clRed; //선택된 Cell의 색깔을 빨간색으로 바꿔줍니다.

> FillRect(Rect);

> TextOut(Rect.Left, Rect.Top, Field.AsString);

> end;

> End;

>

> 즐거운 프로그래밍 하세요~

>

>

먼저 답변에 감사합니다..

그리고 한가지 더 ....

위의 경우는 특정 셀 하나에만 적용되는데

indicator이 가르키는 레코드 모두에 적용하려면 어찌해야 하는지...