1:
2:
3:
4:
5:

procedure TDSCalendar.SetFont(AValue: TFont);
begin
  FFont := AValue;
  Repaint;
end;					

1:
2:
3:
4:
5:

procedure TDSCalendar.SetFont(AValue: TFont);
begin
  FFont.Assign(AValue);
  Repaint;
end;					

1:

DSCalendar1.Font := MyFont;					

1:

DSCalendar1.Font.Name := 'Verdana';					

 
215:

{ ... }
property Font: TFont read GetFont write SetFont;					

 
273:
274:
275:
276:

{ ... }
constructor TDSCalendar.Create(AOwner: TComponent);
{...}
  FFont := TFont.Create;
  FFont.OnChange := OnFontChange;					

 
441:
442:
443:
444:
445:
446:

{ ... }
procedure TDSCalendar.SetFont(AValue: TFont);
begin
  FFont.Assign(AValue);
  SetAutoHeight(FAutoHeight); //Größe anpassen falls notwendig
  Repaint;
end;					

 
634:
635:
636:
637:

{ ... }
procedure TDSCalendar.OnFontChange(Sender: TObject);
begin
  Repaint;
end;					

1:
2:

  acal.Font.Name := 'Times New Roman';
  acal.Font.Size := 30;