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