Stundenpläne nicht druckbar
Verfasst: Montag 1. August 2022, 15:24
Ich erhalte mit der Version 3.80.8.407 (zentraler Server Köln) die Fehlermeldung ReportBeforePrint konnte nicht ausgeführt werden. Fehler beim Lesen von frmDateTime.Color: Eigenschaft Color existiert nicht.
Ich würde gerne das Formular so ändern, dass der Fehler verschwindet; ich weiß aber nicht, wo die Eigenschaft eine Rolle spielt. Vielleicht kann mir jemand auf die Schnelle sage, was ich im Code ändern muss.
Subreport:
procedure DetailBeforePrint;
begin
if IndividualPlan1['Tag'] = 0 then begin
Region3.Visible:=True;
Region2.Visible:=false;
end else begin
Region3.Visible:=false;
Region2.Visible:=true;
end;
end;
------
Main:
procedure ReportBeforePrint;
var
T1,T2, D : TDateTime;
begin
ReadDateTime('Stundenplan gültig ab', D, T1, T2, False);
Label4.caption:=DateToStr(D);
Label8.Caption:=TimeToStr(T1);
end;
Main:
Ich würde gerne das Formular so ändern, dass der Fehler verschwindet; ich weiß aber nicht, wo die Eigenschaft eine Rolle spielt. Vielleicht kann mir jemand auf die Schnelle sage, was ich im Code ändern muss.
Subreport:
procedure DetailBeforePrint;
begin
if IndividualPlan1['Tag'] = 0 then begin
Region3.Visible:=True;
Region2.Visible:=false;
end else begin
Region3.Visible:=false;
Region2.Visible:=true;
end;
end;
------
Main:
procedure ReportBeforePrint;
var
T1,T2, D : TDateTime;
begin
ReadDateTime('Stundenplan gültig ab', D, T1, T2, False);
Label4.caption:=DateToStr(D);
Label8.Caption:=TimeToStr(T1);
end;
Main: