Vllt mit einer Prozedur, die alles macht und als Parameter die Anzeigeobjekte bekommt...
Delphi-Quellcode:
procedure ProcessOneDay(ADate: TDate; const AWochenTag: string; var ADateLabel: TLabel; var ADayLabel: TLabel; var ACountLabel: TLabel; var AFeld: TPanel??);
begin
ADayLabel.Caption := AWochentag;
if (AWochenTag = 'Sa') or (AWochenTag = 'So') then begin
ADateLabel.Font.Style := [fsBold];
ADayLabel.Font.Style := [fsBold];
AFeld.Color := clWebBISQUE
end;
if (EmptyStr <> Feiertage.IstFeiertag(ADate)) then begin
ADateLabel.Font.Style := [fsBold];
ADayLabel.Font.Style := [fsBold];
AFeld.Color := clWebBISQUE;
ADateLabel.Font.Color := clRed;
ADayLabel.Font.Color := clRed;
ACountLabel.Left := 50;
ACountLabel.Width := 55;
ACountLabel.Alignment := taLeftJustify;
ACountLabel.Font.Color := clRed;
ACountLabel.Font.Size := 7;
ACountLabel.Top := 1;
ACountLabel.Caption := Feiertage.IstFeiertag(Datum);
end;
if Feiertage.IstFerientag(ADate) then begin
AFeld.Color := clYellow;
end;
end;
...
ProcessOneDay(Datum, Wochentag, Jan4, Jan4Tag, Jan4Anzahl, FeldJan4);