{$ if not def addipro_deutschlocales_h}

CONST addipro_deutschlocales_h=0;

PROCEDURE InitProgramStrings;
BEGIN  
	  localebase:=NIL;
  localebase:=OpenLibrary('locale.library',38);
  IF localebase<>NIL THEN 
   BEGIN
    cat:=NIL;
    loc:=NIL;
    loc:=openlocale(NIL); { voreingestellte Sprache öffnen }
    IF loc=NIL THEN BEGIN closelibrary(localebase);
                          localebase:=NIL;
                    END
     ELSE 
      BEGIN 
       cat:=OpenCatalogA(loc,'addipro.catalog',NIL);
       IF cat=NIL THEN BEGIN
                     closelibrary(localebase);
                     localebase:=NIL;
                    END;
      END;
   END;
  locstr := locstrt(
   "Kann die ""keymap.library"" nicht öffnen!",
   "Kann die ""gadtools.library"" nicht öffnen!",
   "Kann die ""dos.library"" nicht öffnen!",
   "Kann die ""icon.library"" nicht öffnen!",
   "Kann die ""workbench.library"" nicht öffnen!",
   "Kann die ""asl.library"" nicht öffnen!",
   "Kann die ""rexxsyslib.library"" nicht öffnen!",
   "Kann die ""diskfont.library"" nicht öffnen!",
   "Kann Publicscreen nicht locken!",
   "Kann VisualInfo nicht bekommen!",
   "Kann kein Icon bekommen!",
   "Kann keinen Message Port kreieren!",
   "Kann das Fenster nicht öffnen!",
   "Kein freier (zusammenhängender) Speicher mehr!",
   "Kann kein Menü kreieren!",
   "Kann kein AppWindow öffnen!",
   "AddiPro läuft nur mit Kick V37 oder höher!",
   "Du solltest wenigstens Name und Vorname eingeben!",
   "Ja",
   "Nein",
   "Abbruch",
   "Lösche jetzt den Datensatz",
   "Willst Du wirklich alle",
   "Datensätze löschen?",
   "Bist Du sicher?",
   "Es sind genau ",
   " Adressen im Speicher. Was soll ich tun?",
   "Sie löschen",
   "Anhängen",
   "Projekt",
   "Laden",
   "L",
   "Anhängen",
   "Ä",
   "Speichern",
   "S",
   "Speichern als...",
   "A",
   "Information...",
   "F",
   "Iconifizieren",
   "I",
   "Verlassen",
   "Q",
  "Extras",
  "Alle löschen...",
  "Voreinstellungen...",
  "V",
    
  "Drucken",
  "Serienbriefdruck ...",
  "B",
  "Etikettendruck ...",
  "E",
  "(Listendruck ...)",
  ".",
  
  "Aufwärts",
  "Abwärts",
  
  "Sortieren",
  "Name",
  "Vorname",
  "Straße",
  "Postleitzahl",
  "Ort",
  "Land",
  "Telefon",
  
  { INFOTEXT }
  "Adressfeld",
  "Neuen Datensatz erstellen",
  "Aktuellen Datensatz ändern",
  "Aktuellen Datensatz löschen",
  "Datensatz suchen",
  "Blättern durch die Datensätze",
  "Voreinstellungen",
  "Etikettschnelldruck",
  
  "Gruppe ",

  " Datensatz Edieren",
  "_Anrede",
  "_Vorname",
  "_Name",
  "_c/o",
  "_Straße",
  "_Plz",
  "_Ort",
  "_Land",
  "_Telefon",
  "_Fax",
  "_Geburtstag",
  "Ko_mmentar",
  "O_K",
  "A_bbruch",
  "H errn (_4)",
  "F rau (_5)",
  "Firm a (_6)",
  "_H",  { Shortcuts zum Vervollständigen}
  "_F",
  "_A",
  "empty1",
  "empty2",

  "Addipro Etikettdruck",
  "Etikettna_me",
  "L_aden",
  "Speic_hern",
  "Absender _.",
  "_Laden",
  "_Speichern",
  "L_inker Rand",
  "Rechter _Rand",
  "Ko_pien",
  "Seitenlän_ge",
  "Eti_kettbreite",
  "Abs_tand",
  "_1. Etikett",
  "S_chriftart",
  "Datensät_ze",
  "Aktueller Datensatz",
  "Alle Datensätze",
  "_Nebeneinander",
  "Datensätze",
  "_Verwendungszweck",
  "Ausw_ählen",
  "_Drucken",
  
  "Etikett_entwurf",
  "A_bbruch (Esc)",
  "Etikett Laden",
  "Etikett Speichern",
  
  "Verwendungszweck wählen",
  "Warensendung",
  "Warensendung # ZERBRECHLICH #",
  "Büchersendung",
  "Brief",
  "Blindensendung",
  "Vorsicht Datenträger!",
  "Einschreiben",
  "Einsendung",
  "Airmail",
  "Päckchen",  
  "Addipro Etikettentwurf",
  "Aus_wahlliste",
  "_Etikett",
  "Anrede",
  "Name",
  "Vorname",
  "Vorname+Name",
  "Straße",
  "Postleitzahl",
  "Postleitzahl+Ort",
  "Postleitzahl+Ort fett",
  "Ort",
  "Ort fett",
  "Land",
  "Absender",
  "Absender schmal",
  "Verwendungszweck",
  "Leerzeile",
  "co",
  "",
  "",
  "",
  "",
  "",
  "",
  "_Kopieren",
  "_Aufwärts",
  "Abw_ärts",
  "L_öschen",
  "_Speichern",
  "_Laden",
  "_Hilfe (Help)",
  "_OK",
  "A_bbruch",
  "Addipro - Suchen",
  "_Suchstring",
  "Datensatz _zeigen",
  "_Name",
  "_Vorname",
  "c/o_.",
  "Stra_ße",
  "_Plz",
  "_ORT",
  "_Land",
  "_Telefon",
  "_Fax",
  "Email _1",
  "Email _2",
  "Email _3",
  "_Geburtstag",
  "_Kommentar",
  "suche _überall",
  "G/k _egal",
  "gen_au",
  "S_uchen",
  "_Weitersuchen",
  "Addipro - Serienbriefdruck",
  "B_riefname",
  "L_aden",
  "_Kurzvorschau",
  "Abs_ender",
  "_Laden",
  "_Speichern",
  "Date_nsätze",
  "-> Edit_or",
  "_Drucken",
  "<name>",
  "<vorname>",
  "<anrede>",
  "<ansprache>",
  "Sehr geehrte", { Ansprache Zeilenanfang (Groß geschrieben) }
  "sehr geehrte",
  "HERR",         { 2 Strings zum bestimmen, ob anrede männlich }
  "HERRN",
  "r Herr",       { dann nämlich sehr geehrte_r_ Herr }
  "FRAU",
  " Frau",
  "FIRMA",
  " Damen und Herren",
  "(r)",          { Wenn weder Frau noch Mann, noch Firma }
  "<strasse>",
  "<plz>",
  "<land>",
  "<ort>",
  "<email1>",
  "<email2>",
  "<email3>",
  "<geburt>",
  "<telefon>",
  "<fax>",
  "<kommentar>",
  "<co>",
  "<absender>",
    "Addipro - Blättern",   {NEU!!!!}
  "Anrede :       ",
  "Name :         ",
  "Vorname :      ",
  "c/o :          ",
  "Straße :       ",
  "Postleitzahl : ",
  "Wohnort :      ",
  "Land :         ",
  "Telefon :      ",
  "Telefax :      ",
  "Geburtstag :   ",
  "Email 1 :      ",
  "Email 2 :      ",
  "Email 3 :      ",
  "Kommentar :    ",
  "Gruppen :      ",
  "Noch leer !!!",
  "Datensatz _markieren",
  "_Clipboard kopieren",
  "Blättern _+",
  "_Edieren",
  "Blättern _-",
  "Addipro - Voreinstellungen",
    "_Select-Texte ...",
  "Selecttexte",
  "S_uchpfade ...",
  "Suchpfade",
  "_Druckerausgabe:",
  "_Textanzeiger:",
  "_Editor:",
  "Druckerausgabe:",
  "Textanzeiger:",
  "Editor:",
  "_Benutzen",
  "_Abbrechen",
  "_Iconsave",
  "Auto_laden",
  "S_peichern",
  "_Benutzen",
  "_Abbrechen",
  "_Automatische Anrede bei Edit",
  "Herr",
  "Frau",
  "Firma",               
  "Speichern bei Iconify",
  "Backupdatei ?",
  "Inhalt 2. Spalte",
  "Ort",
  "Geburtstag",
  "Telefon",
  "Straße");
  FOR i:=1 TO maxlocalestrs DO
   IF LocaleBase <> NIL THEN
    BEGIN
     hilfstr:=GetCataLogStr(cat,i,"Error in catalogfile!");
     s:=hilfstr;
     locstr[i]:=hilfstr;
    END;
 END;
 
{$endif}