论坛 › Delphi交流 › 如何对StringGrid字体进行居中？

学以致用1 发表于 2016-10-27 20:18:31

如何对StringGrid字体进行居中？

如何对StringGrid字体进行居中？

aminghanhua 发表于 2016-11-12 17:33:45

新版本可以设置
旧版本
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Str: String;
R: TRect;
begin
with StringGrid1 do
begin
Canvas.FillRect(Rect);
Str := Cells;
R := Rect;
DrawText(Canvas.Handle,PChar(Str),Length(Str),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER); //文字居中
end;
end;

lxl16 发表于 2016-11-13 21:13:50

{:10_254:}{:10_257:}

学以致用1 发表于 2016-11-18 14:41:50

aminghanhua 发表于 2016-11-12 17:33
新版本可以设置
旧版本

谢谢！！！

学以致用1 发表于 2016-11-18 14:45:45

lxl16 发表于 2016-11-13 21:13


{:5_94:}

查看完整版本: 如何对StringGrid字体进行居中？