Text in StringGrid in Delphi zentrieren

Question

Ich möchte wissen, wie man den Text in der Mitte einer Zelle in einem StringGrid (Vertical AND Horizontal) ... Ich benutze die Leinwand des StringGrid.

Ich bin mit Delphi und ich möchte die einfachste Weg, es zu tun ...

mir jemand helfen?

Answer 1

Sie können die API-Funktion DrawText verwenden, die über Formatierungsfunktionen verfügt.

Einfaches Beispiel:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
    Rect: TRect; State: TGridDrawState); 
var 
    Grid: TStringGrid; 
begin 
    Grid := Sender as TStringGrid; 
    Grid.Canvas.FillRect(Rect); 
    DrawText(Grid.Canvas.Handle, Grid.Cells[ACol, ARow], 
      Length(Grid.Cells[ACol, ARow]), 
      Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); 
end;