delphi - 如何计算 "Left"属性以使文本在 DBGrid 单元格中居中？

Question

继续开始的项目:

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

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

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

Answer 1

不要。使用 DrawText 绘制文本/DrawTextEx并在格式参数中指定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;