Hi Leute,
Ich benutze den SRCalendar von der
Simon Komponente.
Mein Problem:
Ich klicke auf einen Tag dann soll auch der Tag mit einer Farbe markiert werden. Klappt soweit.
Ich klicke auf einen Tag, wird markiert und soll einen weiteren Tag (im Abstand von 3 Tagen) auch markiert werden. Klappt soweit. ( siehe Screenshot 1)
Was ich aber erreichen will ist folgendes: Dieser Tag soll mit einer anderen Farbe markiert werden als auf den ich geklickt habe. (siehe Screenshot 2 - mit Paint modifiziert
)
Das habe ich als Code:
Delphi-Quellcode:
procedure TForm1.srcalDblClick(Sender: TObject);
begin
srcal.BackgroundColors.Marked := clAqua;
srcal.Marked[srcal.day] := not srcal.Marked[srcal.Day];
srcal.BackgroundColors.Marked := clGreen;
srcal.Marked[srcal.Day+3] := not srcal.Marked[srcal.Day+3];
end;
Meine Frage:
Wo liegt mein Fehler? Farben werden entsprechend angepasst.
Ist die Komponente nicht in der Lage das zu tun?
Hat jemand von euch dieses Problem anders gelöst? Mit einer anderen Komponente?
Ich danke
[Add] Folgendes habe ich ebenfalls grad getestet:
Delphi-Quellcode:
procedure TForm1.srcalDblClick(Sender: TObject);
begin
srcal.BackgroundColors.Marked := clAqua;
srcal.Marked[srcal.day] := not srcal.Marked[srcal.Day];
test := srcal.day;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
srcal.BackgroundColors.Marked := clGreen;
srcal.Marked[test+3] := not srcal.Marked[test+3];
end;
Ok. Die Variable "test" ist global *hust*.
Es scheint an der Komponente zu liegen und kann nur mit einer Farbe als Markierung klar kommen.
Er zeichnet den Tag "clAqua" und dann im Button "übermalt" er mit der aktuellen Markierungsfarbe alle markierten Tage.
Hat jemand von euch eine kostenlose Komponente anzubieten die sowas auch kann? Danke euch