37 lines
1.0 KiB
ObjectPascal
37 lines
1.0 KiB
ObjectPascal
unit PoTranslate;
|
|
{$mode objfpc}{$H+}
|
|
interface
|
|
uses Classes, SysUtils, LResources, typinfo, Translations;
|
|
type
|
|
{ TPoTranslator }
|
|
TPoTranslator=class(TAbstractTranslator)
|
|
private
|
|
FPOFile:TPOFile;
|
|
public
|
|
constructor Create(POFileName:string);
|
|
destructor Destroy;override;
|
|
procedure TranslateStringProperty(Sender:TObject; const Instance: TPersistent; PropInfo: PPropInfo; var Content: String); OVERRIDE;
|
|
end;
|
|
implementation
|
|
{ TPoTranslator }
|
|
constructor TPoTranslator.Create(POFileName: string);
|
|
begin
|
|
inherited Create;
|
|
FPOFile:=TPOFile.Create(POFileName);
|
|
end;
|
|
destructor TPoTranslator.Destroy;
|
|
begin
|
|
FPOFile.Free;
|
|
inherited Destroy;
|
|
end;
|
|
procedure TPoTranslator.TranslateStringProperty(Sender: TObject; const Instance: TPersistent; PropInfo: PPropInfo; var Content: string);
|
|
var s: String;
|
|
begin
|
|
if not Assigned(FPOFile) then Exit;
|
|
if not Assigned(PropInfo) then Exit;
|
|
if (AnsiUpperCase(PropInfo^.PropType^.Name)<>'TTRANSLATESTRING') then Exit;
|
|
s:=FPOFile.Translate(Content, Content);
|
|
if s<>'' then Content:=s;
|
|
end;
|
|
end.
|