StringGrid rechsbündig

[chiveZ]

hallo^^

wie kann man in einem stringgrid
alle wörter/zahlen rechsbündig setzten?

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Datenbanken" nach "VCL-Komponenten und Controls" verschoben.
Bitte etwas mehr auf die richtige Sparte achten ;-)

[Stevie]

Guckst du hier!

[ibp]

oder hier...

Delphi-Quellcode:

...
    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
...

... das ganze im OnDrawCell ereignis...

[chiveZ]

ich hab das ganze jetzt probiert

ich bekomm bloß folgende fehlermeldung

:arrow: Unbekannte Anweisung: 'aStr'

was bedeuted dass?? :gruebel:

[ibp]

astr ist vom typ string ! versuchs mal damit ! gruß rené

[chiveZ]

ich habs jetzt mit Asstring probiert...aba die fehlermeldung is imma die selbe :cry:
zum :kotz:

[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;

[chiveZ]

jo klapp endlich :-D :-D

thx