Die vermeintlichen Änderungen sind bei mir so von D7 vorgegeben - du musst natürlich die von D3 vergebene Signatur benutzen. Ich wollte nur zeigen, wie die Bedingung formuliert werden muss um den von dir gewünschten gelben Balken zu erhalten. Bei D3 scheint der Header wegen der Überdeckung der Eigenschaften Col und Row mit den gleichnamigen Parametern noch nicht korrigiert worden zu sein. Du kannst die aktuellen Werte zwischenspeichern:
Delphi-Quellcode:
procedure TFRechn.StringGridRedatDrawCell(Sender: TObject;
Col, Row: Integer; Rect: TRect; State: TGridDrawState);
var
aCol, aRow: Integer;
begin
aCol := Col;
aRow := Row;
with Sender As TStringGrid do
begin
if (ARow = Row) and (ACol >= FixedCols)
then Canvas.Brush.Color := clYellow
else Canvas.Brusch.Color := clWhite;
Canvas.FillRect(Rect);
end;
end;
Immernoch beschleicht mich das Gefühl, dass du Spalten und Zeilen verwechselst. Du schreibst 8 feste Titelspalten und jede weitere Zeile...
marabu