Zentrierte Darstellung im StringGrid?

[Karl-Heinz]

Hallo, wie kann ich die Strings in den Cells zentrieren ?

[Bruno Danuseg]

Hallo,

<pre><code><font color="#000000"><b>procedure</b></font> TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
<font color="#000000"><b>var</b></font> s : <font color="#000000"><b>string</b></font>;
cellAlign : TAlignment;
iLeft : integer;
<font color="#000000"><b>begin</b></font>
S := StringGrid1.Cells[ACol, ARow];
<font color="#000000"><b>case</b></font> ACol <font color="#000000"><b>of</b></font>
<font color="#0000FF">0</font> : cellAlign := taRightJustify;
<font color="#0000FF">1</font> : cellAlign := taCenter
<font color="#000000"><b>else</b></font>
cellAlign := taLeftJustify;
<font color="#000000"><b>end</b></font>;
<font color="#000000"><b>case</b></font> CellAlign <font color="#000000"><b>of</b></font>
taLeftJustify : iLeft := Rect.Left + <font color="#0000FF">2</font>;
taRightJustify : iLeft := Rect.Right - StringGrid1.Canvas.TextWidth(s) - <font color="#0000FF">3</font>;
taCenter : iLeft := Rect.Left + (Rect.Right - Rect.Left) <font color="#000000"><b>shr</b></font> <font color="#0000FF">1</font>
- (StringGrid1.Canvas.TextWidth(s) <font color="#000000"><b>shr</b></font> <font color="#0000FF">1</font>);
<font color="#000000"><b>end</b></font>;
ExtTextOut(StringGrid1.Canvas.Handle, iLeft, Rect.Top + <font color="#0000FF">2</font>, ETO_OPAQUE <font color="#000000"><b>or</b></font>
ETO_CLIPPED, @Rect, PChar(s), Length(s), <font color="#000000"><b>nil</b></font>);
<font color="#000000"><b>end</b></font>;
</code></pre&gt