Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**ZeroX1337**

Speichern Profil: Nur die ersten Zeilen sind interessant, das andere sind die verschiedenen Sprachen.

Delphi-Quellcode:

			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;

Laden Profil:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure THeaderFooterwithNavigation.FormCreate(Sender: TObject);

var

    ende, start: TDateTime;

    Daten: TStringList;

    Profil: TStringList;

begin

  { This defines the default active tab at runtime }

  TabControl1.First(TTabTransition.ttNone);

  Tab_Formular.TabIndex := 1;

  //Montagezeit initialisierung

  D_montagezeitvon.Date := Date();

  D_datummo.date := StartOfTheWeek(D_montagezeitvon.date);

  D_montagezeitbis.Date := D_datummo.Date + 6;

  D_datumdi.Date := D_datummo.Date +1;

  D_datummi.Date := D_datummo.Date +2;

  D_datumdo.Date := D_datummo.Date +3;

  D_datumfr.Date := D_datummo.Date +4;

  D_datumsa.Date := D_datummo.Date +5;

  D_datumso.Date := D_datummo.Date +6;

  //Optionen Feld wird ausgeblendet bei Start

  P_optionen.Visible := false;

  //HintergrundSchwarz wird bei Start ausgeblendet

  HintergrundSchwarz.Visible    := false;

  HintergrundSchwarzTop.Visible := false;

  HintergrundSchwarzBot.Visible := false;

  // Für Unterschrift

  Signature:= TList<TSigCapRec>.Create;

  P_unterschrift.Visible := false;

  // Für Unterschrift Auftraggeber

  Image_UnterschriftAuftraggeber.Bitmap.Assign(R_UnterschriftAuftraggeber.MakeScreenshot);

  // Für Unterschrift Monteur

  Image_UnterschriftMonteur.Bitmap.Assign(R_UnterschriftAuftraggeber.MakeScreenshot);

  //Profil laden

  Profil := TStringList.Create;

  Profil.LoadFromFile(TPath.GetDocumentsPath+TPath.DirectorySeparatorChar+'profil.txt');

  E_servicetechniker.Text := Profil[0] + Profil[1];

end;

Einzelnen Beitrag anzeigen

AW: Firemonkey abspeichern (iOS)