StringGrid rechsbündig

[ibp]

also...

Delphi-Quellcode:

procedure TfoDBEdit.stringrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  aStr:string; // hilfsstring

begin
    aStr:=stringrid1.Cells[Acol,Arow]+' '; // ' ': visueller Sinn (text>Linie)
    if aStr<>' ' then
    begin
      stringrid1.Canvas.FillRect(Rect); // alten text löschen
      DrawText(stringrid1.Canvas.Handle,
               pChar(aStr),
               Length(aStr),
               Rect,
               DT_RIGHT or DT_VCENTER or DT_SINGLELINE); // text neu schreiben
    end; // if
end;