서봉석 wrote:

> dbgrid 에서 특정셀 의 색깔바꾸기를 자칭 고수라는

>

> 사람에게 물어 봤지만 안된다는 말 밖에 듣지못했습니다..

>

> 아시는 분 계시면 좀 가르쳐 주세요 답답해 죽겠습니다.....



됩니다. 데이터셋의 에디터에서나 그리드에서 add all field후,

그 readonly속성이나, 필드속성을 이용하면 됩니다.



막연하 예이지만, 고대로 올립니다.

그리드 ondrawcell이벤트..의 패러미터 field속성을 이용합니다.



...drawcell(...., Field:TField......);

if Field=anyfield then

begin

grid.canvas do

begin

if field.asstring='1' then

..

='2' then

fieldrect(rect);

textout(rect.left, rect.top, 스트링);



에고고.. 어려우시다라고 말씀하시면, 다시 생각해서 답변올리겠습니다. --;

서봉석 wrote:

> dbgrid 에서 특정셀 의 색깔바꾸기를 자칭 고수라는

>

> 사람에게 물어 봤지만 안된다는 말 밖에 듣지못했습니다..

>

> 아시는 분 계시면 좀 가르쳐 주세요 답답해 죽겠습니다.....



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

Field: TField; State: TGridDrawState);

begin

//선택한셀의 색변화

If gdFocused in State then

with (Sender as TDBGrid).Canvas do begin

Brush.Color := clRed;

FillRect(Rect);

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

end;



//조건에 맞는 특정셀의 색변화

if (Field.Fieldname ='필드이름') and (Field.AsString ='필드값') then

with DBGrid1.Canvas do begin

font.color := clBlack; //Font색

brush.Color := clYellow; //배경색

FillRect(Rect);

Textout(Rect.Left, Rect.top, Field.AsString);

end;



//조건이 맞는 레코드의 색변화

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

if (FieldValue >= 100) then begin

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

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

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

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

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

end

else begin

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

end ;



end;



그리고 디비그리드의 read only는 전체에 먹히는 겁니다. 쩝.

그래서 어떤 특정셀에 수정을 할라꼬 하면.. abort 같은걸루 막는수밖에요..

답변에 주셔서 감사합니다....

아래와 같이 코딩 한 것은 이미 여기서 소스를 보고 했거든요...

그런데...





ondrawdatacell 이벤트에서

아래와 같이 코딩을 했을 때....



column editor를 사용해서 column의 속성을 변경 시켰거든요...

타이틀을 한글로 주고

width를 변경해 줬는데....RESIZE를 FALSE로 하는 등...등...





변경시키지 않을 때에는 색깔이 나오는데..

변경시키고 난 후에는

이 이벤트를 타지 않습니다...

혹시 그 이유를 알 수 있을 까요???







> //조건이 맞는 레코드의 색변화

> Fieldvalue := Field.DataSet.FieldByName('필드이름').AsFloat;

> if (FieldValue >= 100) then begin

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

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

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

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

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

> end

> else begin

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

> end ;

>

> end;

서봉석 wrote:

> 답변에 주셔서 감사합니다....

> 아래와 같이 코딩 한 것은 이미 여기서 소스를 보고 했거든요...

> 그런데...

>

>

> ondrawdatacell 이벤트에서

> 아래와 같이 코딩을 했을 때....

>

> column editor를 사용해서 column의 속성을 변경 시켰거든요...

> 타이틀을 한글로 주고

> width를 변경해 줬는데....RESIZE를 FALSE로 하는 등...등...

>

>

> 변경시키지 않을 때에는 색깔이 나오는데..

> 변경시키고 난 후에는

> 이 이벤트를 타지 않습니다...

> 혹시 그 이유를 알 수 있을 까요???

>

>

>

> > //조건이 맞는 레코드의 색변화

> > Fieldvalue := Field.DataSet.FieldByName('필드이름').AsFloat;

> > if (FieldValue >= 100) then begin

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

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

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

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

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

> > end

> > else begin

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

> > end ;

> >

> > end;

>

>

>



에디터에 나오듯, readonly속성이 있으니, 사용하면 되구요,

제시하신 문제는, 적절한이벤트(그게뭘까? -.-;)에 invalidate메서드를

한번 사용해보세요. 안해봐서 장담은 못하겠네요. ^^;;;

서봉석 wrote:

> 답변에 주셔서 감사합니다....

> 아래와 같이 코딩 한 것은 이미 여기서 소스를 보고 했거든요...

> 그런데...

>

>

> ondrawdatacell 이벤트에서

> 아래와 같이 코딩을 했을 때....

>

> column editor를 사용해서 column의 속성을 변경 시켰거든요...

> 타이틀을 한글로 주고

> width를 변경해 줬는데....RESIZE를 FALSE로 하는 등...등...

>

>

> 변경시키지 않을 때에는 색깔이 나오는데..

> 변경시키고 난 후에는

> 이 이벤트를 타지 않습니다...







그럼 간단히 생각해서..강제적으로 그 이벤트를 발생시키면 되겠네요..

행복하셔요.. 규춘올림.







> 혹시 그 이유를 알 수 있을 까요???

>

>

>

> > //조건이 맞는 레코드의 색변화

> > Fieldvalue := Field.DataSet.FieldByName('필드이름').AsFloat;

> > if (FieldValue >= 100) then begin

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

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

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

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

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

> > end

> > else begin

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

> > end ;

> >

> > end;

>

>

>

서봉석 wrote:

> dbgrid 에서 특정셀 의 색깔바꾸기를 자칭 고수라는

>

> 사람에게 물어 봤지만 안된다는 말 밖에 듣지못했습니다..

>

> 아시는 분 계시면 좀 가르쳐 주세요 답답해 죽겠습니다.....





안녕하세요. ^^

OnDrawColumnCell이벤트에서 그려주면 될것 같네요.

참고하세요. 관련자료는 검색해보면.. 많이 있습니당.



그럼..20000.