delphi – 如何计算“左”属性以使文本在DBGrid单元格中居中？

发布时间：2020-12-15 09:38:33 所属栏目：大数据来源：网络整理

导读：继续该项目开始于： How to auto fit/scale DBGrid’s (or other similar) columns widths according to its contents? 如何计算“左”属性以使文本在DBGrid单元格中居中？当我们调用OnDrawColumnCell并使用Canvas编写文本来代替网格的默认绘制时,当我们想

继续该项目开始于：

How to auto fit/scale DBGrid’s (or other similar) columns widths according to its contents?

如何计算“左”属性以使文本在DBGrid单元格中居中？

当我们调用OnDrawColumnCell并使用Canvas编写文本来代替网格的默认绘制时,当我们想要将其置于单元格中心时,我们如何计算文本的位置？

解决方法

别.使用 DrawText/ DrawTextEx绘制文本并在format参数中指定DT_CENTER.另见 Draw text multiline in the centre of a rect.

或者,如果您想要或需要自己计算：

procedure DrawCenteredText(Canvas: TCanvas; const S: String; R: TRect);
var
  Left: Integer;
begin
  Left := R.Left + (R.Right - R.Left - Canvas.TextWidth(S)) div 2;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!