왕초보 wrote:

> 어떤 넘이 DBGRID에서 가로 세로 줄 쳐있는걸 빼달라고 합니다.

> (이런 젠장맞을 별걸 다갖구 시비야)



설마 저한테 그러시는건 아니지요???



>

> DBGrid의 옵션에 dgColLines와 dgRowLines라는 속성을 조정하면

> 필드타이틀까지 영향을 받습니다.

> 즉 필드타이틀 바까장 가로세로 줄이 없어진다는 거지요

>

> 그넘이 원하는것은 그게아니고

> 필드타이틀은 기존 그대로이고 데이타가 나오는 부분만 가로세로줄을 없애달라는 검니다.

> (정말 쪼잔한 넘이죠?)

> 암튼 그게 잘 안되네요

> 아시는 무림의 내공의 소유자는 제발 한수 가르쳐 주십시요



쩝.. 저는 무림의 내공 소유자는 아니구..

평민이랍니다. ^^



>

> 접때 게시판에 올렸는데 암도 답을 안주시네요

> 1주일이 지났건만.

> 아 ! 진정으로 강호에는 이문제를 해결할 고수가 없단말입니까?

> 무림고수 여러분 저의 기대를 저버리지 마세요



직접 연구를 해보시는 기간이였다구 생각해보셔요..~

발전의 기회가 아니였나 보이는 군요~



이런 방법두 있으니 참고 하셔요~



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

Field: TField; State: TGridDrawState);

begin

with DBGrid1.Canvas do

begin

Pen.Width := 2 ;

Pen.Style := psSolid ;

// Pen.Color := clBlue ; // 선을 파란색으로 하고 싶을 경우....

Pen.Color := clwhite ;



MoveTo(Rect.Left, Rect.Top) ;

LineTo(Rect.right, Rect.Top) ; // 윗쪽 선



MoveTo(Rect.Left, Rect.Bottom) ;

LineTo(Rect.right , Rect.Bottom) ; // 아래쪽 선







MoveTo(Rect.Left, Rect.Top) ;

LineTo(Rect.Left, Rect.Bottom) ; // 왼쪽 세로선



MoveTo(Rect.right, Rect.Top) ;

LineTo(Rect.right, Rect.Bottom) ; // 오른쪽 세로선





FillRect(Rect) ;

end ;

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

end;