Habe das mal wieder in Angriff genommen. Und zwar so :
Delphi-Quellcode:
procedure TExtStringGrid.SetCellInteger(ACol, ARow: integer;
const Value: integer);
var st : string;
Rect : TRect;
begin
FCellInteger := Value;
Cells [ACol,ARow] := IntToStr(value);
Rect := CellRect(ACol,ARow);
Canvas.FillRect(Rect);
st := 'Test';
InflateRect(rect,-2,-2);
DrawText(Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);
end;
Ergebnis : Nichts ! Ab der Zeile :
Cells [ACol,ARow] := IntToStr(value);
tut sich offensichtlich nichts mehr. Der übergebene Zahlenwert steht in den Zellen. Die Rect-Koordinaten stimmen, aber von 'Test' ist absolut nichts zu sehen. Was ist da falsch ?
