procedure TForm_Notizen.RadioGroup_TerminNeuClick(Sender: TObject);
begin
DateTimePicker_TerminEintrag.Visible:=false;
if RadioGroup_TerminNeu.ItemIndex=0 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ0;
if RadioGroup_TerminNeu.ItemIndex=1 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ1;
if RadioGroup_TerminNeu.ItemIndex=2 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ2;
if RadioGroup_TerminNeu.ItemIndex=3 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ3;
if (RadioGroup_TerminNeu.ItemIndex=4) then begin
DateTimePicker_TerminEintrag.Visible:=true;
Panel_TeminNeuUHilfe.Color:=Farbe_Typ4;
end;
if (RadioGroup_TerminNeu.ItemIndex=5) then begin
DateTimePicker_TerminEintrag.Visible:=true;
Panel_TeminNeuUHilfe.Color:=Farbe_Typ4;
end;
if RadioGroup_TerminNeu.ItemIndex=6 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ6;
if RadioGroup_TerminNeu.ItemIndex=7 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ7;
if RadioGroup_TerminNeu.ItemIndex=8 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ8;
if RadioGroup_TerminNeu.ItemIndex=9 then
Panel_TeminNeuUHilfe.Color:=Farbe_Typ9;
end;