5,935
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
macro_love 2002-04-17
- 打赏
- 举报
首先用query或Table控件来连接dbgrid，
然后双击query/Table控件，右击，选择add all fields，选择定义为memo类型的字段，选择该字段的ongettext事件，在事件里写入以下程序：
text:=trim(Sender.asstring);
displaytext:=true;
然后双击query/Table控件，右击，选择add all fields，选择定义为memo类型的字段，选择该字段的ongettext事件，在事件里写入以下程序：
text:=trim(Sender.asstring);
displaytext:=true;
yangkunjie 2002-04-17
- 打赏
- 举报
这个问题以前提过，找个解决办法帮你踢。。。。
procedure TDataGrid1.DrawColumCell(const Rect: TRect; DataCol: integer;
Colum: TColum; State: TGridDrawState);
var
bmp: TBitmap;
OutRect: TRect;
begin
with DataGrid1 do
begin
Canvas.FillRect(Rect);
OutRect := Rect;
InflateRect(OutRect, -2, -2);
if Colum.Field is TGraphicField then
begin
bmp := TBitmap.Create;
try
bmp.Assign(Colum.Field);
Canvas.StretchDraw(OutRect, Bmp);
finally
bmp.Free;
end;
end
else if Colum.Field is TMemoField then
begin
DrawText(Canvas.Handle, Pchar(Colum.Field.AsString),
Length(Colum.Field.AsString), OutRect, dt_WordBreak or dt_NoPrefix);
end
else
DrawText(Canvas.Handle, Pchar(Colum.Field.DisplayText),
Length(Colum.Field.DisplayText),
OutRect, dt_WordBreak or dt_NoPrefix);
end;
end;
procedure TDataGrid1.DrawColumCell(const Rect: TRect; DataCol: integer;
Colum: TColum; State: TGridDrawState);
var
bmp: TBitmap;
OutRect: TRect;
begin
with DataGrid1 do
begin
Canvas.FillRect(Rect);
OutRect := Rect;
InflateRect(OutRect, -2, -2);
if Colum.Field is TGraphicField then
begin
bmp := TBitmap.Create;
try
bmp.Assign(Colum.Field);
Canvas.StretchDraw(OutRect, Bmp);
finally
bmp.Free;
end;
end
else if Colum.Field is TMemoField then
begin
DrawText(Canvas.Handle, Pchar(Colum.Field.AsString),
Length(Colum.Field.AsString), OutRect, dt_WordBreak or dt_NoPrefix);
end
else
DrawText(Canvas.Handle, Pchar(Colum.Field.DisplayText),
Length(Colum.Field.DisplayText),
OutRect, dt_WordBreak or dt_NoPrefix);
end;
end;
