also habe das nun so gelöst aber der text ist immernoch nicht sichtbar hab ich vill den rückgabewert oder sowas vergessen ?
Delphi-Quellcode:
procedure TKndT.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i : Integer;
w : extended;
s : string;
begin
s := ( sender as TStringGrid).Cells[ ACol, ARow];
if TryStrToFloat( s , w) then
if w >= 200 then
begin
( sender as TStringGrid).Canvas.Brush.Color := clred;
( sender as TStringGrid).canvas.TextOut(Acol,Arow, stringgrid1.cells[Acol,Arow]);
( sender as TStringGrid).Canvas.FillRect(Rect);
end;
end;
schonmal vielen Dank
euer Manu