dbgrideh中文本多行显示问题
我的数据库中有文本型字段,每字段最多可有50个汉字,请问在dbgrideh中如何多行显示出该字段中的所有文字(列宽已确定)?...
我的数据库中有文本型字段,每字段最多可有50个汉字,请问在dbgrideh中如何多行显示出该字段中的所有文字(列宽已确定)?
展开
2个回答
展开全部
procedure TForm1.FormShow(Sender: TObject);
var
DBGridOptions : TDBGridOptions;
begin
DBGrid1.DefaultDrawing := False ;
//这一段代码码中,主要设定了如下三项内容:
//1) 默认行高
TStringGrid(DBGrid1).DefaultRowHeight := 70 ;
//2) 还原 heading 的行高
TStringGrid(DBGrid1).RowHeights[0] := 20 ;
//3) 若允许用户自行更改列宽,整个 grid的
// 行高就都会还原,所以需要disable用户调整列宽。
DBGridOptions := DBGrid1.Options ;
Exclude(DBGridOptions,dgColumnResize) ;
DBGrid1.Options := DBGridOptions ;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
drawRect : TRect ;
StrValue : String ;
backColor, fontColor : TColor ;
begin
if gdSelected in State then
begin
backColor := clNavy ;
fontColor := clWhite ;
end
else
begin
backColor := clWhite ;
fontColor := clBlack ;
end;
DBGrid1.Canvas.Brush.Color := backColor ;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.Font.Color := fontColor ;
//预先缩小显示文本型字段的框架范围,显示文字时让
//字与框架之间留有空间
drawRect := Rect ;
InflateRect(DrawRect, -4, -2) ;
case DataCol of
0 : strValue := DataSource1.DataSet.fieldByName('PRODUCT_ID').AsString ;
1 : strValue := DataSource1.DataSet.fieldByName('PRODUCT_DESC').AsString ;
end;
DrawText(DBGrid1.Canvas.Handle,
PChar(strValue),
Length(strValue),
DrawRect,
DT_WORDBREAK) ;
end;
————————————————————————————
更多内容请访问我的空间:http://hi.baidu.com/bdbk
var
DBGridOptions : TDBGridOptions;
begin
DBGrid1.DefaultDrawing := False ;
//这一段代码码中,主要设定了如下三项内容:
//1) 默认行高
TStringGrid(DBGrid1).DefaultRowHeight := 70 ;
//2) 还原 heading 的行高
TStringGrid(DBGrid1).RowHeights[0] := 20 ;
//3) 若允许用户自行更改列宽,整个 grid的
// 行高就都会还原,所以需要disable用户调整列宽。
DBGridOptions := DBGrid1.Options ;
Exclude(DBGridOptions,dgColumnResize) ;
DBGrid1.Options := DBGridOptions ;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
drawRect : TRect ;
StrValue : String ;
backColor, fontColor : TColor ;
begin
if gdSelected in State then
begin
backColor := clNavy ;
fontColor := clWhite ;
end
else
begin
backColor := clWhite ;
fontColor := clBlack ;
end;
DBGrid1.Canvas.Brush.Color := backColor ;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.Font.Color := fontColor ;
//预先缩小显示文本型字段的框架范围,显示文字时让
//字与框架之间留有空间
drawRect := Rect ;
InflateRect(DrawRect, -4, -2) ;
case DataCol of
0 : strValue := DataSource1.DataSet.fieldByName('PRODUCT_ID').AsString ;
1 : strValue := DataSource1.DataSet.fieldByName('PRODUCT_DESC').AsString ;
end;
DrawText(DBGrid1.Canvas.Handle,
PChar(strValue),
Length(strValue),
DrawRect,
DT_WORDBREAK) ;
end;
————————————————————————————
更多内容请访问我的空间:http://hi.baidu.com/bdbk
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询