Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
Delphi 8 Professional
|
Re: rechts nach links in stringgrid??
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
|
|
Zitat
|