From 7bfd7e12cc04d36c8b862e630d14dcf58ef2a0fe Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 7 Mar 2015 10:14:36 +0000
Subject: [PATCH] LCL: TPOTranslator constructor with TPOFile, patch #27616
 from Simon Ameis

git-svn-id: trunk@48161 -
---
 lcl/lcltranslator.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/lcltranslator.pas b/lcl/lcltranslator.pas
index e9bbf41570..d1b4b35c20 100644
--- a/lcl/lcltranslator.pas
+++ b/lcl/lcltranslator.pas
@@ -67,6 +67,7 @@ type
     FPOFile: TPOFile;
   public
     constructor Create(POFileName: string);
+    constructor Create(aPOFile: TPOFile);
     destructor Destroy; override;
     procedure TranslateStringProperty(Sender: TObject; const Instance: TPersistent;
       PropInfo: PPropInfo; var Content: string); override;
@@ -431,6 +432,12 @@ begin
   FPOFile := TPOFile.Create(POFileName);
 end;
 
+constructor TPOTranslator.Create(aPOFile: TPOFile);
+begin
+  inherited Create;
+  FPOFile := aPOFile;
+end;
+
 destructor TPOTranslator.Destroy;
 begin
   FPOFile.Free;