2 Fragen zum StringGrid

[chrislike]

Hallo,

ich komm gleich zur ersten Frage:

In meinem StringGrid wird jede Zeile abwechselnd gefärbt(zur besseren Unterscheidung), wenn ich nun ein gefärbtes Feld markieren will, färbt er es nicht entsprechend der Markierung.

Code:

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  StringGrid1.Selection := TGridRect(Rect(0, StringGrid1.Row, StringGrid1.ColCount - 1, StringGrid1.Row));       
end;

und es will irgendwie auch nicht Markieren wenn ich auf die FixedRows klicke.


zweite Frage:

Da ich auch von den Spalten her eine Färbung durchführen muss(für die Wochenenden), habe ich folgenden Code im StringGridOnDrawCell-Ereignis eingebaut:

Code:

Days := DaysPerMonth(month, year);
if (Acol >= 1) and (Acol <= Days) then
begin
   if (isWeekend(ACol) = true) then
   begin
     Brush.Color:= clRed;
     FillRect(Rect);
     TextOut(Rect.Left+2, Rect.Top+2, stringgrid1.Cells[ACol, ARow]);
   end;
end;

wenn ich jetzt von Spalte 1 bis 30(Days) was eintragen will geht es einfach nicht, in den anderen Spalten schon.

Komischerweise hat es geklappt als dieser Code noch nicht drin war, aber die Zeilenfärbung schon.

Bitte um Rat, bin Delphi-Neuling

MfG Chris