Wie TStringGrid.ZellenText zentriert/rechtsbündig ausgeben ?

[madina]

Hallo,

wie konnte ich TStringGrid.ZellenText linksbündig, zentriert oder rechtsbündig ausgeben ??

mfg

[Sharky]

Hai madina,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

Du musst dafür im Ereigniss OnDrawCell den Inhalt selber zeichnen.
Das ganze kannst Du zum Beispiel so machen:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: integer;
  Rect: TRect; State: TGridDrawState);
var
  celltext: string;
begin
  with (Sender as TStringGrid) do
  begin
    celltext := Cells[ACol, ARow];
// Hier beginnt nun das Zeichnen:
    Canvas.FillRect(Rect);  // Hintergrund zeichnen
    DrawText(Canvas.Handle, PChar(celltext), Length(celltext),
      Rect, DT_SINGLELINE or DT_VCENTER or DT_CENTER); // Textausgeben
  end;
end;

Wenn Du es rechtsbündig haben möchtest musst Du DT_CENTER durch DT_RIGHT ersetzen.