Eigener Kalender bauen

[ConnorMcLeod]

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);