StringGrid OnDrawCell Event에서

아래와 같은 코딩을 했습니다.

그런데 실행한후 StringGrid Cell 선택시 Canvas Refresh 되는지 이리저리

Line들이 지워지는 현상이 나타나네요.

속성에서 Enabled을 False주면 물론 근접이 불가능하기때문의 이상이 없지만..

답변 좀 부탁드립니다.



if (Arow <> 0) and (ACol <> 0) then // 고정 행 및 고정 칼럼은 선 그리기 제외

begin

with StringGrid1.Canvas do

begin

Pen.Width := 10 ;

Pen.Style := psSolid ;

Pen.Color := clBlue ;



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;

end;