DisplayFormat+TStringGridanzeige

[mkinzler]

Setzte das Alignment dementsprechend.

[LOMBI]

Meinst du so etwas?

Delphi-Quellcode:

EdVKnet.SetAlignment(taRightJustify);

Bei StringGrid gibt es kein Alignment.

[DeddyH]

Dann hilft Selberzeichnen. DefaultDrawing auf false und OnDrawCell z.B. so etwas:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s: string;
    R: TRect;
begin
  if (ACol >= StringGrid1.FixedCols) and (ARow >= StringGrid1.FixedRows) then
    begin
      R := Types.Rect(Rect.Left, Rect.Top,Rect.Right - 2,Rect.Bottom - 2);
      s := StringGrid1.Cells[ACol,ARow];
      DrawText(StringGrid1.Canvas.Handle,PChar(s),-1, R,DT_RIGHT or DT_BOTTOM or DT_SINGLELINE);
    end;
end;