[Initranslator-svncheckins] SF.net SVN: initranslator: [132] translator/trunk/src
Brought to you by:
peter3
Menu
▾
▴
[Initranslator-svncheckins] SF.net SVN: initranslator: [132] translator/trunk/src
|
From: <pe...@us...> - 2006-11-22 15:18:38
|
Revision: 132
http://svn.sourceforge.net/initranslator/?rev=132&view=rev
Author: peter3
Date: 2006-11-22 07:18:34 -0800 (Wed, 22 Nov 2006)
Log Message:
-----------
- renamed the common import/export dialog classes so they are unique
Modified Paths:
--------------
translator/trunk/src/IBForumsPlugin/IBForumsParser.dpr
translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas
translator/trunk/src/MSDictParser/MSDictParserImpl.pas
translator/trunk/src/MSDictParser/MSDictParserImportFrm.pas
translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas
translator/trunk/src/MozillaPlugin/MozillaDTDParser.dpr
translator/trunk/src/MozillaPlugin/MozillaPropsImpl.pas
translator/trunk/src/MozillaPlugin/MozillaPropsParser.dpr
translator/trunk/src/OlegPlugin/OlegParser.dpr
translator/trunk/src/OlegPlugin/OlegParserImpl.pas
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParserImpl.pas
translator/trunk/src/PHPNukePlugin/PHPNukeImpl.pas
translator/trunk/src/PHPNukePlugin/PHPNukeParser.dpr
translator/trunk/src/PHPPlugin/PHPParser.dpr
translator/trunk/src/PHPPlugin/PHPParserImpl.pas
translator/trunk/src/POPlugin/POParser.dof
translator/trunk/src/PluginCommon/DualImportFrm.dfm
translator/trunk/src/PluginCommon/DualImportFrm.pas
translator/trunk/src/PluginCommon/PreviewExportFrm.dfm
translator/trunk/src/PluginCommon/PreviewExportFrm.pas
translator/trunk/src/PluginCommon/SingleImportFrm.dfm
translator/trunk/src/PluginCommon/SingleImportFrm.pas
translator/trunk/src/PolyglotPlugin/PolyGlotParser.dpr
translator/trunk/src/PolyglotPlugin/PolyGlotParserImpl.pas
translator/trunk/src/SciTEPlugin/SciTEParser.dpr
translator/trunk/src/SciTEPlugin/SciTEParserImpl.pas
translator/trunk/src/TMXPlugin/TMXImportFrm.dfm
translator/trunk/src/TMXPlugin/TMXImportFrm.pas
translator/trunk/src/TMXPlugin/TMXParser.dpr
translator/trunk/src/TMXPlugin/TMXParserImpl.pas
translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr
translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas
translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr
translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParser.dpr
===================================================================
--- translator/trunk/src/IBForumsPlugin/IBForumsParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/IBForumsPlugin/IBForumsParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -23,7 +23,7 @@
TransIntf in '..\TransIntf.pas',
IBForumsParserImpl in 'IBForumsParserImpl.pas',
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport},
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas
===================================================================
--- translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -52,8 +52,7 @@
function Capabilities: Integer; safecall;
function HandleOrig(const AFilename: WideString; const Items: ITranslationItems; const Orphans: ITranslationItems): Boolean; safecall;
function HandleTrans(const AFilename: WideString; const Items: ITranslationItems; const Orphans: ITranslationItems): Boolean; safecall;
- function GetString(out Section: WideString; out Name: WideString;
- out Value: WideString): WordBool; safecall;
+ function GetString(out Section: WideString; out Name: WideString; out Value: WideString): WordBool; safecall;
end;
@@ -295,7 +294,7 @@
S := TTntStringlist.Create;
try
BuildPreview(Items, S);
- if TfrmExport.Execute(FTransFile, Translate(cIBFExportTitle), Translate(cPHPFilter), '.', 'php', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cIBFExportTitle), Translate(cPHPFilter), '.', 'php', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
SaveSettings;
@@ -313,7 +312,7 @@
begin
Result := S_FALSE;
LoadSettings;
- if TfrmImport.Execute(FOrigFile, FTransFile, Translate(cIBFImportTitle), Translate(cPHPFilter), '.', 'php') then
+ if TfrmDualImport.Execute(FAppServices, FOrigFile, FTransFile, Translate(cIBFImportTitle), Translate(cPHPFilter), '.', 'php') then
begin
if DoImport(Items, Orphans, FOrigFile, FTransFile) then
begin
@@ -395,6 +394,8 @@
begin
Result := false;
end;
+var
+ frmExport:TfrmExport = nil;
function TIBFParser.GetString(out Section, Name,
Value: WideString): WordBool;
@@ -408,13 +409,22 @@
4: Value := SError;
// 5: Value := cSectionName;
else
- Result := false;
- FCount := 0;
+ if frmExport = nil then
+ frmExport := tFrmExport.Create(Application);
+ Result := frmExport.GetString(Section, Name, Value);
+ if not Result then
+ begin
+ FreeAndNil(frmExport);
+ FCount := 0;
+ end;
end;
if Result then
Inc(FCount);
- Section := ClassName;
- Name := Value;
+ if frmExport = nil then
+ begin
+ Section := ClassName;
+ Name := Value;
+ end;
end;
function TIBFParser.Translate(const Value: WideString): WideString;
Modified: translator/trunk/src/MSDictParser/MSDictParserImpl.pas
===================================================================
--- translator/trunk/src/MSDictParser/MSDictParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/MSDictParser/MSDictParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -131,7 +131,7 @@
S := TTntStringlist.Create;
try
BuildPreview(Items, S);
- if TfrmExport.Execute(FTransFile, Translate(cMsDictExportTitle), Translate(cMsDictFilter), '.', 'csv', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cMsDictExportTitle), Translate(cMsDictFilter), '.', 'csv', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
Result := S_OK;
@@ -304,7 +304,7 @@
Items.Clear;
Orphans.Clear;
LoadSettings;
- if TfrmImport.Execute(FTransFile, FSkipLines, Translate(cMsDictImportTitle), Translate(cMsDictFilter), '.', 'csv') then
+ if TfrmImport.Execute(FAppServices, FTransFile, FSkipLines, Translate(cMsDictImportTitle), Translate(cMsDictFilter), '.', 'csv') then
begin
Items.Sort := stNone;
if FSkipLines < 0 then
Modified: translator/trunk/src/MSDictParser/MSDictParserImportFrm.pas
===================================================================
--- translator/trunk/src/MSDictParser/MSDictParserImportFrm.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/MSDictParser/MSDictParserImportFrm.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -105,7 +105,7 @@
function TfrmImport.Translate(const Value: WideString): WideString;
begin
if FAppServices <> nil then
- Result := FAppServices.Translate(ClassName, Value, Value)
+ Result := FAppServices.Translate('TMSDictParser', Value, Value)
else
Result := Value;
end;
@@ -129,7 +129,7 @@
end;
if Result then
Inc(FCount);
- Section := ClassName;
+ Section := 'TMsDictParser';
Name := Value;
end;
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -123,7 +123,7 @@
S := TTntStringlist.Create;
try
BuildPreview(Items, S);
- if TfrmExport.Execute(FTransFile, Translate(cDTDExportTitle), Translate(cDTDFilter), '.', 'dtd', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cDTDExportTitle), Translate(cDTDFilter), '.', 'dtd', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
Result := S_OK;
@@ -171,7 +171,7 @@
Orphans.Clear;
TI := nil;
LoadSettings;
- if TfrmImport.Execute(FOrigFile, FTransFile, Translate(cDTDImportTitle), Translate(cDTDFilter), '.', 'dtd') then
+ if TfrmDualImport.Execute(FAppServices, FOrigFile, FTransFile, Translate(cDTDImportTitle), Translate(cDTDFilter), '.', 'dtd') then
begin
Items.Sort := stNone;
S := TTntStringlist.Create;
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDParser.dpr
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaDTDParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/MozillaPlugin/MozillaDTDParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -22,7 +22,8 @@
TransIntf in '..\TransIntf.pas',
MozillaDTDImpl in 'MozillaDTDImpl.pas',
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport};
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsImpl.pas
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaPropsImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/MozillaPlugin/MozillaPropsImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -119,7 +119,7 @@
try
Items.Sort := stIndex;
BuildPreview(Items, S);
- if TfrmExport.Execute(FTransFile, Translate(cPropsExportTitle), Translate(cPropsFilter), '.', 'properties', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cPropsExportTitle), Translate(cPropsFilter), '.', 'properties', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
Result := S_OK;
@@ -162,7 +162,7 @@
Result := S_FALSE;
try
LoadSettings;
- if TfrmImport.Execute(FOrigFile, FTransFile, Translate(cPropsImportTitle), Translate(cPropsFilter), '.', 'properties') then
+ if TfrmDualImport.Execute(FAppServices, FOrigFile, FTransFile, Translate(cPropsImportTitle), Translate(cPropsFilter), '.', 'properties') then
begin
TI := nil;
S := TTntStringlist.Create;
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsParser.dpr
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaPropsParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/MozillaPlugin/MozillaPropsParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -23,7 +23,8 @@
TransIntf in '..\TransIntf.pas',
MozillaPropsImpl in 'MozillaPropsImpl.pas',
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport};
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/OlegPlugin/OlegParser.dpr
===================================================================
--- translator/trunk/src/OlegPlugin/OlegParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/OlegPlugin/OlegParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -4,9 +4,10 @@
SysUtils,
Classes,
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- SingleImportFrm in '..\PluginCommon\SingleImportFrm.pas' {frmImport},
+ SingleImportFrm in '..\PluginCommon\SingleImportFrm.pas' {frmSingleImport},
TransIntf in '..\TransIntf.pas',
- OlegParserImpl in 'OlegParserImpl.pas';
+ OlegParserImpl in 'OlegParserImpl.pas',
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/OlegPlugin/OlegParserImpl.pas
===================================================================
--- translator/trunk/src/OlegPlugin/OlegParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/OlegPlugin/OlegParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -114,7 +114,7 @@
S := TTntStringlist.Create;
try
BuildPreview(Items, S);
- if TfrmExport.Execute(FTransFile, Translate(cOlegExportTitle), Translate(cOlegFilter), '.', 'txt', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cOlegExportTitle), Translate(cOlegFilter), '.', 'txt', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
Result := S_OK;
@@ -128,6 +128,8 @@
Application.HandleException(self);
end;
end;
+var
+ frmImport:TfrmSingleImport = nil;
function TOlegParser.GetString(out Section, Name, Value: WideString): WordBool;
begin
@@ -137,13 +139,22 @@
1: Value := cOlegImportTitle;
2: Value := cOlegExportTitle;
else
- Result := false;
- FCount := 0;
+ if frmImport = nil then
+ frmImport := TfrmSingleImport.Create(Application);
+ Result := frmImport.GetString(Section, Name, Value);
+ if not Result then
+ begin
+ FreeAndNil(frmImport);
+ FCount := 0;
+ end;
end;
if Result then
Inc(FCount);
- Section := ClassName;
- Name := Value;
+ if frmImport = nil then
+ begin
+ Section := ClassName;
+ Name := Value;
+ end;
end;
function TOlegParser.ImportItems(const Items, Orphans: ITranslationItems): HRESULT;
@@ -158,7 +169,7 @@
Orphans.Clear;
TI := nil;
LoadSettings;
- if TfrmImport.Execute(FTransFile, Translate(cOlegImportTitle), Translate(cOlegFilter), '.', 'txt') then
+ if TfrmSingleImport.Execute(FAppServices, FTransFile, Translate(cOlegImportTitle), Translate(cOlegFilter), '.', 'txt') then
begin
Items.Sort := stNone;
S := TTntStringlist.Create;
Modified: translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof
===================================================================
--- translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof 2006-11-22 15:18:34 UTC (rev 132)
@@ -34,7 +34,7 @@
FileDescription=OpenOffice GSI Plugin for IniTranslator
FileVersion=1.7.0.0
InternalName=OOGSIParser.dll
-LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=OOGSIParser.dll
ProductName=OpenOffice GSI Plugin for IniTranslator
Modified: translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParserImpl.pas
===================================================================
--- translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -269,7 +269,7 @@
S := TTntStringlist.Create;
try
BuildPreview(Items, S);
- if TfrmExport.Execute(FOrigFile, Translate(cGSIExportTitle), Translate(cGSIFilter), '.', 'gsi', S) then
+ if TfrmExport.Execute(FAppServices, FOrigFile, Translate(cGSIExportTitle), Translate(cGSIFilter), '.', 'gsi', S) then
begin
// GSI files are always encodeds as UTF-8 but without BOM
S.AnsiStrings.SaveToFileEx(FOrigFile, CP_UTF8);
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeImpl.pas
===================================================================
--- translator/trunk/src/PHPNukePlugin/PHPNukeImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PHPNukePlugin/PHPNukeImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -150,7 +150,7 @@
S.Add(Format('DEFINE("%s",%s);', [Items[i].Name, DefaultStr(Items[i].Translation, Items[i].TransQuote)]));
end;
S.AddStrings(FFooter);
- if TfrmExport.Execute(FTransFile, Translate(cPHPNukeExportTitle), Translate(cPHPNukeFilter), '.', 'php', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cPHPNukeExportTitle), Translate(cPHPNukeFilter), '.', 'php', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
Result := S_OK;
@@ -178,7 +178,7 @@
Result := false;
FCount := 0;
end;
- if not Result then
+ if Result then
Inc(FCount);
Section := ClassName;
Name := Value;
@@ -251,7 +251,7 @@
LoadSettings;
// Screen.Cursor := crHourGlass;
try
- if TfrmImport.Execute(FOrigFile, FTransFile, Translate(cPHPNukeImportTitle), Translate(cPHPNukeFilter), '.', 'php') then
+ if TfrmDualImport.Execute(FAppServices, FOrigFile, FTransFile, Translate(cPHPNukeImportTitle), Translate(cPHPNukeFilter), '.', 'php') then
begin
Items.Clear;
Orphans.Clear;
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeParser.dpr
===================================================================
--- translator/trunk/src/PHPNukePlugin/PHPNukeParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PHPNukePlugin/PHPNukeParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -23,7 +23,7 @@
PHPNukeImpl in 'PHPNukeImpl.pas',
TransIntf in '..\TransIntf.pas',
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport},
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/PHPPlugin/PHPParser.dpr
===================================================================
--- translator/trunk/src/PHPPlugin/PHPParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PHPPlugin/PHPParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -26,7 +26,8 @@
TransIntf in '..\TransIntf.pas',
PHPParserImpl in 'PHPParserImpl.pas',
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport};
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/PHPPlugin/PHPParserImpl.pas
===================================================================
--- translator/trunk/src/PHPPlugin/PHPParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PHPPlugin/PHPParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -250,7 +250,7 @@
S := TTntStringlist.Create;
try
BuildPreview(Items, S);
- if TfrmExport.Execute(FTransFile, Translate(cPHPExportTitle), Translate(cPHPFilter), '.', 'php', S) then
+ if TfrmExport.Execute(FAppServices, FTransFile, Translate(cPHPExportTitle), Translate(cPHPFilter), '.', 'php', S) then
begin
S.AnsiStrings.SaveToFile(FTransFile);
SaveSettings;
@@ -269,7 +269,7 @@
try
Result := S_FALSE;
LoadSettings;
- if TfrmImport.Execute(FAppServices, FOrigFile, FTransFile, Translate(cPHPImportTitle), Translate(cPHPFilter), '.', 'php') then
+ if TfrmDualImport.Execute(FAppServices, FOrigFile, FTransFile, Translate(cPHPImportTitle), Translate(cPHPFilter), '.', 'php') then
begin
if DoPHPImport(Items, Orphans, FOrigFile, FTransFile) then
begin
@@ -341,8 +341,8 @@
end;
var
- frmImport: TFrmImport = nil;
- frmExport: TFrmExport = nil;
+ frmImport: TfrmDualImport = nil;
+ frmExport: TfrmExport = nil;
function TPHPParser.GetString(out Section, Name, Value: WideString): WordBool;
begin
@@ -355,7 +355,7 @@
4: Value := SError;
else
if frmImport = nil then
- frmImport := TfrmImport.Create(Application);
+ frmImport := TfrmDualImport.Create(Application);
Result := frmImport.GetString(Section, Name, Value);
if not Result then
begin
Modified: translator/trunk/src/POPlugin/POParser.dof
===================================================================
--- translator/trunk/src/POPlugin/POParser.dof 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/POPlugin/POParser.dof 2006-11-22 15:18:34 UTC (rev 132)
@@ -1,83 +1,42 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=28901376
-
-ExeDescription=PO Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=7
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=1
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=IniTranslator
-
-FileDescription=PO Plugin for IniTranslator
-
-FileVersion=1.7.0.0
-
-InternalName=POParser.dll
-
-LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
-
-LegalTrademarks=
-
-OriginalFilename=POParser.dll
-
-ProductName=PO Plugin for IniTranslator
-
-ProductVersion=1.7.0.0
-
-Comments=Latest version at http://initranslator.sourceforge.net
\ No newline at end of file
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=28901376
+ExeDescription=PO Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=7
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=PO Plugin for IniTranslator
+FileVersion=1.7.0.0
+InternalName=POParser.dll
+LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=POParser.dll
+ProductName=PO Plugin for IniTranslator
+ProductVersion=1.7.0.0
+Comments=Latest version at http://initranslator.sourceforge.net
Modified: translator/trunk/src/PluginCommon/DualImportFrm.dfm
===================================================================
--- translator/trunk/src/PluginCommon/DualImportFrm.dfm 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PluginCommon/DualImportFrm.dfm 2006-11-22 15:18:34 UTC (rev 132)
@@ -1,4 +1,4 @@
-object frmImport: TfrmImport
+object frmDualImport: TfrmDualImport
Left = 412
Top = 228
ActiveControl = edFilename
Modified: translator/trunk/src/PluginCommon/DualImportFrm.pas
===================================================================
--- translator/trunk/src/PluginCommon/DualImportFrm.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PluginCommon/DualImportFrm.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -24,7 +24,7 @@
Dialogs, StdCtrls, TransIntf, TntForms, TntDialogs, TntStdCtrls;
type
- TfrmImport = class(TTntForm, IInterface, ILocalizable)
+ TfrmDualImport = class(TTntForm, IInterface, ILocalizable)
lblOriginal: TTntLabel;
edFilename: TTntEdit;
btnBrowse: TTntButton;
@@ -66,17 +66,17 @@
{ TfrmImport }
-class function TfrmImport.Execute(var AOriginalFile, ATranslationFile: string; const ACaption, Filter, InitialDir, DefaultExt: string; const SecondIsOptional: Boolean = false): boolean;
+class function TfrmDualImport.Execute(var AOriginalFile, ATranslationFile: string; const ACaption, Filter, InitialDir, DefaultExt: string; const SecondIsOptional: Boolean = false): boolean;
begin
Result := Execute(nil, AOriginalFile, ATranslationFile, ACaption, Filter, InitialDir, DefaultExt, SecondIsOptional);
end;
-procedure TfrmImport.CheckChange(Sender: TObject);
+procedure TfrmDualImport.CheckChange(Sender: TObject);
begin
btnOK.Enabled := (edFilename.Text <> '') and (FSecondIsOptional or ((edFilename2.Text <> '') and FileExists(edFilename.Text) and FileExists(edFilename2.Text)));
end;
-procedure TfrmImport.btnBrowseClick(Sender: TObject);
+procedure TfrmDualImport.btnBrowseClick(Sender: TObject);
begin
OpenDialog1.Filename := edFilename.Text;
if OpenDialog1.Execute then
@@ -84,7 +84,7 @@
CheckChange(Sender);
end;
-procedure TfrmImport.btnBrowse2Click(Sender: TObject);
+procedure TfrmDualImport.btnBrowse2Click(Sender: TObject);
begin
OpenDialog2.Filename := edFilename2.Text;
if OpenDialog2.Execute then
@@ -92,7 +92,7 @@
CheckChange(Sender);
end;
-procedure TfrmImport.LoadSettings;
+procedure TfrmDualImport.LoadSettings;
var M: TMemoryStream;
FRect: TRect;
begin
@@ -133,7 +133,7 @@
end;
end;
-procedure TfrmImport.SaveSettings;
+procedure TfrmDualImport.SaveSettings;
var M: TMemoryStream;
FRect: TRect;
begin
@@ -158,12 +158,12 @@
end;
end;
-class function TfrmImport.Execute(
+class function TfrmDualImport.Execute(
const ApplicationServices: IApplicationServices; var AOriginalFile,
ATranslationFile: string; const ACaption, Filter, InitialDir,
DefaultExt: string; const SecondIsOptional: Boolean): boolean;
var
- frmImport: TfrmImport;
+ frmImport: TfrmDualImport;
begin
frmImport := self.Create(Application);
with frmImport do
@@ -205,7 +205,7 @@
end;
-function TfrmImport.Translate(const Value: WideString): WideString;
+function TfrmDualImport.Translate(const Value: WideString): WideString;
begin
if FApplicationServices <> nil then
Result := FApplicationServices.Translate(self.ClassName, Value, Value)
@@ -213,7 +213,7 @@
Result := Value;
end;
-function TfrmImport.GetString(out Section, Name, Value: WideString): WordBool;
+function TfrmDualImport.GetString(out Section, Name, Value: WideString): WordBool;
begin
Result := true;
case FCount of
Modified: translator/trunk/src/PluginCommon/PreviewExportFrm.dfm
===================================================================
--- translator/trunk/src/PluginCommon/PreviewExportFrm.dfm 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PluginCommon/PreviewExportFrm.dfm 2006-11-22 15:18:34 UTC (rev 132)
@@ -126,6 +126,7 @@
object SaveDialog1: TTntSaveDialog
InitialDir = '.'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
+ Title = 'Save file'
Left = 58
Top = 82
end
Modified: translator/trunk/src/PluginCommon/PreviewExportFrm.pas
===================================================================
--- translator/trunk/src/PluginCommon/PreviewExportFrm.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PluginCommon/PreviewExportFrm.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -57,7 +57,7 @@
implementation
uses
- ShellAPI, IniFiles;
+ ShellAPI, IniFiles, CommonUtils;
const
SFmtErrIvalidFilename = 'Invalid filename "%s". Select another filename and try again.';
@@ -79,6 +79,7 @@
procedure TfrmExport.btnBrowseClick(Sender: TObject);
begin
SaveDialog1.FileName := edFilename.Text;
+ SaveDialog1.Title := Translate(SaveDialog1.Title);
if SaveDialog1.Execute then
begin
FHasPrompted := true;
@@ -89,7 +90,7 @@
function TfrmExport.OverwriteOK: boolean;
begin
Result := FHasPrompted or not FileExists(edFilename.Text) or
- (MessageBox(Handle, PChar(Format(SFmtOverwriteOK, [edFilename.Text])), PChar(SConfirm), MB_YESNO or MB_TASKMODAl or MB_ICONQUESTION) = IDYES);
+ (WideMessageBox(Handle, PWideChar(Translate(Format(SFmtOverwriteOK, [edFilename.Text]))), PWideChar(Translate(SConfirm)), MB_YESNO or MB_TASKMODAl or MB_ICONQUESTION) = IDYES);
end;
procedure TfrmExport.LoadSettings;
@@ -185,11 +186,10 @@
begin
Result := IsValidFilename;
if not Result then
- MessageBox(Handle, PChar(Format(SFmtErrIvalidFilename, [edFilename.Text])), PChar(SError), MB_OK or MB_TASKMODAl or MB_ICONERROR);
+ WideMessageBox(Handle, PWideChar(Translate(Format(SFmtErrIvalidFilename, [edFilename.Text]))), PWideChar(Translate(SError)), MB_OK or MB_TASKMODAl or MB_ICONERROR);
end;
-class function TfrmExport.Execute(
- const ApplicationServices: IApplicationServices; var FileName: string;
+class function TfrmExport.Execute(const ApplicationServices: IApplicationServices; var FileName: string;
const ACaption, Filter, InitialDir, DefaultExt: string;
Preview: TTntStrings): boolean;
var
@@ -249,7 +249,8 @@
6: Value := lblPreview.Caption;
7: Value := btnBrowse.Caption;
8: Value := btnOK.Caption;
- 9: Value := btnCancel.Caption;
+ 9: Value := btnCancel.Caption;
+ 10: Value := SaveDialog1.Title;
else
Result := false;
FCount := 0;
Modified: translator/trunk/src/PluginCommon/SingleImportFrm.dfm
===================================================================
--- translator/trunk/src/PluginCommon/SingleImportFrm.dfm 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PluginCommon/SingleImportFrm.dfm 2006-11-22 15:18:34 UTC (rev 132)
@@ -1,4 +1,4 @@
-object frmImport: TfrmImport
+object frmSingleImport: TfrmSingleImport
Left = 412
Top = 228
BorderStyle = bsDialog
Modified: translator/trunk/src/PluginCommon/SingleImportFrm.pas
===================================================================
--- translator/trunk/src/PluginCommon/SingleImportFrm.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PluginCommon/SingleImportFrm.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -24,7 +24,7 @@
Dialogs, StdCtrls, ComCtrls, TransIntf, TntForms, TntDialogs, TntStdCtrls;
type
- TfrmImport = class(TTntForm)
+ TfrmSingleImport = class(TTntForm, IInterface, ILocalizable)
lblFilename: TTntLabel;
edFilename: TTntEdit;
btnBrowse: TTntButton;
@@ -34,12 +34,15 @@
procedure btnBrowseClick(Sender: TObject);
private
{ Private declarations }
- FApplicationServices:IApplicationServices;
+ FAppServices:IApplicationServices;
+ FCount:integer;
function Translate(const Value:WideString):WideString;
public
{ Public declarations }
class function Execute(var AFilename: string; const ACaption, Filter, InitialDir, DefaultExt: string): boolean;overload;
class function Execute(const ApplicationServices:IApplicationServices; var AFilename: string; const ACaption, Filter, InitialDir, DefaultExt: string): boolean;overload;
+ function GetString(out Section, Name, Value: WideString): WordBool; safecall;
+
end;
implementation
@@ -48,28 +51,27 @@
{ TfrmImport }
-class function TfrmImport.Execute(var AFilename: string; const ACaption, Filter, InitialDir, DefaultExt: string): boolean;
+class function TfrmSingleImport.Execute(var AFilename: string; const ACaption, Filter, InitialDir, DefaultExt: string): boolean;
begin
Result := Execute(nil, AFilename, ACaption, Filter, InitialDir, DefaultExt);
end;
-procedure TfrmImport.btnBrowseClick(Sender: TObject);
+procedure TfrmSingleImport.btnBrowseClick(Sender: TObject);
begin
OpenDialog1.Filename := edFilename.Text;
if OpenDialog1.Execute then
edFilename.Text := OpenDialog1.Filename;
end;
-class function TfrmImport.Execute(
- const ApplicationServices: IApplicationServices; var AFilename: string;
+class function TfrmSingleImport.Execute(const ApplicationServices: IApplicationServices; var AFilename: string;
const ACaption, Filter, InitialDir, DefaultExt: string): boolean;
var
- frmImport: TfrmImport;
+ frmImport: TfrmSingleImport;
begin
frmImport := self.Create(Application);
with frmImport do
try
- FApplicationServices := ApplicationServices;
+ FAppServices := ApplicationServices;
if ACaption <> '' then
Caption := Translate(ACaption)
else
@@ -90,13 +92,35 @@
end;
-function TfrmImport.Translate(const Value: WideString): WideString;
+function TfrmSingleImport.Translate(const Value: WideString): WideString;
begin
- if FApplicationServices <> nil then
- Result := FApplicationServices.Translate(self.ClassName, Value, Value)
+ if FAppServices <> nil then
+ Result := FAppServices.Translate(self.ClassName, Value, Value)
else
Result := Value;
end;
+function TfrmSingleImport.GetString(out Section, Name,
+ Value: WideString): WordBool;
+begin
+ Result := true;
+ case FCount of
+ 0: Value := self.Caption;
+ 1: Value := lblFilename.Caption;
+ 2: Value := btnBrowse.Caption;
+ 3: Value := btnOK.Caption;
+ 4: Value := btnCancel.Caption;
+ 5: Value := OpenDialog1.Title;
+ else
+ Result := false;
+ FCount := 0;
+ end;
+ if Result then
+ Inc(FCount);
+ Section := ClassName;
+ Name := Value;
+
+end;
+
end.
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParser.dpr
===================================================================
--- translator/trunk/src/PolyglotPlugin/PolyGlotParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PolyglotPlugin/PolyGlotParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -6,7 +6,8 @@
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
TransIntf in '..\TransIntf.pas',
PolyGlotParserImpl in 'PolyGlotParserImpl.pas',
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport};
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParserImpl.pas
===================================================================
--- translator/trunk/src/PolyglotPlugin/PolyGlotParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/PolyglotPlugin/PolyGlotParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -162,7 +162,7 @@
Orphans.Clear;
TI := nil;
LoadSettings;
- if TfrmImport.Execute(FOrigFile, FTransFile, cPolyGlotImportTitle, cPolyGlotFilter, '.', 'lng', True) then
+ if TfrmDualImport.Execute(FOrigFile, FTransFile, cPolyGlotImportTitle, cPolyGlotFilter, '.', 'lng', True) then
begin
Items.Sort := stNone;
S := TTntStringlist.Create;
Modified: translator/trunk/src/SciTEPlugin/SciTEParser.dpr
===================================================================
--- translator/trunk/src/SciTEPlugin/SciTEParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/SciTEPlugin/SciTEParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -21,9 +21,10 @@
SysUtils,
Classes,
SciTEParserImpl in 'SciTEParserImpl.pas',
- SingleImportFrm in '..\PluginCommon\SingleImportFrm.pas' {frmImport},
+ SingleImportFrm in '..\PluginCommon\SingleImportFrm.pas' {frmSingleImport},
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- TransIntf in '..\TransIntf.pas';
+ TransIntf in '..\TransIntf.pas',
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/SciTEPlugin/SciTEParserImpl.pas
===================================================================
--- translator/trunk/src/SciTEPlugin/SciTEParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/SciTEPlugin/SciTEParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -232,7 +232,7 @@
try
Result := S_FALSE;
LoadSettings;
- if TfrmImport.Execute(FTransFile, cSciTEImportTitle, cSciTEFilter, '.', 'properties') then
+ if TfrmSingleImport.Execute(FTransFile, cSciTEImportTitle, cSciTEFilter, '.', 'properties') then
begin
if DoSciTEImport(Items, Orphans, FTransFile) then
begin
Modified: translator/trunk/src/TMXPlugin/TMXImportFrm.dfm
===================================================================
--- translator/trunk/src/TMXPlugin/TMXImportFrm.dfm 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/TMXPlugin/TMXImportFrm.dfm 2006-11-22 15:18:34 UTC (rev 132)
@@ -1,4 +1,4 @@
-object frmImport: TfrmImport
+object frmTMXImport: TfrmTMXImport
Left = 412
Top = 228
Width = 392
Modified: translator/trunk/src/TMXPlugin/TMXImportFrm.pas
===================================================================
--- translator/trunk/src/TMXPlugin/TMXImportFrm.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/TMXPlugin/TMXImportFrm.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -24,7 +24,7 @@
Dialogs, StdCtrls, TntForms, TntStdCtrls, TntDialogs;
type
- TfrmImport = class(TTntForm)
+ TfrmTMXImport = class(TTntForm)
Label1: TTntLabel;
edFilename: TTntEdit;
btnBrowse: TTntButton;
@@ -53,9 +53,9 @@
{ TfrmImport }
-class function TfrmImport.Execute(var AFilename, AOrigLang, ATransLang: string; const ACaption, Filter, InitialDir, DefaultExt: string): boolean;
+class function TfrmTMXImport.Execute(var AFilename, AOrigLang, ATransLang: string; const ACaption, Filter, InitialDir, DefaultExt: string): boolean;
var
- frmImport: TfrmImport;
+ frmImport: TfrmTMXImport;
begin
frmImport := self.Create(Application);
with frmImport do
@@ -79,20 +79,20 @@
end;
end;
-procedure TfrmImport.btnBrowseClick(Sender: TObject);
+procedure TfrmTMXImport.btnBrowseClick(Sender: TObject);
begin
OpenDialog1.Filename := edFilename.Text;
if OpenDialog1.Execute then
edFilename.Text := OpenDialog1.Filename;
end;
-procedure TfrmImport.edFilenameChange(Sender: TObject);
+procedure TfrmTMXImport.edFilenameChange(Sender: TObject);
begin
if FileExists(edFilename.Text) then
ParseLanguages(edFilename.Text);
end;
-procedure TfrmImport.ParseLanguages(const Filename: string);
+procedure TfrmTMXImport.ParseLanguages(const Filename: string);
var
FXMLImport: TXMLDocument;
NodeList: IDOMNodeList;
Modified: translator/trunk/src/TMXPlugin/TMXParser.dpr
===================================================================
--- translator/trunk/src/TMXPlugin/TMXParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/TMXPlugin/TMXParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -6,7 +6,8 @@
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
TransIntf in '..\TransIntf.pas',
TMXParserImpl in 'TMXParserImpl.pas',
- TMXImportFrm in 'TMXImportFrm.pas' {frmImport};
+ TMXImportFrm in 'TMXImportFrm.pas' {frmTMXImport},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/TMXPlugin/TMXParserImpl.pas
===================================================================
--- translator/trunk/src/TMXPlugin/TMXParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/TMXPlugin/TMXParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -178,7 +178,7 @@
Items.Clear;
Orphans.Clear;
LoadSettings;
- if TfrmImport.Execute(FOrigFile, FOrigLang, FTransLang, cTMXImportTitle, cTMXFilter, '.', 'tmx') then
+ if TfrmTMXImport.Execute(FOrigFile, FOrigLang, FTransLang, cTMXImportTitle, cTMXFilter, '.', 'tmx') then
begin
FXMLImport := TXMLDocument.Create(nil);
try
Modified: translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr
===================================================================
--- translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -24,7 +24,8 @@
XLIFFParserImpl in 'XLIFFParserImpl.pas',
TransIntf in '..\TransIntf.pas',
PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
- SingleImportFrm in '..\PluginCommon\SingleImportFrm.pas' {frmImport};
+ SingleImportFrm in '..\PluginCommon\SingleImportFrm.pas' {frmSingleImport},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas
===================================================================
--- translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -214,7 +214,7 @@
Items.Clear;
Orphans.Clear;
LoadSettings;
- if TfrmImport.Execute(FApplicationServices, FFilename, Translate(cXLIFFImportTitle), Translate(cXLIFFFilter), '.', '.xlf') then
+ if TfrmSingleImport.Execute(FApplicationServices, FFilename, Translate(cXLIFFImportTitle), Translate(cXLIFFFilter), '.', '.xlf') then
begin
SaveSettings;
FXMLImport := LoadXMLDocument(FFilename);
Modified: translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr 2006-11-22 15:18:34 UTC (rev 132)
@@ -21,9 +21,10 @@
SysUtils,
Classes,
TransIntf in '..\TransIntf.pas',
- DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport},
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport},
XilisoftParserImpl in 'XilisoftParserImpl.pas',
- XilisoftParserCfgForm in 'XilisoftParserCfgForm.pas' {XilisoftCfgForm};
+ XilisoftParserCfgForm in 'XilisoftParserCfgForm.pas' {XilisoftCfgForm},
+ CommonUtils in '..\CommonUtils.pas';
{$R *.res}
Modified: translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas 2006-11-22 15:06:38 UTC (rev 131)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas 2006-11-22 15:18:34 UTC (rev 132)
@@ -28,7 +28,7 @@
FTransFile: string;
FSkip: Boolean;
FStringIndex: integer;
- FApplicationServices: IApplicationServices;
+ FAppServices: IApplicationServices;
procedure LoadSettings;
procedure SaveSettings;
procedure BuildPreview(Items, Orphans: ITranslationItems; Strings: TTntStrings);
@@ -95,7 +95,7 @@
CAP_EXPORT:
begin
LoadSettings;
- if TXilisoftCfgForm.Edit(FApplicationServices, FSkip) then
+ if TXilisoftCfgForm.Edit(FAppServices, FSkip) then
SaveSettings;
Result := S_OK;
end;
@@ -170,7 +170,7 @@
Orphans.Clear;
TI := nil;
LoadSettings;
- if TfrmImport.Execute(FApplicationServices, FOrigFile, FTransFile,
+ if TfrmDualImport.Execute(FAppServices, FOrigFile, FTransFile,
Translate(SXilisoftImportTitle), Translate(SXilisoftFilter), '.', 'lang') then
begin
Items.Sort := stNone;
@@ -281,8 +281,8 @@
function TXilisoftParser.Translate(const Value: WideString): WideString;
begin
- if FApplicationServices <> nil then
- Result := FApplicationServices.Translate(SLocalizeSectionName, Value, Value)
+ if FAppServices <> nil then
+ Result := FAppServices.Translate(SLocalizeSectionName, Value, Value)
else
Result := Value;
end;
@@ -290,7 +290,7 @@
procedure TXilisoftParser.Init(const ApplicationServices: IApplicationServices);
begin
Application.Handle := ApplicationServices.AppHandle;
- FApplicationServices := ApplicationServices;
+ FAppServices := ApplicationServices;
end;
procedure TXilisoftParser.LoadSettings;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
