procedure THeaderFooterwithNavigation.B_speichernoptionenClick(Sender: TObject);
var
Profil: TStringList;
begin
Profil := TStringList.Create;
Profil.Add(E_vorname.text);
Profil.Add(E_nachname.text);
Profil.SaveToFile(TPath.GetDocumentsPath+TPath.DirectorySeparatorChar+'
profil.txt');
//Hintergrund Bild
if C_hintergrundbild.ItemIndex = 0
then
HintergrundBlur.Visible := True;
if C_hintergrundbild.ItemIndex = 1
then
begin
HintergrundBlur.Visible := False;
HintergrundWeiß.Visible := True;
end;
if C_hintergrundbild.ItemIndex = 2
then
begin
HintergrundBlur.Visible := False;
HintergrundWeiß.Visible := False;
end;
// Techniker Name Übertragen
HeaderFooterwithNavigation.E_Servicetechniker.text := ( E_vorname.Text + '
' + E_nachname.Text );
// Sprache Englisch
if C_Sprache.ItemIndex = 1
then
begin
HeaderFooterwithNavigation.Tab_anreise.Text := '
Arrival';
HeaderFooterwithNavigation.Tab_arbeit.Text := '
Work';
HeaderFooterwithNavigation.Tab_rückreise.Text := '
Way back';
HeaderFooterwithNavigation.L_datum.Text := '
Date';
HeaderFooterwithNavigation.L_arbeitsbeginn.Text := '
Start of work';
HeaderFooterwithNavigation.L_arbeitsende.Text := '
Work finished';
HeaderFooterwithNavigation.L_arbeitsstd.Text := '
Work total';
HeaderFooterwithNavigation.L_gesamtstd.Text := '
Total hours';
HeaderFooterwithNavigation.L_warte.Text := '
Wait';
HeaderFooterwithNavigation.L_mo.Text := '
Mon';
HeaderFooterwithNavigation.L_di.Text := '
Tue';
HeaderFooterwithNavigation.L_mi.Text := '
Wed';
HeaderFooterwithNavigation.L_do.Text := '
Thr';
HeaderFooterwithNavigation.L_fr.Text := '
Fri';
HeaderFooterwithNavigation.L_sa.Text := '
Sat';
HeaderFooterwithNavigation.L_so.Text := '
Sun';
HeaderFooterwithNavigation.L_montagesundennachweis.Text := '
TIME-SHEET';
HeaderFooterwithNavigation.L_auftragnr.Text := '
Order no.:';
HeaderFooterwithNavigation.L_montagebeifirma.Text := '
Company name:';
HeaderFooterwithNavigation.L_maschinentyp.Text := '
Machine type:';
HeaderFooterwithNavigation.L_artderarbeit.Text := '
Kind of work:';
HeaderFooterwithNavigation.L_Servicetechniker.Text := '
Technician:';
HeaderFooterwithNavigation.L_Land.Text := '
Country:';
HeaderFooterwithNavigation.L_Komnr.Text := '
Com. No.:';
HeaderFooterwithNavigation.L_Montagezeiten.Text := '
Assembly';
HeaderFooterwithNavigation.L_vonbis.Text := '
carried out:';
HeaderFooterwithNavigation.L_bestätigung.Text := '
The customer herewith confirms the legally acceptance of the machine and/or the installation of same above time listing.';
HeaderFooterwithNavigation.L_auftraggeber.Text := '
Customer';
HeaderFooterwithNavigation.L_Monteur.Text := '
Technician';
HeaderFooterwithNavigation.btnBack.Text := '
Back';
HeaderFooterwithNavigation.B_zurücksetzen.Text := '
Clear fields';
HeaderFooterwithNavigation.B_verschicken.Text := '
Send';
HeaderFooterwithNavigation.B_laden.Text := '
Load';
HeaderFooterwithNavigation.B_speichern.Text := '
Save';
HeaderFooterwithNavigation.L_datumanreise.Text := '
Date';
HeaderFooterwithNavigation.L_Reisebeginnanreise.Text := '
Begin';
HeaderFooterwithNavigation.L_Reiseendeanreise.Text := '
End';
HeaderFooterwithNavigation.L_zvanreise.Text := '
TS';
HeaderFooterwithNavigation.L_reisestdanreise.Text := '
Hours';
HeaderFooterwithNavigation.L_datumrückreise.Text := '
Date';
HeaderFooterwithNavigation.L_Reisebeginnrückreise.Text := '
Begin';
HeaderFooterwithNavigation.L_Reiseenderückreise.Text := '
End';
HeaderFooterwithNavigation.L_zvrückreise.Text := '
TS';
HeaderFooterwithNavigation.L_reisestdrückreise.Text := '
Hours';
HeaderFooterwithNavigation.L_durchgeführtearbeiten.Text := '
Action taken, Remarks';
HeaderFooterwithNavigation.L_benötigteersatzteile.Text := '
Parts required';
HeaderFooterwithNavigation.L_Optionenoptionen.Text := '
Options';
HeaderFooterwithNavigation.L_technikeroptionen.Text := '
Technician:';
HeaderFooterwithNavigation.L_spracheoptionen.Text := '
Language:';
HeaderFooterwithNavigation.L_hintergrundbildoptionen.Text := '
Background:';
HeaderFooterwithNavigation.L_nachnameoptionen.Text := '
Last name';
HeaderFooterwithNavigation.L_vornameoptionen.Text := '
First name';
HeaderFooterwithNavigation.B_speichernoptionen.Text := '
Save';
HeaderFooterwithNavigation.B_abbrechenoptionen.Text := '
Cancel';
L_unterschriftinfo.Text := '
Enter your signature here!';
L_unterschrift.Text := '
Signature';
B_speichernunterschriftauftraggeber.text := '
Save';
B_abbrechenunterschrift.text := '
Cancel';
L_neu.text := '
New';
B_speichernunterschriftmonteur.text := '
Save';
B_abbrechenunterschriftmonteur.text := '
Cancel';
B_neumonteur.text := '
New';
B_optionen.Text := '
Options'
end;
// Sprache Deutsch
if C_Sprache.ItemIndex = 0
then
begin
HeaderFooterwithNavigation.Tab_anreise.Text := '
Anreise';
HeaderFooterwithNavigation.Tab_arbeit.Text := '
Arbeit';
HeaderFooterwithNavigation.Tab_rückreise.Text := '
Rückreise';
HeaderFooterwithNavigation.L_datum.Text := '
Datum';
HeaderFooterwithNavigation.L_arbeitsbeginn.Text := '
Arbeitsbeginn';
HeaderFooterwithNavigation.L_arbeitsende.Text := '
Arbeitsende';
HeaderFooterwithNavigation.L_arbeitsstd.Text := '
Arbeitsstd.';
HeaderFooterwithNavigation.L_gesamtstd.Text := '
Gesamtstd.';
HeaderFooterwithNavigation.L_warte.Text := '
Warte';
HeaderFooterwithNavigation.L_mo.Text := '
Mo';
HeaderFooterwithNavigation.L_di.Text := '
Di';
HeaderFooterwithNavigation.L_mi.Text := '
Mi';
HeaderFooterwithNavigation.L_do.Text := '
Do';
HeaderFooterwithNavigation.L_fr.Text := '
Fr';
HeaderFooterwithNavigation.L_sa.Text := '
Sa';
HeaderFooterwithNavigation.L_so.Text := '
So';
HeaderFooterwithNavigation.L_montagesundennachweis.Text := '
Montage-Stunden-Nachweis';
HeaderFooterwithNavigation.L_auftragnr.Text := '
Auftrag Nr.:';
HeaderFooterwithNavigation.L_montagebeifirma.Text := '
Montage bei Firma:';
HeaderFooterwithNavigation.L_maschinentyp.Text := '
Maschinentyp:';
HeaderFooterwithNavigation.L_artderarbeit.Text := '
Art der Arbeit:';
HeaderFooterwithNavigation.L_Servicetechniker.Text := '
Servicetechniker:';
HeaderFooterwithNavigation.L_Land.Text := '
Land:';
HeaderFooterwithNavigation.L_Komnr.Text := '
Kom. Nr.:';
HeaderFooterwithNavigation.L_Montagezeiten.Text := '
Montagezeiten:';
HeaderFooterwithNavigation.L_vonbis.Text := '
(von/bis)';
HeaderFooterwithNavigation.L_bestätigung.Text := '
Hiermit bestätigt der Auftraggeber die rechtsverbindliche Abnahme der Maschine und/oder der ausgeführten Montagearbeiten sowie die Richtigkeit der vorstehenden Aufstellung.';
HeaderFooterwithNavigation.L_auftraggeber.Text := '
Auftraggeber';
HeaderFooterwithNavigation.L_Monteur.Text := '
Monteur';
HeaderFooterwithNavigation.btnBack.Text := '
Zurück';
HeaderFooterwithNavigation.B_zurücksetzen.Text := '
Felder zurücksetzen';
HeaderFooterwithNavigation.B_verschicken.Text := '
Verschicken';
HeaderFooterwithNavigation.B_laden.Text := '
Laden';
HeaderFooterwithNavigation.B_speichern.Text := '
Speichern';
HeaderFooterwithNavigation.L_datumanreise.Text := '
Datum';
HeaderFooterwithNavigation.L_Reisebeginnanreise.Text := '
Reisebeginn';
HeaderFooterwithNavigation.L_Reiseendeanreise.Text := '
Reiseende';
HeaderFooterwithNavigation.L_zvanreise.Text := '
ZV';
HeaderFooterwithNavigation.L_reisestdanreise.Text := '
Reisestunden';
HeaderFooterwithNavigation.L_datumrückreise.Text := '
Datum';
HeaderFooterwithNavigation.L_Reisebeginnrückreise.Text := '
Reisebeginn';
HeaderFooterwithNavigation.L_Reiseenderückreise.Text := '
Reiseende';
HeaderFooterwithNavigation.L_zvrückreise.Text := '
ZV';
HeaderFooterwithNavigation.L_reisestdrückreise.Text := '
Reisestunden';
HeaderFooterwithNavigation.L_durchgeführtearbeiten.Text := '
Durchgeführte Arbeiten, Bemerkungen';
HeaderFooterwithNavigation.L_benötigteersatzteile.Text := '
Benötigte Ersatzteile';
HeaderFooterwithNavigation.L_Optionenoptionen.Text := '
Optionen';
HeaderFooterwithNavigation.L_technikeroptionen.Text := '
Techniker:';
HeaderFooterwithNavigation.L_spracheoptionen.Text := '
Sprache:';
HeaderFooterwithNavigation.L_hintergrundbildoptionen.Text := '
Hintergrundbild:';
HeaderFooterwithNavigation.L_nachnameoptionen.Text := '
Nachname';
HeaderFooterwithNavigation.L_vornameoptionen.Text := '
Vorname';
HeaderFooterwithNavigation.B_speichernoptionen.Text := '
Speichern';
HeaderFooterwithNavigation.B_abbrechenoptionen.Text := '
Abbrechen';
L_unterschriftinfo.Text := '
Setzen Sie hier Ihre Unterschrift!';
L_unterschrift.Text := '
Unterschrift';
B_speichernunterschriftauftraggeber.text := '
Speichern';
B_abbrechenunterschrift.text := '
Abbrechen';
L_neu.text := '
Neu';
B_speichernunterschriftmonteur.text := '
Speichern';
B_abbrechenunterschriftmonteur.text := '
Abbrechen';
B_neumonteur.text := '
Neu';
B_optionen.Text := '
Optionen'
end;
P_optionen.Visible := false;
HintergrundSchwarz.Visible := false;
HintergrundSchwarzTop.Visible := false;
HintergrundSchwarzBot.Visible := false;
end;