Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#2

Re: rechts nach links in stringgrid??

  Alt 11. Feb 2006, 20:44
Sicher geht das :

Delphi-Quellcode:
procedure sgRechts (sg: TStringGrid; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
  sg.Canvas.FillRect(Rect);
  st := sg.Cells[ACol,ARow];
  InflateRect(rect,-2,-2);
  DrawText(sg.Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);
end;
Das Ganze muß im OnDrawCell ausgewertet werden. Also für welche Zelle / Spalte / Reihe das gilt.
Gruß
Hansa
  Mit Zitat antworten Zitat