So Jungs, sorry, hab ein wenig länger gebraucht um mich zu melden.
Ich hatte bereits heraus gefunden, das Ownerdraw nur der überbegriff war.
Hab das Problem damit gelöst, war gar nicht so schwer
Habs so gemacht:
Delphi-Quellcode:
procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
begin
// Erste Reihe nicht einfärben
if (ARow = 0) then
Canvas.Brush.Color := clBtnFace
else
begin
if (cells[ACol, ARow] <> '') and (cells[ACol, ARow] <> ' ') then
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Format('2.2f', [StrToFloat (cells[acol, arow])]));
end;
end;
end;
Danke Euch für die Hilfe. Ich werde bestimmt mit mehr Fragen kommen