이벤트에서 처리 해야 합니다.

컬러 부분은 관련이 없지만, Fixed 관련해서 들어간 부분이니

필요없으면 삭제해서 사용하시면 될것 같습니다.



procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

var

TheGrid : TStringGrid;

A : String;

begin

TheGrid := Sender as TStringGrid;

if (Row < TheGrid.FixedRows) or (Col < TheGrid.FixedCols) then

TheGrid.Canvas.Brush.Color := clBtnFace

else

TheGrid.Canvas.Brush.Color := clWhite;

TheGrid.Canvas.FillRect(Rect);

A := TheGrid.Cells[Col,Row];

DrawText( TheGrid.Canvas.Handle,PChar(A),StrLen(PChar(A)),Rect,DT_WORDBREAK);

end;



http://www.realgrid.co.kr







진짜초보 wrote:

>

> 스트링그리드로 달력을 만들어서요

> 그 그리드에 날짜와 그 날짜에 해당하는 데이터를

> 칸에 뿌려주는데요..

>

> grdCalendar.Cells[x,y] := sDay+' '+sInTime+sOutTime;

>

> 위의 sInTime과 sOutTime이 연이어서 나와 sOutTime을

> 그 칸의 다음 줄에 표시하려고 하는데..

> #13도 안되고요...저로서는 방법이 없어 이렇게 질문을 드립니다..--;

>

> 또 한가지...그리드 각각의 칸에 색깔을 필요에 따라

> 한 칸씩 넣으려 하는데..어떻게 하는지 아시분 계신지요...

>

> 고수님덜 부탁하고요~

> 날씨도 더운데 즐프 하세요~