MEMO라고 데이터가 표시될때가 있지요 그것을 화면에 보이게 하려면 다음과 같이 하시면 됩니다.
이렇게 해보세요 ^^ 첨부된 화면처럼 깔끔히 해결될 것입니다.
//=====================================================================//
// 메모필드 보이기
//=====================================================================//
procedure TfrmList.gridCategoryGroupDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
sTemp : String;
begin
case Column.Field.DataType of
ftMemo:
begin
with TDBGrid(Sender).Canvas do
begin
sTemp := Column.Field.Value;
FillRect(Rect);
// 위치를 3 : 3 만큼 이동했지유~
TextOut(Rect.Left + 3 , Rect.Top + 3, sTemp);
end;
end;
end;
end;
이게 맞는지 모르겠네요 예전에 있던 자료 카피했났던건데..아무쪼록 잘 되길..
MEMO라고 데이터가 표시될때가 있지요 그것을 화면에 보이게 하려면 다음과 같이 하시면 됩니다.
이렇게 해보세요 ^^ 첨부된 화면처럼 깔끔히 해결될 것입니다.
//=====================================================================//
// 메모필드 보이기
//=====================================================================//
procedure TfrmList.gridCategoryGroupDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
sTemp : String;
begin
case Column.Field.DataType of
ftMemo:
begin
with TDBGrid(Sender).Canvas do
begin
sTemp := Column.Field.Value;
FillRect(Rect);
// 위치를 3 : 3 만큼 이동했지유~
TextOut(Rect.Left + 3 , Rect.Top + 3, sTemp);
end;
end;
end;
end;