---

Delphi 4

Jeg sider lige og fedter runt med noget StringGrid og har brug for at
højrestille nogle tal i en kolonne, kan man det og i så fald hvordan gør man
det?


/michael

---

"Michael" <michael@danfamily.org> skrev i en meddelelse
news:3d179702$0$1549$edfadb0f@dspool01.news.tele.dk...
> Delphi 4
>
> Jeg sider lige og fedter runt med noget StringGrid og har brug for at
> højrestille nogle tal i en kolonne, kan man det og i så fald hvordan gør
man
> det?

Set defaultdrawing til false, og lav følgende OnDrawCell handler

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var s:string;
begin
with Stringgrid1 do
begin
s:=cells[ACol,ARow];
canvas.fillrect(rect);
canvas.textout(rect.right-canvas.TextWidth(s),rect.top,s);
end;
end;

---

Tusinde tak skal du havde David.

Det kunne jeg havde brugt mange timer på uden at havde fundet svaret.

/michael