Hi,
ich habe hier ein abgeleitetes Stringgrid. Es geht da u.a. um Zellenformatierung. Reals sollen direkt autom. Nachkommastellen haben usw. Momentan sieht das so aus :
Delphi-Quellcode:
procedure TExtStringGrid.SetCellReal(ACol, ARow: integer;
const Value: real);
begin
FCellReal := Value;
Cells [ACol,ARow] := FloatToStrF(FCellReal,ffFixed,8,2);
end;
Damit kann ich also statt Cells [x,y] einfach CellReal [x,y] aufrufen und fertig. Die Zellen sind allerdings dann nicht rechtsbündig. Aktuell habe ich dafür noch eine Prozedur, die im DrawCell aufgerufen wird :
Delphi-Quellcode:
procedure sgRechts (Sender: TObject; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
with Sender as TExtStringGrid do begin
Canvas.FillRect(Rect);
st := Cells[ACol,ARow];
DrawText(Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);
end;
end;
Wie kriege ich diese Prozedur sgRechts nun direkt der Komponente beigebracht ? Da gibts ja so kein Rect etc.