How to calculate the "Left" property to center the text in a DBGrid cell?

Question

The continuation of the project began with:

How to automatically select / scale the width of DBGrid columns (or other similar ones) according to its contents?

How to calculate the "Left" property to center the text in a DBGrid cell?

When we call OnDrawColumnCell and use Canvas to write text instead of replacing the default mesh, how can we calculate the position of the text when we want to center it in the cell?

Answer 1

not to do. Draw the text DrawText / DrawTextEx and specify DT_CENTER in the format parameter. See Also Draw multi-line text in the center of the rectangle .

Or, if you need or need to calculate it yourself:

 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; 

Answer 2

An easier way with more features would be:

 Canvas.TextRect(Rect,s,[tfCenter,tfVerticalCenter,tfSingleLine]);