Thread: [Initranslator-svncheckins] SF.net SVN: initranslator: [71] translator/trunk
Brought to you by:
peter3
|
From: <pe...@us...> - 2006-08-01 13:18:29
|
Revision: 71 Author: peter3 Date: 2006-08-01 06:18:16 -0700 (Tue, 01 Aug 2006) ViewCVS: http://svn.sourceforge.net/initranslator/?rev=71&view=rev Log Message: ----------- - New parser for XLIFF files Modified Paths: -------------- translator/trunk/translator.bpg Added Paths: ----------- translator/trunk/src/XLIFFPlugin/ translator/trunk/src/XLIFFPlugin/XLIFFParser.dof translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr translator/trunk/src/XLIFFPlugin/XLIFFParser.res translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas Added: translator/trunk/src/XLIFFPlugin/XLIFFParser.dof =================================================================== --- translator/trunk/src/XLIFFPlugin/XLIFFParser.dof (rev 0) +++ translator/trunk/src/XLIFFPlugin/XLIFFParser.dof 2006-08-01 13:18:16 UTC (rev 71) @@ -0,0 +1,41 @@ +[Compiler] +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=1 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +[Directories] +OutputDir=..\..\bin\plugins +UnitOutputDir=..\..\dcu +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=1 +MinorVer=9 +Release=0 +Build=12 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName=IniTranslator +FileDescription=XLIFF Plugin for IniTranslator +FileVersion=1.9.0.12 +InternalName=XLIFFPlugin.dll +LegalCopyright=Copyright (c) 2006 by Peter Th\xF6rnqvist; all rights reserved +LegalTrademarks= +OriginalFilename=XLIFFPlugin.dll +ProductName=XLIFF Plugin for IniTranslator +ProductVersion=1.9 +Comments=Latest version at http://initranslator.sourceforge.net Added: translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr =================================================================== --- translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr (rev 0) +++ translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr 2006-08-01 13:18:16 UTC (rev 71) @@ -0,0 +1,23 @@ +library XLIFFParser; + +uses + SysUtils, + Classes, + XLIFFParserImpl in 'XLIFFParserImpl.pas', + TransIntf in '..\TransIntf.pas', + PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport}; + +{$R *.res} + +function InstallPlugin(out Parser: IFileParser): HResult; stdcall; +begin + Parser := TXLIFFParser.Create; + Result := S_OK; +end; + +exports InstallPlugin name cRegisterTransFileParserFuncName; +begin + +end. + + Property changes on: translator/trunk/src/XLIFFPlugin/XLIFFParser.dpr ___________________________________________________________________ Name: svn:keywords + LastChangedDate Rev LastChangedBy URL Id Added: translator/trunk/src/XLIFFPlugin/XLIFFParser.res =================================================================== (Binary files differ) Property changes on: translator/trunk/src/XLIFFPlugin/XLIFFParser.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas =================================================================== --- translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas (rev 0) +++ translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas 2006-08-01 13:18:16 UTC (rev 71) @@ -0,0 +1,86 @@ +unit XLIFFParserImpl; + +interface +uses + SysUtils, TransIntf; + +type + TXLIFFParser = class(TInterfacedObject, IInterface, IFileParser) + private + FOldAppHandle:Cardinal; + protected + function Capabilities: Integer; safecall; + function Configure(Capability: Integer): HRESULT; safecall; + function DisplayName(Capability: Integer): WideString; safecall; + function ExportItems(const Items: ITranslationItems; + const Orphans: ITranslationItems): HRESULT; safecall; + function ImportItems(const Items: ITranslationItems; + const Orphans: ITranslationItems): HRESULT; safecall; + procedure Init(AppHandle: Cardinal); safecall; + public + constructor Create; + destructor Destroy; override; + end; + +implementation +uses + Forms; +resourcestring + cXLIFFImportTitle = 'Import from XLIFF file'; + cXLIFFExportTitle = 'Export to XLIFF file'; + +{ TXLIFFParser } + +function TXLIFFParser.Capabilities: Integer; +begin + Result := CAP_IMPORT or CAP_EXPORT; +end; + +function TXLIFFParser.Configure(Capability: Integer): HRESULT; +begin + Result := E_NOTIMPL; +end; + +constructor TXLIFFParser.Create; +begin + FOldAppHandle := Application.Handle; + inherited Create; +end; + +destructor TXLIFFParser.Destroy; +begin + Application.Handle := FOldAppHandle; + inherited; +end; + +function TXLIFFParser.DisplayName(Capability: Integer): WideString; +begin + case Capability of + CAP_IMPORT: + Result := cXLIFFImportTitle; + CAP_EXPORT: + Result := cXLIFFExportTitle; + else + Result := ''; + end; +end; + +function TXLIFFParser.ExportItems(const Items, + Orphans: ITranslationItems): HRESULT; +begin + // TODO! +end; + +function TXLIFFParser.ImportItems(const Items, + Orphans: ITranslationItems): HRESULT; +begin + // TODO! +end; + +procedure TXLIFFParser.Init(AppHandle: Cardinal); +begin + FOldAppHandle := Application.Handle; + Application.Handle := AppHandle; +end; + +end. Property changes on: translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas ___________________________________________________________________ Name: svn:keywords + LastChangedDate Rev LastChangedBy URL Id Modified: translator/trunk/translator.bpg =================================================================== --- translator/trunk/translator.bpg 2006-08-01 12:59:47 UTC (rev 70) +++ translator/trunk/translator.bpg 2006-08-01 13:18:16 UTC (rev 71) @@ -12,7 +12,7 @@ PROJECTS = IBForumsParser.dll MozillaDTDParser.dll MozillaPropsParser.dll \ MSDictBuild.exe MSDictParser.dll OlegParser.dll OOGSIParser.dll \ PHPNukeParser.dll PHPParser.dll PolyGlotParser.dll POParser.dll SciTEParser.dll \ - TMXParser.dll ToolTreeView.dll ToolListEdit.dll translator.exe + TMXParser.dll XLIFFParser.dll ToolTreeView.dll ToolListEdit.dll translator.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ @@ -65,4 +65,7 @@ ToolListEdit.dll: src\ToolListEdit\ToolListEdit.dpr $(DCC) +XLIFFParser.dll: src\XLIFFPlugin\XLIFFParser.dpr + $(DCC) + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <pe...@us...> - 2006-08-07 14:51:34
|
Revision: 84 Author: peter3 Date: 2006-08-07 07:51:21 -0700 (Mon, 07 Aug 2006) ViewCVS: http://svn.sourceforge.net/initranslator/?rev=84&view=rev Log Message: ----------- - fixed installer - only full install from now on - added ToolPropertiesView to project Modified Paths: -------------- translator/trunk/setup/setup.iss translator/trunk/setup/translator.fbp3 translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas translator/trunk/translator.bpg Modified: translator/trunk/setup/setup.iss =================================================================== --- translator/trunk/setup/setup.iss 2006-08-07 14:14:50 UTC (rev 83) +++ translator/trunk/setup/setup.iss 2006-08-07 14:51:21 UTC (rev 84) @@ -109,7 +109,7 @@ Filename: {userappdata}\IniTranslator\translator.ini; Section: External Tools; Key: 9; String: """View in Explorer (Translation)"",$(WinDir)\explorer.exe,""/e, /root,, /select, $(TransPath)"",,False,False,False,False"; Flags: createkeyifdoesntexist; Components: DEFAULT_TOOLS [UninstallDelete] -Name: {app}\*.*; Type: filesandordirs +Name: {app}; Type: filesandordirs Name: {userappdata}\IniTranslator; Type: filesandordirs Modified: translator/trunk/setup/translator.fbp3 =================================================================== --- translator/trunk/setup/translator.fbp3 2006-08-07 14:14:50 UTC (rev 83) +++ translator/trunk/setup/translator.fbp3 2006-08-07 14:51:21 UTC (rev 84) @@ -82,7 +82,7 @@ <Property MultiValue="0" name="Name" type="String">ROOTPATH</Property> <Property name="ParamType" type="TParamType">ptText</Property> <Property name="SelectAll" type="Boolean">False</Property> - <Property MultiValue="0" name="Value" type="String">F:\Program\Borland\Projects\Private\translator\trunk\</Property> + <Property MultiValue="0" name="Value" type="String">C:\Program\Borland\Projects\Private\translator\trunk\</Property> </Object> <Object Class="TPersistParam" XMLID="{5A6C5938-84D8-41C7-B96B-EBCF36D2A234}"><Property MultiValue="0" name="Caption" type="String">&amp;Source path:</Property> <Property MultiValue="0" name="DefaultValue" type="String">%ProgramFiles%\Borland\Projects\Private\translator\trunk\src\</Property> @@ -92,7 +92,7 @@ <Property MultiValue="0" name="Name" type="String">SRCPATH</Property> <Property name="ParamType" type="TParamType">ptText</Property> <Property name="SelectAll" type="Boolean">False</Property> - <Property MultiValue="0" name="Value" type="String">F:\Program\Borland\Projects\Private\translator\trunk\src\</Property> + <Property MultiValue="0" name="Value" type="String">C:\Program\Borland\Projects\Private\translator\trunk\src\</Property> </Object> <Object Class="TPersistParam" XMLID="{DFEE600A-4E9B-4319-8845-45CDC241BDE7}"><Property MultiValue="0" name="Caption" type="String">M&amp;ajor:</Property> <Property MultiValue="0" name="DefaultValue" type="String">1</Property> @@ -261,7 +261,7 @@ <Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property> </Object> <Object Class="TDelphiCompilerOptions" XMLID="{895A379C-E395-454B-B87A-13CBD635CD3F}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> - <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property> + <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property> <Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property> <Property name="Assertions" type="WordBool">True</Property> <Property name="AssignableConst" type="WordBool">False</Property> @@ -289,7 +289,7 @@ <Property name="IncludeRemoteSymbols" type="WordBool">False</Property> <Property name="IncludeTD32" type="WordBool">False</Property> <Property name="IOChecking" type="WordBool">True</Property> - <Property MultiValue="0" name="LibraryPath" type="WideString">$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(ADDONLIB)\JEDI\jcl\source;$(ADDONLIB)\JEDI\jcl\source\common;$(ADDONLIB)\JEDI\jcl\source\windows;$(ADDONLIB)\JEDI\jvcl\common;$(ADDONLIB)\JEDI\jvcl\resources;$(ADDONLIB)\JEDI\jvcl\run;$(ADDONLIB)\Others;$(ADDONLIB)\Utils;$(ADDONLIB)\SynEdit\Source;$(ADDONLIB)\VirtualShellTools\Source;$(ADDONLIB)\VirtualTreeview;$(ADDONLIB)\Unicode\TB2K\Source;$(ADDONLIB)\Unicode\TBX;$(ADDONLIB)\Unicode\TBX\Themes;$(ADDONLIB)\Unicode\TNT;$(ADDONLIB)\Unicode\SpTBXLib\Source;F:\Program\Borland\Addict3\Source</Property> + <Property MultiValue="0" name="LibraryPath" type="WideString">$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;F:\Program\Borland\Add\JEDI\JCL\source;F:\Program\Borland\Add\JEDI\dev\JVCL3\common;F:\Program\Borland\Add\JEDI\dev\JVCL3\run;F:\Program\Borland\Add\dunit\src;F:\Program\Borland\Add\Others;F:\Program\Borland\Add\Utils;F:\Program\Borland\Add\tntunicode</Property> <Property name="LinkerOutput" type="Integer">0</Property> <Property name="LocalSymbols" type="WordBool">True</Property> <Property name="Mapfile" type="Integer">3</Property> @@ -1453,18 +1453,18 @@ <Property name="VarStringChecks" type="WordBool">True</Property> </Object> </Object> - <Object Class="TDelphiCompilerAction" XMLID="{FAB2F48C-BF8A-40F5-9162-290FD5966616}"><Property MultiValue="0" name="ActionComment" type="String"></Property> - <Property MultiValue="0" name="ActionLogTitle" type="WideString">TMX DLL</Property> + <Object Class="TDelphiCompilerAction" XMLID="{F0626B19-5D52-45A0-9243-0392C5ABA6F4}"><Property MultiValue="0" name="ActionComment" type="String"></Property> + <Property MultiValue="0" name="ActionLogTitle" type="WideString">XLIFF DLL</Property> <Property MultiValue="0" name="ActionTypeID" type="String"></Property> <Property name="AllowImplicitImport" type="Boolean">True</Property> <Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> <Property name="AutoIncBuild" type="WordBool">False</Property> <Property name="AutoUpdateFileVersion" type="Boolean">True</Property> <Property name="BuildAll" type="WordBool">True</Property> - <Property name="BuildVersion" type="Integer">25</Property> + <Property name="BuildVersion" type="Integer">12</Property> <Property name="CodePage" type="Integer">1252</Property> <Property name="CompilerVersion" type="Integer">4</Property> - <Property MultiValue="0" name="Description" type="String">TMX DLL</Property> + <Property MultiValue="0" name="Description" type="String">XLIFF DLL</Property> <Property name="Enabled" type="WordBool">True</Property> <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property> <Property name="HintsAsError" type="Boolean">False</Property> @@ -1475,7 +1475,7 @@ <Property name="IsAction" type="Boolean">True</Property> <Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property> - <Property name="IsDLL" type="WordBool">True</Property> + <Property name="IsDLL" type="WordBool">False</Property> <Property name="IsPreRelease" type="WordBool">False</Property> <Property name="IsPrivate" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property> @@ -1486,33 +1486,33 @@ <Property name="MinorVersion" type="Integer">9</Property> <Property name="NodeCollapsed" type="Boolean">False</Property> <Property name="PauseInterval" type="Cardinal">0</Property> - <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%TMXPlugin\TMXParser.dpr</Property> + <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%XLIFFPlugin\XLIFFParser.dpr</Property> <Property name="RegenerateResource" type="WordBool">True</Property> <Property name="ReleaseVersion" type="Integer">0</Property> <Property MultiValue="0" name="ResourceCompilerOptions" type="String"></Property> <Property MultiValue="0" name="ResourceCompilerPath" type="String"></Property> <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property> - <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%TMXPlugin\</Property> + <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%XLIFFPlugin\</Property> <Property name="SuppressStatusMessages" type="Boolean">False</Property> <Property name="UpdateDofFile" type="Boolean">False</Property> <Property name="UpdatePackageSource" type="Boolean">False</Property> <Property name="UseEurekaLogCompiler" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator -FileDescription=TMX Plugin for IniTranslator -FileVersion=1.9.0.25 -InternalName=TMXParser.dll +FileDescription=XLIFF Plugin for IniTranslator +FileVersion=1.9.0.12 +InternalName=XLIFFPlugin.dll LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved LegalTrademarks= -OriginalFilename=TMXParser.dll -ProductName=TMX Plugin for IniTranslator -ProductVersion=1.9.0.0 +OriginalFilename=XLIFFPlugin.dll +ProductName=XLIFF Plugin for IniTranslator +ProductVersion=1.9 Comments=Latest version at http://initranslator.sourceforge.net ]]> </Property> <Property name="WarningsAsError" type="Boolean">False</Property> <Property name="WorkAroundD5Bug" type="WordBool">False</Property> - <Object Class="TBuildScript" XMLID="{A4838CF0-531F-4CCC-BB2E-6C26B3B9403D}"><Property MultiValue="0" name="BreakPointsStore" type="String"></Property> + <Object Class="TBuildScript" XMLID="{D8F9F1DD-EE51-493A-839E-69C68B6E59B8}"><Property MultiValue="0" name="BreakPointsStore" type="String"></Property> <Property MultiValue="0" name="Name" type="String">BeforeAction</Property> <Property MultiValue="1" name="Script" type="String"><![CDATA[Action.MajorVersion = VERSION_MAJOR; Action.MinorVersion = VERSION_MINOR; @@ -1522,7 +1522,7 @@ </Property> <Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property> </Object> - <Object Class="TDelphiCompilerOptions" XMLID="{9A6548AF-7D1E-4C72-BA72-8DADDD920D20}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> + <Object Class="TDelphiCompilerOptions" XMLID="{41141F0F-1FB7-473F-A917-DDAFD8B12065}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property> <Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property> <Property name="Assertions" type="WordBool">True</Property> @@ -1535,7 +1535,7 @@ ]]> </Property> <Property MultiValue="0" name="Conditionals" type="WideString"></Property> - <Property name="ConsoleApp" type="WordBool">True</Property> + <Property name="ConsoleApp" type="WordBool">False</Property> <Property MultiValue="0" name="DCPOutputDir" type="WideString"></Property> <Property name="DebugInfo" type="WordBool">True</Property> <Property MultiValue="0" name="DefaultNamespace" type="String"></Property> @@ -1549,7 +1549,7 @@ <Property name="ImageBase" type="Cardinal">4194304</Property> <Property name="IncludeNamespaces" type="WordBool">False</Property> <Property name="IncludeRemoteSymbols" type="WordBool">False</Property> - <Property name="IncludeTD32" type="WordBool">True</Property> + <Property name="IncludeTD32" type="WordBool">False</Property> <Property name="IOChecking" type="WordBool">True</Property> <Property MultiValue="0" name="LibraryPath" type="WideString">$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;F:\Program\Borland\Add\JEDI\JCL\source;F:\Program\Borland\Add\JEDI\dev\JVCL3\common;F:\Program\Borland\Add\JEDI\dev\JVCL3\run;F:\Program\Borland\Add\dunit\src;F:\Program\Borland\Add\Others;F:\Program\Borland\Add\Utils;f:\program\borland\projects\work\eq plan\eq plan 2.0\eqplan</Property> <Property name="LinkerOutput" type="Integer">3</Property> @@ -1579,29 +1579,29 @@ <Property name="VarStringChecks" type="WordBool">True</Property> </Object> </Object> - <Object Class="TDelphiCompilerAction" XMLID="{2993B70E-FA21-42B5-B68A-CB9AD039F0A8}"><Property MultiValue="0" name="ActionComment" type="String"></Property> - <Property MultiValue="0" name="ActionLogTitle" type="WideString">XLIFF DLL</Property> + <Object Class="TDelphiCompilerAction" XMLID="{258CA685-557B-4FC8-8563-0574D074AC38}"><Property MultiValue="0" name="ActionComment" type="String"></Property> + <Property MultiValue="0" name="ActionLogTitle" type="WideString">TMX DLL</Property> <Property MultiValue="0" name="ActionTypeID" type="String"></Property> <Property name="AllowImplicitImport" type="Boolean">True</Property> <Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> <Property name="AutoIncBuild" type="WordBool">False</Property> <Property name="AutoUpdateFileVersion" type="Boolean">True</Property> <Property name="BuildAll" type="WordBool">True</Property> - <Property name="BuildVersion" type="Integer">25</Property> + <Property name="BuildVersion" type="Integer">0</Property> <Property name="CodePage" type="Integer">1252</Property> <Property name="CompilerVersion" type="Integer">4</Property> - <Property MultiValue="0" name="Description" type="String">XLIFF DLL</Property> + <Property MultiValue="0" name="Description" type="String">TMX DLL</Property> <Property name="Enabled" type="WordBool">True</Property> <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property> <Property name="HintsAsError" type="Boolean">False</Property> - <Property MultiValue="0" name="IconFile" type="WideString"></Property> + <Property MultiValue="0" name="IconFile" type="WideString">C:\Program\Borland\Projects\Private\translator\trunk\src\TMXPlugin\mainicon.ico</Property> <Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IncludeCompileDate" type="WordBool">True</Property> <Property name="IncludeVerInfo" type="WordBool">True</Property> <Property name="IsAction" type="Boolean">True</Property> <Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property> - <Property name="IsDLL" type="WordBool">False</Property> + <Property name="IsDLL" type="WordBool">True</Property> <Property name="IsPreRelease" type="WordBool">False</Property> <Property name="IsPrivate" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property> @@ -1609,36 +1609,36 @@ <Property name="Locale" type="Integer">1033</Property> <Property MultiValue="0" name="LogToVariable" type="String"></Property> <Property name="MajorVersion" type="Integer">1</Property> - <Property name="MinorVersion" type="Integer">9</Property> + <Property name="MinorVersion" type="Integer">7</Property> <Property name="NodeCollapsed" type="Boolean">False</Property> <Property name="PauseInterval" type="Cardinal">0</Property> - <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%XLIFFPlugin\XLIFFParser.dpr</Property> + <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%TMXPlugin\TMXParser.dpr</Property> <Property name="RegenerateResource" type="WordBool">True</Property> <Property name="ReleaseVersion" type="Integer">0</Property> <Property MultiValue="0" name="ResourceCompilerOptions" type="String"></Property> <Property MultiValue="0" name="ResourceCompilerPath" type="String"></Property> <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property> - <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%XLIFFPlugin\</Property> + <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%TMXPlugin\</Property> <Property name="SuppressStatusMessages" type="Boolean">False</Property> <Property name="UpdateDofFile" type="Boolean">False</Property> <Property name="UpdatePackageSource" type="Boolean">False</Property> <Property name="UseEurekaLogCompiler" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator -FileDescription=XLIFF Plugin for IniTranslator -FileVersion=1.9.0.25 -InternalName=XLIFFPlugin.dll +FileDescription=TMX Plugin for IniTranslator +FileVersion=1.7.0.0 +InternalName=TMXParser.dll LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved LegalTrademarks= -OriginalFilename=XLIFFPlugin.dll -ProductName=XLIFF Plugin for IniTranslator -ProductVersion=1.9 +OriginalFilename=TMXParser.dll +ProductName=TMX Plugin for IniTranslator +ProductVersion=1.9.0.0 Comments=Latest version at http://initranslator.sourceforge.net ]]> </Property> <Property name="WarningsAsError" type="Boolean">False</Property> <Property name="WorkAroundD5Bug" type="WordBool">False</Property> - <Object Class="TBuildScript" XMLID="{51A3E7DF-FFAF-4705-9D78-3EFE4B8A4905}"><Property MultiValue="0" name="BreakPointsStore" type="String"></Property> + <Object Class="TBuildScript" XMLID="{42F9BB1B-DB02-4A10-BD89-9579B5B18D67}"><Property MultiValue="0" name="BreakPointsStore" type="String"></Property> <Property MultiValue="0" name="Name" type="String">BeforeAction</Property> <Property MultiValue="1" name="Script" type="String"><![CDATA[Action.MajorVersion = VERSION_MAJOR; Action.MinorVersion = VERSION_MINOR; @@ -1648,7 +1648,7 @@ </Property> <Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property> </Object> - <Object Class="TDelphiCompilerOptions" XMLID="{7A0D506D-5D66-4215-8014-FF0C1785C389}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> + <Object Class="TDelphiCompilerOptions" XMLID="{292507DC-0925-403A-88B9-691F99776D43}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property> <Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property> <Property name="Assertions" type="WordBool">True</Property> @@ -1957,7 +1957,7 @@ <Property name="VarStringChecks" type="WordBool">True</Property> </Object> </Object> - <Object Class="TDelphiCompilerAction" XMLID="{8983B7F1-D5A6-430E-981F-4EC0EC2FEFF8}"><Property MultiValue="0" name="ActionComment" type="String"></Property> + <Object Class="TDelphiCompilerAction" XMLID="{4AED673C-240D-4230-B1E7-5326F6436CF3}"><Property MultiValue="0" name="ActionComment" type="String"></Property> <Property MultiValue="0" name="ActionLogTitle" type="WideString">ToolPropertiesView DLL</Property> <Property MultiValue="0" name="ActionTypeID" type="String"></Property> <Property name="AllowImplicitImport" type="Boolean">True</Property> @@ -1965,7 +1965,7 @@ <Property name="AutoIncBuild" type="WordBool">True</Property> <Property name="AutoUpdateFileVersion" type="Boolean">True</Property> <Property name="BuildAll" type="WordBool">True</Property> - <Property name="BuildVersion" type="Integer">26</Property> + <Property name="BuildVersion" type="Integer">0</Property> <Property name="CodePage" type="Integer">1252</Property> <Property name="CompilerVersion" type="Integer">4</Property> <Property MultiValue="0" name="Description" type="String">ToolPropertiesView DLL</Property> @@ -1996,7 +1996,7 @@ <Property MultiValue="0" name="ResourceCompilerOptions" type="String"></Property> <Property MultiValue="0" name="ResourceCompilerPath" type="String"></Property> <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property> - <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%ToolPropertiesView\</Property> + <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%ToolPropertiesView</Property> <Property name="SuppressStatusMessages" type="Boolean">False</Property> <Property name="UpdateDofFile" type="Boolean">False</Property> <Property name="UpdatePackageSource" type="Boolean">False</Property> @@ -2004,7 +2004,7 @@ <Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator FileDescription=Tool Property Viewer Plugin for IniTranslator -FileVersion=1.9.0.26 +FileVersion=1.9.0.0 InternalName=ToolPropertiesView.dll LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved LegalTrademarks= @@ -2016,7 +2016,7 @@ </Property> <Property name="WarningsAsError" type="Boolean">False</Property> <Property name="WorkAroundD5Bug" type="WordBool">False</Property> - <Object Class="TBuildScript" XMLID="{DF031062-9CCE-4AC4-BFE0-2BF21B0A5F16}"><Property MultiValue="0" name="BreakPointsStore" type="String"></Property> + <Object Class="TBuildScript" XMLID="{9413406B-563B-4CE2-8745-18719231859E}"><Property MultiValue="0" name="BreakPointsStore" type="String"></Property> <Property MultiValue="0" name="Name" type="String">BeforeAction</Property> <Property MultiValue="1" name="Script" type="String"><![CDATA[Action.MajorVersion = VERSION_MAJOR; Action.MinorVersion = VERSION_MINOR; @@ -2026,7 +2026,7 @@ </Property> <Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property> </Object> - <Object Class="TDelphiCompilerOptions" XMLID="{9ADD3E3F-AEF3-4FC1-801D-7CE7894657A0}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> + <Object Class="TDelphiCompilerOptions" XMLID="{A04D8519-C0FE-46FF-A2FD-DC7F7E09B69E}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property> <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property> <Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property> <Property name="Assertions" type="WordBool">True</Property> @@ -2592,7 +2592,7 @@ <Property MultiValue="0" name="Name" type="String">VERSION_RELEASE</Property> <Property name="VariableType" type="TFBVariableType">vtProject</Property> </Object> - <Object Class="TFBVariable" XMLID="{2C0ECC00-A68D-45F6-9BBA-67E2C178ACCA}"><Property MultiValue="0" name="DefaultValue" type="String">7</Property> + <Object Class="TFBVariable" XMLID="{2C0ECC00-A68D-45F6-9BBA-67E2C178ACCA}"><Property MultiValue="0" name="DefaultValue" type="String">25</Property> <Property name="IsMacro" type="Boolean">False</Property> <Property name="MakeEnv" type="Boolean">False</Property> <Property MultiValue="0" name="Name" type="String">VERSION_BUILD</Property> Modified: translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas =================================================================== --- translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas 2006-08-07 14:14:50 UTC (rev 83) +++ translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas 2006-08-07 14:51:21 UTC (rev 84) @@ -26,8 +26,7 @@ TXLIFFParser = class(TInterfacedObject, IInterface, IFileParser) private FOldAppHandle: Cardinal; - FFilename:string; - // FOrigLang, FTransLang: string; + FFilename: string; procedure LoadSettings; procedure SaveSettings; protected @@ -46,7 +45,7 @@ { limitations: * does not handle "alt-trans" tags (and it shouldn't) - * always chooses the first source and the first target in each trans-unit (there should rellay only be one of each) even if there are more + * always chooses the first source and the first target in each trans-unit (there should really only be one of each) even if there are more * does not work with MSXML 4.0 (getelementsbyTagName always returns empty lists for default NS) } @@ -65,7 +64,7 @@ XML: WideString = ''; const cTranslationItem: WideString = '%%%%%%%%T%d%%%%%%%%'; - cOriginalItem: WideString = '%%%%%%%%O%d%%%%%%%%'; + cOriginalItem: WideString = '%%%%%%%%O%d%%%%%%%%'; { TXLIFFParser } @@ -106,7 +105,7 @@ function TXLIFFParser.ExportItems(const Items, Orphans: ITranslationItems): HRESULT; var Strings: TTntStringlist; - function WrapTags(const T:ITranslationItem; IsOriginal:boolean):WideString; + function WrapTags(const T: ITranslationItem; IsOriginal: boolean): WideString; begin if IsOriginal then Result := WideFormat('%s%s</source>',[T.PreData, T.Original]) @@ -212,7 +211,7 @@ Items.Clear; Orphans.Clear; LoadSettings; - if TfrmImport.Execute(FFilename, {FOrigLang, FTransLang, }cXLIFFImportTitle, cXLIFFFilter, '.', '.xlf') then + if TfrmImport.Execute(FFilename, cXLIFFImportTitle, cXLIFFFilter, '.', '.xlf') then begin SaveSettings; FXMLImport := LoadXMLDocument(FFilename); @@ -290,8 +289,6 @@ with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do try FFilename := ReadString('Settings', 'Filename', FFilename); -// FOrigLang := ReadString('Settings', 'OrigLang', FOrigLang); -// FTransLang := ReadString('Settings', 'TransLang', FTransLang); finally Free; end; @@ -302,8 +299,6 @@ with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do try WriteString('Settings', 'Filename', FFilename); -// WriteString('Settings', 'OrigLang', FOrigLang); -// WriteString('Settings', 'TransLang', FTransLang); finally Free; end; Modified: translator/trunk/translator.bpg =================================================================== --- translator/trunk/translator.bpg 2006-08-07 14:14:50 UTC (rev 83) +++ translator/trunk/translator.bpg 2006-08-07 14:51:21 UTC (rev 84) @@ -12,7 +12,8 @@ PROJECTS = IBForumsParser.dll MozillaDTDParser.dll MozillaPropsParser.dll \ MSDictBuild.exe MSDictParser.dll OlegParser.dll OOGSIParser.dll \ PHPNukeParser.dll PHPParser.dll PolyGlotParser.dll POParser.dll SciTEParser.dll \ - TMXParser.dll XLIFFParser.dll ToolTreeView.dll ToolListEdit.dll translator.exe + TMXParser.dll XLIFFParser.dll ToolTreeView.dll ToolListEdit.dll \ + ToolPropertiesView.dll translator.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ @@ -68,4 +69,7 @@ XLIFFParser.dll: src\XLIFFPlugin\XLIFFParser.dpr $(DCC) +ToolPropertiesView.dll: src\ToolPropertiesView\ToolPropertiesView.dpr + $(DCC) + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <pe...@us...> - 2006-08-16 12:38:50
|
Revision: 86 Author: peter3 Date: 2006-08-16 05:38:31 -0700 (Wed, 16 Aug 2006) ViewCVS: http://svn.sourceforge.net/initranslator/?rev=86&view=rev Log Message: ----------- - New DefaultTranslation and DefaultIndex for TDictionaryItem so users can specify which translation they prefer if the item has more than one DictTranslationSelectDlg: - New option to skip the dialog for the rest of the session DictEditFrm: - New options for "Show" Misc: - New options: DefaultTransEncoding and DefaultOrigEncoding for use with new files (translations only at the moment). No UI yet, but they are there functionally - New Czech.lng (Unicode) 1.9.0.13 from Svatopluk Vit Modified Paths: -------------- translator/trunk/Changelog.txt translator/trunk/dictionaries/en_se.dct translator/trunk/languages/Czech.lng translator/trunk/languages/Svenska.lng translator/trunk/src/AppOptions.pas translator/trunk/src/DictEditFrm.dfm translator/trunk/src/DictEditFrm.pas translator/trunk/src/DictTranslationSelectDlg.dfm translator/trunk/src/DictTranslationSelectDlg.pas translator/trunk/src/Dictionary.pas translator/trunk/src/MainFrm.pas Modified: translator/trunk/Changelog.txt =================================================================== --- translator/trunk/Changelog.txt 2006-08-10 06:30:19 UTC (rev 85) +++ translator/trunk/Changelog.txt 2006-08-16 12:38:31 UTC (rev 86) @@ -1,5 +1,18 @@ Ini Translator Changelog ======================== +2006-08-16: +- New DefaultTranslation and DefaultIndex for TDictionaryItem so users can specify which translation they prefer if the item has more than one + +DictTranslationSelectDlg: +- New option to skip the dialog for the rest of the session + +DictEditFrm: +- New options for "Show" + +Misc: +- New options: DefaultTransEncoding and DefaultOrigEncoding for use with new files (translations only at the moment). No UI yet, but they are there functionally +- New Czech.lng from Svatopluk Vit + 2006-07-28: - Released version 1.9.0.13 on SourceForge Modified: translator/trunk/dictionaries/en_se.dct =================================================================== (Binary files differ) Modified: translator/trunk/languages/Czech.lng =================================================================== --- translator/trunk/languages/Czech.lng 2006-08-10 06:30:19 UTC (rev 85) +++ translator/trunk/languages/Czech.lng 2006-08-16 12:38:31 UTC (rev 86) @@ -1,461 +1,559 @@ -[SpellChecker] -Spelling=Kontrola pravopisu -Not Found:=Nenalezeno -&Replace With:=Nah&radit: -&Suggestions:=&Návrhy: -&Undo=&Zpìt -&Options...=&Možnosti -&Ignore All=Pøeskoè&it vše -I&gnore=&Pøeskoèit -&Change All=Zamì&nit vše -C&hange=Za&mìnit -&Add=Pøid&at -Au&to-Correct=&Autom. opravy -&Help=Nápo&vìda -Cancel=Storno -Spelling Options=Možnosti kontroly pravopisu -O&ptions:= &Možnosti: -D&ictionaries:= S&lovníky: -Name=Název -Filename=Název souboru -&Custom Dictionary:=&Vlastní slovník -&Dictionaries ...=&Slovníky ... -Reset Defaults=Nastav výchozí -&OK=&OK -Locate Dictionaries...=Najít slovníky ... -Ignore words in &UPPERCASE=Pøeskakovat slova s VELKÝM&I PÍSMENY -Ignore words containing numbers=Pøeskakovat slova s èíslicemi -Ignore Internet addresses=Ignorovat adresy Internetu -Suggest from main dictionaries only=Návrhy pouze z hlavních slovníkù -Prompt on repeated word=Dotázat se pøi opakujícím se slovì -Automatically correct DUal capitals=Autom. opravovat slova se zdvojenými VElkými písmeny -Choose Folder Containing Dictionaries=Zvolte složku obsahující slovníky -Dictionaries=Slovníky -Custom Dictionaries:= Vlastní slovníky: -&Edit=&Upravit -&Delete=O&dstranit -&New=&Nový -Add&ed Words= -These words will be considered correct during a spell check operation.= -&Ignore this word:= -A&uto-Correct Pairs= -These words will automatically be corrected when encountered during a spelling check.= -&Replace:= -&With:= -&Excluded Words= -These words will always be considered incorrect during a spell check operation.= -E&xclude this word:= -(Ignore All / Change All)= -Words added with Ignore All / Change All= -(no suggestions)= -New Custom Dictionary=Nový vlastní slovník -&Enter the new custom dictionary name:=&Zadejte název nového slovníku: -Confirmation:=Potvrzení: -Delete this custom dictionary?=Pøejete si odstranit tento vlastní slovník? -The spelling check is complete.= -[TfrmMain] -Ini Translator=Ini Translator -Menu=Menu -More Buttons|Click to see more buttons=Další tlaèítka|Klepnìtì pro zobrazení dalších tlaèítek -&File=&Soubor -Open Original...=Otevøít Originál... -Open original and translation file=Otevøít soubor originálu a pøekladu -Save Original= -Save current original file= -Save Original As...=Uložit Originál jako... -Save current original file with a new filename= -New Translation=Nový Pøeklad -Create new translation=Vytvoøit nový pøeklad -Open Translation...=Otevøít Pøeklad... -Open existing translation file=Otevøít existující soubor pøekladu -Save Translation=Uložit Pøeklad -Save current translation file=Uloží aktuální soubor pøekladu -Save Translation As...=Uložit Pøeklad jako... -Save current translation with a new filename=Uložit aktuální soubor pøekladu pod novým jménem -Import...=Import... -Import from an external file or files= -Export...=Export... -Export to an external file or files= -Preferences...=Nastavení programu... -Display the settings dialog= -Reopen=Znovu otevøít -Clear=Vyèistit -Clear the MRU list= -Remove Invalid=Smazat neplatné -Remove invalid entries from the MRU list= -Exit=Ukonèit -Exit application=Ukonèit program -&Edit=Úpr&avy -Undo=Zpìt -Undo last edit=Vzít zpìt poslední akci -Cut=Vyjmout -Cut selected text=Vyjmout vybraný text -Copy=Kopírovat -Copy selected text=Kopírovat vybraný text -Copy from Original=Kopírovat z originálu -Copy the value of Original to Translation=Kopírovat text z položky originálu -Copy from Name=Kopírovat z názvu -Copy the value of Name to Translation= -Paste=Vložit -Paste from clipboard=Vložit ze schránky -Find...=Najít... -Search for text=Najít text -Find Next=Najít další -Continue searching= -Replace...=Nahradit... -Replace text=Nahradit text -Toggle Focus=Pøepnout seznam-okno -Toggle focus between list and translation=Pøepnout mezi seznamem a pøekladem -&Actions=A&kce -Spelling...=Kontrola pravopisu... -Spell check the translations= -Previous=Pøedchozí -Go to previous item in list=Jít na pøedchozí položku v seznamu -Next=Další -Go to next item in list=Jít na další položku v seznamu -Prev untranslated=Pøedchozí nepøeložená -Go to previous untranslated item=Jít na pøedchozí nepøeloženou položku -Next untranslated=Další nepøeložená -Go to next untranslated item=Jít na další nepøeloženou položku -Font...=Písmo... -Change application font=Zmìnit písmo programu -Restore original sort=Obnovit pùvodní tøídìní -Toggle Bookmark=Aktivovat záložku -Bookmark 0=Záložka 0 -Bookmark 1=Záložka 1 -Bookmark 2=Záložka 2 -Bookmark 3=Záložka 3 -Bookmark 4=Záložka 4 -Bookmark 5=Záložka 5 -Bookmark 6=Záložka 6 -Bookmark 7=Záložka 7 -Bookmark 8=Záložka 8 -Bookmark 9=Záložka 9 -Goto Bookmark=Jít na záložku -Configure Keyboard...=Nastavení klávesnice... -Display the keyboard configuration window= -&View=&Zobrazit -Next unmatched shortcut=Další neodpovídající kláv. zkratka -Find next translated item that is missing a shortcut key present in the original= -Next suspicious translation=Další podezøelý pøeklad -Move to next item that is suspected not being translated correctly= -Show Quotes=Zobrazit uvozovky -Show quotes in texts=Zobrazit uvozovky v textech -Show Key Details=Zobrazit podrobnosti o klávese -Display the details pane= -View Comments=Zobrazit komentáøe -Toggle the comments window= -View Orphaned Items=Zobrazit samostatné položky -Display orphans (items in translation that are not in the original)= -Tools=Nástroje -Full Screen=Celá obrazovka -Toggle full screen mode= -&Dictionary=S&lovník -New Dictionary...=Nový slovník... -Create new dictionary=Vytvoøit nový slovník -Load Dictionary...=Naèíst slovník... -Load existing dictionary=Naèíst existující slovník -Save Dictionary...=Uložit slovník... -Save current dictionary to file=Ukoží aktuální slovník do souboru -Translate using Dictionary=Pøeložit pomocí slovníku -Translate using the dictionary=Pøeložit pomocí slovníku -Add to Dictionary=Pøidat do slovníku -Add current item to the dictionary= -Invert Dictionary=Zamìnit slovník -Invert the dictionary=Zamìnit slovník -T&ools=&Nástroje -Customize...=Vlastní... -Display the tools window= -&Help=Nápo&vìda -Help=Nápovìda -Show help file=Zobazit soubor nápovìdy -About...=O programu... -Show about box=Zobrazit dialog s informacemi o programu -Themes=Témata -Shows available themes=Zobrazí dostupná témata -Dream= -Aluminum\r\nAthen\r\nDefault\r\nDefaultXP\r\nDream\r\nEos\r\nMonai\r\nMonaiXP\r\nNewOffice\r\nNewOfficeAdaptive\r\nNexos2\r\nNexos3\r\nNexos4\r\nNexos5\r\nNexosX\r\nOffice11Adaptive\r\nOffice11XP\r\nOfficeC\r\nOfficeK\r\nOfficeXP\r\nRelifer\r\nRoma\r\nSentimoX\r\nStripes\r\nTristan\r\nTristan2\r\nWhidbey\r\nXito\r\nZezio\r\n= -pnlBack= -&Translation:=&Pøeklad: -Ori&ginal:=Ori&ginál: -#= -Dictionary files|*.dct;*.cat|All files|*.*=Soubory slovníku|*.dct;*.cat|Všechny soubory|*.* -Save Dictionary File=Uložit soubor slovníku -Open Dictionary File=Otevøít soubor slovníku -Use this translation everywhere=Použít tento pøeklad pro všechny pøípady -Select All=Vybrat vše -Select all text=Vybrat celý text -ASCII Value(s)...=ASCII hodnota(y)... -Show the ASCII values for the selected text= -Dictionary=Slovník -Clear All Translations=Vyèistit všechny pøeklady -Clear the translated text= -Translated=Pøeloženo -Toggle the Translated status of the item= -Add Item...= -Add new item to original and translation= -Edit Item...= -Edit all parts of the current item= -Delete Item...= -Delete the current item from both original and translation= -Find/Replace=Najít/Nahradit -Original\r\nTranslation\r\nBoth\r\n= originálu\r\n pøekladu\r\n obojím\r\n -Fi&nd what:=&Najít: -Re&place with:=Nah&radit: -Find &in:=Hledat &v: -Text must match the entire line=Text musí odpovídat celému øádku -Match &line=Porovnat øá&dek -Case of letters (UPPER/lower) must match=Velikost písmen (VELKÁ/malá) musí být stejná -Match &case=Porovnat velikost &písmen -Find next occurence of the text=Najít další výskyt textu -&Find Next=&Najít další -Close this dialog=Zavøít tento dialog -Close=Zavøít -Search upwards in the list=Hledat v horní èásti seznamu -Search &up=Hledat nahor&u -Select the field(s) to search in=Zvolte pole pro vyhledávání -Replace one item/show replace options=Nahrait jednu položku/zobrazit možnosti nahrazení -&Replace=Nah&radit -Replace all occurences of the text=Nahradí všechny výskyty textu -Replace &All=Nahradit vš&e -Skip any control characters (non-alphanumeric) when searching=Pøeskoèí øídící znaky (neèíselné a nepísmené) pøi vyhledávání -Ignore control c&haracters=Ignorovat øídící &znaky -Language files|*.lng|Inno Setup files|*.isl|Ini files|*.ini;*.inf|Text files|*.txt:*.inc;*.bat;*.doc|All supported files|*.lng;*.isl;*.ini;*.inf;*.txt;*.inc;*.bat;*.doc|All files |*.*=Jazykové soubory|*.lng|Soubory Inno Setup|*.isl|Ini soubory|*.ini;*.inf|Textové soubory|*.txt:*.inc;*.bat;*.doc|Všechny podporované soubory|*.lng;*.isl;*.ini;*.inf;*.txt;*.inc;*.bat;*.doc|Všechny soubory |*.* -Open Original Language File=Otevøít originál jazykového souboru -ANSI\r\nUTF-8\r\nUnicode\r\n=ANSI\r\nUTF-8\r\nUnicode\r\n -&Encoding:=&Kódování: -Open Translated Language File=Otevøít pøeklad jazykového souboru -Save Translated Language File As=Uložit pøeklad jazykového souboru jako -Save Original Language File As=Uložit originál jazykového souboru jako -Original=Originál -Translation=Pøeklad -%s, version %s: Copyright (c) 2003-2004 by Peter Thörnqvist; all rights reserved\n\nToolbars courtesy of Toolbar2000.\n\tFor more information, see http://www.jrsoftware.org.\nEnhanced toolbars courtesy of TBX.\n\tFor more information, see http://g32.org.\nExtra themes for TBX courtesy of Roy Magne Klever.\n\tFor more information, see http://www.rmklever.com.\nUnicode controls courtesy of Troy Wolbrink's TNT controls.\n\tFor more information, see http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm.\nSpell checker kindly donated by Addictive Software.\n\tFor more info and additional dictionaries, see http://www.addictivesoftware.com\n\nThis program is released subject to the MPL 1.1 license (http://www.mozilla.org/MPL/MPL-1.1.html for details)\nand come with absolutely no warranty of any kind.=%s, verze %s: Copyright (c) 2003-2004 by Peter Thörnqvist; all rights reserved\n\nToolbars courtesy of Toolbar2000.\n\tFor more information, see http://www.jrsoftware.org.\nEnhanced toolbars courtesy of TBX.\n\tFor more information, see http://g32.org.\nExtra themes for TBX courtesy of Roy Magne Klever.\n\tFor more information, see http://www.rmklever.com.\nUnicode controls courtesy of Troy Wolbrink's TNT controls.\n\tFor more information, see http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm.\nSpell checker kindly donated by Addictive Software.\n\tFor more info and additional dictionaries, see http://www.addictivesoftware.com\n\nTranslate to Czech language: Geralt (jos...@id...)\n\tTranslator's HomePage: http://geralt.cestiny.cz\n\nThis program is released subject to the MPL 1.1 license (http://www.mozilla.org/MPL/MPL-1.1.html for details)\nand come with absolutely no warranty of any kind. -About %s...=O programu %s... -The translation file has been modified, do you want to save it?=Soubor pøekladu byl upraven, pøejete si jej uložit? -Original (%s)=Originál (%s) -Translation (%s)=Pøeklad (%s) -The text "%s" could not be found=Text "%s" nebyl nalezen -Find=Najít -Modified=Upraveno -Ready=Pøipraven -Information=Informace -Confirm=Potvrzení -Error=Chyba -Dictionary is empty: create or load a dictionary first!=Slovník je prázdný: vytvoøte nebo naètìte slovník! -Dictionary created and ready for use.=Slovník byl vytvoøen a je pøipraven pro použití. -Clear current dictionary items first?=Pøejete si vyèistit položky aktuálního slovníku? -Unable to locate the help file (%s). Make sure the file exists and try again.=Nelze nalézt soubor nápovìdy (%s). Ujistìte se, že soubor existuje a zkuste to znovu. -inverted=zamìnìno -File "%s" not found: make sure the file exists and try again=Soubor "%s" nebyl nalezen: ujistìte se, že existuje a zkuste to znovu -This function is not yet implemented=Tato funkce ještì není dokonèena -"%s" has been changed outside the program, do you want to reload it?="%s" vyl upraven jiným programem, pøejete si jej znovu naèíst? -%d items=%d položek -Save Translation Template=Uložit šablonu pøekladu -The language will not be changed until you restart the program=Jazyk nebude zmìnìn dokud nerestartujete program -Delete selected item?=Odstranit vybranou položku? -[%0:s] - %1:s=[%0:s] - %1:s -(no dictionary)=(žádný slovník) -Decoded characters=Kódovací znaky -ASCII Value(s):=ASCII hodnota(y): -lng=lng -ANSI=ANSI -UTF-8=UTF-8 -Unicode=Unicode -%0:d of %1:d translated=%0:d z %1:d pøeloženo -Copy to Clipboard?=Kopírovat do schránky? -(not assigned)=(nepøiøazeno) -Assigned to:=Pøiøazeno k: -(none)=(žádný) -Import=Import -Available &plugins:=Dostupné &pluginy: -&Import=&Import -Export=Export -&Export=&Export -There are no plugins to show.=Žádné dostupné pluginy pro zobrazení. -Plugin Error=Chyba pluginu -Save modifications to the dictionary?=Uložit úpravy do slovníku? -Arguments:=Argumenty: -Failed to execute "%s %s": %s=Spouštìní zrušeno "%s %s": %s -(New Tool %d)=[Nový nástroj %d] -Could not create file "%s".\r\nPlease check that you have sufficient permissions to create and modify files in the affected folder.=Nelze vytvoøit soubor "%s".\r\nOvìète si prosím zda máte dostateèná práva pro tvorbu a úpravu souborù v dané složce. -Confirm Delete= -Edit Item= -Add Item= -Section cannot be empty= -Name cannot be empty= -Original text cannot be empty= -An item with the specified Section and Name already exists= -File=Soubor -Edit=Upravit -Copy all text from original file to translation=Kopírovat všechen text ze souboru originálu do pøekladu -View=Zobrazit -Actions=Akce -Set foucs to the translation edit field= -St focus to the listview= -Set focus to the original edit field= -Create a new translation template file for IniTranslator itself= -MRU=MRU -Move to the top of the list= -Move to the bottom of the list= -Move one page up in the list= -Move one page down in the list= -This action is just here to disable shortcuts in rich edits (no need to translate this text)=Tato akce je zde pro vypnutí klávesových zkratek u více úprav (není nutné pøekládat tento text) -Test the exception handler= -[TfrmFindReplace] -Find/Replace=Najít/Nahradit -[TfrmComments] -Comments=Komentáøe -&Translation:=&Pøeklad: -&Original:=&Originál: -&Undo=&Zpìt -Undo|Reverts the last action=Zpìt|Vezmì zpìt poslední akci --=- -Cu&t=&Vyjmout -Cut|Cuts the selection and puts it on the Clipboard=Vyjmout|Vyjme výbìr a vloží jej do schránky -&Copy=&Kopírovat -Copy|Copies the selection and puts it on the Clipboard=Kopírovat|Zkopíruje výbìr a vloží jej do schránky -&Paste=V&ložit -Paste|Inserts Clipboard contents=Vložit|Vlloží obsah schránky -Select &All=Vybrat &vše -Select All|Selects the entire document=Vybrat vše|Vybere celý dokument -[TfrmOptions] -Preferences=Nastavení programu -&Language:=&Jazyk: -&Help:=Nápo&vìda: -OK=OK -Cancel=Storno -Enclose strings in quote characters when editing them=Ohranièí upravovaný øetìzec do uvozovek -Show "es=Zobrazit u&vozovky -Switch order of the items in the dictionary=Zmìní poøadí položek ve slovníku -In&vert dictionary=Pøe&vrátit slovník -Select a new font for the list and edit fields=Nastavení nového písma pro seznam a editaèní pole -&Font...=&Písmo... -Show the details panel in the main window=Zobrazí v hlavním oknì panel podrobností -Sho&w details=Zobrazi&t podrobnosti -Show tooltips windows=Zobrazí okno s tipy pro nástroje -Show &tooltips:=Zobrazit t&ipy: -Show shortcuts in tooltips windows=Zobrazí v oknì s tipy klavesové zkratky -Show short&cuts in tooltips=Zobrazit v tipech kláv. &zkratky -Save the current edits when pressing RETURN=Uloží aktuální úpravu pøi stisku ENTERu -Press &RETURN to confirm translation:=Stiknout &ENTER pro potvrzení pøekladu: -Move to the next item when pressing RETURN (press Shift+RETURN to move to the previous item)=Pøesune se na další položku pøi stisku ENTERu (pro pøesun na pøedchozí položku stisknìte Shift+ENTER) -A&utomatically move to next/previous=A&utom. pøesunout na další/pøedchozí -...=... -Remember location of main window=Uloží umístìní hlavního okna -Remember form &position:=Uložit umístìní &okna: -Remember whether main window was minimized /maximized=Uloží zda bylo hlavní okno minimalizováno /maximalizováno -Remember form min/ma&x state=Uložit stav velikosti okna (min/ma&x) -When a file is opened, set the new folder as the start folder for all file open and save dialogs=Pøi otevøení souboru nastaví novou složku jako hlavní složku pro všechny dialogy otevøení a uložení -Use sa&me start folder for all files=Použít stej&nou složku pro všechny soubory -Continually check whether the currently loaded files are being modified outside the program=Nepøetržeitì kontroluje zda není aktuálnì naètený soubor upraven jiným programem -Monitor external file &changes=Kontrolovat soubor na externí z&mìny -When translating with the dictionary, strip out any &'s in the original text before comparing=Pøi pøekládání pomocí slovníku odstraní v originálním souboru pøed porovnáváním znaky & -I&gnore &&'s in dictionaries=I&gnorovat ve slovníku znaky && -Enable to show the full path and filename of the loaded files in the listview's columns header=Aktivuje zobrazení úplné cesty k naètenému souboru v záhlaví seznamu -Sh&ow full filename in list columns=Z&obrazit úplnou cestu v záhlaví seznamu -When a translation is made, copies the translation to all other matching items automatically=Pøi pøekladání zkopíruje pøekloženou položku i ke všem ostatním totožným položkám -Use translation ever&ywhere=Použít pøeklad pro všechn&y pøípady -When activated, typing in the listview will automatically move focus to the translation edit field.=Pokud se nacházíte v seznamu a zaènete psát tak se kurzor automaticky umístí do editaèního pole pøekladu. -Autofo&cus translation when typing=Pøi psaní automati&ky pøekládat -[TfrmOrphans] -Orphaned Items=Osamocené položky -Copy=Kopírovat -[TfrmConfigKbd] -Configure Keyboard=Nastavení klávesnice -Cate&gories:=Kate&gorie: -Co&mmands:=&Pøíkazy: -&New shortcut:=&Nová kláv. zkratka: -&Current shortcuts:=A&ktuální kláv. zkratka: -Select command:=Zvolte pøíkaz: -Select shortcut:=Zvolte kláv. zkratku: -Description:=Popis: -&Add=Pøid&at -&Remove=Odst&ranit -R&eset=R&eset -&Close=&Zavøít -[TfrmImportExport] -Import/Export=Import/Export -OK=OK -Close=Zavøít -Configure...=Nastavení... -(there is nothing to show in this view)=(nic dostupného k zobrazení) -[TfrmTools] -External Tools=Externí nástroje -Me&nu Contents:=Obsah me&nu: -OK=OK -Cancel=Storno -&Add=Pøid&at -&Delete=O&dstranit -Move &Up=Nahor&u -Move Do&wn=Do&lù -&Title:=&Název: -&Command:=&Pøíkaz: -A&rguments:=A&rgumenty: -&Initial Directory:=&Inicializaèní adresáø: -Shortcut &Key:=&Kláv. zkratka: -&...=&... -&Prompt for arguments=Oèekáva&t argumenty -Wait for co&mpletion=Èekat na doko&nèení -Use Shell E&xecute=Použít pro spuštìní &shell -C&lear=&Vyèistit -&Test=&Test -All Executables (*.exe;*.com;*.pif;*.bat;*.cmd)|*.exe;*.com;*.pif;*.bat;*.cmd|All files (*.*)|*.*=Všechny spustitelné soubory (*.exe;*.com;*.pif;*.bat;*.cmd)|*.exe;*.com;*.pif;*.bat;*.cmd|Všechny soubory (*.*)|*.* -Original Line=Øádek originálu -Original Text=Text originálu -Original Path=Cesta originálu -Original Directory=Adresáø originálu -Original Name=Název originálu -Original Extension=Pøípona originálu -Translation Line=Øádek pøekladu -Translation Text=Text pøekladu -Translation Path=Cesta pøekladu -Translation Directory=Adresáø pøekladu -Translation Name=Název pøekladu -Translation Extension=Pøípona pøekladu -Dictionary Path=Cesta slovníku -Dictionary Directory=Adresáø slovníku -Dictionary Name=Název slovníku -Dictionary Extension=Pøípona slovníku -Application Directory=Adresáø programu -Windows Directory=Adresáø Windows -System Directory=Systémový adresáø -[TfrmPromptArgs] -Title=Název -Arguments:=Argumenty: -Command Line:=Pøíkazový øádek: -Cancel=Storno -OK=OK -Original Line=Øádek originálu -Original Text=Text originálu -Original Path=Cesta originálu -Original Directory=Adresáø originálu -Original Name=Název originálu -Original Extension=Pøípona originálu -Translation Line=Øádek pøekladu -Translation Text=Text pøekladu -Translation Path=Cesta pøekladu -Translation Directory=Adresáø pøekladu -Translation Name=Název pøekladu -Translation Extension=Pøípona pøekladu -Dictionary Path=Cesta slovníku -Dictionary Directory=Adresáø slovníku -Dictionary Name=Název slovníku -Dictionary Extension=Pøípona slovníku -Application Directory=Adresáø programu -Windows Directory=Adresáø Windows -System Directory=Systémový adresáø -[TfrmEditItem] -Edit Item= -&Section:= -&Original:= -&Translation:= -&Name:= -&OK= -Cancel= -Ori&ginal Comment= -T&ranslation Comment= -[Translator] -Author=Ini Translator -Language=Výchozí -EMail=(žádný) -Version=1.8 +\xFF\xFE[ |
|
From: <pe...@us...> - 2006-09-10 16:37:50
|
Revision: 94
http://svn.sourceforge.net/initranslator/?rev=94&view=rev
Author: peter3
Date: 2006-09-10 09:37:34 -0700 (Sun, 10 Sep 2006)
Log Message:
-----------
- Beginning of implementation of IApplication
- Support added for a INotify interface
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/src/AppOptions.pas
translator/trunk/src/CommonUtils.pas
translator/trunk/src/MainFrm.pas
translator/trunk/src/TransIntf.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-08-21 19:42:11 UTC (rev 93)
+++ translator/trunk/Changelog.txt 2006-09-10 16:37:34 UTC (rev 94)
@@ -2,9 +2,9 @@
========================
2006-08-17:
- Added support for Headers and Footers
-- UI for setting default encoding for new files (OPtionsFrm)
+- UI for setting default encoding for new files (OptionsFrm)
- New interfaces for accessing Dictionary (TransIntf)
-- Renamed DLL entry point (TRansIntf)
+- Renamed DLL entry point (TransIntf)
- Updated docs
- Header and Footer added
- Rearranged items in OptionsFrm
@@ -55,7 +55,7 @@
2006-07-27:
- The colors of untranslated items and even and odd rows can now be configured by the user
-- ToolListEdit: new tool plugin that displays an alternate type of list editor (similar to the one in Azuerus)
+- ToolListEdit: new tool plugin that displays an alternate type of list editor (similar to the one in Azureus)
2006-07-26:
- Reverted to TB2k 2.1.8, TBX 2.1 beta 1 and now use SpTBXLib 1.7 for Unicode enabling. There were too many bugs with TBX 2.2 alpha
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2006-08-21 19:42:11 UTC (rev 93)
+++ translator/trunk/src/AppOptions.pas 2006-09-10 16:37:34 UTC (rev 94)
@@ -145,6 +145,8 @@
procedure SetTools(const Value: TToolItems);
procedure SetFooter(const Value: TTntStrings);
procedure SetHeader(const Value: TTntStrings);
+ function GetOption(const Section, Name: WideString): WideString;
+ procedure SetOption(const Section, Name, Value: WideString);
public
constructor Create(const AFilename: WideString);
destructor Destroy; override;
@@ -154,6 +156,7 @@
property Filename: WideString read FFilename;
property WindowInfos[AForm: TForm]: TAppWindowInfo read GetWindowInfo write SetWindowInfo;
public
+ property Option[const Section, Name: WideString]: WideString read GetOption write SetOption;
property ShowQuotes: boolean read FShowQuotes write FShowQuotes;
property InvertDictionary: boolean read FInvertDictionary write FInvertDictionary;
property SaveFormPos: boolean read FSaveFormPos write FSaveFormPos default true;
@@ -743,5 +746,25 @@
FHeader.Assign(Value);
end;
+function TAppOptions.GetOption(const Section, Name: WideString): WideString;
+begin
+ with TWideIniFile.Create(Filename) do
+ try
+ Result := ReadString(Section, Name, '');
+ finally
+ Free;
+ end;
+end;
+
+procedure TAppOptions.SetOption(const Section, Name, Value: WideString);
+begin
+ with TWideIniFile.Create(Filename) do
+ try
+ WriteString(Section, Name, Value);
+ finally
+ Free;
+ end;
+end;
+
end.
Modified: translator/trunk/src/CommonUtils.pas
===================================================================
--- translator/trunk/src/CommonUtils.pas 2006-08-21 19:42:11 UTC (rev 93)
+++ translator/trunk/src/CommonUtils.pas 2006-09-10 16:37:34 UTC (rev 94)
@@ -166,8 +166,8 @@
cbSize := sizeof(TMsgBoxParamsW);
hwndOwner := GetActiveWindow;
hInstance := SysInit.hInstance;
- lpszText := PWideChar(WideString(AText));
- lpszCaption := PWideChar(WideString(ACaption));
+ lpszText := PWideChar(AText);
+ lpszCaption := PWideChar(ACaption);
dwStyle := MB_OK or MB_USERICON;
lpszIcon := PWideChar(WideString('MAINICON'));
dwContextHelpId := 0;
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-08-21 19:42:11 UTC (rev 93)
+++ translator/trunk/src/MainFrm.pas 2006-09-10 16:37:34 UTC (rev 94)
@@ -65,7 +65,7 @@
WM_DELAYLOADED = WM_USER + 1001;
type
- TfrmMain = class(TfrmBase)
+ TfrmMain = class(TfrmBase, IApplication)
StatusBar1: TTBXStatusBar;
alMain: TTntActionList;
acOpenOrig: TTntAction;
@@ -450,7 +450,7 @@
FTranslateFile: TTranslateFiles;
FLastFindText, FLastFolder: WideString;
FModified: boolean;
- FDict: TDictionaryItems;
+ FDictionary: TDictionaryItems;
FCommandProcessor: boolean;
FFileMonitors: array of TFileMonitorThread;
FBookmarks: array[0..9] of integer;
@@ -458,6 +458,36 @@
FExternalToolItems: TExternalToolItems;
{$IFDEF USEADDICTSPELLCHECKER}
adSpellChecker: TAddictSpell3;
+{$ENDIF USEADDICTSPELLCHECKER}
+ {IApplication}
+ FNotify: TInterfaceList;
+ function GetItems: ITranslationItems;
+ function GetOrphans: ITranslationItems;
+ function GetAppHandle: Cardinal;
+ function GetDictionaryItems: IDictionaryItems;
+ function GetHeader: WideString;
+ procedure SetHeader(const Value: WideString);
+ function GetFooter: WideString;
+ procedure SetFooter(const Value: WideString);
+ function GetAppOption(const Section, Name, Default: WideString): WideString; safecall;
+ procedure SetAppOption(const Section, Name, Value: WideString); safecall;
+ procedure RegisterNotify(const ANotify: INotify); safecall;
+ procedure UnRegisterNotify(const ANotify: INotify); safecall;
+ function BeginUpdate: Integer; safecall;
+ function EndUpdate: Integer; safecall;
+
+{
+ property Items:ITranslationItems read GetItems;
+ property Orphans:ITranslationItems read GetOrphans;
+ property Dictionary:IDictionaryItems read GetDictionaryItems;
+ property AppHandle:Cardinal read GetAppHandle;
+ property Header:WideString read GetHeader write SetHeader;
+ property Footer:WideString read GetFooter write SetFooter;
+}
+ {IApplication end}
+ function NotifyChanging(Msg, WParam, LParam: integer): WordBool;
+ procedure NotifyChange(Msg, WParam, LParam: integer);
+{$IFDEF USEADDICTSPELLCHECKER}
procedure SpellCheckComplete(Sender: TObject);
procedure CreateSpellChecker;
procedure SpellCheckGetString(Sender: TObject;
@@ -473,11 +503,11 @@
procedure LoadSettings(FirstLoad: boolean);
procedure SaveSettings;
procedure LoadTranslate;
- function LoadOriginal(const FileName: WideString; Encoding: TEncoding):TEncoding;
- function LoadTranslation(const FileName: WideString; Encoding: TEncoding):TEncoding;
- function SaveTranslation(const FileName: WideString; Encoding: TEncoding; const InsertHeader:boolean=false; const InsertFooter:boolean = false): boolean;
+ function LoadOriginal(const FileName: WideString; Encoding: TEncoding): TEncoding;
+ function LoadTranslation(const FileName: WideString; Encoding: TEncoding): TEncoding;
+ function SaveTranslation(const FileName: WideString; Encoding: TEncoding; const InsertHeader: boolean = false; const InsertFooter: boolean = false): boolean;
function SaveTranslationAs(const FileName: WideString; Encoding: TEncoding): boolean;
- function SaveOriginal(const FileName: WideString; Encoding: TEncoding; const InsertHeader:boolean=false; const InsertFooter:boolean = false): boolean;
+ function SaveOriginal(const FileName: WideString; Encoding: TEncoding; const InsertHeader: boolean = false; const InsertFooter: boolean = false): boolean;
function SaveOrigAs(const FileName: WideString; Encoding: TEncoding): boolean;
procedure SetModified(const Value: boolean);
function GetModified: boolean;
@@ -557,8 +587,8 @@
public
{ Public declarations }
property Modified: boolean read GetModified write SetModified;
- property SelectedItem:ITranslationItem read GetSelectedItem write SetSelectedItem;
- property SelectedListItem:TTntListItem read GetSelectedListItem write SetSelectedListItem;
+ property SelectedItem: ITranslationItem read GetSelectedItem write SetSelectedItem;
+ property SelectedListItem: TTntListItem read GetSelectedListItem write SetSelectedListItem;
end;
var
@@ -566,7 +596,7 @@
implementation
uses
- ShellAPI, StrUtils, TntWindows, TntClipbrd, TntWideStrUtils,
+ ShellAPI, StrUtils, TntWindows, TntClipbrd, TntWideStrUtils,
{$IFDEF USEADDICTSPELLCHECKER}
ad3ParseEngine,
{$ENDIF USEADDICTSPELLCHECKER}
@@ -645,7 +675,7 @@
Application.ShowHint := GlobalAppOptions.ShowToolTips;
Application.HintShortCuts := GlobalAppOptions.ShowToolTipShortCuts;
ShowHint := Application.ShowHint;
- FDict.IgnorePunctuation := GlobalAppOptions.DictIgnoreSpeedKeys;
+ FDictionary.IgnorePunctuation := GlobalAppOptions.DictIgnoreSpeedKeys;
if GlobalAppOptions.ShowQuotes <> acShowQuotes.Checked then
acShowQuotes.Execute;
if acDictInvert.Checked <> GlobalAppOptions.InvertDictionary then
@@ -775,7 +805,7 @@
else if WideSameText('CREATEDICT', tmp) then
CreateDict(false)
else if WideSameText('CLEARDICT', tmp) then
- FDict.Clear
+ FDictionary.Clear
else if WideSameText('USEDICT', tmp) then
UseDictionary
else if WideSameText('INVERTDICT', tmp) then
@@ -855,15 +885,15 @@
Modified := false;
end;
-function TfrmMain.LoadOriginal(const FileName: WideString; Encoding: TEncoding):TEncoding;
+function TfrmMain.LoadOriginal(const FileName: WideString; Encoding: TEncoding): TEncoding;
begin
WaitCursor;
+ Result := Encoding;
+ if NotifyChanging(NOTIFY_ITEM_FILE_OPEN, Ord(false), Integer(PWideChar(Filename))) then
+ Exit;
if not CheckModified then
- begin
- Result := Encoding;
Exit;
- end;
if WideFileExists(Filename) and not FCommandProcessor then
begin
@@ -883,6 +913,7 @@
FLastFolder := WideExtractFilePath(Filename);
Result := FTranslateFile.LoadOriginal(FileName, Encoding);
+ NotifyChange(NOTIFY_ITEM_FILE_OPEN, Ord(false), Integer(PWideChar(Filename)));
GlobalAppOptions.OrigEncoding := Ord(Result);
StartMonitor(FFileMonitors[cOrigMonitor], Filename);
@@ -895,14 +926,14 @@
acRestoreSortExecute(nil);
end;
-function TfrmMain.LoadTranslation(const FileName: WideString; Encoding: TEncoding):TEncoding;
+function TfrmMain.LoadTranslation(const FileName: WideString; Encoding: TEncoding): TEncoding;
begin
WaitCursor;
+ Result := Encoding;
+ if NotifyChanging(NOTIFY_ITEM_FILE_OPEN, Ord(true), Integer(PWideChar(Filename))) then
+ Exit;
if not CheckModified then
- begin
- Result := Encoding;
Exit;
- end;
StopMonitor(FFileMonitors[cTransMonitor]);
reOriginal.Clear;
reTranslation.Clear;
@@ -916,6 +947,7 @@
AddMRUFile(FileName, false);
Result := FTranslateFile.LoadTranslation(FileName, Encoding);
+ NotifyChange(NOTIFY_ITEM_FILE_OPEN, Ord(true), Integer(PWideChar(Filename)));
GlobalAppOptions.TransEncoding := Ord(Result);
StartMonitor(FFileMonitors[cTransMonitor], FileName);
lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
@@ -938,7 +970,7 @@
end;
function TfrmMain.SaveTranslation(const FileName: WideString; Encoding: TEncoding;
- const InsertHeader:boolean=false; const InsertFooter:boolean = false): boolean;
+ const InsertHeader: boolean = false; const InsertFooter: boolean = false): boolean;
var
i: integer;
begin
@@ -948,8 +980,15 @@
Result := SaveTranslationAs(FileName, Encoding);
Exit;
end;
+
WaitCursor;
+ if NotifyChanging(NOTIFY_ITEM_FILE_SAVE, Ord(true), Integer(PWideChar(Filename))) then
+ begin
+ Result := false;
+ Exit;
+ end;
+
// stop the monitor thread
StopMonitor(FFileMonitors[cTransMonitor]);
// avoid false alarms when original = translation
@@ -966,6 +1005,7 @@
else
FTranslateFile.Footer := '';
FTranslateFile.SaveTranslation(FileName, Encoding);
+ NotifyChange(NOTIFY_ITEM_FILE_SAVE, Ord(true), Integer(PWideChar(Filename)));
except
on E: Exception do
HandleFileCreateException(Self, E, FileName);
@@ -995,16 +1035,16 @@
GlobalAppOptions.FilterIndex := SaveTransDlg.FilterIndex;
SaveTranslation(SaveTransDlg.FileName,
TEncoding(SaveTransDlg.EncodingIndex),
- SaveTransDlg.InsertHeader, SaveTransDlg.InsertFooter);
+ SaveTransDlg.InsertHeader, SaveTransDlg.InsertFooter);
Result := true;
- end;
+ end;
// clear for next time
SaveTransDlg.InsertHeader := false;
SaveTransDlg.InsertFooter := false;
end;
function TfrmMain.SaveOriginal(const FileName: WideString; Encoding: TEncoding;
- const InsertHeader:boolean=false; const InsertFooter:boolean = false): boolean;
+ const InsertHeader: boolean = false; const InsertFooter: boolean = false): boolean;
var
i: integer;
begin
@@ -1014,7 +1054,13 @@
Result := SaveOrigAs(FileName, Encoding);
Exit;
end;
+
WaitCursor;
+ if NotifyChanging(NOTIFY_ITEM_FILE_SAVE, Ord(false), Integer(PWideChar(Filename))) then
+ begin
+ Result := false;
+ Exit;
+ end;
// stop the monitor thread
StopMonitor(FFileMonitors[cTransMonitor]);
@@ -1032,6 +1078,7 @@
else
FTranslateFile.Footer := '';
FTranslateFile.SaveOriginal(FileName, Encoding);
+ NotifyChange(NOTIFY_ITEM_FILE_SAVE, Ord(false), Integer(PWideChar(Filename)));
except
on E: Exception do
HandleFileCreateException(Self, E, FileName);
@@ -1071,24 +1118,28 @@
procedure TfrmMain.CreateDict(ClearList: boolean);
var
i: integer;
- procedure DictAdd(const AOriginal, ATranslation:WideString);
+
+ procedure DictAdd(const AOriginal, ATranslation: WideString);
var
- D:TDictionaryItem;
+ D: TDictionaryItem;
begin
if (trim(AOriginal) <> '') then
begin
- D := FDict.Add(trim(AOriginal));
+ D := FDictionary.Add(trim(AOriginal));
if (trim(ATranslation) <> '') then
D.Translations.Add(trim(ATranslation));
end;
end;
begin
WaitCursor;
+ if not NotifyChanging(NOTIFY_ITEM_DICT_NEW, 0, 0) then
+ Exit;
if ClearList then
- FDict.Clear;
+ FDictionary.Clear;
for i := 0 to FTranslateFile.Items.Count - 1 do
with FTranslateFile.Items[i] do
DictAdd(trim(Original), trim(Translation));
+ NotifyChange(NOTIFY_ITEM_DICT_NEW, 0, 0);
OpenDictDlg.Filename := '';
SaveDictDlg.FileName := '';
UpdateStatus;
@@ -1097,13 +1148,16 @@
procedure TfrmMain.LoadDictionary(const FileName: WideString);
begin
WaitCursor;
+ if not NotifyChanging(NOTIFY_ITEM_DICT_OPEN, Integer(PWideChar(Filename)), 0) then
+ Exit;
if not CheckDictModified then
Exit;
SaveDictDlg.FileName := FileName;
OpenDictDlg.FileName := FileName;
if acDictInvert.Checked then
acDictInvert.Execute; // toggle invert
- FDict.LoadFromFile(FileName);
+ FDictionary.LoadFromFile(FileName);
+ NotifyChange(NOTIFY_ITEM_DICT_OPEN, Integer(PWideChar(Filename)), 0);
GlobalAppOptions.DictionaryFile := Filename;
if not acDictInvert.Checked and GlobalAppOptions.InvertDictionary then
acDictInvert.Execute; // toggle invert
@@ -1114,10 +1168,13 @@
procedure TfrmMain.SaveDictionary(const FileName: WideString);
begin
WaitCursor;
+ if not NotifyChanging(NOTIFY_ITEM_DICT_SAVE, Integer(PWideChar(Filename)), 0) then
+ Exit;
// stop the monitor thread
StopMonitor(FFileMonitors[cDictMonitor]);
try
- FDict.SaveToFile(SaveDictDlg.FileName);
+ FDictionary.SaveToFile(SaveDictDlg.FileName);
+ NotifyChange(NOTIFY_ITEM_DICT_SAVE, Integer(PWideChar(Filename)), 0);
GlobalAppOptions.DictionaryFile := Filename;
except
on E: Exception do
@@ -1141,7 +1198,7 @@
begin
if FTranslateFile.Items[i].Translated and GlobalAppOptions.DictIgnoreNonEmpty then
Continue;
- j := FDict.IndexOf(FTranslateFile.Items[i].Original);
+ j := FDictionary.IndexOf(FTranslateFile.Items[i].Original);
if (j >= 0) then // dictionary item found
begin
if FPrompt then
@@ -1150,17 +1207,17 @@
lvTranslateStrings.Items[i].Selected := true;
lvTranslateStrings.Items[i].Focused := true;
end;
- S := FDict[j].DefaultTranslation;
+ S := FDictionary[j].DefaultTranslation;
if S = '' then
S := FTranslateFile.Items[i].Translation;
FModified := false;
if FPrompt then
- FResult := TfrmDictTranslationSelect.Edit(FDict[j], S, FModified, FPrompt)
- else if FDict[j].Translations.Count > 0 then
- S := FDict[j].DefaultTranslation
+ FResult := TfrmDictTranslationSelect.Edit(FDictionary[j], S, FModified, FPrompt)
+ else if FDictionary[j].Translations.Count > 0 then
+ S := FDictionary[j].DefaultTranslation
else
Continue;
- FDict.Modified := FDict.Modified or FModified;
+ FDictionary.Modified := FDictionary.Modified or FModified;
case FResult of
cDictIgnore:
if not FPrompt then
@@ -1170,7 +1227,7 @@
cDictAdd:
begin
if (S <> '') and FPrompt then
- FDict[j].Translations.Add(S);
+ FDictionary[j].Translations.Add(S);
FTranslateFile.Items[i].Translation := S;
end;
cDictUse:
@@ -1288,15 +1345,16 @@
i: integer;
// NB! Pass in Font.Size for StartSize and MinSize. AWidth is max width in pixels. Returns positive Font.Height
+
function WideGetTextExtentPoint32(DC: HDC; Str: PWideChar; Count: Integer;
- var Size: TSize): BOOL;
+ var Size: TSize): BOOL;
begin
if Win32PlatformIsUnicode then
Result := GetTextExtentPoint32W(DC, Str, Count, Size)
else
Result := GetTextExtentPoint32A(DC, PAnsiChar(AnsiString(Str)), Count, Size);
end;
-
+
function CalcMaxFontSize(ACanvas: TCanvas; const S: WideString; AWidth: integer; StartSize, MinSize: integer): integer;
var
aSize: TSize;
@@ -1931,7 +1989,7 @@
function TfrmMain.CheckDictModified: boolean;
begin
Result := true;
- if FDict.Modified then
+ if FDictionary.Modified then
begin
case YesNoCancel(Translate(ClassName, SSaveDictPrompt), Translate(ClassName, SConfirmCaption)) of
IDYES:
@@ -2031,9 +2089,9 @@
Index := -1;
ACount := FTranslateFile.Items.Count;
acUndo.Enabled := reTranslation.Focused and Modified;
- acDictSave.Enabled := FDict.Count > 0;
+ acDictSave.Enabled := FDictionary.Count > 0;
acDictEdit.Enabled := acDictSave.Enabled;
- acDictTranslate.Enabled := (FDict.Count > 0) and (ACount > 0);
+ acDictTranslate.Enabled := (FDictionary.Count > 0) and (ACount > 0);
acDictAdd.Enabled := (Index > -1) and (FTranslateFile.Items[Index].Original <> '') and (FTranslateFile.Items[Index].Translation <> '');
acFind.Enabled := ACount > 0;
@@ -2181,7 +2239,7 @@
procedure TfrmMain.acDictSaveExecute(Sender: TObject);
begin
- if FDict.Count = 0 then
+ if FDictionary.Count = 0 then
begin
ErrMsg(Translate(ClassName, SErrDictEmpty), Translate(ClassName, SInfoCaption));
Exit;
@@ -2212,7 +2270,7 @@
procedure TfrmMain.acDictTranslateExecute(Sender: TObject);
begin
- if FDict.Count = 0 then
+ if FDictionary.Count = 0 then
begin
ErrMsg(Translate(ClassName, SErrDictEmpty), Translate(ClassName, SInfoCaption));
Exit;
@@ -2272,7 +2330,7 @@
ToolbarFont.CharSet := DEFAULT_CHARSET;
FTranslateFile := TTranslateFiles.Create;
FFindReplace := TFindReplace.Create(Self);
- FDict := TDictionaryItems.Create;
+ FDictionary := TDictionaryItems.Create;
SetLength(FFileMonitors, 3);
LoadSettings(true);
@@ -2297,9 +2355,10 @@
DragAcceptFiles(Handle, false);
SaveEditChanges;
SaveSettings;
- FTranslateFile.Free;
- FDict.Free;
- FExternalToolItems.Free;
+ FreeAndNil(FNotify);
+ FreeAndNil(FTranslateFile);
+ FreeAndNil(FDictionary);
+ FreeAndNil(FExternalToolItems);
for i := 0 to Length(FFileMonitors) - 1 do
if FFileMonitors[i] <> nil then
FFileMonitors[i].Terminate;
@@ -2334,15 +2393,18 @@
i := SelectedListItem.Index;
with FTranslateFile.Items[i] do
begin
+ if not NotifyChanging(NOTIFY_ITEM_TRANS_CHANGE, Integer(PWideChar(Translation)), Integer(PWideChar(reTranslation.Text))) then
+ Exit;
Translation := RemoveQuotes(trimCRLFRight(reTranslation.Text));
- Translated := MyWideDequotedStr(Translation, TransQuote) <> '';
- lvTranslateStrings.Invalidate;
- if GlobalAppOptions.UseTranslationEverywhere then
- begin
- reTranslation.Modified := false; // avoid infinite recursion
- acReplaceEverywhere.Execute;
- end;
- Modified := true;
+ NotifyChange(NOTIFY_ITEM_TRANS_CHANGE, Integer(PWideChar(Translation)), 0);
+ Translated := MyWideDequotedStr(Translation, TransQuote) <> '';
+ lvTranslateStrings.Invalidate;
+ if GlobalAppOptions.UseTranslationEverywhere then
+ begin
+ reTranslation.Modified := false; // avoid infinite recursion
+ acReplaceEverywhere.Execute;
+ end;
+ Modified := true;
end;
UpdateStatus;
end
@@ -2411,7 +2473,6 @@
procedure TfrmMain.acSaveTransExecute(Sender: TObject);
begin
- // if not HandleImportedSave then
SaveTranslation(GlobalAppOptions.TranslationFile, TEncoding(GlobalAppOptions.TransEncoding));
end;
@@ -2568,7 +2629,7 @@
if (Item <> nil) and (Stage = cdPrePaint) then
begin
Sender.Canvas.Font := TListView(Sender).Font;
- if [cdsFocused] * State <> [] then
+ if [cdsFocused] * State <> [] then
begin
Sender.Canvas.Brush.Color := clHighlight;
Sender.Canvas.Font.Color := clHighlightText;
@@ -2588,7 +2649,8 @@
Sender.Canvas.Brush.Color := GlobalAppOptions.ColorOddRow;
Sender.Canvas.Font.Color := GlobalAppOptions.ColorFontOddRow;
end;
- DefaultDraw := true;;
+ DefaultDraw := true;
+ ;
end;
end;
@@ -2659,7 +2721,7 @@
begin
WaitCursor;
acDictInvert.Checked := not acDictInvert.Checked;
- FDict.Invert;
+ FDictionary.Invert;
UpdateStatus;
end;
@@ -2670,9 +2732,9 @@
Index := SelectedListItem.Index;
with FTranslateFile.Items[Index] do
if acDictInvert.Checked then
- FDict.Add(Translation).Translations.Add(Original)
+ FDictionary.Add(Translation).Translations.Add(Original)
else
- FDict.Add(Original).Translations.Add(Translation);
+ FDictionary.Add(Original).Translations.Add(Translation);
end;
procedure TfrmMain.acHelpExecute(Sender: TObject);
@@ -2740,20 +2802,20 @@
lvTranslateStrings.Items[j];
end;
GlobalAppOptions.TranslationFile := '';
- GlobalAppOptions.TransEncoding := GlobalAppOptions.DefaultTransEncoding;
+ GlobalAppOptions.TransEncoding := GlobalAppOptions.DefaultTransEncoding;
UpdateStatus;
end;
procedure TfrmMain.acCreateTranslationFileExecute(Sender: TObject);
const
- cTranslatableForms:array [0..11] of TFormClass =
- (TfrmOptions, TfrmOrphans,TfrmConfigKbd,TfrmImportExport, TfrmTools, TfrmPromptArgs,
- TfrmEditItem, TfrmTrim, TfrmConfigSuspicious, TfrmDictTranslationSelect,
- TfrmDictEdit, TfrmColors);
+ cTranslatableForms: array[0..11] of TFormClass =
+ (TfrmOptions, TfrmOrphans, TfrmConfigKbd, TfrmImportExport, TfrmTools, TfrmPromptArgs,
+ TfrmEditItem, TfrmTrim, TfrmConfigSuspicious, TfrmDictTranslationSelect,
+ TfrmDictEdit, TfrmColors);
var
- i:integer;
- AForms:array[0..11] of TForm;
+ i: integer;
+ AForms: array[0..11] of TForm;
begin
with TTntSaveDialog.Create(nil) do
try
@@ -3207,6 +3269,7 @@
procedure TfrmMain.acImportExecute(Sender: TObject);
begin
WaitCursor;
+ if not NotifyChanging(NOTIFY_ITEM_IMPORT, 0, 0) then Exit;
SaveEditChanges;
// (FTranslateFile.Items as ITranslationItems)._AddRef;
if not CheckModified then
@@ -3227,6 +3290,7 @@
GlobalAppOptions.OriginalFIle := '';
acRestoreSort.Execute;
Modified := true;
+ NotifyChange(NOTIFY_ITEM_IMPORT, 0, 0);
end;
lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
ScrollToTop;
@@ -3240,9 +3304,13 @@
begin
// (FTranslateFile.Items as ITranslationItems)._AddRef;
WaitCursor;
- TfrmImportExport.Edit(FTranslateFile.Items, FTranslateFile.Orphans, WideExtractFilePath(Application.ExeName) + 'plugins',
- false, FImportIndex, Dummy);
- lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
+ if not NotifyChanging(NOTIFY_ITEM_EXPORT, 0, 0) then Exit;
+ if TfrmImportExport.Edit(FTranslateFile.Items, FTranslateFile.Orphans, WideExtractFilePath(Application.ExeName) + 'plugins',
+ false, FImportIndex, Dummy) then
+ begin
+ NotifyChange(NOTIFY_ITEM_EXPORT, 0, 0);
+ lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
+ end;
end;
procedure TfrmMain.acToggleTranslatedExecute(Sender: TObject);
@@ -3370,18 +3438,18 @@
else
R := nil;
i := -1;
- if Assigned(R) and (FDict.Count > 0) then
+ if Assigned(R) and (FDictionary.Count > 0) then
begin
if R.SelLength = 0 then
S := R.Text
else
S := R.SelText;
- i := FDict.IndexOf(trim(S));
+ i := FDictionary.IndexOf(trim(S));
if i >= 0 then
- for j := 0 to FDict[i].Translations.Count - 1 do
+ for j := 0 to FDictionary[i].Translations.Count - 1 do
begin
M := TSpTBXItem.Create(popEdit);
- M.Caption := FDict[i].Translations[j];
+ M.Caption := FDictionary[i].Translations[j];
M.OnClick := DoTranslateSuggestionClick;
smiDictionary.Add(M);
end;
@@ -3400,6 +3468,7 @@
var
i, j: integer;
begin
+ if not NotifyChanging(NOTIFY_ITEM_SPELLCHECK, 0, 0) then Exit;
CreateSpellChecker;
adSpellChecker.StartSequenceCheck;
try
@@ -3416,7 +3485,6 @@
adSpellChecker.CheckWinControl(reTranslation, ctAll);
if adSpellChecker.CheckCanceled then
Exit;
- // here I would like to check if the dialog was closed (Cancel clicked) so I can break out of the loop
end;
if j <> 0 then
for i := 0 to j do
@@ -3426,7 +3494,6 @@
SelectedListItem.MakeVisible(false);
// the OnCompleteCheck event is hooked up to save any changes to the richedit back to the listview
adSpellChecker.CheckWinControl(reTranslation, ctAll);
- // here I would like to check if the dialog was closed (Cancel clicked) so I can break out of the loop
if adSpellChecker.CheckCanceled then
Exit;
end;
@@ -3434,6 +3501,7 @@
adSpellChecker.StopSequenceCheck;
FreeAndNil(adSpellChecker);
end;
+ NotifyChanged(NOTIFY_ITEM_SPELLCHECK, 0, 0);
end;
procedure TfrmMain.SpellCheckComplete(Sender: TObject);
@@ -3573,7 +3641,7 @@
var
T: TExternalToolItem;
i: integer;
- AItem:ITranslationItem;
+ AItem: ITranslationItem;
begin
i := lvTranslateStrings.ItemIndex;
@@ -3722,7 +3790,7 @@
begin
if RunProcess(trim(Cmd), trim(Args), trim(Dir), ATool.WaitForCompletion,
ATool.WaitForCompletion, SW_SHOWNORMAL, ReturnValue) then
- ReturnValue := 0;
+ ReturnValue := 0;
end;
if (ReturnValue <> 0) and (ATool.WaitForCompletion or ATool.UseShellExecute) then
@@ -3767,6 +3835,7 @@
AIndex, i: integer;
FOldSort: TTranslateSortType;
begin
+ if not NotifyChanging(NOTIFY_ITEM_NEW_ITEM, Integer(AItem), 0) then Exit;
FOldSort := FTranslateFile.Items.Sort;
try
FTranslateFile.Items.Sort := stIndex;
@@ -3779,12 +3848,12 @@
begin
while i <= AIndex do
begin
- // find first item with another section name
+ // find first item with another section name
if not WideSameText(FTranslateFile.Items[i].Section, AItem.Section) then
begin
- // insert our new item into the list
+ // insert our new item into the list
FTranslateFile.Items[AIndex].Index := i;
- // increment index of all subsequent items
+ // increment index of all subsequent items
while i < AIndex do
begin
FTranslateFile.Items[i].Index := FTranslateFile.Items[i].Index + 1;
@@ -3796,6 +3865,7 @@
end;
Inc(i);
end;
+ NotifyChange(NOTIFY_ITEM_NEW_ITEM, Integer(AItem), 0);
finally
FTranslateFile.Items.Sort := FOldSort;
end;
@@ -3816,7 +3886,11 @@
procedure TfrmMain.DeleteItem(Index: integer);
begin
if (Index >= 0) and (Index < FTranslateFile.Items.Count) then
+ begin
+ if not NotifyChanging(NOTIFY_ITEM_DEL_ITEM, Index, 0) then Exit;
FTranslateFile.Items.Delete(Index);
+ NotifyChange(NOTIFY_ITEM_DEL_ITEM, Index, 0);
+ end;
end;
procedure TfrmMain.acAddItemExecute(Sender: TObject);
@@ -3870,34 +3944,36 @@
AItem, ANewItem: ITranslationItem;
ASections: TTntStringlist;
- procedure CopyItem(const FromItem, ToItem: ITranslationItem);
+ procedure CopyItem(const Src, Dest: ITranslationItem);
begin
- ToItem.Index := FromItem.Index;
- ToItem.Translated := FromItem.Translated;
- ToItem.TransComments := FromItem.TransComments;
- ToItem.OrigComments := FromItem.OrigComments;
- ToItem.Original := FromItem.Original;
- ToItem.Translation := FromItem.Translation;
- ToItem.Section := FromItem.Section;
- ToItem.Name := FromItem.Name;
- ToItem.ClearOriginal := FromItem.ClearOriginal;
- ToItem.ClearTranslation := FromItem.ClearTranslation;
- ToItem.PrivateStorage := FromItem.PrivateStorage;
+ Dest.Index := Src.Index;
+ Dest.Translated := Src.Translated;
+ Dest.TransComments := Src.TransComments;
+ Dest.OrigComments := Src.OrigComments;
+ Dest.Original := Src.Original;
+ Dest.Translation := Src.Translation;
+ Dest.Section := Src.Section;
+ Dest.Name := Src.Name;
+ Dest.ClearOriginal := Src.ClearOriginal;
+ Dest.ClearTranslation := Src.ClearTranslation;
+ Dest.PrivateStorage := Src.PrivateStorage;
end;
- function EqualItems(const FromItem, ToItem: ITranslationItem): boolean;
+ function EqualItems(const Src, Dest: ITranslationItem): boolean;
begin
Result :=
- WideSameStr(FromItem.Section, ToItem.Section)
- and WideSameStr(FromItem.Original, ToItem.Original)
- and WideSameStr(FromItem.Translation, ToItem.Translation)
- and WideSameStr(FromItem.OrigCo...
[truncated message content] |
|
From: <pe...@us...> - 2006-09-23 15:39:31
|
Revision: 98
http://svn.sourceforge.net/initranslator/?rev=98&view=rev
Author: peter3
Date: 2006-09-23 08:37:41 -0700 (Sat, 23 Sep 2006)
Log Message:
-----------
- Added new MsTermBuild project to convert MS Terminology Translations to IniTranslator dictionaries
- Dictionary class now removes empty translations automatically when loading and merging etc
- Changed the way fonts are specified so we can use the MS Shell Dlg substituions
- DictEditFrm: Fixed error where the TTranslations = 1 returned all items with < 2 translations
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/help/Dictionaries.html
translator/trunk/help/Index.html
translator/trunk/src/AppConsts.pas
translator/trunk/src/AppOptions.pas
translator/trunk/src/AppUtils.pas
translator/trunk/src/DictEditFrm.dfm
translator/trunk/src/DictEditFrm.pas
translator/trunk/src/Dictionary.pas
translator/trunk/src/MainFrm.dfm
translator/trunk/src/MainFrm.pas
translator/trunk/src/MsDictBuild/MSDictBuild.dpr
translator/trunk/src/MsDictBuild/MSDictBuild.res
translator/trunk/src/MsDictBuild/MainFrm.dfm
translator/trunk/src/OptionsFrm.dfm
translator/trunk/src/OptionsFrm.pas
translator/trunk/src/TRANSLATOR.INC
translator/trunk/src/ToolListEdit/ToolListEditFrm.dfm
translator/trunk/src/ToolListEdit/ToolListEditFrm.pas
translator/trunk/src/ToolTreeView/ToolTreeViewFrm.dfm
translator/trunk/src/ToolTreeView/ToolTreeViewFrm.pas
translator/trunk/src/WideIniFiles.pas
translator/trunk/src/translator.dpr
translator/trunk/src/translator.res
translator/trunk/translator.bpg
Added Paths:
-----------
translator/trunk/help/MSDictBuild.html
translator/trunk/help/MSTermBuild.html
translator/trunk/help/images/MSTermBuild.jpg
translator/trunk/help/images/MsDictBuild.jpg
translator/trunk/src/MsTermBuild/
translator/trunk/src/MsTermBuild/MSTermBuild.exe.manifest
translator/trunk/src/MsTermBuild/MainFrm.dfm
translator/trunk/src/MsTermBuild/MainFrm.pas
translator/trunk/src/MsTermBuild/MsTermBuild.dof
translator/trunk/src/MsTermBuild/MsTermBuild.dpr
translator/trunk/src/MsTermBuild/manifest.rc
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/Changelog.txt 2006-09-23 15:37:41 UTC (rev 98)
@@ -1,5 +1,14 @@
Ini Translator Changelog
========================
+2006-09-23:
+- Added new MsTermBuild project to convert MS Terminology Translations to IniTranslator dictionaries
+- Dictionary class now removes empty translations automatically when loading and merging etc
+- Changed the way fonts are specified so we can use the MS Shell Dlg substituions
+- DictEditFrm: Fixed error where the TTranslations = 1 returned all items with < 2 translations
+
+
+
+
2006-08-17:
- Added support for Headers and Footers
- UI for setting default encoding for new files (OptionsFrm)
Modified: translator/trunk/help/Dictionaries.html
===================================================================
--- translator/trunk/help/Dictionaries.html 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/help/Dictionaries.html 2006-09-23 15:37:41 UTC (rev 98)
@@ -11,9 +11,9 @@
in software are identical (labels like OK, Cancel, Apply, File, Edit etc are
used in just about every program in the world). To avoid having to translate
these items manually time after time, the program has support for dictionaries.
- A dictionary is simply a file containing pairs of text strings for a specific
- language combination. For example, one file might contain english and polish string
- pairs, another file might contain german and french string pairs etc.</p>
+ A dictionary is simply a file containing a list of original strings and
+ one or more translations for each original string for a specific
+ language combination. For example, one file might contain english and polish, another file might contain german and french etc.</p>
<p> </p>
<p>The following functionality is available for dictionaries:</p>
<p> </p>
Modified: translator/trunk/help/Index.html
===================================================================
--- translator/trunk/help/Index.html 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/help/Index.html 2006-09-23 15:37:41 UTC (rev 98)
@@ -30,11 +30,19 @@
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Known%20issues.html">Known Issues</a>
</dl>
- <p>
- <img border="0" src="images/HelpBookClosed.jpg" width="16" height="16">Appendix A</p>
+ <p><img border="0" src="images/HelpBookClosed.jpg" width="16" height="16">Tools</p>
<dl>
<dd>
+ <img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="MSTermBuild.html">MS Terminology Translations Builder</a>
<br />
+
+ <img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="MSDictBuild.html">MS Dictionary Builder</a>
+ </dd>
+ </dl>
+ <p><img border="0" src="images/HelpBookClosed.jpg" width="16" height="16">Appendix A</p>
+
+ <dl>
+ <dd>
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Appendix%20A.html">The ini file format</a>
</dd>
</dl>
Added: translator/trunk/help/MSDictBuild.html
===================================================================
--- translator/trunk/help/MSDictBuild.html (rev 0)
+++ translator/trunk/help/MSDictBuild.html 2006-09-23 15:37:41 UTC (rev 98)
@@ -0,0 +1,54 @@
+<html>
+
+ <head>
+ <title>MS Dictionary Builder</title>
+ <link href="styles/default.css" type="text/css" rel="stylesheet" />
+ </head>
+
+<body>
+<h1>MS Dictionary Builder</h1>
+<hr/>
+The MS Dictionary Builder application is a utility program to convert Microsoft's Glossary CSV files to IniTranslator dictionaries.
+You can download the csv files you are interested in from Microsofts FTP site at
+this adress: <a href="ftp://ftp.microsoft.com/developr/msdn/newup/Glossary">
+ftp://ftp.microsoft.com/developr/msdn/newup/Glossary</a>.<p> </p>
+<p>The application looks like this:</p>
+<p> </p>
+<p><img border="0" src="images/MsDictBuild.jpg"></p>
+<p> </p>
+<dl>
+ <dt>Input Files</dt>
+ <dd>The files you want to convert to dct format. Add one file specification
+ per row. Click the Select button to browse for files using the standard open
+ dialog. Note that wildcards are <b>not</b> supported.</dd>
+ <dt>Save converted items to</dt>
+ <dd>Specify the name of the dictionary file you want to create or append to.
+ Select <b>Append</b> to add the new items to an existing file or <b>
+ Overwrite</b> to replace an existing file. If the file does not exist, it
+ doesn't matter which option you select.</dd>
+</dl>
+<p>Click on the <b>Convert</b> button to extract the strings fro m the CSV file
+and put them into the dictionary file.</p>
+<p> </p>
+<div class="InfoField"><b>Note</b>
+<p>As of 2006, Microsoft no longer provide the glossary CSV for free download.
+Instead, they now have a single consolidated csv file known as the MS
+Terminology Translations CSV. If you still want the old glossary file, you can
+request them from Microsoft. More information about how to obtain the old CSV
+files and how to get the new CSV file, go to
+<a href="http://www.microsoft.com/globaldev/tools/MILSGlossary.mspx">
+http://www.microsoft.com/globaldev/tools/MILSGlossary.mspx</a>.</p>
+</div>
+<p> </p>
+<div class="InfoField"><b>Note</b>
+<p>
+Some of the CSV files are not correctly formatted. Specifically, they may contain additional linebreaks that the application cannot
+handle and the end result is an incorrect dictionary file. To fix this, open the CSV in Notepad or WordPad and remove the line breaks and save as text.
+You should now be able to create a valid dictionary with this application.
+</p>
+</div>
+
+
+</body>
+
+</html>
\ No newline at end of file
Added: translator/trunk/help/MSTermBuild.html
===================================================================
--- translator/trunk/help/MSTermBuild.html (rev 0)
+++ translator/trunk/help/MSTermBuild.html 2006-09-23 15:37:41 UTC (rev 98)
@@ -0,0 +1,42 @@
+<html>
+
+ <head>
+ <title>MS Terminology Translations Builder</title>
+ <link href="styles/default.css" type="text/css" rel="stylesheet" />
+ </head>
+
+<body>
+<h1>MS Terminology Translations Builder</h1>
+<hr />
+The MS Terminology Translations Builder application is a utility program to convert the
+Microsoft's Terminology Translations CSV file to IniTranslator dictionaries.
+You can get more information and download the csv file from
+<a href="http://www.microsoft.com/globaldev/tools/MILSGlossary.mspx">http://www.microsoft.com/globaldev/tools/MILSGlossary.mspx</a>.<p>The application looks like this:</p>
+<p> </p>
+<p><img border="0" src="images/MSTermBuild.jpg"></p>
+
+<p> </p>
+<dl>
+ <dt>Input filename</dt>
+ <dd>The CSV file to read from. Type in a path and filename or click the <b>
+ Browse</b> button to select a file.</dd>
+ <dt>Original</dt>
+ <dd>If you selected a valid input file, this list is filled with all
+ available languages in the file. Select the language to use as the original
+ string in the dictionary.</dd>
+ <dt>Translation</dt>
+ <dd>If you selected a valid input file, this list is filled with all
+ available languages in the file. Select the language to use as the
+ translation string in the dictionary.</dd>
+ <dt>Output filename</dt>
+ <dd>Type in the path and filename of the dictionary file you want to save or
+ click the <b>Browse</b> button to select a file.</dd>
+ <dt>Overwrite output file</dt>
+ <dd>If the output file already exists, use this option to either append to
+ or overwrite the file.</dd>
+</dl>
+<p>Click the <b>Create dictionary</b> button to create the dictionary.</p>
+
+</body>
+
+</html>
Added: translator/trunk/help/images/MSTermBuild.jpg
===================================================================
(Binary files differ)
Property changes on: translator/trunk/help/images/MSTermBuild.jpg
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/help/images/MsDictBuild.jpg
===================================================================
(Binary files differ)
Property changes on: translator/trunk/help/images/MsDictBuild.jpg
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Modified: translator/trunk/src/AppConsts.pas
===================================================================
--- translator/trunk/src/AppConsts.pas 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/AppConsts.pas 2006-09-23 15:37:41 UTC (rev 98)
@@ -90,7 +90,7 @@
SArgumentsPrompt = 'Arguments:';
SErrToolExecFmt = 'Failed to execute "%s %s": %s';
SNewToolNameFmt = '(New Tool %d)';
- SErrCreateFileFmt = 'Could not create file "%s".'#13#10'Please check that you have sufficient permissions to create and modify files in the affected folder.';
+ SErrCreateFileFmt = 'Could not create file "%s".'#13#10'Please check that the file is writable and that you have sufficient permissions to create and modify files in the affected folder.';
SPromptDeleteItem = 'Delete selected item?';
SConfirmDelete = 'Confirm Delete';
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/AppOptions.pas 2006-09-23 15:37:41 UTC (rev 98)
@@ -94,7 +94,6 @@
FHelpFile: WideString;
FDictionaryFile: WideString;
FFilename: WideString;
- FAppFont: TFont;
FFilterIndex: integer;
FGlobalPath: boolean;
FPinCommentWindow: boolean;
@@ -138,6 +137,8 @@
FDefaultTransEncoding: integer;
FFooter: TTntStrings;
FHeader: TTntStrings;
+ FFontSize: integer;
+ FFontName: WideString;
procedure ReadWindowInfos(ini: TWideCustomIniFile);
procedure WriteWindowInfos(ini: TWideCustomIniFile);
function GetWindowInfo(AForm: TForm): TAppWindowInfo;
@@ -183,7 +184,8 @@
property SplitterPosition: integer read FSplitterPosition write FSplitterPosition default 160;
property FilterIndex: integer read FFilterIndex write FFilterIndex default 1;
property AppTitle: WideString read FAppTitle write FAppTitle;
- property AppFont: TFont read FAppFont;
+ property FontName: WideString read FFontName write FFontName;
+ property FontSize:integer read FFontSize write FFontSize;
property MonitorFiles: boolean read FMonitorFiles write FMonitorFiles default true;
property Theme: WideString read FTheme write FTheme;
property Header:TTntStrings read FHeader write SetHeader;
@@ -411,8 +413,6 @@
inherited Create;
FTools := TToolItems.Create;
// set defaults
- FAppFont := TFont.Create;
- FAppFont.Name := 'MS Shell Dlg 2';
FWindowInfos := TTntStringlist.Create;
TTntStringlist(FWindowInfos).Sorted := true;
FHeader := TTntStringlist.Create;
@@ -427,13 +427,14 @@
PinCommentWindow := true;
MonitorFiles := true;
Theme := sDefault;
+ FontName := 'MS Shell Dlg 2';
+ FontSize := 9;
LoadFromFile(AFilename);
end;
destructor TAppOptions.Destroy;
begin
ClearWindowInfos;
- FAppFont.Free;
FWindowInfos.Free;
FTools.Free;
FHeader.Free;
@@ -486,10 +487,8 @@
ini := TWideMemIniFile.Create(AFilename);
try
FFilename := AFilename;
- FAppFont.Name := ini.ReadString('Font', 'Font.Name', FAppFont.Name);
- FAppFont.Height := ini.ReadInteger('Font', 'Font.Height', FAppFont.Height);
- FAppFont.Style := StrToFontStyles(ini.ReadString('Font', 'Font.Style', FontStylesToStr(FAppFont.Style)));
- FAppFont.Color := ini.ReadInteger('Font', 'Font.Color', FAppFont.Color);
+ FontName := ini.ReadString('Font', 'FontName', FontName);
+ FontSize := ini.ReadInteger('Font', 'FontSize', FontSize);
ShowQuotes := ini.ReadBool('General', 'ShowQuotes', ShowQuotes);
InvertDictionary := ini.ReadBool('General', 'InvertDictionary', InvertDictionary);
@@ -594,10 +593,8 @@
ini := TWideMemIniFile.Create(AFilename);
try
FFilename := AFilename;
- ini.WriteString('Font', 'Font.Name', FAppFont.Name);
- ini.WriteInteger('Font', 'Font.Height', FAppFont.Height);
- ini.WriteString('Font', 'Font.Style', FontStylesToStr(FAppFont.Style));
- ini.WriteInteger('Font', 'Font.Color', FAppFont.Color);
+ ini.WriteString('Font', 'FontName', FontName);
+ ini.WriteInteger('Font', 'FontSize', FontSize);
ini.WriteBool('General', 'ShowQuotes', ShowQuotes);
ini.WriteBool('General', 'InvertDictionary', InvertDictionary);
Modified: translator/trunk/src/AppUtils.pas
===================================================================
--- translator/trunk/src/AppUtils.pas 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/AppUtils.pas 2006-09-23 15:37:41 UTC (rev 98)
@@ -134,7 +134,8 @@
SetLength(AnsiBuff, MAX_PATH * 2);
Result := SHGetFolderPathA(hwnd, csidl, hToken, dwFlags, PAnsiChar(AnsiBuff));
AnsiBuff := AnsiString(PAnsiChar(AnsiBuff));
- pszPath := WStrPLCopy(pszPath, AnsiBuff, Length(AnsiBuff));
+ // pszPath :=
+ WStrPLCopy(pszPath, AnsiBuff, Length(AnsiBuff));
end;
end;
Modified: translator/trunk/src/DictEditFrm.dfm
===================================================================
--- translator/trunk/src/DictEditFrm.dfm 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/DictEditFrm.dfm 2006-09-23 15:37:41 UTC (rev 98)
@@ -151,7 +151,7 @@
Top = 316
Width = 184
Height = 21
- Hint = 'CHange the selection to see different subsets of the dictionary'
+ Hint = 'Change the selection to see different subsets of the dictionary'
Style = csDropDownList
Anchors = [akLeft, akRight, akBottom]
ItemHeight = 13
Modified: translator/trunk/src/DictEditFrm.pas
===================================================================
--- translator/trunk/src/DictEditFrm.pas 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/DictEditFrm.pas 2006-09-23 15:37:41 UTC (rev 98)
@@ -270,7 +270,7 @@
if FItems[i].Translations.Count > 1 then
cbOriginal.Items.Add(FItems[i].Original);
4:
- if FItems[i].Translations.Count < 2 then
+ if FItems[i].Translations.Count = 1 then
cbOriginal.Items.Add(FItems[i].Original);
end;
if cbOriginal.Items.Count > 0 then
Modified: translator/trunk/src/Dictionary.pas
===================================================================
--- translator/trunk/src/Dictionary.pas 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/Dictionary.pas 2006-09-23 15:37:41 UTC (rev 98)
@@ -79,6 +79,7 @@
function Find(const S: WideString; var Index: integer): boolean;
procedure Clear;
procedure Sort;
+ procedure TrimTranslations; // removes empty translations
constructor Create;
destructor Destroy; override;
property Items[Index: integer]: TDictionaryItem read GetItems; default;
@@ -244,6 +245,7 @@
Clear;
for i := 0 to TDictionaryItems(Source).Count - 1 do
Add(TDictionaryItems(Source).Items[i].Original).Translations.Assign(TDictionaryItems(Source).Items[i].Translations);
+ TrimTranslations;
end
else
begin
@@ -422,6 +424,7 @@
// TODO: merge duplicate items
Inc(i);
end;
+ TrimTranslations;
end;
procedure TDictionaryItems.SaveToFile(const Filename: WideString);
@@ -429,6 +432,7 @@
AFile: TTntStringlist;
i: integer;
begin
+ TrimTranslations;
AFile := TTNtStringlist.Create;
try
for i := 0 to Count - 1 do
@@ -455,4 +459,16 @@
FItems.Sort(OriginalCompare);
end;
+procedure TDictionaryItems.TrimTranslations;
+var i, j:integer;
+begin
+ for i := 0 to Count - 1 do
+ for j := Items[i].Translations.Count - 1 downto 0 do
+ if Items[i].Translations[j] = '' then
+ begin
+ Items[i].Translations.Delete(j);
+ Modified := true;
+ end;
+end;
+
end.
Modified: translator/trunk/src/MainFrm.dfm
===================================================================
--- translator/trunk/src/MainFrm.dfm 2006-09-13 19:11:10 UTC (rev 97)
+++ translator/trunk/src/MainFrm.dfm 2006-09-23 15:37:41 UTC (rev 98)
@@ -273,13 +273,6 @@
CaptionW = 'Next untranslated'
HintW = 'Go to next untranslated item'
end
- object N2: TSpTBXSeparatorItem
- end
- object Font1: TSpTBXItem
- Action = acFont
- CaptionW = 'Font...'
- HintW = 'Change application font'
- end
object N4: TSpTBXSeparatorItem
end
object Unsort1: TSpTBXItem
@@ -844,6 +837,7 @@
Align = alTop
BevelOuter = bvNone
BorderWidth = 2
+ ParentBackground = False
TabOrder = 2
object pnlKeyDetails: TTntPanel
Left = 2
@@ -860,6 +854,7 @@
Font.Height = -19
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
+ ParentBackground = False
ParentFont = False
TabOrder = 0
object lblViewDetails: TLabel
@@ -1057,13 +1052,6 @@
ShortCut = 16465
OnExecute = acShowQuotesExecute
end
- object acFont: TTntAction
- Category = 'Edit'
- Caption = 'Font...'
- Hint = 'Change application font'
- ShortCut = 24646
- OnExecute = acFontExecute
- end
object acRestoreSort: TTntAction
Category = 'Actions'
Caption = 'Restore original sort'
@@ -1427,7 +1415,7 @@
Top = 192
Bitmap = {
494C010146004A00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 0000000000003600000028000000400000003001000001002000000000000030
+ 0000000000003600000028000000400000002001000001002000000000000020
0100000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -1436,134 +1424,6 @@
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000063630000636300009CCE00009C
CE0000848400009CCE0000848400009CCE0000848400009CCE00008484000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -3861,12 +3721,8 @@
000000000000000000000000000000000000000000000000000000000000009C
9C00009C9C00009C9C00009C9C00009C9C000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
- 2800000040000000300100000100010000000000800900000000000000000000
- 00000...
[truncated message content] |
|
From: <pe...@us...> - 2006-09-26 21:58:15
|
Revision: 102
http://svn.sourceforge.net/initranslator/?rev=102&view=rev
Author: peter3
Date: 2006-09-26 14:57:46 -0700 (Tue, 26 Sep 2006)
Log Message:
-----------
- MsTermBuild added to setup
- Added option to use existing folder when building release
Modified Paths:
--------------
translator/trunk/setup/IniTransCommon.iss
translator/trunk/setup/translator.fbp3
translator/trunk/src/IBForumsPlugin/IBForumsParser.res
translator/trunk/src/MozillaPlugin/MozillaDTDParser.res
translator/trunk/src/MozillaPlugin/MozillaPropsParser.res
translator/trunk/src/MsDictBuild/MSDictBuild.res
translator/trunk/src/MsTermBuild/MsTermBuild.res
translator/trunk/src/OlegPlugin/OlegParser.res
translator/trunk/src/PHPNukePlugin/PHPNukeParser.res
translator/trunk/src/PHPPlugin/PHPParser.res
translator/trunk/src/POPlugin/POParser.res
translator/trunk/src/SciTEPlugin/SciTEParser.res
translator/trunk/src/TMXPlugin/TMXParser.res
translator/trunk/src/ToolListEdit/ToolListEdit.res
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
translator/trunk/src/ToolTreeView/ToolTreeView.res
translator/trunk/src/XLIFFPlugin/XLIFFParser.res
translator/trunk/src/translator.res
Modified: translator/trunk/setup/IniTransCommon.iss
===================================================================
--- translator/trunk/setup/IniTransCommon.iss 2006-09-26 21:27:28 UTC (rev 101)
+++ translator/trunk/setup/IniTransCommon.iss 2006-09-26 21:57:46 UTC (rev 102)
@@ -1,6 +1,6 @@
#define AppName "Ini Translator"
-#define AppVersion "1.9.0.25"
-#define AppShortVersion "19025"
+#define AppVersion "1.9.0.33"
+#define AppShortVersion "19033"
#define GroupName "Ini Translator"
#define URL "http://initranslator.sourceforge.net"
#define AppPublisher "Peter Th\xF6rnqvist"
Modified: translator/trunk/setup/translator.fbp3
===================================================================
--- translator/trunk/setup/translator.fbp3 2006-09-26 21:27:28 UTC (rev 101)
+++ translator/trunk/setup/translator.fbp3 2006-09-26 21:57:46 UTC (rev 102)
@@ -22,7 +22,11 @@
Beware:
-Make sure the root path to SVN is short! By default, your local temp folder is used, but Subversion (or the FB action) has problems with long filenames and long paths, so try to either keep the path down or use an entirely different path for the build
+Make sure the root path to SVN is short! By default, your local temp folder is used, but Subversion (or the FB action) seems to have problems with long filenames and long paths, so try to either keep the path down or use an entirely different path for the build
+
+New:
+Now you can specify that you want to use an existing path to build from. Beware! Make sure you uncheck the "Delete folder" option and make sure the root folder is pointing to your "\translator\trunk" folder
+location or it won't work. very well
]]>
</Property>
<Property MultiValue="0" name="ActionLogTitle" type="WideString">Build Notes - please read</Property>
@@ -69,14 +73,14 @@
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TimeOut" type="Integer">0</Property>
<Object Class="TPersistParam" XMLID="{517045E7-48E7-41A4-8E5B-3373C18374C5}"><Property MultiValue="0" name="Caption" type="String">R&amp;oot path:</Property>
- <Property MultiValue="0" name="DefaultValue" type="String">%TMP%\translator</Property>
+ <Property MultiValue="0" name="DefaultValue" type="String">C:\Program Files\Borland\projects\Private\translator\trunk</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Name" type="String">ROOTPATH</Property>
<Property name="ParamType" type="TParamType">ptText</Property>
<Property name="SelectAll" type="Boolean">False</Property>
- <Property MultiValue="0" name="Value" type="String">c:\temp</Property>
+ <Property MultiValue="0" name="Value" type="String">C:\Program Files\Borland\projects\Private\translator\trunk</Property>
</Object>
<Object Class="TPersistParam" XMLID="{DFEE600A-4E9B-4319-8845-45CDC241BDE7}"><Property MultiValue="0" name="Caption" type="String">M&amp;ajor:</Property>
<Property MultiValue="0" name="DefaultValue" type="String">1</Property>
@@ -109,34 +113,34 @@
<Property MultiValue="0" name="Value" type="String">0</Property>
</Object>
<Object Class="TPersistParam" XMLID="{61C26F12-53A5-41FA-8F60-F567944EDE65}"><Property MultiValue="0" name="Caption" type="String">&amp;Build:</Property>
- <Property MultiValue="0" name="DefaultValue" type="String">25</Property>
+ <Property MultiValue="0" name="DefaultValue" type="String">33</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Name" type="String">VERSION_BUILD</Property>
<Property name="ParamType" type="TParamType">ptText</Property>
<Property name="SelectAll" type="Boolean">False</Property>
- <Property MultiValue="0" name="Value" type="String">25</Property>
+ <Property MultiValue="0" name="Value" type="String">33</Property>
</Object>
<Object Class="TPersistParam" XMLID="{BCB92261-E11A-4E81-857C-D74026547648}"><Property MultiValue="0" name="Caption" type="String">Check out from subversion</Property>
- <Property MultiValue="0" name="DefaultValue" type="String">true</Property>
+ <Property MultiValue="0" name="DefaultValue" type="String">false</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Name" type="String">VCSCHECKOUT</Property>
<Property name="ParamType" type="TParamType">ptBoolean</Property>
<Property name="SelectAll" type="Boolean">False</Property>
- <Property MultiValue="0" name="Value" type="String">True</Property>
+ <Property MultiValue="0" name="Value" type="String">False</Property>
</Object>
<Object Class="TPersistParam" XMLID="{95C8E5D6-1E86-4C4D-A304-782685C2FCB3}"><Property MultiValue="0" name="Caption" type="String">Delete check-out folder when done</Property>
- <Property MultiValue="0" name="DefaultValue" type="String">true</Property>
+ <Property MultiValue="0" name="DefaultValue" type="String">false</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Name" type="String">DELETE_FOLDER</Property>
<Property name="ParamType" type="TParamType">ptBoolean</Property>
<Property name="SelectAll" type="Boolean">False</Property>
- <Property MultiValue="0" name="Value" type="String">True</Property>
+ <Property MultiValue="0" name="Value" type="String">False</Property>
</Object>
<Object Class="TPersistParam" XMLID="{28FC62C4-FC12-476C-9160-9F4C1D681AA6}"><Property MultiValue="0" name="Caption" type="String">&amp;Upload to SourceForge</Property>
<Property MultiValue="0" name="DefaultValue" type="String">false</Property>
@@ -285,7 +289,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">IniTranslator</Property>
@@ -324,13 +328,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=Ini Language Translator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=translator.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=translator.exe
ProductName=Ini Translator
-ProductVersion=1.9.0.25
+ProductVersion=1.9.0.33
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -413,9 +417,9 @@
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
- <Property name="AutoUpdateFileVersion" type="Boolean">False</Property>
+ <Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">MsTermBuild</Property>
@@ -454,13 +458,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=MsTermBuild
-FileVersion=1.8.0.0
+FileVersion=1.9.0.33
InternalName=MsTermBuild.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsTermBuild.exe
ProductName=MsTermBuild
-ProductVersion=1.8.0.0
+ProductVersion=1.9.0.33
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -474,6 +478,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -541,9 +546,9 @@
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
- <Property name="AutoUpdateFileVersion" type="Boolean">False</Property>
+ <Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">MsDictBuild</Property>
@@ -582,13 +587,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=MsDictBuild
-FileVersion=1.8.0.0
+FileVersion=1.9.0.33
InternalName=MsDictBuild.exe
LegalCopyright=Copyright (c) 2003-2004 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsDictBuild.exe
ProductName=MsDictBuild
-ProductVersion=1.8.0.0
+ProductVersion=1.9.0.33
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -602,6 +607,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -671,7 +677,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">PO DLL</Property>
@@ -710,13 +716,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=PO Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
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.8.0.0
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -728,6 +734,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -797,7 +804,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">Generic php DLL</Property>
@@ -836,13 +843,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=PHP Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=PHPParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=PHPParser.dll
ProductName=PHP Plugin for IniTranslator
-ProductVersion=1.8.0.0
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -854,6 +861,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -923,7 +931,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">phpNuke DLL</Property>
@@ -962,13 +970,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=phpNuke Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=phpNukeParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=phpNukeParser.dll
ProductName=phpNuke Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -980,6 +988,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1049,7 +1058,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">Mozilla DTD DLL</Property>
@@ -1088,13 +1097,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Mozilla DTD Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=MozillaDTDParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaDTDParser.dll
ProductName=Mozilla DTD Plugin for IniTranslator
-ProductVersion=1.8
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1106,6 +1115,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1175,7 +1185,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">Mozilla Properties DLL</Property>
@@ -1214,13 +1224,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Mozilla Properties Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=MozillaPropsParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaPropsParser.dll
ProductName=Mozilla Properties Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1232,6 +1242,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1301,7 +1312,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">IBForums DLL</Property>
@@ -1340,13 +1351,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=IB Forums Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=IBForumsParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=IBForumsParser.dll
ProductName=IB Forums Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1358,6 +1369,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1427,7 +1439,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">SciTE DLL</Property>
@@ -1466,13 +1478,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=SciTE Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=SciTEParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=SciTEParser.dll
ProductName=SciTE Plugin for IniTranslator
-ProductVersion=1.8
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1484,6 +1496,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1553,7 +1566,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">Oleg DLL</Property>
@@ -1592,13 +1605,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Oleg Translator Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=OlegParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=OlegParser.dll
ProductName=Oleg Translator Plugin for IniTranslator
-ProductVersion=1.8
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1610,6 +1623,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1679,7 +1693,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">XLIFF DLL</Property>
@@ -1718,13 +1732,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=XLIFF Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=XLIFFPlugin.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=XLIFFPlugin.dll
ProductName=XLIFF Plugin for IniTranslator
-ProductVersion=1.9
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1736,6 +1750,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1805,7 +1820,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">25</Property>
+ <Property name="BuildVersion" type="Integer">33</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property MultiValue="0" name="Description" type="String">TMX DLL</Property>
@@ -1844,13 +1859,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=TMX Plugin for IniTranslator
-FileVersion=1.9.0.25
+FileVersion=1.9.0.33
InternalName=TMXParser.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=TMXParser.dll
ProductName=TMX Plugin for IniTranslator
-ProductVersion=1.9.0.0
+ProductVersion=1.9.0.33
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1862,6 +1877,7 @@
Action.MinorVersion = VERSION_MINOR;
Action.ReleaseVersion = VERSION_RELEASE;
Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
]]>
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="String">JavaScript</Property>
@@ -1931,7 +1947,7 @@
<Property name="AutoInc...
[truncated message content] |
|
From: <pe...@us...> - 2006-11-13 17:58:43
|
Revision: 113
http://svn.sourceforge.net/initranslator/?rev=113&view=rev
Author: peter3
Date: 2006-11-10 01:02:07 -0800 (Fri, 10 Nov 2006)
Log Message:
-----------
- Added new "Make translations consistent" command
- Updated documentation (menu command reference - Appendix B)
- Updated some language files
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/help/Appendix B.html
translator/trunk/languages/Catalan.lng
translator/trunk/languages/Chinese.lng
translator/trunk/languages/Cymraeg.lng
translator/trunk/languages/French.lng
translator/trunk/languages/German.lng
translator/trunk/languages/Svenska.lng
translator/trunk/src/MainFrm.dfm
translator/trunk/src/MainFrm.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-11-10 07:52:31 UTC (rev 112)
+++ translator/trunk/Changelog.txt 2006-11-10 09:02:07 UTC (rev 113)
@@ -1,5 +1,10 @@
Ini Translator Changelog
========================
+2006-11-10:
+- Added new "Make translations consistent" command
+- Updated documentation (menu command reference - Appendix B)
+- Updated some language files
+
2006-11-08:
- MRU items only saved if both original and translation contains valid filenames
- Logic for opening Original and/or Translation file changed
Modified: translator/trunk/help/Appendix B.html
===================================================================
--- translator/trunk/help/Appendix B.html 2006-11-10 07:52:31 UTC (rev 112)
+++ translator/trunk/help/Appendix B.html 2006-11-10 09:02:07 UTC (rev 113)
@@ -6,203 +6,229 @@
<h1>Appendix B</h1>
<hr>
<h3>Description of menu commands</h3>
- <p>The following lists describes all menu commands and their usage.</p>
+ <p>This topic describes all menu commands, shortcut keys and their usage.</p>
<h3>Main Menu</h3>
<p> </p>
<p></p>
- <table id="Table1">
+ <table id="Table1" width="996">
<tr>
- <th nowrap width="390">
+ <th nowrap width="243" style="vertical-align: top">
Menu Item</th>
- <th nowrap width="60">
+ <th nowrap width="136" style="vertical-align: top">
Shortcut Key</th>
- <th nowrap>
+ <th nowrap style="vertical-align: top" width="603">
Description</th></tr>
<tr>
<th width="390" colspan="3">
File</th></tr>
<tr>
- <td width="390">Open Original</td>
- <td width="60">Ctrl+O</td>
- <td>Prompts for the original as well as the translation file and loads them into
+ <td width="243">Open Original</td>
+ <td width="136">Shift+Ctrl+O</td>
+ <td width="603">Prompts for the original as well as the translation file and loads them into
the listview. If you have previous loaded files that have been modified, you
wil be prompted to save before the new file(s) are loaded.</td>
</tr>
<tr>
- <td width="390">Save Original As...</td>
- <td width="60"></td>
- <td>Enables you to save the original file using a different name. Note that you
- can't edit the original file in Ini Translator so this command is provided only
- to simplify copying the original file to another location.</td>
+ <td width="243">Save Original</td>
+ <td width="136">Ctrl+Shift+S</td>
+ <td width="603">Saves the original file</td>
</tr>
<tr>
- <td width="390">Open Translation</td>
- <td width="60">Ctrl+Shift+O</td>
- <td>Opens a file in the translation column without reloading the original file</td>
+ <td width="243">Save Original As...</td>
+ <td width="136"> </td>
+ <td width="603">Saves the original file using a different name</td>
</tr>
<tr>
- <td width="390">Save Translation</td>
- <td width="60">Ctrl+S</td>
- <td>Save the edits to the translation file</td>
+ <td width="243">New translation</td>
+ <td width="136">Ctrl+N</td>
+ <td width="603">Creates a new translation file with the same sections and
+ items as the original</td>
</tr>
<tr>
- <td width="390">Save Translation As...</td>
- <td width="60"></td>
- <td>Save the translation to a file with another name</td>
+ <td width="243">Open Translation</td>
+ <td width="136">Ctrl+O</td>
+ <td width="603">Opens a file in the translation column without reloading the original file</td>
</tr>
<tr>
- <td width="390">Preferences</td>
- <td width="60">Alt+Enter</td>
- <td>Shows the Preferences dialog</td>
+ <td width="243">Save Translation</td>
+ <td width="136">Ctrl+S</td>
+ <td width="603">Save the edits to the translation file</td>
</tr>
<tr>
- <td width="390">Import...</td>
- <td width="60"> </td>
- <td>Displayed if any import plugins are installed</td>
+ <td width="243">Save Translation As...</td>
+ <td width="136"> </td>
+ <td width="603">Save the translation to a file with another name</td>
</tr>
<tr>
- <td width="390">Export..</td>
- <td width="60"> </td>
- <td>Displayed if any export plugins are installed</td>
+ <td width="243">Preferences</td>
+ <td width="136">Alt+Enter</td>
+ <td width="603">Shows the Preferences dialog</td>
</tr>
<tr>
- <td width="390">Reopen</td>
- <td width="60"></td>
- <td>Shows a submenu of recently opened files. The list displays both the
+ <td width="243">Import...</td>
+ <td width="136"> </td>
+ <td width="603">Displayed if any import plugins are installed</td>
+ </tr>
+ <tr>
+ <td width="243">Export..</td>
+ <td width="136"> </td>
+ <td width="603">Displayed if any export plugins are installed</td>
+ </tr>
+ <tr>
+ <td width="243">Preferences</td>
+ <td width="136">Alt+Enter</td>
+ <td width="603">Displays the preferences dialog</td>
+ </tr>
+ <tr>
+ <td width="243">Reopen</td>
+ <td width="136"> </td>
+ <td width="603">Shows a submenu of recently opened files. The list displays both the
original and the translation file</td>
</tr>
<tr>
- <td width="390">Reopen - Clear</td>
- <td width="60"></td>
- <td>Clears the list of recently opened files</td>
+ <td width="243">Reopen - Clear</td>
+ <td width="136"> </td>
+ <td width="603">Clears the list of recently opened files</td>
</tr>
<tr>
- <td width="390">Reopen - Remove invalid</td>
- <td width="60"></td>
- <td>Removes files from the recently opened files list that are no longer available
+ <td width="243">Reopen - Remove invalid</td>
+ <td width="136"> </td>
+ <td width="603">Removes files from the recently opened files list that are no longer available
on the system</td>
</tr>
<tr>
- <td width="390">Exit</td>
- <td width="60">Alt+F4</td>
- <td>Closes the program. If you have modified the translation file, you will be
+ <td width="243">Exit</td>
+ <td width="136">Alt+F4</td>
+ <td width="603">Closes the program. If you have modified the translation file, you will be
prompted to save before exiting.</td>
</tr>
<tr>
<th width="390" colspan="3">
Edit</th></tr>
<tr>
- <td width="390">Undo</td>
- <td width="60">Ctrl+Z</td>
- <td>Reverts the last edit change</td>
+ <td width="243">Undo</td>
+ <td width="136">Ctrl+Z</td>
+ <td width="603">Reverts the last edit change</td>
</tr>
<tr>
- <td width="390">Cut</td>
- <td width="60">Ctrl+X</td>
- <td>Cuts selected text to clipboard</td>
+ <td width="243">Cut</td>
+ <td width="136">Ctrl+X</td>
+ <td width="603">Cuts selected text to clipboard</td>
</tr>
<tr>
- <td width="390">Copy</td>
- <td width="60">Ctrl+C</td>
- <td>Copies the selected text to the clipboard</td>
+ <td width="243">Copy</td>
+ <td width="136">Ctrl+C</td>
+ <td width="603">Copies the selected text to the clipboard</td>
</tr>
<tr>
- <td width="390">Copy from Original</td>
- <td width="60">Ctrl+Shift+C</td>
- <td>Copies the current original text into the translation</td>
+ <td width="243">Copy from Original</td>
+ <td width="136">Ctrl+Shift+C</td>
+ <td width="603">Copies the current original text into the translation</td>
</tr>
<tr>
- <td width="390">Copy from Name</td>
- <td width="60">Ctrl+Shift+M</td>
- <td>Copies the current name into the translation</td>
+ <td width="243">Copy from Name</td>
+ <td width="136">Ctrl+Shift+M</td>
+ <td width="603">Copies the current name into the translation</td>
</tr>
<tr>
- <td width="390">Paste</td>
- <td width="60">Ctrl+V</td>
- <td>Paste text from the clipboard into the current location</td>
+ <td width="243">Paste</td>
+ <td width="136">Ctrl+V</td>
+ <td width="603">Paste text from the clipboard into the current location</td>
</tr>
<tr>
- <td width="390">Find</td>
- <td width="60">Ctrl+F</td>
- <td>Display a search dialog where you can type the text to search for</td>
+ <td width="243">Find</td>
+ <td width="136">Ctrl+F</td>
+ <td width="603">Display a search dialog where you can type the text to search for</td>
</tr>
<tr>
- <td width="390">Find Next</td>
- <td width="60">F3</td>
- <td>Continues a search without showing the dialog. If no search is in progress,
+ <td width="243">Find Next</td>
+ <td width="136">F3</td>
+ <td width="603">Continues a search without showing the dialog. If no search is in progress,
works the same as Find</td>
</tr>
<tr>
- <td width="390">Replace</td>
- <td width="60">Ctrl+H</td>
- <td>Displays a dialog where you can type the text to search for as well as the text
+ <td width="243">Replace</td>
+ <td width="136">Ctrl+H</td>
+ <td width="603">Displays a dialog where you can type the text to search for as well as the text
to replace it with</td>
</tr>
<tr>
- <td width="390">Toggle Focus</td>
- <td width="60">F6</td>
- <td>Toggles focus between the list and the translation editor</td>
+ <td width="243">Toggle Focus</td>
+ <td width="136">F6</td>
+ <td width="603">Toggles focus between the list and the translation editor</td>
</tr>
<tr>
<th width="390" colspan="3">
Actions</th></tr>
<TR>
- <TD width="390">Spelling...</TD>
- <TD width="60">F7</TD>
- <TD>Displays the spell check dialog</TD>
+ <TD width="243">Spelling...</TD>
+ <TD width="136">F7</TD>
+ <TD width="603">Displays the spell check dialog</TD>
</TR>
<tr>
- <td width="390">Previous</td>
- <td width="60">Ctrl+Up</td>
- <td>Moves to the previous item in the list</td>
+ <td width="243">Previous</td>
+ <td width="136">Ctrl+Up</td>
+ <td width="603">Moves to the previous item in the list</td>
</tr>
<tr>
- <td width="390">Next</td>
- <td width="60">Ctrl+Down</td>
- <td>Moves to the next item in the list</td>
+ <td width="243">Next</td>
+ <td width="136">Ctrl+Down</td>
+ <td width="603">Moves to the next item in the list</td>
</tr>
<tr>
- <td width="390">Prev untranslated</td>
- <td width="60">Ctrl+Shift+U</td>
- <td>Moves to the previous untranslated item (if there is one)</td>
+ <td width="243">Prev untranslated</td>
+ <td width="136">Ctrl+Shift+U</td>
+ <td width="603">Moves to the previous untranslated item (if there is one)</td>
</tr>
<tr>
- <td width="390">Next untranslated</td>
- <td width="60">Ctrl+U</td>
- <td>Moves to the next untranslated item (if there is one)</td>
+ <td width="243">Next untranslated</td>
+ <td width="136">Ctrl+U</td>
+ <td width="603">Moves to the next untranslated item (if there is one)</td>
</tr>
<tr>
- <td width="390">Font...</td>
- <td width="60">Ctrl+Shift+F</td>
- <td>Shows a dialog that allows you to change the font for the application</td>
+ <td width="243">Use this translation everywhere</td>
+ <td width="136">Ctrl+Shift+H</td>
+ <td width="603">Uses the current translation to translate all other matching items even if they
+ have already been translated</td>
</tr>
<tr>
- <td width="390">Restore original sort</td>
- <td width="60">Ctrl+Shift+R</td>
- <td>Restores sorting to the original file order: You can sort the items by clicking
+ <td width="243">Make all translations consistent</td>
+ <td width="136"> </td>
+ <td width="603">Makes sure that all identical originals uses the same
+ identical translation</td>
+ </tr>
+ <tr>
+ <td width="243">Font...</td>
+ <td width="136">Ctrl+Shift+F</td>
+ <td width="603">Displays a dialog that allows you to change the font for the application</td>
+ </tr>
+ <tr>
+ <td width="243">Restore original sort</td>
+ <td width="136">Ctrl+Shift+R</td>
+ <td width="603">Restores sorting to the original file order: You can sort the items by clicking
on the list columns and later restore the original sort order by pressing
Ctrl+Shift+R. The order of items when you save is always in file order
regardless of the current sorting in the list.</td>
</tr>
<tr>
- <td width="390">Trim...</td>
- <td width="60">Ctr+Shift+T</td>
- <td>Displays the trim dialog</td>
+ <td width="243">Trim...</td>
+ <td width="136">Ctr+Shift+T</td>
+ <td width="603">Displays the trim dialog</td>
</tr>
<tr>
- <td width="390">Toggle Bookmark (0..9)</td>
- <td width="60">Ctrl+Shift+0..Ctrl+Shift+9</td>
- <td>Toggles a bookmark on or off</td>
+ <td width="243">Toggle Bookmark (0..9)</td>
+ <td width="136">Ctrl+Shift+0..Ctrl+Shift+9</td>
+ <td width="603">Toggles a bookmark on or off</td>
</tr>
<tr>
- <td width="390">Goto Bookmark (0..9)</td>
- <td width="60">Ctrl+0..Ctrl+9</td>
- <td>Select item where bookmark is located</td>
+ <td width="243">Goto Bookmark (0..9)</td>
+ <td width="136">Ctrl+0..Ctrl+9</td>
+ <td width="603">Select item where bookmark is located</td>
</tr>
<tr>
- <td width="390">Configure Keyboard...</td>
- <td width="60"></td>
- <td>Displays a dialog where you can change the shortcut keys for the commands in
+ <td width="243">Configure Keyboard...</td>
+ <td width="136"> </td>
+ <td width="603">Displays a dialog where you can change the shortcut keys for the commands in
the program. Shortcuts are saved in a file named translator.alf in the
application folder</td>
</tr>
@@ -210,248 +236,261 @@
<th width="390" colspan="3">
View</th></tr>
<tr>
- <td width="390">Next unmatched shortcut</td>
- <td width="60">F8</td>
- <td>Jumps to the next item where the presence of a shortcut key ('&') is
+ <td width="243">Next unmatched shortcut</td>
+ <td width="136">F8</td>
+ <td width="603">Jumps to the next item where the presence of a shortcut key ('&') is
different between original and translation</td>
</tr>
<tr>
- <td width="390">Next suspicious translation</td>
- <td width="60">Shift+F8</td>
- <td>
- <p>Searches for an item that matches any of the following conditions:<br>
- 1. The number of leading and/or trailing spaces are different between original
- and translation.<br>
- 2. Trailing "control" characters (.:?! and the like) doesn't match between
- original and translation.<br>
- 3. Original and translation is exactly the same.<br>
- 4. The translation is empty (same as "Next untranslated item")<br>
- </p>
+ <td width="243">Next suspicious translation</td>
+ <td width="136">Shift+F8</td>
+ <td width="603">
+ <p>Searches for an item that matches any of the conditions
+ set up in the configure dialog.</p>
</td>
</tr>
<tr>
- <td width="390">Show Quotes</td>
- <td width="60">Ctrl+Q</td>
- <td>Encloses strings in quotes when editing them. This aids in seeing whitespace at
+ <td width="243">Configure suspicious translations</td>
+ <td width="136">Alt+F8</td>
+ <td width="603">
+ Displays a dialog that allows you to configure how "Next
+ suspicious translation" operates</td>
+ </tr>
+ <tr>
+ <td width="243">Show Quotes</td>
+ <td width="136">Ctrl+Q</td>
+ <td width="603">Encloses strings in quotes when editing them. This aids in seeing whitespace at
the beginning and end of the string and also prevents the program from
automatically trimming trailing spaces. The quotes are <strong>not</strong> included
in the actual string when it is saved</td>
</tr>
<tr>
- <td width="390">Show Key Details</td>
- <td width="60">Ctrl+D</td>
- <td>Shows a panel with details about the Section and Name of the currently selected
+ <td width="243">Show Key Details</td>
+ <td width="136">Ctrl+D</td>
+ <td width="603">Shows a panel with details about the Section and Name of the currently selected
item</td>
</tr>
<tr>
- <td width="390">View Comments</td>
- <td width="60">Ctrl+M</td>
- <td>Shows/hides separate window that displays any available comments for the
+ <td width="243">View Comments</td>
+ <td width="136">Ctrl+M</td>
+ <td width="603">Shows/hides separate window that displays any available comments for the
currently selected item</td>
</tr>
<tr>
- <td width="390">View Orphaned Items</td>
- <td width="60"></td>
- <td>Displays a dialog with items found in the translation file that wasn't found in
+ <td width="243">View Orphaned Items</td>
+ <td width="136"> </td>
+ <td width="603">Displays a dialog with items found in the translation file that wasn't found in
the original file. You can copy an item from the list to the Clipboard
by right-clicking an item and selecting "Copy" (or press Ctrl+C).</td>
</tr>
<tr>
- <td width="390">Tools</td>
- <td width="60"></td>
- <td>Shows or hides the Tools toolbar. You can also drag the Tools toolbar off its
+ <td width="243">Tools</td>
+ <td width="136"> </td>
+ <td width="603">Shows or hides the Tools toolbar. You can also drag the Tools toolbar off its
docking area and click the close button to hide it.</td>
</tr>
<tr>
+ <td width="243">Full screen</td>
+ <td width="136">F11</td>
+ <td width="603">Toggles full screen display</td>
+ </tr>
+ <tr>
<th width="390" colspan="3">
Dictionary</th>
</tr>
<tr>
- <td width="390">New Dictionary...</td>
- <td width="60">Ctrl+Alt+N</td>
- <td>Creates a new or adds new items to the currently loaded dictionary</td>
+ <td width="243">New Dictionary...</td>
+ <td width="136">Ctrl+Alt+N</td>
+ <td width="603">Creates a new or adds new items to the currently loaded dictionary</td>
</tr>
<tr>
- <td width="390">Load Dictionary...</td>
- <td width="60">Ctrl+Alt+O</td>
- <td>Loads a previously saved dictionary</td>
+ <td width="243">Load Dictionary...</td>
+ <td width="136">Ctrl+Alt+O</td>
+ <td width="603">Loads a previously saved dictionary</td>
</tr>
<tr>
- <td width="390">Save Dictionary...</td>
- <td width="60">Ctrl+Alt+S</td>
- <td>Saves the currently loaded or created dictionary to a file</td>
+ <td width="243">Save Dictionary...</td>
+ <td width="136">Ctrl+Alt+S</td>
+ <td width="603">Saves the currently loaded or created dictionary to a file</td>
</tr>
<tr>
- <td width="390">Translate using Dictionary</td>
- <td width="60">Ctrl+Alt+T</td>
- <td>Translates all matching untranslated (empty) items using the dictionary</td>
+ <td width="243">Translate using Dictionary</td>
+ <td width="136">Ctrl+Alt+T</td>
+ <td width="603">Translates all matching untranslated (empty) items using the dictionary</td>
</tr>
<tr>
- <td width="390">Add to Dictionary</td>
- <td width="60">Ctrl+Alt+A</td>
- <td>Adds the current Original/Translation pair to the dictionary. If either
+ <td width="243">Add to Dictionary</td>
+ <td width="136">Ctrl+Alt+A</td>
+ <td width="603">Adds the current Original/Translation pair to the dictionary. If either
Original or Translation is empty or the item is already in the dictionary,
nothing happens. If the dictionary is inverted, the item is adjusted to match.</td>
</tr>
<tr>
- <td width="390">Edit Dictionary...</td>
- <td width="60">Ctrl+Alt+E</td>
- <td>Displasy the edit dictionary dialog</td>
+ <td width="243">Edit Dictionary...</td>
+ <td width="136">Ctrl+Alt+E</td>
+ <td width="603">Displasy the edit dictionary dialog</td>
</tr>
<tr>
- <td width="390">Invert Dictionary</td>
- <td width="60">Ctrl+Alt+I</td>
- <td>Inverts the dictionary, i.e an english - german dictionary becomes a
+ <td width="243">Invert Dictionary</td>
+ <td width="136">Ctrl+Alt+I</td>
+ <td width="603">Inverts the dictionary, i.e an english - german dictionary becomes a
german-english dictionary</td>
</tr>
<tr>
<th width="390" colspan="3">
+ Plugins</th>
+ </tr>
+ <tr>
+ <td width="243">Plugin menu item</td>
+ <td width="136"> </td>
+ <td width="603">Displays one or more plugin menu items. Click an item to execute the plugin. If
+ there are no plugins, the plugin menu is not visible at all</td>
+ </tr>
+ <tr>
+ <th width="390" colspan="3">
Tools</th>
</tr>
<tr>
- <td width="390">Customize...</td>
- <td width="60"></td>
- <td>Displays the External Tools dialog </td>
+ <td width="243">Customize...</td>
+ <td width="136"> </td>
+ <td width="603">Displays the External Tools dialog </td>
</tr>
<tr>
<th width="390" colspan="3">
Help</th></tr>
<tr>
- <td width="390">Help</td>
- <td width="60">F1</td>
- <td>Shows this help document in the default viewer</td>
+ <td width="243">Help</td>
+ <td width="136">F1</td>
+ <td width="603">Shows this help document in the default viewer</td>
</tr>
<tr>
- <td width="390">About...</td>
- <td width="60"></td>
- <td>Displays a dialog with copyright notice, version information and credits</td>
+ <td width="243">About...</td>
+ <td width="136"> </td>
+ <td width="603">Displays a dialog with copyright notice, version information and credits</td>
</tr>
</table>
- <br>
- <br>
- <p> </p>
+ <p> </p>
<h3>Listview Menu</h3>
<p></p>
- <table id="Table2">
+ <table id="Table2" width="996">
<tr>
- <th nowrap width="390">
+ <th nowrap width="243">
Menu Item</th>
- <th nowrap width="60">
+ <th nowrap width="136">
Shortcut Key</th>
<th nowrap>
Description</th></tr>
<tr>
- <td width="390">Copy from Original</td>
- <td width="60">Ctrl+Shift+C</td>
+ <td width="243">Copy from Original</td>
+ <td width="136">Ctrl+Shift+C</td>
<td>Copies the current original text into the translation</td>
</tr>
<tr>
- <td width="390">Copy from Name</td>
- <td width="60">Ctrl+Shift+M</td>
+ <td width="243">Copy from Name</td>
+ <td width="136">Ctrl+Shift+M</td>
<td>Copies the current name into the translation</td>
</tr>
<tr>
- <td width="390">Add to Dictionary</td>
- <td width="60">Ctrl+Alt+A</td>
+ <td width="243">Add to Dictionary</td>
+ <td width="136">Ctrl+Alt+A</td>
<td>Adds the current item to the dictionary (for details, see Main Menu description
above)</td>
</tr>
<tr>
- <td width="390">Next untranslated</td>
- <td width="60">Ctrl+U</td>
+ <td width="243">Next untranslated</td>
+ <td width="136">Ctrl+U</td>
<td>Moves to the next untranslated item (if there is one)</td>
</tr>
<tr>
- <td width="390">Prev untranslated</td>
- <td width="60">Ctrl+Shift+U</td>
+ <td width="243">Prev untranslated</td>
+ <td width="136">Ctrl+Shift+U</td>
<td>Moves to the previous untranslated item (if there is one)</td>
</tr>
<tr>
- <td width="390">Clear all translations</td>
- <td width="60">Ctrl+Shift+Del</td>
+ <td width="243">Clear all translations</td>
+ <td width="136">Ctrl+Shift+Del</td>
<td>Sets all items in the translation to an empty string.</td>
</tr>
<tr>
- <td width="390">Use this translation everywhere</td>
- <td width="60">Ctrl+Shift+H</td>
+ <td width="243">Use this translation everywhere</td>
+ <td width="136">Ctrl+Shift+H</td>
<td>Uses the current translation to translate all other matching original items
(works like Replace All)</td>
</tr>
<tr>
- <td width="390">Translated</td>
- <td width="60">Ctrl+T</td>
+ <td width="243">Translated</td>
+ <td width="136">Ctrl+T</td>
<td>Indicates whether the item has been translated or not. CLick
to toggle indicator on/off.</td>
</tr>
<tr>
- <td width="390">Add Item...</td>
- <td width="60">Ctrl+Ins</td>
+ <td width="243">Add Item...</td>
+ <td width="136">Ctrl+Ins</td>
<td>Adds a new item to both original and translation.</td>
</tr>
<tr>
- <td width="390">Edit Item...</td>
- <td width="60">Shift+Ins</td>
+ <td width="243">Edit Item...</td>
+ <td width="136">Shift+Ins</td>
<td>Edit both original and translation of the current item.</td>
</tr>
<tr>
- <td width="390">Delete Item...</td>
- <td width="60">Ctrl+Del</td>
+ <td width="243">Delete Item...</td>
+ <td width="136">Ctrl+Del</td>
<td>Deletes the current item in both original and translation.</td>
</tr>
</table>
<br>
- <br>
<p> </p>
<h3>Edit Field Menu</h3>
<p></p>
- <table id="Table3">
+ <table id="Table3" width="996">
<tr>
- <th nowrap width="390">
+ <th nowrap width="242">
Menu Item</th>
- <th nowrap width="60">
+ <th nowrap width="137">
Shortcut Key</th>
<th nowrap>
Description</th></tr>
<tr>
- <td width="390">Undo</td>
- <td width="60">Ctrl+Z</td>
+ <td width="242">Undo</td>
+ <td width="137">Ctrl+Z</td>
<td>Reverts the last edit change</td>
</tr>
<tr>
- <td width="390">Cut</td>
- <td width="60">Ctrl+X</td>
+ <td width="242">Cut</td>
+ <td width="137">Ctrl+X</td>
<td>Cuts selected text to clipboard</td>
</tr>
<tr>
- <td width="390">Copy</td>
- <td width="60">Ctrl+C</td>
+ <td width="242">Copy</td>
+ <td width="137">Ctrl+C</td>
<td>Copies the selected text to the clipboard</td>
</tr>
<tr>
- <td width="390">Paste</td>
- <td width="60">Ctrl+V</td>
+ <td width="242">Paste</td>
+ <td width="137">Ctrl+V</td>
<td>Paste text from the clipboard into the current location</td>
</tr>
<tr>
- <td width="390">Use this translation everywhere</td>
- <td width="60">Ctrl+Shift+H</td>
+ <td width="242">Use translation everywhere</td>
+ <td width="137">Ctrl+Shift+H</td>
<td>Uses the current translation to translate all other matching items even if they
are already translated</td>
</tr>
<tr>
- <td width="390">Select All</td>
- <td width="60">Ctrl+A</td>
+ <td width="242">Select All</td>
+ <td width="137">Ctrl+A</td>
<td>Selects all the text in the field</td>
</tr>
<tr>
- <td width="390">ASCII Value(s)</td>
- <td width="60">Ctrl+I</td>
+ <td width="242">ASCII Value(s)</td>
+ <td width="137">Ctrl+I</td>
<td>Displays a dialog with the currently selected text converted to hex and also
displays the key sequence needed to enter the text on the numeric keyboard</td>
</tr>
<tr>
- <td width="390">Dictionary</td>
- <td width="60"></td>
+ <td width="242">Dictionary</td>
+ <td width="137"></td>
<td>Displays a submenu with the first translation found in the dictionary for the
currently selected word in either the Original or the Translation field. If no
translation is found, the submenu displays "(none)". Click on the submenu to
Modified: translator/trunk/languages/Catalan.lng
===================================================================
--- translator/trunk/languages/Catalan.lng 2006-11-10 07:52:31 UTC (rev 112)
+++ translator/trunk/languages/Catalan.lng 2006-11-10 09:02:07 UTC (rev 113)
@@ -1,61 +1,213 @@
+[SpellChecker]
+&Add=
+&Change All=
+&Custom Dictionary:=
+&Delete=
+&Dictionaries ...=
+&Edit=
+&Enter the new custom dictionary name:=
+&Excluded Words=
+&Help=
+&Ignore All=
+&Ignore this word:=
+&New=
+&OK=
+&Options...=
+&Replace With:=
+&Replace:=
+&Suggestions:=
+&Undo=
+&With:=
+(Ignore All / Change All)=
+(no suggestions)=
+A&uto-Correct Pairs=
+Add&ed Words=
+Au&to-Correct=
+Automatically correct DUal capitals=
+C&hange=
+Cancel=
+Choose Folder Containing Dictionaries=
+Confirmation:=
+Custom Dictionaries:=
+Custom Dictionaries:=
+D&ictionaries:=
+Delete this custom dictionary?=
+Dictionaries=
+E&xclude this word:=
+Filename=
+I&gnore=
+Ignore Internet addresses=
+Ignore words containing numbers=
+Ignore words in &UPPERCASE=
+Locate Dictionaries...=
+Name=
+New Custom Dictionary=
+Not Found:=
+O&ptions:=
+Prompt on repeated word=
+Reset Defaults=
+Spelling=
+Spelling Options=
+Suggest from main dictionaries only=
+The spelling check is complete.=
+These words will always be considered incorrect during a spell check operation.=
+These words will automatically be corrected when encountered during a spelling check.=
+These words will be considered correct during a spell check operation.=
+Words added with Ignore All / Change All=
+
+[TfrmColors]
+&Even rows:=
+&Font color:=
+&Odd rows:=
+&Untranslated items:=
+Cancel=
+Color Preferences=
+Fo&nt color:=
+Fon&t color:=
+OK=
+
+[TfrmComments]
+-=
+&Copy=
+&Original:=&Original:
+&Paste=
+&Translation:=&Traducci\xF3:
+&Undo=
+Comments=Comentaris
+Copy|Copies the selection and puts it on the Clipboard=
+Cu&t=
+Cut|Cuts the selection and puts it on the Clipboard=
+Paste|Inserts Clipboard contents=
+Select &All=
+Select All|Selects the entire document=
+Undo|Reverts the last action=
+
+[TfrmConfigKbd]
+&Add=
+&Close=
+&Current shortcuts:=
+&New shortcut:...
[truncated message content] |
|
From: <pe...@us...> - 2006-11-13 17:59:53
|
Revision: 118
http://svn.sourceforge.net/initranslator/?rev=118&view=rev
Author: peter3
Date: 2006-11-10 11:29:47 -0800 (Fri, 10 Nov 2006)
Log Message:
-----------
- Added default sections for generic import/export dialogs to lng template
- ApplicationServices implements IApplicationServices
Modified Paths:
--------------
translator/trunk/languages/Default.lng
translator/trunk/languages/Svenska.lng
Added Paths:
-----------
translator/trunk/src/ApplicationServices.pas
Modified: translator/trunk/languages/Default.lng
===================================================================
--- translator/trunk/languages/Default.lng 2006-11-10 19:26:27 UTC (rev 117)
+++ translator/trunk/languages/Default.lng 2006-11-10 19:29:47 UTC (rev 118)
@@ -1,4 +1,21 @@
-\xFF\xFE[ |
|
From: <pe...@us...> - 2006-11-14 10:42:14
|
Revision: 122
http://svn.sourceforge.net/initranslator/?rev=122&view=rev
Author: peter3
Date: 2006-11-14 02:41:53 -0800 (Tue, 14 Nov 2006)
Log Message:
-----------
- More on plugins
- Added plugins to help file contents
- safecall added to ILocalizable method
Modified Paths:
--------------
translator/trunk/help/Index.hhk
translator/trunk/help/Index.html
translator/trunk/help/Plugins.html
translator/trunk/help/toc.hhc
translator/trunk/help/translator.hhp
translator/trunk/setup/IniTransCommon.iss
translator/trunk/setup/translator.fbp5
translator/trunk/src/MainFrm.pas
translator/trunk/src/TransIntf.pas
translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
Modified: translator/trunk/help/Index.hhk
===================================================================
--- translator/trunk/help/Index.hhk 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/help/Index.hhk 2006-11-14 10:41:53 UTC (rev 122)
@@ -102,6 +102,26 @@
<param name="Local" value="Appendix B.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="ILocalizable">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="Writing plugins">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="Register plugin">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="IApplicationServices.">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
<param name="Name" value="Beneath">
<param name="Name" value="The Preferences Dialog">
<param name="Local" value="Preferences dialog.html">
@@ -1555,6 +1575,21 @@
<param name="Local" value="..\MPL-1.1.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="Plugins">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="IFileParser">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="IToolItem">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
<param name="Name" value="Portions">
<param name="Name" value="Mozilla Public License version 1.1">
<param name="Local" value="..\MPL-1.1.html">
Modified: translator/trunk/help/Index.html
===================================================================
--- translator/trunk/help/Index.html 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/help/Index.html 2006-11-14 10:41:53 UTC (rev 122)
@@ -27,6 +27,7 @@
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Configure%20Keyboard%20Dialog.html">The Configure Keyboard Dialog</a><br />
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Icons%20in%20the%20ListView.html">Icons in the ListView</a><br />
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Command-line%20interface.html">The Command-line Interface</a><br />
+ <img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Plugins.html">Plugins</a><br />
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="Known%20issues.html">Known Issues</a>
</dl>
@@ -34,8 +35,9 @@
<dl>
<dd>
- <img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="MSTermBuild.html">MS Terminology Translations Builder</a>
<br />
-
+ <img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="MSTermBuild.html">MS Terminology Translations Builder</a>
+<br />
+
<img border="0" src="images/HelpItem.jpg" width="16" height="16"><a href="MSDictBuild.html">MS Dictionary Builder</a>
</dd>
</dl>
Modified: translator/trunk/help/Plugins.html
===================================================================
--- translator/trunk/help/Plugins.html 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/help/Plugins.html 2006-11-14 10:41:53 UTC (rev 122)
@@ -21,53 +21,56 @@
tool that fulfills these requirements :</p>
<ol>
<li>it must understand interfaces </li>
- <li>it must create pure 32-bit Windows DLL files</li>
+ <li>it must be able to create pure 32-bit Windows DLL files</li>
</ol>
<p> </p>
<p>The following discussion assumes Delphi syntax, but you can use any tool that
supports the requirements above. </p>
<p> </p>
+<p class="InfoField"><b>Note</b> <br>
+<br>
+When a function or method returns a <b>HResult</b>, you should generally return
+<b>S_OK</b> if the method executed normally, <b>S_FALSE</b> otherwise. If any
+other return value is expected, it is described in the documentation.<br>
+ </p>
+<p> </p>
<h4>Writing a file parser</h4>
<p>A file parser imports and exports file data to/from IniTranslator. It doesn't
-matter to IniTranslator in what format the data is stored, as long as it can be
+matter to IniTranslator in what format the data is stored as long as it can be
translated to the concept of a Original-Translation pair. A file parser must
implement the IFileParser interface:</p>
<p> </p>
-<pre>type
+<pre><b>type</b>
IFileParser = <b>interface</b>(IInterface)
-<i><font color="#000080"> </font></i>function ExportItems(const Items, Orphans: ITranslationItems): HResult;
- function ImportItems(const Items, Orphans: ITranslationItems): HResult;
- function DisplayName(Capability: integer): WideString;
- function Capabilities: integer;
- function Configure(Capability: integer): HResult;
- procedure Init(const ApplicationServices: IApplicationServices);
- end;</pre>
+ <font color="#000080">['{3E556846-9B4D-4722-B48F-48D020715509}']</font>
+<i><font color="#000080"> </font></i><b>function</b> ExportItems(<b>const</b> Items, Orphans: ITranslationItems): HResult; <b>safecall</b>;
+ <b>function</b> ImportItems(<b>const</b> Items, Orphans: ITranslationItems): HResult; <b>safecall</b>;
+ <b>function</b> DisplayName(Capability: integer): WideString; <b>safecall</b>;
+ <b>function</b> Capabilities: integer; <b>safecall</b>;
+ <b>function</b> Configure(Capability: integer): HResult; <b>safecall</b>;
+ <b>procedure</b> Init(<b>const</b> ApplicationServices: IApplicationServices); <b>safecall</b>;
+ <b>end</b>;</pre>
<p><b>ExportItems </b>is called whenever the user has chosen to export the items
in IniTranslator using this file parser. You should provide a preview dialog
where the user can see the effect of his changes, provide additional options if
necessary and save the file if the user so chooses. A generic Delphi export form
is provided in the source sohould you need one or you could build your own.</p>
-<p> </p>
<p><b>ImportItems </b>is called whenever the user chooses to import a file using
this parser. You should provide a dialog where the user can select the file(s)
to import and provide any additional options required to succesfully improt a
file.</p>
-<p> </p>
<p><b>DisplayName </b>is called whenever IniTranslator needs to display info
about the plugin in the UI. Capability is either CAP_IMPORT or CAP_EXPORT
indicating which string is required.</p>
-<p> </p>
<p><b>Capabilities </b>is called by Initransaltor to determine if the file
parser supports importing, exporting or bith. Additionally, if your plugin
provide some type of configuration dialog you can return this capability as well.
The return value of Capabilities is a combination of the values CAP_IMPORT,
CAP_EXPORT and CAP_CONFIGURE</p>
-<p> </p>
<p><b>Configure </b>is called either when the user clicks the Configure button
in the UI or when he elects to import/export using this parser. Capability
indicates whether this request originated in the import (CAP_IMPORT) or export (CAP_EXPORT)
dialog.</p>
-<p> </p>
<p><b>Init</b> is called before any other methods of the plugin. You should
store an internal reference to the IApplicationServices interface if you plan to
use any of its services later on (like calling the Translate method). If you are
@@ -77,61 +80,104 @@
original ApplicationHandle. This ensures that any dialogs that your plugin
displays, will behave correctly with IniTranslator.</p>
<p> </p>
-<p> </p>
<h4>Writing a tool plugin</h4>
-<p> </p>
+<p>A tool plugin works on the items loaded into IniTranslator. Typical usage is
+performing a specific action on one or more items in the list, providing an
+alternative editing experience or viewing the data in another format. The IToolItem
+interface definition look like this:</p>
+<pre><b>type</b>
+ IToolItem = <b>interface</b>(IInterface)
+ <font color="#000080">['{E14F5620-0EC9-43B5-816C-1A265C3FF237}']
+</font> <b>function </b>DisplayName: WideString; <b>safecall</b>;
+ <b>function </b>About: WideString; <b>safecall</b>;
+ <b>function </b>Status(<b>const </b>Items, Orphans: ITranslationItems; <b>const </b>SelectedItem: ITranslationItem): Integer; <b>safecall</b>;
+ <b>function </b>Icon: LongWord; <b>safecall</b>;
+ <b>function </b>Execute(<b>const </b>Items, Orphans: ITranslationItems; <b>var </b>SelectedItem: ITranslationItem): HResult; <b>safecall</b>;
+ <b>procedure </b>Init(<b>const </b>ApplicationServices: IApplicationServices); <b>safecall</b>;
+ <b>end</b>;
+</pre>
+<p><b>DisplayName </b>should return the text to show in the UI (on a menu item
+or similar)</p>
+<p><b>About </b>should return a string that in more detail describes the plugin,
+information about the creator etc (currently not used)</p>
+<p><b>Status</b> should return the current status of the plugin. Use the passed
+in parameters to help you determine whether to enable or disable the plugin. The
+valid values you can return is a bit-wise combination of the constants <b>
+TOOL_VISIBLE, TOOL_ENABLED, TOOL_CHECKED</b>. You should treat the parameters as
+read-only in this method, i.e don\xE4t try to add, edit or delete items in the
+lists.</p>
+<p><b>Icon</b> should return a handle to an icon (not currently used). Return 0
+if there is no icon</p>
+<p><b>Execute</b> is called when the user activates the plugin (currently by
+clicking the menu item). This is where the plugin does its work. You can add,
+delete and modify the items in the Items and Orphans list and you can change the
+value of the SelectedItem if you like. The UI is frozen until you return from
+this method.</p>
+<p><b>Init</b> is called before any other methods of the plugin. You should
+store an internal reference to the IApplicationServices interface if you plan to
+use any of its services later on (like calling the Translate method). If you are
+planning on displaying dialogs of your own (most file parses do), you should at
+least store the DLL's current ApplicationHandle, change it to use IApplicationServices.AppHandle and, when the DLL is unloaded, restore the
+original ApplicationHandle. This ensures that any dialogs that your plugin
+displays, will behave correctly with IniTranslator.</p>
<h4>Registering a plugin</h4>
<p>Every plugin must export one or more functions from the DLL that tells
-IniTranslator that it is available. Due to the internal structure of
-IniTransaltor, a DLL can only contain one single file parser, but you can have
-as meny tool plugins as you like. </p>
+IniTranslator that a plugin available from the DLL. Due to the internal structure of IniTranslator, a DLL can only contain one single file parser, but you can have
+as meny tool plugins as you like.</p>
+<p> </p>
<p>To register a file parser, export a function named <font color="#000080"><i>
"RegisterTransFileParser001"</i> </font>with the following signature:</p>
-<pre>function (out Parser: IFileParser): HResult;
+<pre><b>function </b>(<b>out </b>Parser: IFileParser): HResult; <b>stdcall</b>;</pre>
+<pre>When this function is called, you should create an instance of a class that implements IFileParser and return it in the Parser variable.
</pre>
<p>To register your tool plugins, export a function named <i>
<font color="#000080">"RegisterTransToolItems001"</font></i> with the following
signature:</p>
-<pre>function (out ToolItems: IToolItems): HResult;
+<pre><b>function </b>(<b>out </b>ToolItems: IToolItems): HResult; <b>stdcall</b>;
</pre>
<p>Note that this function actually returns an interface that can hold a list of
-IToolItem and thus you can register more than one tool plugin per DLL.</p>
+IToolItem and thus you can register more than one tool plugin per DLL. When this
+function is called, you should create an instance of a class that implements
+IToolItems and return it in the ToolItems variable.</p>
<p> </p>
<h4>Supporting localization</h4>
<p>Not only is IniTranslator a translation tool, but it also supports having its
own UI translated. IniTranslator uses text files in ini file format with the
extension .lng for its own language files. These files can be edited with
-IniTranslator (this is a typical example of "eating your own dog food"). You can
-use the IniTranslator transaltion mechanism in your plugins by performing two
+IniTranslator itself. You can
+use the IniTranslator translation mechanism in your plugins by performing two
simple steps:</p>
<p> </p>
<ol>
<li>Implement the ILocalizable interface in each of your file parsers and/or
tool plugins</li>
- <li>Call IApplicationServices.Translate whenever you nned to display a text
+ <li>Call IApplicationServices.Translate whenever you need to display a text
in your plugins UI </li>
</ol>
<p> </p>
-<p>The ILocalizable interface is declared like this:</p>
-<pre>ILocalizable = interface(IInterface)
- function GetString(out Section:WideString; out Name:WideString; out Value:WideString):WordBool;
-end;</pre>
+<p>The ILocalizable interface looks like this:</p>
+<pre><b>type</b>
+ ILocalizable = <b>interface</b>(IInterface)
+ <font color="#000080">['{E10D0143-B334-4CCE-898A-F25384D79C6E}']
+</font> <b>function </b>GetString(<b>out </b>Section:WideString; <b>out </b>Name:WideString; <b>out </b>Value:WideString):WordBool;<b> stdcall</b>;
+ <b>end</b>;</pre>
<p>This is a very simple interface with only one method and the only thing you
need to do is to supply a new Name/Value pair every time the method is called.
You should also supply at least one Section name that is unique to you, your
company or your plugin (you can use several Section names if you like). Return
-true as long as Section, Name and Value contains valid values. </p>
+true as long as Section, Name and Value contains valid values. Do not include
+carriage returns or line feeds in the strings. Instead, encode these as "\r\n"
+or use another scheme you prefer.</p>
<p> </p>
-<p>This method is only ever called when the user wants to create a new
+<p>This method is only called when the user creates a new
translation template for IniTranslator. This is not something users do
regularily. In fact, most users never do it, opting to use default.lng or
another language file in the languages folder of their installation.</p>
<p> </p>
<p>To access the translated strings at runtime (they might not be translated;
-depends on whether the user has a UI language file loaded or not), use the <b>
+this depends on whether the user has a UI language file loaded or not), use the <b>
IApplicationServices.Translate(Section, Name, Value)</b> method, passing in the
-same Section and Name values as you used when <b>ILocalizable.GetString </b>was
-called. As for Value, use the default value for the string. If the user has an .lng
+same Section and Name as you returned from <b>ILocalizable.GetString</b>. As for Value, use the default value for the string. If the user has a .lng
file loaded and a translation for your string was found, the translation is
returned. If no string was found, the default Value is returned instead.<br>
</p>
Modified: translator/trunk/help/toc.hhc
===================================================================
--- translator/trunk/help/toc.hhc 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/help/toc.hhc 2006-11-14 10:41:53 UTC (rev 122)
@@ -33,7 +33,6 @@
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="Trimming">
<param name="Local" value="Trim.html">
- <param name="New" value="1">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="Suspicious translations">
@@ -75,13 +74,17 @@
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="Icons in the ListView">
<param name="Local" value="Icons in the ListView.html">
- <param name="New" value="1">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="The Command-line Interface">
<param name="Local" value="Command-line interface.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+ <param name="Name" value="Plugins">
+ <param name="Local" value="Plugins.html">
+ <param name="New" value="1">
+ </OBJECT>
+ <LI> <OBJECT type="text/sitemap">
<param name="Name" value="Known Issues">
<param name="Local" value="Known issues.html">
</OBJECT>
Modified: translator/trunk/help/translator.hhp
===================================================================
--- translator/trunk/help/translator.hhp 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/help/translator.hhp 2006-11-14 10:41:53 UTC (rev 122)
@@ -33,6 +33,7 @@
Appendix C.html
Appendix D.html
Command-line interface.html
+Plugins.html
Known issues.html
Preferences dialog.html
..\MPL-1.1.html
Modified: translator/trunk/setup/IniTransCommon.iss
===================================================================
--- translator/trunk/setup/IniTransCommon.iss 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/setup/IniTransCommon.iss 2006-11-14 10:41:53 UTC (rev 122)
@@ -1,6 +1,6 @@
#define AppName "Ini Translator"
-#define AppVersion "1.9.0.36"
-#define AppShortVersion "19036"
+#define AppVersion "1.9.0.37"
+#define AppShortVersion "19037"
#define GroupName "Ini Translator"
#define URL "http://initranslator.sourceforge.net"
#define AppPublisher "Peter Th\xF6rnqvist"
Modified: translator/trunk/setup/translator.fbp5
===================================================================
--- translator/trunk/setup/translator.fbp5 2006-11-13 17:07:20 UTC (rev 121)
+++ translator/trunk/setup/translator.fbp5 2006-11-14 10:41:53 UTC (rev 122)
@@ -124,7 +124,7 @@
<Property name="SelectAll" type="Boolean">False</Property>
</Object>
<Object Class="TPersistParam" XMLID="{61C26F12-53A5-41FA-8F60-F567944EDE65}"><Property MultiValue="0" name="Caption" type="string">&amp;Build:</Property>
- <Property MultiValue="0" name="DefaultValue" type="string">36</Property>
+ <Property MultiValue="0" name="DefaultValue" type="string">37</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
</Property>
@@ -312,59 +312,74 @@
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
- <Object Class="TDelphiCompilerAction" XMLID="{F618EF5F-0619-48B2-A32C-3CF46CF49577}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Object Class="TGroupAction" XMLID="{F9908FF5-DFCB-4E24-93CA-60452635BAD9}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
- <Property name="AllowImplicitImport" type="Boolean">True</Property>
- <Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
- <Property name="AutoIncBuild" type="WordBool">False</Property>
- <Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
- <Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
- <Property name="CodePage" type="Integer">1252</Property>
- <Property name="CompilerVersion" type="Integer">4</Property>
- <Property name="DebugVersionNumbers" type="Boolean">False</Property>
- <Property MultiValue="0" name="Description" type="string">IniTranslator</Property>
+ <Property MultiValue="0" name="Description" type="string">Executables</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
- <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
- <Property name="HintsAsError" type="Boolean">False</Property>
- <Property MultiValue="0" name="IconFile" type="WideString">%ROOTPATH%data\MichaelKoganIcon2.ico</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
- <Property name="IncludeCompileDate" type="WordBool">True</Property>
- <Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
- <Property name="IsDebug" type="WordBool">False</Property>
- <Property name="IsDLL" type="WordBool">False</Property>
- <Property name="IsPreRelease" type="WordBool">False</Property>
- <Property name="IsPrivate" type="WordBool">False</Property>
- <Property name="IsSpecial" type="WordBool">False</Property>
- <Property name="KeepCFG" type="Boolean">False</Property>
- <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
- <Property name="Locale" type="Integer">1033</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
- <Property name="MajorVersion" type="Integer">1</Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="MinorVersion" type="Integer">9</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
- <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%translator.dpr</Property>
- <Property name="RegenerateResource" type="WordBool">True</Property>
- <Property name="ReleaseVersion" type="Integer">0</Property>
- <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
- <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
- <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
- <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
- <Property name="UpdateDofFile" type="Boolean">False</Property>
- <Property name="UpdatePackageSource" type="Boolean">False</Property>
- <Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
- <Property name="UseProjectSettings" type="TFBUseProjectSettings">[]</Property>
- <Property name="UsePropertySet" type="Boolean">False</Property>
- <Property name="UseVersionFromDOF" type="Boolean">False</Property>
- <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
+ <Object Class="TDelphiCompilerAction" XMLID="{F618EF5F-0619-48B2-A32C-3CF46CF49577}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Property name="ActionTextColor" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
+ <Property name="AllowImplicitImport" type="Boolean">True</Property>
+ <Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
+ <Property name="AutoIncBuild" type="WordBool">False</Property>
+ <Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
+ <Property name="BuildAll" type="WordBool">True</Property>
+ <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="CodePage" type="Integer">1252</Property>
+ <Property name="CompilerVersion" type="Integer">4</Property>
+ <Property name="DebugVersionNumbers" type="Boolean">False</Property>
+ <Property MultiValue="0" name="Description" type="string">IniTranslator</Property>
+ <Property name="Enabled" type="WordBool">True</Property>
+ <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
+ <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
+ <Property name="HintsAsError" type="Boolean">False</Property>
+ <Property MultiValue="0" name="IconFile" type="WideString">%ROOTPATH%data\MichaelKoganIcon2.ico</Property>
+ <Property name="IgnoreFailure" type="WordBool">False</Property>
+ <Property name="IncludeCompileDate" type="WordBool">True</Property>
+ <Property name="IncludeVerInfo" type="WordBool">True</Property>
+ <Property name="IsAction" type="Boolean">True</Property>
+ <Property name="IsBreakPoint" type="WordBool">False</Property>
+ <Property name="IsDebug" type="WordBool">False</Property>
+ <Property name="IsDLL" type="WordBool">False</Property>
+ <Property name="IsPreRelease" type="WordBool">False</Property>
+ <Property name="IsPrivate" type="WordBool">False</Property>
+ <Property name="IsSpecial" type="WordBool">False</Property>
+ <Property name="KeepCFG" type="Boolean">False</Property>
+ <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
+ <Property name="Locale" type="Integer">1033</Property>
+ <Property MultiValue="0" name="LogToVariable" type="string"></Property>
+ <Property name="MajorVersion" type="Integer">1</Property>
+ <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
+ <Property name="MinorVersion" type="Integer">9</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="PauseInterval" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%translator.dpr</Property>
+ <Property name="RegenerateResource" type="WordBool">True</Property>
+ <Property name="ReleaseVersion" type="Integer">0</Property>
+ <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
+ <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
+ <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
+ <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
+ <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%</Property>
+ <Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Property name="UpdateDofFile" type="Boolean">False</Property>
+ <Property name="UpdatePackageSource" type="Boolean">False</Property>
+ <Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
+ <Property name="UseProjectSettings" type="TFBUseProjectSettings">[]</Property>
+ <Property name="UsePropertySet" type="Boolean">False</Property>
+ <Property name="UseVersionFromDOF" type="Boolean">False</Property>
+ <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=Ini Language Translator
FileVersion=1.9.0.36
InternalName=translator.exe
@@ -377,94 +392,79 @@
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
]]>
- </Property>
- <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
- <Property name="WarningsAsError" type="Boolean">False</Property>
- <Property name="WorkAroundD5Bug" type="WordBool">False</Property>
- <Object Class="TBuildScript" XMLID="{36D4C2F9-76D5-4B9A-8957-FB55F810F248}"><Property MultiValue="0" name="BreakPointsStore" type="string"></Property>
- <Property MultiValue="0" name="Name" type="string">BeforeAction</Property>
- ...
[truncated message content] |
|
From: <pe...@us...> - 2006-11-14 23:30:05
|
Revision: 126
http://svn.sourceforge.net/initranslator/?rev=126&view=rev
Author: peter3
Date: 2006-11-14 15:30:01 -0800 (Tue, 14 Nov 2006)
Log Message:
-----------
- Renamed string constants for consistency
- Orphaned items can now be saved to a file and merged into the main items
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/languages/Default.lng
translator/trunk/languages/Svenska.lng
translator/trunk/src/AppConsts.pas
translator/trunk/src/AppUtils.pas
translator/trunk/src/EditItemFrm.dfm
translator/trunk/src/EditItemFrm.pas
translator/trunk/src/ExtToolsFrm.pas
translator/trunk/src/MainFrm.dfm
translator/trunk/src/MainFrm.pas
translator/trunk/src/OrphansFrm.dfm
translator/trunk/src/OrphansFrm.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-11-14 14:11:44 UTC (rev 125)
+++ translator/trunk/Changelog.txt 2006-11-14 23:30:01 UTC (rev 126)
@@ -1,8 +1,21 @@
Ini Translator Changelog
========================
+2006-11-15:
+- Renamed string constants for consistency
+- Orphaned items can now be saved to a file and merged into the main items
+
+2006-11-14:
+- More on plugins
+- Added plugins to help file contents
+- safecall added to ILocalizable method
+
+2006-11-13:
+- added about doc in html format
+- added (initial) plugins docs
+- added htt template
+- text rendering bug in ExtTools fixed: TntListBox has problems with virtual mode. Changed to owner drawing
+
2006-11-12:
-- Added new ILocalizable interface for plugins
-- Changed Init method of plugins to take an IApplicationServices instance
- Changed MRU behavior (again).
Rules:
@@ -15,14 +28,35 @@
- ExtTools: Tnt ListBox doesn't work consistently in virtual mode, change to virtual+ownerdraw fixed it
2006-11-10:
+- Support for localizing plugins (ILocalizable)
+- Modifications to XiliSoftParser to support ILocalizable
+- The common plugin dialogs (frmImport, frmExport) can now optionally read translations from the applications current language file (not the one being edited, but the one used by IniTranslator)
+- Added XiliSoftParser to build script
+- Added XiliSoft parser by Alexander Kornienko
+- Updated documentation (menu command reference - Appendix B)
+- Changed Init method of interfaces, now takes an IApplicationService parameter
+- Added ITranslationService interface to TransIntf
+- Changed MRU file handling: only add when Original + Translation are both <> "" and only add when Translation file is opened
- Added new "Make translations consistent" command
-- Updated documentation (menu command reference - Appendix B)
- Updated some language files
2006-11-08:
- MRU items only saved if both original and translation contains valid filenames
- Logic for opening Original and/or Translation file changed
+2006-11-07:
+- new russian.lng from Aleksandr Kornienko
+- Office 2007 theme added
+- Spell errors fixed
+
+2006-09-31:
+- Japanese language file for 1.9.0.13 by Nardog
+
+2006-09-26:
+- MsTermBuild added to build script
+- Added option to build script to use existing folder when building release
+
+
2006-09-23:
- Added new MsTermBuild project to convert MS Terminology Translations to IniTranslator dictionaries
- Dictionary class now removes empty translations automatically when loading and merging etc
Modified: translator/trunk/languages/Default.lng
===================================================================
--- translator/trunk/languages/Default.lng 2006-11-14 14:11:44 UTC (rev 125)
+++ translator/trunk/languages/Default.lng 2006-11-14 23:30:01 UTC (rev 126)
@@ -272,6 +272,10 @@
|
|
From: <pe...@us...> - 2006-11-18 10:48:21
|
Revision: 127
http://svn.sourceforge.net/initranslator/?rev=127&view=rev
Author: peter3
Date: 2006-11-18 02:48:21 -0800 (Sat, 18 Nov 2006)
Log Message:
-----------
- For some strange reason, some parameters where declared as string when they should have been WideString. This messed up the display in the menu/toolbar control
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/src/ApplicationServices.pas
translator/trunk/src/Dictionary.pas
translator/trunk/src/MainFrm.pas
translator/trunk/src/MsgTranslate.pas
translator/trunk/src/OptionsFrm.dfm
translator/trunk/src/TransIntf.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/Changelog.txt 2006-11-18 10:48:21 UTC (rev 127)
@@ -1,5 +1,8 @@
Ini Translator Changelog
========================
+2006-11-18:
+- For some strange reason, some parameters where declared as string when they should have been WideString. This messed up the display in the menu/toolbar control
+
2006-11-15:
- Renamed string constants for consistency
- Orphaned items can now be saved to a file and merged into the main items
@@ -22,7 +25,7 @@
1. Opening original, cancel on trans - > new MRU (new orig, old trans)
1b. if not FileExists(old trans) -> new empty trans
2. Open orig + trans - > new MRU(new orig, new trans)
- 3. Open trans -> mew MRU(old orig, new trans)
+ 3. Open trans -> new MRU(old orig, new trans)
if MRU item already exists, nothing is added
- ExtTools: Tnt ListBox doesn't work consistently in virtual mode, change to virtual+ownerdraw fixed it
Modified: translator/trunk/src/ApplicationServices.pas
===================================================================
--- translator/trunk/src/ApplicationServices.pas 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/ApplicationServices.pas 2006-11-18 10:48:21 UTC (rev 127)
@@ -26,8 +26,7 @@
const Name: WideString; const Value: WideString); safecall;
procedure SetFooter(const Value: WideString);
procedure SetHeader(const Value: WideString);
- function Translate(const Section: string; const Name: string;
- const Value: string): WideString; safecall;
+ function Translate(const Section, Name, Value: WideString): WideString; safecall;
procedure UnRegisterNotify(const ANotify: INotify); safecall;
function _Release: Integer; stdcall;
@@ -117,8 +116,7 @@
FForm.SetHeader(Value);
end;
-function TApplicationServices.Translate(const Section, Name,
- Value: string): WideString;
+function TApplicationServices.Translate(const Section, Name, Value: WideString): WideString; safecall;
begin
Result := FForm.Translate(Section, Name, Value);
end;
Modified: translator/trunk/src/Dictionary.pas
===================================================================
--- translator/trunk/src/Dictionary.pas 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/Dictionary.pas 2006-11-18 10:48:21 UTC (rev 127)
@@ -43,7 +43,7 @@
public
constructor Create;
destructor Destroy; override;
- function DefaultTranslation: string;
+ function DefaultTranslation: WideString;
property Original: WideString read GetOriginal write SetOriginal;
property Translations: TTntStrings read FTranslations write SetTranslations;
property DefaultIndex: integer read FDefaultIndex write FDefaultIndex;
@@ -143,7 +143,7 @@
TTntStringlist(FTranslations).Sorted := true;
end;
-function TDictionaryItem.DefaultTranslation: string;
+function TDictionaryItem.DefaultTranslation: WideString;
begin
if (DefaultIndex >= 0) and (DefaultIndex < Translations.Count) then
Result := Translations[DefaultIndex]
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/MainFrm.pas 2006-11-18 10:48:21 UTC (rev 127)
@@ -334,7 +334,7 @@
TBXItem16: TSpTBXItem;
TBXSeparatorItem8: TSpTBXSeparatorItem;
mnuPlugins: TSpTBXSubmenuItem;
- pbTranslated: TTntProgressBar;
+ pbTranslated: TTntProgressBar;
mnuThemes: TSpTBXSubmenuItem;
mnuThemesGroup: TSpTBXThemeGroupItem;
acMakeConsistent: TTntAction;
@@ -579,7 +579,7 @@
procedure UnRegisterNotify(const ANotify: INotify); safecall;
function BeginUpdate: Integer; safecall;
function EndUpdate: Integer; safecall;
- function Translate(const Section, Name, Value: string): WideString; safecall;
+ function Translate(const Section, Name, Value: WideString): WideString;
{
property Items:ITranslationItems read GetItems;
property Orphans:ITranslationItems read GetOrphans;
@@ -4340,7 +4340,7 @@
end;
end;
-function TfrmMain.Translate(const Section, Name, Value: string): WideString;
+function TfrmMain.Translate(const Section, Name, Value: WideString): WideString;
begin
Result := GlobalLanguageFile.Translate(Section, Name, Value);
end;
Modified: translator/trunk/src/MsgTranslate.pas
===================================================================
--- translator/trunk/src/MsgTranslate.pas 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/MsgTranslate.pas 2006-11-18 10:48:21 UTC (rev 127)
@@ -53,7 +53,7 @@
procedure DoReadObject(AnObject: TObject; const PropName, Section: WideString; var AValue: WideString); dynamic;
procedure DoWriteObject(AnObject: TObject; const PropName: WideString; var ASection, AName, AValue: WideString); dynamic;
public
- function Translate(const Section, Name, Value: string): WideString;
+ function Translate(const Section, Name, Value: WideString): WideString;
constructor Create(const Filename: WideString = '');
destructor Destroy; override;
@@ -485,7 +485,7 @@
TranslateObject(TComponent(AnObject).Components[i], Section);
end;
-function TAppLanguage.Translate(const Section, Name, Value: string): WideString;
+function TAppLanguage.Translate(const Section, Name, Value: WideString): WideString;
begin
if FLangFile <> nil then
begin
Modified: translator/trunk/src/OptionsFrm.dfm
===================================================================
--- translator/trunk/src/OptionsFrm.dfm 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/OptionsFrm.dfm 2006-11-18 10:48:21 UTC (rev 127)
@@ -1,7 +1,7 @@
object frmOptions: TfrmOptions
Left = 316
Top = 175
- ActiveControl = chkShowQuotes
+ ActiveControl = chkGlobalPath
BorderStyle = bsDialog
Caption = 'Preferences'
ClientHeight = 449
@@ -65,7 +65,7 @@
Top = 2
Width = 477
Height = 387
- ActivePage = tsGeneral
+ ActivePage = tsAdvanced
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 3
object tsGeneral: TTntTabSheet
@@ -331,7 +331,7 @@
end
object TntLabel3: TTntLabel
Left = 238
- Top = 210
+ Top = 208
Width = 36
Height = 13
Caption = '&Footer:'
@@ -437,7 +437,7 @@
Left = 7
Top = 224
Width = 218
- Height = 127
+ Height = 125
BevelKind = bkFlat
BorderStyle = bsNone
PlainText = True
@@ -450,7 +450,7 @@
Left = 238
Top = 224
Width = 218
- Height = 127
+ Height = 125
BevelKind = bkFlat
BorderStyle = bsNone
PlainText = True
Modified: translator/trunk/src/TransIntf.pas
===================================================================
--- translator/trunk/src/TransIntf.pas 2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/TransIntf.pas 2006-11-18 10:48:21 UTC (rev 127)
@@ -242,7 +242,7 @@
function EndUpdate: Integer; safecall;
procedure RegisterNotify(const ANotify: INotify); safecall;
procedure UnRegisterNotify(const ANotify: INotify); safecall;
- function Translate(const Section, Name, Value: string): WideString; safecall;
+ function Translate(const Section, Name, Value: WideString): WideString; safecall;
property Items: ITranslationItems read GetItems;
property Orphans: ITranslationItems read GetOrphans;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-11-30 21:43:31
|
Revision: 139
http://svn.sourceforge.net/initranslator/?rev=139&view=rev
Author: peter3
Date: 2006-11-30 13:43:30 -0800 (Thu, 30 Nov 2006)
Log Message:
-----------
- added FoxitPlugin to setup
Modified Paths:
--------------
translator/trunk/setup/IniTransCommon.iss
translator/trunk/setup/translator.fbp5
translator/trunk/translator.bpg
Modified: translator/trunk/setup/IniTransCommon.iss
===================================================================
--- translator/trunk/setup/IniTransCommon.iss 2006-11-30 20:07:10 UTC (rev 138)
+++ translator/trunk/setup/IniTransCommon.iss 2006-11-30 21:43:30 UTC (rev 139)
@@ -1,6 +1,6 @@
#define AppName "Ini Translator"
-#define AppVersion "1.9.0.38"
-#define AppShortVersion "19038"
+#define AppVersion "1.9.0.37"
+#define AppShortVersion "19037"
#define GroupName "Ini Translator"
#define URL "http://initranslator.sourceforge.net"
#define AppPublisher "Peter Th\xF6rnqvist"
Modified: translator/trunk/setup/translator.fbp5
===================================================================
--- translator/trunk/setup/translator.fbp5 2006-11-30 20:07:10 UTC (rev 138)
+++ translator/trunk/setup/translator.fbp5 2006-11-30 21:43:30 UTC (rev 139)
@@ -345,7 +345,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">38</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -391,13 +391,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=Ini Language Translator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.38
InternalName=translator.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=translator.exe
ProductName=Ini Translator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.38
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -447,7 +447,7 @@
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
<Property name="IncludeTD32" type="WordBool">False</Property>
<Property name="IOChecking" type="WordBool">True</Property>
- <Property MultiValue="0" name="LibraryPath" type="WideString">$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;F:\Program\Borland\Add\JEDI\JCL\source;F:\Program\Borland\Add\JEDI\dev\JVCL3\common;F:\Program\Borland\Add\JEDI\dev\JVCL3\run;F:\Program\Borland\Add\dunit\src;F:\Program\Borland\Add\Others;F:\Program\Borland\Add\Utils;F:\Program\Borland\Add\tntunicode</Property>
+ <Property MultiValue="0" name="LibraryPath" type="WideString">$(Delphi)\Lib;$(Delphi)\Bin;$(Delphi)\Imports;$(Delphi)\Projects\Bpl;$(ADDONS)\EasyNSE\Source;$(ADDONS)\EasyNSE\Include;$(ADDONS)\JEDI\jcl\source;$(ADDONS)\JEDI\jcl\source\common;$(ADDONS)\JEDI\jcl\source\vcl;$(ADDONS)\JEDI\jcl\source\windows;$(ADDONS)\JEDI\jcl\lib\d7;$(ADDONS)\JEDI\jvcl\run;$(ADDONS)\JEDI\jvcl\common;$(ADDONS)\JEDI\jvcl\Resources;$(ADDONS)\JEDI\jvcl\lib\D7;$(ADDONS)\Others;$(ADDONS)\SpTBX\SpTBXLib\Source;$(ADDONS)\SpTBX\TB2K\Source;$(ADDONS)\SpTBX\TBX;$(ADDONS)\SpTBX\TNT;$(ADDONS)\Utils;$(ADDONS)\VST\Source;$(ADDONS)\VT\Source;$(ADDONS)\SynEdit\Source;$(ADDONS)\EWB\source;$(ADDONS)\graphics32;$(ADDONS)\GraphicEx;$(ADDONS)\FastMM;$(ProgramFiles)\Borland\Addict3\Source;$(ProgramFiles)\Borland\AddOns\Png\Source</Property>
<Property name="LinkerOutput" type="Integer">0</Property>
<Property name="LocalSymbols" type="WordBool">True</Property>
<Property name="Mapfile" type="Integer">3</Property>
@@ -483,7 +483,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -529,13 +529,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=MsDictBuild
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=MsDictBuild.exe
LegalCopyright=Copyright (c) 2003-2004 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsDictBuild.exe
ProductName=MsDictBuild
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -620,7 +620,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -666,13 +666,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=MsTermBuild
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=MsTermBuild.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsTermBuild.exe
ProductName=MsTermBuild
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -773,10 +773,146 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
+ <Property MultiValue="0" name="Description" type="string">Foxit DLL</Property>
+ <Property name="Enabled" type="WordBool">True</Property>
+ <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
+ <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
+ <Property name="HintsAsError" type="Boolean">False</Property>
+ <Property MultiValue="0" name="IconFile" type="WideString">%SRCPATH%FoxitPlugin\mainicon.ico</Property>
+ <Property name="IgnoreFailure" type="WordBool">False</Property>
+ <Property name="IncludeCompileDate" type="WordBool">True</Property>
+ <Property name="IncludeVerInfo" type="WordBool">True</Property>
+ <Property name="IsAction" type="Boolean">True</Property>
+ <Property name="IsBreakPoint" type="WordBool">False</Property>
+ <Property name="IsDebug" type="WordBool">False</Property>
+ <Property name="IsDLL" type="WordBool">True</Property>
+ <Property name="IsPreRelease" type="WordBool">False</Property>
+ <Property name="IsPrivate" type="WordBool">False</Property>
+ <Property name="IsSpecial" type="WordBool">False</Property>
+ <Property name="KeepCFG" type="Boolean">False</Property>
+ <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
+ <Property name="Locale" type="Integer">1033</Property>
+ <Property MultiValue="0" name="LogToVariable" type="string"></Property>
+ <Property name="MajorVersion" type="Integer">1</Property>
+ <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
+ <Property name="MinorVersion" type="Integer">9</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="PauseInterval" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%FoxitPlugin\FoxitParser.dpr</Property>
+ <Property name="RegenerateResource" type="WordBool">True</Property>
+ <Property name="ReleaseVersion" type="Integer">0</Property>
+ <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
+ <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
+ <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
+ <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
+ <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%FoxitPlugin\</Property>
+ <Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Property name="UpdateDofFile" type="Boolean">False</Property>
+ <Property name="UpdatePackageSource" type="Boolean">False</Property>
+ <Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
+ <Property name="UseProjectSettings" type="TFBUseProjectSettings">[]</Property>
+ <Property name="UsePropertySet" type="Boolean">False</Property>
+ <Property name="UseVersionFromDOF" type="Boolean">False</Property>
+ <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
+FileDescription=Foxit Plugin for IniTranslator
+FileVersion=1.9.0.37
+InternalName=FoxitParser.dll
+LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=FoxitParser.dll
+ProductName=Foxit Plugin for IniTranslator
+ProductVersion=1.9.0.37
+Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 25 november 2006 16:58
+]]>
+ </Property>
+ <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
+ <Property name="WarningsAsError" type="Boolean">False</Property>
+ <Property name="WorkAroundD5Bug" type="WordBool">False</Property>
+ <Object Class="TBuildScript" XMLID="{0430C40F-8AD9-4CE9-8995-3DB118434942}"><Property MultiValue="0" name="BreakPointsStore" type="string"></Property>
+ <Property MultiValue="0" name="Name" type="string">BeforeAction</Property>
+ <Property MultiValue="1" name="Script" type="string"><![CDATA[Action.MajorVersion = VERSION_MAJOR;
+Action.MinorVersion = VERSION_MINOR;
+Action.ReleaseVersion = VERSION_RELEASE;
+Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
+]]>
+ </Property>
+ <Property MultiValue="0" name="ScriptLanguage" type="string">JavaScript</Property>
+ </Object>
+ <Object Class="TDelphiCompilerOptions" XMLID="{FA904FD7-931A-4FCA-A7A3-6F949A7BA378}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
+ <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property>
+ <Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
+ <Property name="Assertions" type="WordBool">True</Property>
+ <Property name="AssignableConst" type="WordBool">False</Property>
+ <Property name="BoolEval" type="WordBool">False</Property>
+ <Property MultiValue="0" name="BPLOutputDir" type="WideString"></Property>
+ <Property name="CompilerWarnings" type="TStrings"><![CDATA[-w-UNSAFE_TYPE=0
+-w-UNSAFE_CODE=0
+-w-UNSAFE_CAST=0
+]]>
+ </Property>
+ <Property MultiValue="0" name="Conditionals" type="WideString"></Property>
+ <Property name="ConsoleApp" type="WordBool">False</Property>
+ <Property MultiValue="0" name="DCPOutputDir" type="WideString"></Property>
+ <Property name="DebugInfo" type="WordBool">True</Property>
+ <Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
+ <Property name="DefinitionsOnly" type="WordBool">True</Property>
+ <Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
+ <Property name="ExportAllSymbols" type="WordBool">False</Property>
+ <Property name="ExtendedSyntax" type="WordBool">True</Property>
+ <Property name="GenerateDocumentation" type="Boolean">False</Property>
+ <Property name="GenerateHPP" type="WordBool">False</Property>
+ <Property name="HugeStrings" type="WordBool">True</Property>
+ <Property name="ImageBase" type="Cardinal">4194304</Property>
+ <Property name="IncludeNamespaces" type="WordBool">False</Property>
+ <Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
+ <Property name="IncludeTD32" type="WordBool">False</Property>
+ <Property name="IOChecking" type="WordBool">True</Property>
+ <Property MultiValue="0" name="LibraryPath" type="WideString">$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;F:\Program\Borland\Add\JEDI\JCL\source;F:\Program\Borland\Add\JEDI\dev\JVCL3\common;F:\Program\Borland\Add\JEDI\dev\JVCL3\run;F:\Program\Borland\Add\dunit\src;F:\Program\Borland\Add\Others;F:\Program\Borland\Add\Utils;f:\program\borland\projects\work\eq plan\eq plan 2.0\eqplan</Property>
+ <Property name="LinkerOutput" type="Integer">3</Property>
+ <Property name="LocalSymbols" type="WordBool">True</Property>
+ <Property name="Mapfile" type="Integer">3</Property>
+ <Property name="MaxStackSize" type="Cardinal">1048576</Property>
+ <Property name="MinStackSize" type="Cardinal">16384</Property>
+ <Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
+ <Property name="OpenStrings" type="WordBool">True</Property>
+ <Property name="Optimisation" type="WordBool">True</Property>
+ <Property MultiValue="0" name="OutputDir" type="WideString">..\..\bin\plugins</Property>
+ <Property name="OverflowChecking" type="WordBool">False</Property>
+ <Property MultiValue="0" name="Packages" type="WideString">vcl;rtl;vclx;addict3_d7;tntunicodevcl_r70;vcldb;addict3db_d7;vclactnband;dbrtl;adortl;dbexpress;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;vclsmp;dsnap;dbxcds;soaprtl;dragdropd7;easynsed7;embeddedwebbrowser_d7;vclshlctrls;synedit_r7;sptbxlib_d7;tbx_d7;tb2k_d7;virtualexplorerlistviewexd7;virtualshelltoolsd7;virtualtreesd7;gr32_dsgn_d7;gr32_d7;png_d7;pngcomponentsd7;jcl;jvcmpd7r;jvcored7r;jclvcl;jvsystemd7r;jvstdctrlsd7r;jvctrlsd7r;jvcustomd7r;jvdbd7r;jvdlgsd7r;jvdotnetctrlsd7r;jvhmid7r;jvmmd7r;jvnetd7r;jvpagecompsd7r;jvprintpreviewd7r;jvruntimedesignd7r;jvtimeframeworkd7r;jvvalidatorsd7r;jvwizardd7r;jvxpctrlsd7r</Property>
+ <Property name="RangeChecking" type="WordBool">False</Property>
+ <Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
+ <Property name="ReferenceInfo" type="WordBool">True</Property>
+ <Property name="SafeDivide" type="WordBool">False</Property>
+ <Property MultiValue="0" name="SearchPath" type="WideString"></Property>
+ <Property name="ShowHints" type="WordBool">True</Property>
+ <Property name="ShowWarnings" type="WordBool">True</Property>
+ <Property name="StackFrames" type="WordBool">False</Property>
+ <Property name="TypedPointers" type="WordBool">False</Property>
+ <Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
+ <Property MultiValue="0" name="UnitOutputDir" type="WideString">..\..\dcu</Property>
+ <Property name="UseDebugDCU" type="WordBool">False</Property>
+ <Property name="UsePackages" type="WordBool">False</Property>
+ <Property name="VarStringChecks" type="WordBool">True</Property>
+ </Object>
+ </Object>
+ <Object Class="TDelphiCompilerAction" XMLID="{FDE2BA24-EBB2-49C2-A0E2-A76639985215}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Property name="ActionTextColor" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
+ <Property name="AllowImplicitImport" type="Boolean">True</Property>
+ <Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
+ <Property name="AutoIncBuild" type="WordBool">False</Property>
+ <Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
+ <Property name="BuildAll" type="WordBool">True</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
+ <Property name="CodePage" type="Integer">1252</Property>
+ <Property name="CompilerVersion" type="Integer">4</Property>
+ <Property name="DebugVersionNumbers" type="Boolean">False</Property>
<Property MultiValue="0" name="Description" type="string">Generic php DLL</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@@ -819,20 +955,20 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=PHP Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=PHPParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=PHPParser.dll
ProductName=PHP Plugin for IniTranslator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
<Property name="WarningsAsError" type="Boolean">False</Property>
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
- <Object Class="TBuildScript" XMLID="{0430C40F-8AD9-4CE9-8995-3DB118434942}"><Property MultiValue="0" name="BreakPointsStore" type="string"></Property>
+ <Object Class="TBuildScript" XMLID="{547F5D0C-849F-48EA-9311-762F60D9E047}"><Property MultiValue="0" name="BreakPointsStore" type="string"></Property>
<Property MultiValue="0" name="Name" type="string">BeforeAction</Property>
<Property MultiValue="1" name="Script" type="string"><![CDATA[Action.MajorVersion = VERSION_MAJOR;
Action.MinorVersion = VERSION_MINOR;
@@ -843,7 +979,7 @@
</Property>
<Property MultiValue="0" name="ScriptLanguage" type="string">JavaScript</Property>
</Object>
- <Object Class="TDelphiCompilerOptions" XMLID="{FA904FD7-931A-4FCA-A7A3-6F949A7BA378}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
+ <Object Class="TDelphiCompilerOptions" XMLID="{1CBF7ACE-25E9-4F44-8104-A5FBF035C6AF}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property>
<Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
<Property name="Assertions" type="WordBool">True</Property>
@@ -908,7 +1044,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -954,13 +1090,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=IB Forums Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=IBForumsParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=IBForumsParser.dll
ProductName=IB Forums Plugin for IniTranslator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1043,7 +1179,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1089,13 +1225,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Mozilla DTD Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=MozillaDTDParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaDTDParser.dll
ProductName=Mozilla DTD Plugin for IniTranslator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1178,7 +1314,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1224,13 +1360,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Mozilla Properties Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=MozillaPropsParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaPropsParser.dll
ProductName=Mozilla Properties Plugin for IniTranslator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1313,7 +1449,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1359,13 +1495,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Oleg Translator Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=OlegParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=OlegParser.dll
ProductName=Oleg Translator Plugin for IniTranslator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1448,7 +1584,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1494,13 +1630,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=phpNuke Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=phpNukeParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=phpNukeParser.dll
ProductName=phpNuke Plugin for IniTranslator
-ProductVersion=1.9.0.36
+ProductVersion=1.9.0.37
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1583,7 +1719,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">36</Property>
+ <Property name="BuildVersion" type="Integer">37</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1629,13 +1765,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=PO Plugin for IniTranslator
-FileVersion=1.9.0.36
+FileVersion=1.9.0.37
InternalName=POParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
L...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-01 16:23:53
|
Revision: 143
http://svn.sourceforge.net/initranslator/?rev=143&view=rev
Author: peter3
Date: 2006-12-01 08:23:53 -0800 (Fri, 01 Dec 2006)
Log Message:
-----------
FoxitPlugin:
- added svn:keyword properties
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/src/FoxitPlugin/FoxitParser.pas
translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas
Property Changed:
----------------
translator/trunk/src/FoxitPlugin/FoxitParser.dpr
translator/trunk/src/FoxitPlugin/FoxitParser.pas
translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-01 16:23:00 UTC (rev 142)
+++ translator/trunk/Changelog.txt 2006-12-01 16:23:53 UTC (rev 143)
@@ -1,5 +1,16 @@
Ini Translator Changelog
========================
+2006-12-01:
+FoxitPlugin:
+- save the *original* file as the template: this way any items missing in the translation will automatically be added without any problems
+- add all items in the translation file that are missing from the original to the Orphans list
+
+2006-11-30:
+ToolProperties:
+- Now displays section and name
+FoxitPlugin:
+- New plugin for Foxit PDF Reader (http://www.foxitsoftware.com/)
+
2006-11-25:
- Added project files for BDS 2006
- Built succesfully with BDS 2006
Property changes on: translator/trunk/src/FoxitPlugin/FoxitParser.dpr
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
Rev
LastChangedBy
URL
Id
Modified: translator/trunk/src/FoxitPlugin/FoxitParser.pas
===================================================================
--- translator/trunk/src/FoxitPlugin/FoxitParser.pas 2006-12-01 16:23:00 UTC (rev 142)
+++ translator/trunk/src/FoxitPlugin/FoxitParser.pas 2006-12-01 16:23:53 UTC (rev 143)
@@ -14,7 +14,7 @@
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
the specific language governing rights and limitations under the License.
}
-// $Id: TMXParserImpl.pas 132 2006-11-22 15:18:34Z peter3 $
+// $Id$
unit TMXParserImpl;
Property changes on: translator/trunk/src/FoxitPlugin/FoxitParser.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
Rev
LastChangedBy
URL
Id
Modified: translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas
===================================================================
--- translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas 2006-12-01 16:23:00 UTC (rev 142)
+++ translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas 2006-12-01 16:23:53 UTC (rev 143)
@@ -14,7 +14,7 @@
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
the specific language governing rights and limitations under the License.
}
-// $Id: $
+// $Id$
unit FoxitParserImpl;
Property changes on: translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
Rev
LastChangedBy
URL
Id
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-01 17:39:52
|
Revision: 145
http://svn.sourceforge.net/initranslator/?rev=145&view=rev
Author: peter3
Date: 2006-12-01 09:39:51 -0800 (Fri, 01 Dec 2006)
Log Message:
-----------
- Added BDS 2006 project for FoxitPlugin
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj
translator/trunk/src/XilisoftPlugin/XilisoftParser.bdsproj
translator/trunk/src/translator.bdsproj
translator/trunk/tools.txt
translator/trunk/translator.bdsgroup
Added Paths:
-----------
translator/trunk/src/FoxitPlugin/FoxitParser.bdsproj
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/Changelog.txt 2006-12-01 17:39:51 UTC (rev 145)
@@ -1,6 +1,9 @@
Ini Translator Changelog
========================
2006-12-01:
+Translator:
+- Orphans form now shows section and name in caption
+- Fix to store the correct encoding after opening a file
FoxitPlugin:
- save the *original* file as the template: this way any items missing in the translation will automatically be added without any problems
- add all items in the translation file that are missing from the original to the Orphans list
Added: translator/trunk/src/FoxitPlugin/FoxitParser.bdsproj
===================================================================
--- translator/trunk/src/FoxitPlugin/FoxitParser.bdsproj (rev 0)
+++ translator/trunk/src/FoxitPlugin/FoxitParser.bdsproj 2006-12-01 17:39:51 UTC (rev 145)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+ <PersonalityInfo>
+ <Option>
+ <Option Name="Personality">Delphi.Personality</Option>
+ <Option Name="ProjectType">VCLApplication</Option>
+ <Option Name="Version">1.0</Option>
+ <Option Name="GUID">{AE95164F-46AD-4EA8-AEBC-F036D1237E46}</Option>
+ </Option>
+ </PersonalityInfo>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">FoxitParser.dpr</Source>
+ </Source>
+ <FileVersion>
+ <FileVersion Name="Version">7.0</FileVersion>
+ </FileVersion>
+ <Compiler>
+ <Compiler Name="A">8</Compiler>
+ <Compiler Name="B">0</Compiler>
+ <Compiler Name="C">1</Compiler>
+ <Compiler Name="D">1</Compiler>
+ <Compiler Name="E">0</Compiler>
+ <Compiler Name="F">0</Compiler>
+ <Compiler Name="G">1</Compiler>
+ <Compiler Name="H">1</Compiler>
+ <Compiler Name="I">1</Compiler>
+ <Compiler Name="J">0</Compiler>
+ <Compiler Name="K">0</Compiler>
+ <Compiler Name="L">1</Compiler>
+ <Compiler Name="M">0</Compiler>
+ <Compiler Name="N">1</Compiler>
+ <Compiler Name="O">1</Compiler>
+ <Compiler Name="P">1</Compiler>
+ <Compiler Name="Q">0</Compiler>
+ <Compiler Name="R">0</Compiler>
+ <Compiler Name="S">0</Compiler>
+ <Compiler Name="T">0</Compiler>
+ <Compiler Name="U">0</Compiler>
+ <Compiler Name="V">1</Compiler>
+ <Compiler Name="W">0</Compiler>
+ <Compiler Name="X">1</Compiler>
+ <Compiler Name="Y">1</Compiler>
+ <Compiler Name="Z">1</Compiler>
+ <Compiler Name="ShowHints">True</Compiler>
+ <Compiler Name="ShowWarnings">True</Compiler>
+ <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+ <Compiler Name="NamespacePrefix"></Compiler>
+ <Compiler Name="GenerateDocumentation">False</Compiler>
+ <Compiler Name="DefaultNamespace"></Compiler>
+ <Compiler Name="SymbolDeprecated">True</Compiler>
+ <Compiler Name="SymbolLibrary">True</Compiler>
+ <Compiler Name="SymbolPlatform">True</Compiler>
+ <Compiler Name="SymbolExperimental">True</Compiler>
+ <Compiler Name="UnitLibrary">True</Compiler>
+ <Compiler Name="UnitPlatform">True</Compiler>
+ <Compiler Name="UnitDeprecated">True</Compiler>
+ <Compiler Name="UnitExperimental">True</Compiler>
+ <Compiler Name="HResultCompat">True</Compiler>
+ <Compiler Name="HidingMember">True</Compiler>
+ <Compiler Name="HiddenVirtual">True</Compiler>
+ <Compiler Name="Garbage">True</Compiler>
+ <Compiler Name="BoundsError">True</Compiler>
+ <Compiler Name="ZeroNilCompat">True</Compiler>
+ <Compiler Name="StringConstTruncated">True</Compiler>
+ <Compiler Name="ForLoopVarVarPar">True</Compiler>
+ <Compiler Name="TypedConstVarPar">True</Compiler>
+ <Compiler Name="AsgToTypedConst">True</Compiler>
+ <Compiler Name="CaseLabelRange">True</Compiler>
+ <Compiler Name="ForVariable">True</Compiler>
+ <Compiler Name="ConstructingAbstract">True</Compiler>
+ <Compiler Name="ComparisonFalse">True</Compiler>
+ <Compiler Name="ComparisonTrue">True</Compiler>
+ <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+ <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+ <Compiler Name="UnsupportedConstruct">True</Compiler>
+ <Compiler Name="FileOpen">True</Compiler>
+ <Compiler Name="FileOpenUnitSrc">True</Compiler>
+ <Compiler Name="BadGlobalSymbol">True</Compiler>
+ <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+ <Compiler Name="InvalidDirective">True</Compiler>
+ <Compiler Name="PackageNoLink">True</Compiler>
+ <Compiler Name="PackageThreadVar">True</Compiler>
+ <Compiler Name="ImplicitImport">True</Compiler>
+ <Compiler Name="HPPEMITIgnored">True</Compiler>
+ <Compiler Name="NoRetVal">True</Compiler>
+ <Compiler Name="UseBeforeDef">True</Compiler>
+ <Compiler Name="ForLoopVarUndef">True</Compiler>
+ <Compiler Name="UnitNameMismatch">True</Compiler>
+ <Compiler Name="NoCFGFileFound">True</Compiler>
+ <Compiler Name="ImplicitVariants">True</Compiler>
+ <Compiler Name="UnicodeToLocale">True</Compiler>
+ <Compiler Name="LocaleToUnicode">True</Compiler>
+ <Compiler Name="ImagebaseMultiple">True</Compiler>
+ <Compiler Name="SuspiciousTypecast">True</Compiler>
+ <Compiler Name="PrivatePropAccessor">True</Compiler>
+ <Compiler Name="UnsafeType">False</Compiler>
+ <Compiler Name="UnsafeCode">False</Compiler>
+ <Compiler Name="UnsafeCast">False</Compiler>
+ <Compiler Name="OptionTruncated">True</Compiler>
+ <Compiler Name="WideCharReduced">True</Compiler>
+ <Compiler Name="DuplicatesIgnored">True</Compiler>
+ <Compiler Name="UnitInitSeq">True</Compiler>
+ <Compiler Name="LocalPInvoke">True</Compiler>
+ <Compiler Name="MessageDirective">True</Compiler>
+ <Compiler Name="CodePage"></Compiler>
+ </Compiler>
+ <Linker>
+ <Linker Name="MapFile">3</Linker>
+ <Linker Name="OutputObjs">0</Linker>
+ <Linker Name="GenerateHpps">False</Linker>
+ <Linker Name="ConsoleApp">1</Linker>
+ <Linker Name="DebugInfo">False</Linker>
+ <Linker Name="RemoteSymbols">False</Linker>
+ <Linker Name="GenerateDRC">False</Linker>
+ <Linker Name="MinStackSize">16384</Linker>
+ <Linker Name="MaxStackSize">1048576</Linker>
+ <Linker Name="ImageBase">4194304</Linker>
+ <Linker Name="ExeDescription"></Linker>
+ </Linker>
+ <Directories>
+ <Directories Name="OutputDir">..\..\bin\plugins</Directories>
+ <Directories Name="UnitOutputDir">..\..\dcu</Directories>
+ <Directories Name="PackageDLLOutputDir"></Directories>
+ <Directories Name="PackageDCPOutputDir"></Directories>
+ <Directories Name="SearchPath"></Directories>
+ <Directories Name="Packages"></Directories>
+ <Directories Name="Conditionals"></Directories>
+ <Directories Name="DebugSourceDirs"></Directories>
+ <Directories Name="UsePackages">False</Directories>
+ </Directories>
+ <Parameters>
+ <Parameters Name="RunParams"></Parameters>
+ <Parameters Name="HostApplication"></Parameters>
+ <Parameters Name="Launcher"></Parameters>
+ <Parameters Name="UseLauncher">False</Parameters>
+ <Parameters Name="DebugCWD"></Parameters>
+ <Parameters Name="Debug Symbols Search Path"></Parameters>
+ <Parameters Name="LoadAllSymbols">True</Parameters>
+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">9</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">37</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">True</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">Foxit Plugin for IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.37</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName">FoxitParser.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalCopyright">Copyright (c) 2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+ <VersionInfoKeys Name="OriginalFilename">FoxitParser.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductName">Foxit Plugin for IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductVersion">1.9.0.37</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments">Latest version at http://initranslator.sourceforge.net</VersionInfoKeys>
+ <VersionInfoKeys Name="CompileDate">den 25 november 2006 16:58</VersionInfoKeys>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+</BorlandProject>
Modified: translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj
===================================================================
--- translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj 2006-12-01 17:39:51 UTC (rev 145)
@@ -145,7 +145,7 @@
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
- <VersionInfo Name="Build">16</VersionInfo>
+ <VersionInfo Name="Build">17</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -157,7 +157,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Peter Thörnqvist</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Alternate List Editor plugin for IniTranslator</VersionInfoKeys>
- <VersionInfoKeys Name="FileVersion">1.9.0.16</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.17</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">ToolListEdit.dll</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj
===================================================================
--- translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj 2006-12-01 17:39:51 UTC (rev 145)
@@ -145,7 +145,7 @@
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
- <VersionInfo Name="Build">3</VersionInfo>
+ <VersionInfo Name="Build">4</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -157,7 +157,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">IniTranslator</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Tool Property Viewer Plugin for IniTranslator</VersionInfoKeys>
- <VersionInfoKeys Name="FileVersion">1.9.0.3</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.4</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">ToolPropertiesView.dll</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright (c) 2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
Modified: translator/trunk/src/XilisoftPlugin/XilisoftParser.bdsproj
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParser.bdsproj 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParser.bdsproj 2006-12-01 17:39:51 UTC (rev 145)
@@ -131,7 +131,7 @@
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
- <Parameters Name="HostApplication">C:\Program Files\Borland\projects\Private\translator\trunk\bin\translator.exe</Parameters>
+ <Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
Modified: translator/trunk/src/translator.bdsproj
===================================================================
--- translator/trunk/src/translator.bdsproj 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/src/translator.bdsproj 2006-12-01 17:39:51 UTC (rev 145)
@@ -145,7 +145,7 @@
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
- <VersionInfo Name="Build">38</VersionInfo>
+ <VersionInfo Name="Build">39</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -157,7 +157,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Peter Thörnqvist</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Ini Language Translator</VersionInfoKeys>
- <VersionInfoKeys Name="FileVersion">1.9.0.38</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.39</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">translator.exe</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
Modified: translator/trunk/tools.txt
===================================================================
--- translator/trunk/tools.txt 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/tools.txt 2006-12-01 17:39:51 UTC (rev 145)
@@ -1,12 +1,12 @@
The following tools are required to work with and build this project, including support files:
-* Delphi 6 or 7 - to build the application and plugins
+* Delphi 6, 7 or BDS 2006 - to build the application and plugins
* HTML Help Workshop - to modify and compile the chm help file
* HTML editor - to edit the help documents and the home page
* Image editor - to edit images
-* Finalbuilder 3 - to build all parts of the release
-* Inno Setup /ISTool - to build the setup program
-* TortoiseCVS/PageAnt - to download/upload files and changes from CVS
+* Finalbuilder - to build all parts of the release
+* Inno Setup/ISTool - to build the setup program
+* TortoiseCVS/PageAnt - to download/upload files and changes from CVS (not used anymore)
* TortoiseSVN - to download/upload files and changes from SVN
* A diff and merge tool - to compare and update new and old files
* WinSCP - to connect to the shell workspace to upload files etc
Modified: translator/trunk/translator.bdsgroup
===================================================================
--- translator/trunk/translator.bdsgroup 2006-12-01 17:26:33 UTC (rev 144)
+++ translator/trunk/translator.bdsgroup 2006-12-01 17:39:51 UTC (rev 145)
@@ -1,17 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
- <PersonalityInfo>
- <Option>
- <Option Name="Personality">Default.Personality</Option>
- <Option Name="ProjectType"></Option>
- <Option Name="Version">1.0</Option>
- <Option Name="GUID">{ADFD96BC-A5F4-40AF-BEAA-8757E3068587}</Option>
- </Option>
- </PersonalityInfo>
- <Default.Personality>
-
- <Projects>
+ <PersonalityInfo>
+ <Option>
+ <Option Name="Personality">Default.Personality</Option>
+ <Option Name="ProjectType"></Option>
+ <Option Name="Version">1.0</Option>
+ <Option Name="GUID">{ADFD96BC-A5F4-40AF-BEAA-8757E3068587}</Option>
+ </Option>
+ </PersonalityInfo>
+ <Default.Personality> <Projects>
<Projects Name="translator.exe">src\translator.bdsproj</Projects>
+ <Projects Name="FoxitParser.dll">src\FoxitPlugin\FoxitParser.bdsproj</Projects>
<Projects Name="IBForumsParser.dll">src\IBForumsPlugin\IBForumsParser.bdsproj</Projects>
<Projects Name="MozillaDTDParser.dll">src\MozillaPlugin\MozillaDTDParser.bdsproj</Projects>
<Projects Name="MozillaPropsParser.dll">src\MozillaPlugin\MozillaPropsParser.bdsproj</Projects>
@@ -32,7 +31,7 @@
<Projects Name="ToolTreeView.dll">src\ToolTreeView\ToolTreeView.bdsproj</Projects>
<Projects Name="XilisoftParser.dll">src\XilisoftPlugin\XilisoftParser.bdsproj</Projects>
<Projects Name="XLIFFParser.dll">src\XLIFFPlugin\XLIFFParser.bdsproj</Projects>
- <Projects Name="Targets">translator.exe IBForumsParser.dll MozillaDTDParser.dll MozillaPropsParser.dll MSDictBuild.exe MSDictParser.dll MsTermBuild.exe OlegParser.dll OOGSIParser.dll PHPNukeParser.dll PHPParser.dll PolyGlotParser.dll POParser.dll SciTEParser.dll TMXParser.dll ToolListEdit.dll ToolPluginDemo.dll ToolPropertiesView.dll ToolTreeView.dll XilisoftParser.dll XLIFFParser.dll</Projects>
+ <Projects Name="Targets">translator.exe FoxitParser.dll IBForumsParser.dll MozillaDTDParser.dll MozillaPropsParser.dll MSDictBuild.exe MSDictParser.dll MsTermBuild.exe OlegParser.dll OOGSIParser.dll PHPNukeParser.dll PHPParser.dll PolyGlotParser.dll POParser.dll SciTEParser.dll TMXParser.dll ToolListEdit.dll ToolPluginDemo.dll ToolPropertiesView.dll ToolTreeView.dll XilisoftParser.dll XLIFFParser.dll</Projects>
</Projects>
<Dependencies/>
</Default.Personality>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-02 13:49:04
|
Revision: 147
http://svn.sourceforge.net/initranslator/?rev=147&view=rev
Author: peter3
Date: 2006-12-02 05:49:00 -0800 (Sat, 02 Dec 2006)
Log Message:
-----------
- updated releasenotes and changelog
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/releasenote.txt
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-02 13:24:14 UTC (rev 146)
+++ translator/trunk/Changelog.txt 2006-12-02 13:49:00 UTC (rev 147)
@@ -156,7 +156,7 @@
- After reading up on XLIFF, I've made some changes:
-- Don't need to specify language in (XLIFFImportFrm not needed anymore, use default SingleImportFrm)
-- Even if either source or target (or both!) are missing, an item is created for each "trans-unit" node
--- MSXML 4,.0 has a bug that prevents it from working correctly with this implementation (getElementsByTagName is faulty)
+-- MSXML 4.0 has a bug that prevents it from working correctly with this implementation (getElementsByTagName is faulty)
2006-08-01:
- Started implementation of XLIFF parser
Modified: translator/trunk/releasenote.txt
===================================================================
--- translator/trunk/releasenote.txt 2006-12-02 13:24:14 UTC (rev 146)
+++ translator/trunk/releasenote.txt 2006-12-02 13:49:00 UTC (rev 147)
@@ -5,6 +5,31 @@
The program and the sources are hosted at sourceforge and are released subject to the MPL 1.1 license.
+New in version 1.9.0.40:
+- New MsTermBuild application to convert MS Terminology Translations to IniTranslator dictionaries
+- New Foxit PDF Reader plugin
+- New XLIFF plugin
+- New XiliSoft plugin (Alexander Kornienko)
+- New tool plugin to view all properties of the items
+- Now displays warning when saving translation and there are orphaned items
+- Orphan form now shows section and name in caption
+- Orphaned items can now be saved to a file and merged into the main items
+- Support for localizing plugins
+- Changed the way fonts are specified so we can use the MS Shell Dlg substituions
+- Better support for themed XP
+- Header and Footers can now be added when saving files
+- Dictionaries can have more than one translation. One of the translations can be marked as the default one
+- Dictionary now removes empty translations automatically when loading and merging etc
+- When using dictionary to translate, uses dialog similar to when spell checking
+- New "Make translations consistent" command
+- You can now specify the default encoding for new files
+- Bug fixed: Several memory leaks detected and removed using FastMM
+- Bug fixed: text rendering problem in External Tools fixed
+- Bug fixed: clicking the "Test" button in the Exernal Tools form generated an AV when the command was empty
+- Updated language files, themes and documentation
+- Only full install from now on
+
+
New in version 1.9.0.13:
- New icon from Michael Kogan (photonx)
- Detecting, saving and restoring encoding settings should now work correctly
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-03 12:40:10
|
Revision: 151
http://svn.sourceforge.net/initranslator/?rev=151&view=rev
Author: peter3
Date: 2006-12-03 04:40:09 -0800 (Sun, 03 Dec 2006)
Log Message:
-----------
- "# orphans" info added to statusbar
- warn if orphans will disappear when saving translation
- updated default.lng file
- prompt to export when trying to save import to file
Modified Paths:
--------------
translator/trunk/languages/Svenska.lng
translator/trunk/setup/IniTransCommon.iss
translator/trunk/src/AppConsts.pas
translator/trunk/src/ImportExportFrm.pas
translator/trunk/src/MainFrm.dfm
translator/trunk/src/MainFrm.pas
Modified: translator/trunk/languages/Svenska.lng
===================================================================
--- translator/trunk/languages/Svenska.lng 2006-12-02 22:09:25 UTC (rev 150)
+++ translator/trunk/languages/Svenska.lng 2006-12-03 12:40:09 UTC (rev 151)
@@ -394,6 +394,8 @@
|
|
From: <pe...@us...> - 2006-12-03 15:18:17
|
Revision: 152
http://svn.sourceforge.net/initranslator/?rev=152&view=rev
Author: peter3
Date: 2006-12-03 07:00:23 -0800 (Sun, 03 Dec 2006)
Log Message:
-----------
- More comment indicators supported (; // and #)
- Comments are now saved verbatim
Modified Paths:
--------------
translator/trunk/description.txt
translator/trunk/src/CommentsFrm.pas
translator/trunk/src/MainFrm.pas
translator/trunk/src/TranslateFile.pas
Modified: translator/trunk/description.txt
===================================================================
--- translator/trunk/description.txt 2006-12-03 12:40:09 UTC (rev 151)
+++ translator/trunk/description.txt 2006-12-03 15:00:23 UTC (rev 152)
@@ -4,22 +4,25 @@
Ini Translator is a small Windows tool to simplify the translation of ini style language files (as used by programs like FlashGet, Inno Setup, ISTool and Wallpaper Sequencer to name a few) and the GUI is similar to that of poEdit (a translation editor for gnu gettext).
Some of it's main features are:
-- Uses Troy Wolbrinks TNT controls for (hopefully) correct display regardless of locale
+- Uses Troy Wolbrinks TNT controls for correct display regardless of locale
- Uses Jordan Russell's Toolbar2000 (http://www.jrsoftware.org) for that slick look
- Uses Alex Denisov's TBX enhancements to Toolbar2000 (http://g32.org)
- Uses TBX Themes created by Roy Magne Klever and others (http://www.rmklever.com)
+- Uses SpTBX for Unicode support in toolbars and menus (http://club.telepolis.com/silverpointdev/sptbxlib/index.htm)
- Uses Addictive Software's Addict spell checker (http://www.addictivesoftware.com)
-- Dictionary support w. auto-translation
+- Dictionaries with support for auto-translation, inversion and multiple translations for each item
- Sorting of original/translation column
- Monitoring of external changes to open files
- Quick jump to next/previous untranslated item
+- Quickly find "conspicious" items (configurable)
- Command line interface with "script"-capability
- Search and Replace
-- Comment viewer
+- Comment viewer and editor
- Bookmark support
- Support for loading/saving using different encodings (ANSI, UTF-8, Unicode)
-- Localizable using ini-style language files ;)
+- Localizable using ini-style language files
- Plugin support for loading and saving to any conceivable file-format
+- Many plugins included to read and write many popular and common file formats
Ini Translator is hosted at sourceforge and is released under the MPL 1.1 license.
@@ -33,6 +36,7 @@
Jordan Russell's Toolbar2000 can be found at http://www.jrsoftware.org
Alex Denisov's TBX enhancements to Toolbar2000 can be found at http://g32.org
TBX Themes by Roy Magne Klever and others can be found at http://www.rmklever.com
+SpTBXLib from Silverpoint Development can be found at http://club.telepolis.com/silverpointdev/sptbxlib/index.htm
Note that these libraries are free to use for non-commercial development but might have restrictions if you use them in any other way. Check the links above for more info.
Modified: translator/trunk/src/CommentsFrm.pas
===================================================================
--- translator/trunk/src/CommentsFrm.pas 2006-12-03 12:40:09 UTC (rev 151)
+++ translator/trunk/src/CommentsFrm.pas 2006-12-03 15:00:23 UTC (rev 152)
@@ -25,7 +25,7 @@
Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls,
Menus, StdActns, ActnList, Buttons,
BaseForm, TranslateFile, TransIntf,
- TntComCtrls, TntButtons, TntStdCtrls, TntExtCtrls, TntMenus,
+ TntClasses, TntComCtrls, TntButtons, TntStdCtrls, TntExtCtrls, TntMenus,
TntStdActns, TntActnList, TB2Item, TBX, SpTBXItem;
type
@@ -67,7 +67,7 @@
{ Private declarations }
public
{ Public declarations }
- procedure SetComments(const Item: ITranslationItem; CommentChar: WideChar);
+ procedure SetComments(const Item: ITranslationItem; CommentChars: TTntStrings);
property Pinned: boolean read GetPinned write SetPinned;
property OnCommentModified: TCommentModifiedEvent read FOnCommentModified write SetOnCommentModified;
end;
@@ -90,7 +90,7 @@
reOriginal.Height := H div 2;
end;
-procedure TfrmComments.SetComments(const Item: ITranslationItem; CommentChar: WideChar);
+procedure TfrmComments.SetComments(const Item: ITranslationItem; CommentChars: TTntStrings);
var i: integer;
begin
if Item = nil then
@@ -100,15 +100,15 @@
end
else
begin
- reOriginal.Text := trim(Item.OrigComments);
- for i := 0 to reOriginal.Lines.Count - 1 do
- if Copy(reOriginal.Lines[i], 1, 1) = CommentChar then
- reOriginal.Lines[i] := trim(Copy(reOriginal.Lines[i], 2, MaxInt));
+ reOriginal.Text := Item.OrigComments;
+// for i := 0 to reOriginal.Lines.Count - 1 do
+// if Copy(reOriginal.Lines[i], 1, 1) = CommentChar then
+// reOriginal.Lines[i] := trim(Copy(reOriginal.Lines[i], 2, MaxInt));
reTranslation.OnChange := nil;
- reTranslation.Text := trim(Item.TransComments);
- for i := 0 to reTranslation.Lines.Count - 1 do
- if Copy(reTranslation.Lines[i], 1, 1) = CommentChar then
- reTranslation.Lines[i] := trim(Copy(reTranslation.Lines[i], 2, MaxInt));
+ reTranslation.Text := Item.TransComments;
+// for i := 0 to reTranslation.Lines.Count - 1 do
+// if Copy(reTranslation.Lines[i], 1, 1) = CommentChar then
+// reTranslation.Lines[i] := trim(Copy(reTranslation.Lines[i], 2, MaxInt));
reTranslation.Modified := false;
reTranslation.OnChange := reTranslationChange;
end;
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-12-03 12:40:09 UTC (rev 151)
+++ translator/trunk/src/MainFrm.pas 2006-12-03 15:00:23 UTC (rev 152)
@@ -2424,12 +2424,12 @@
reTranslation.Modified := false;
if frmComments <> nil then
begin
- frmComments.SetComments(FTranslateFile.Items[Item.Index], FTranslateFile.CommentChar);
+ frmComments.SetComments(FTranslateFile.Items[Item.Index], FTranslateFile.CommentChars);
frmComments.OnCommentModified := DoCommentModified;
end;
end
else if frmComments <> nil then
- frmComments.SetComments(nil, FTranslateFile.CommentChar);
+ frmComments.SetComments(nil, FTranslateFile.CommentChars);
UpdateStatus;
end;
@@ -3039,36 +3039,38 @@
var
P: TPoint;
AInfoTip: WideString;
+ AItem:ITranlsationItem;
begin
InfoTip := '';
AInfoTip := '';
if Item <> nil then
begin
GetCursorPos(P);
+ AItem := FTranslateFile.Items[Item.Index];
if PtInRect(Rect(Left, Top, Left + Width div 2, Height), P) then
begin
- if trim(FTranslateFile.Items[Item.Index].OrigComments) <> '' then
- AInfoTip := _(ClassName, SOriginal) + ':'#13#10 + trim(FTranslateFile.Items[Item.Index].OrigComments)
+ if trim(AItem.OrigComments) <> '' then
+ AInfoTip := _(ClassName, SOriginal) + ':'#13#10 + trim(AItem.OrigComments)
else
- AInfoTip := FTranslateFile.Items[Item.Index].Original;
+ AInfoTip := AItem.Original;
end
else if PtInRect(Rect(Left + Width div 2, Top, Left + Width, Height), P) then
begin
- if trim(FTranslateFile.Items[Item.Index].TransComments) <> '' then
- AInfoTip := _(ClassName, STranslation) + ':'#13#10 + trim(FTranslateFile.Items[Item.Index].TransComments)
+ if trim(AItem.TransComments) <> '' then
+ AInfoTip := _(ClassName, STranslation) + ':'#13#10 + trim(AItem.TransComments)
else
- AInfoTip := FTranslateFile.Items[Item.Index].Translation;
+ AInfoTip := AItem.Translation;
end
else
begin
- if trim(FTranslateFile.Items[Item.Index].OrigComments) <> '' then
- AInfoTip := _(ClassName, SOriginal) + ':'#13#10 + trim(FTranslateFile.Items[Item.Index].OrigComments) +
+ if trim(AItem.OrigComments) <> '' then
+ AInfoTip := _(ClassName, SOriginal) + ':'#13#10 + trim(AItem.OrigComments) +
#13#10#13#10;
- if trim(FTranslateFile.Items[Item.Index].TransComments) <> '' then
+ if trim(AItem.TransComments) <> '' then
AInfoTip := _(ClassName, STranslation) + ':'#13#10 +
- trim(FTranslateFile.Items[Item.Index].TransComments);
+ trim(AItem.TransComments);
if AInfoTip = '' then
- AInfoTip := FTranslateFile.Items[Item.Index].Original + ' - ' + FTranslateFile.Items[Item.Index].Translation;
+ AInfoTip := AItem.Original + ' - ' + AItem.Translation;
end;
end;
InfoTip := AInfoTip;
@@ -3452,7 +3454,7 @@
procedure TfrmMain.DoCommentModified(Sender: TObject;
const AText: WideString);
- function MakeComment(const S: WideString): WideString;
+{ function MakeComment(const S: WideString): WideString;
var
CChar: WideChar;
begin
@@ -3461,10 +3463,11 @@
while (Length(Result) > 0) and (Result[Length(Result)] = CChar) do
SetLength(Result, Length(Result) - 1);
end;
+ }
begin
if SelectedListItem <> nil then
with SelectedListItem do
- FTranslateFile.Items[Index].TransComments := MakeComment(AText);
+ FTranslateFile.Items[Index].TransComments := AText;
end;
procedure TfrmMain.UpdateColumn(Index: integer; const AFileName: WideString);
Modified: translator/trunk/src/TranslateFile.pas
===================================================================
--- translator/trunk/src/TranslateFile.pas 2006-12-03 12:40:09 UTC (rev 151)
+++ translator/trunk/src/TranslateFile.pas 2006-12-03 15:00:23 UTC (rev 152)
@@ -23,7 +23,7 @@
interface
uses
- Classes, SysUtils, AppConsts, AppUtils, TransIntf, TNTSysUtils;
+ Classes, SysUtils, AppConsts, AppUtils, TransIntf, TntClasses, TntSysUtils;
type
TTranslationItems = class;
@@ -135,12 +135,12 @@
private
FItems: ITranslationItems;
FOrphans: ITranslationItems;
- FCommentChar: WideChar;
FEndSection: WideChar;
FStartSection: WideChar;
FSeparatorChar: WideChar;
FHeader: WideString;
FFooter: WideString;
+ FCommentChars: TTntStrings;
public
constructor Create;
destructor Destroy; override;
@@ -158,13 +158,13 @@
// various delimiters used to parse the file (should probably not be changed)
property StartSection: WideChar read FStartSection write FStartSection default '[';
property EndSection: WideChar read FEndSection write FEndSection default ']';
- property CommentChar: WideChar read FCommentChar write FCommentChar default ';';
property SeparatorChar: WideChar read FSeparatorChar write FSeparatorChar default '=';
+ property CommentChars: TTntStrings read FCommentChars;
end;
implementation
uses
- Windows, TntSystem, TntClasses;
+ Windows, TntSystem;
function trimQuotes(const S: WideString; Quote: WideChar): WideString;
begin
@@ -500,12 +500,15 @@
constructor TTranslateFiles.Create;
begin
inherited Create;
+ FCommentChars := TTntStringlist.Create;
FItems := TTranslationItems.Create;
FOrphans := TTranslationItems.Create;
StartSection := '[';
EndSection := ']';
SeparatorChar := '=';
- CommentChar := ';';
+ FCommentChars.Add(';');
+ FCommentChars.Add('//');
+ FCommentChars.Add('#');
end;
destructor TTranslateFiles.Destroy;
@@ -517,6 +520,18 @@
inherited;
end;
+function InStringList(List: TTntStrings; const Value: WideString): boolean;
+var i: integer;
+begin
+ for i := 0 to List.Count - 1 do
+ if WideTextPos(List[i], Value) = 1 then
+ begin
+ Result := true;
+ Exit;
+ end;
+ Result := false;
+end;
+
function TTranslateFiles.LoadOriginal(const Filename: WideString; Encoding: TEncoding): TEncoding;
var
S, FComments: TTntStringlist;
@@ -552,11 +567,11 @@
end;
for i := 0 to S.Count - 1 do
begin
- if WideTextPos(CommentChar, S[i]) = 1 then
+ if InStringList(CommentChars, S[i]) then
FComments.Add(S[i])
- else if (WideTextPos(StartSection, S[i]) = 1) and (WideTextPos(EndSection, S[i]) = Length(S[i])) and (WideTextPos(SeparatorChar, S[i]) = 0) then
+ else if (WideTextPos(StartSection, S[i]) = 1) and (WideTextPos(EndSection, S[i]) = Length(S[i])) then
ASection := Copy(S[i], 2, Length(S[i]) - 2)
- else
+ else if (WideTextPos(SeparatorChar, S[i]) > 1) then
begin
j := WideTextPos(SeparatorChar, S[i]);
if j > 1 then
@@ -570,7 +585,9 @@
FComments.Clear;
end;
end;
- end;
+ end
+ else
+ FComments.Add(S[i]);
end;
finally
S.Free;
@@ -615,7 +632,7 @@
end;
for i := 0 to S.Count - 1 do
begin
- if WideTextPos(CommentChar, S[i]) = 1 then
+ if InStringList(CommentChars, S[i]) then
FComments.Add(S[i])
else if (WideTextPos(StartSection, S[i]) = 1) and (WideTextPos(EndSection, S[i]) = Length(S[i]))
and (WideTextPos(SeparatorChar, S[i]) = 0) then
@@ -638,6 +655,8 @@
begin
FItem := FOrphans.Add;
FItem.Section := ASection;
+ FItem.Name := Copy(S[i], 1, j - 1);
+
FItem.Original := Copy(S[i], 1, j - 1);
FItem.Translation := Copy(S[i], j + 1, MaxInt);
// normal behavior is to regard empty translations as untranslated
@@ -656,16 +675,9 @@
end;
procedure FixAndAddComments(S: TTntStringlist; const Comments: WideString);
-var tmp: WideString;
begin
- if trim(Comments) <> '' then
- begin
- S.Add('');
- tmp := trim(Comments);
- if tmp[1] <> ';' then
- tmp := '; ' + tmp;
- S.Add(tmp);
- end;
+ if Comments <> '' then
+ S.Add(Comments);
end;
procedure TTranslateFiles.SaveOriginal(const Filename: WideString; Encoding: TEncoding);
@@ -947,3 +959,4 @@
end;
end.
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-04 17:41:39
|
Revision: 156
http://svn.sourceforge.net/initranslator/?rev=156&view=rev
Author: peter3
Date: 2006-12-04 09:41:35 -0800 (Mon, 04 Dec 2006)
Log Message:
-----------
- Bug Fixed: translation is now sorted by index before saving (was sorted by section)
- Bug Fixed: when merging orphans, items are now inserted at the correct location in the translation
- Bug Fixed: when an item is deleted, remaining items are reindexed
- Bug Fixed: when an item is deleted, translation is marked as modified
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/setup/translator.fbp5
translator/trunk/src/CommentsFrm.pas
translator/trunk/src/MainFrm.pas
translator/trunk/src/OrphansFrm.dfm
translator/trunk/src/OrphansFrm.pas
translator/trunk/src/TransIntf.pas
translator/trunk/src/TranslateFile.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/Changelog.txt 2006-12-04 17:41:35 UTC (rev 156)
@@ -1,5 +1,11 @@
Ini Translator Changelog
========================
+2006-12-04:
+- Bug Fixed: translation is now sorted by index before saving (was sorted by section)
+- Bug Fixed: when merging orphans, items are now inserted at the correct location in the translation
+- Bug Fixed: when an item is deleted, remaining items are reindexed
+- Bug Fixed: when an item is deleted, translation is marked as modified
+
2006-12-03:
- Released on Sourceforge as 1.9.0.40
- Now prompts to export instead of saving when the items have previously been imported
Modified: translator/trunk/setup/translator.fbp5
===================================================================
--- translator/trunk/setup/translator.fbp5 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/setup/translator.fbp5 2006-12-04 17:41:35 UTC (rev 156)
@@ -86,6 +86,7 @@
DELETE_FOLDER
FTP_UPLOAD
NEWS_NOTIFY
+CREATETAG
]]>
</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@@ -99,7 +100,7 @@
<Property name="ParamType" type="TParamType">ptSelectFolder</Property>
<Property name="SelectAll" type="Boolean">False</Property>
</Object>
- <Object Class="TPersistParam" XMLID="{17FB2889-B659-4E08-84A2-CCA5E6BBCF51}"><Property MultiValue="0" name="Caption" type="string">3rd party components folder:</Property>
+ <Object Class="TPersistParam" XMLID="{17FB2889-B659-4E08-84A2-CCA5E6BBCF51}"><Property MultiValue="0" name="Caption" type="string">&amp;3rd party components root folder:</Property>
<Property MultiValue="0" name="DefaultValue" type="string">%ProgramFiles%\Borland\AddOns</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
@@ -144,7 +145,7 @@
<Property name="ParamType" type="TParamType">ptText</Property>
<Property name="SelectAll" type="Boolean">False</Property>
</Object>
- <Object Class="TPersistParam" XMLID="{BCB92261-E11A-4E81-857C-D74026547648}"><Property MultiValue="0" name="Caption" type="string">Check out from subversion</Property>
+ <Object Class="TPersistParam" XMLID="{BCB92261-E11A-4E81-857C-D74026547648}"><Property MultiValue="0" name="Caption" type="string">&amp;Check out from subversion</Property>
<Property MultiValue="0" name="DefaultValue" type="string">false</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
@@ -153,7 +154,7 @@
<Property name="ParamType" type="TParamType">ptBoolean</Property>
<Property name="SelectAll" type="Boolean">False</Property>
</Object>
- <Object Class="TPersistParam" XMLID="{95C8E5D6-1E86-4C4D-A304-782685C2FCB3}"><Property MultiValue="0" name="Caption" type="string">Delete check-out folder when done</Property>
+ <Object Class="TPersistParam" XMLID="{95C8E5D6-1E86-4C4D-A304-782685C2FCB3}"><Property MultiValue="0" name="Caption" type="string">&amp;Delete check-out folder when done</Property>
<Property MultiValue="0" name="DefaultValue" type="string">false</Property>
<Property name="InUse" type="Boolean">True</Property>
<Property name="List" type="TStrings"><![CDATA[]]>
@@ -180,7 +181,37 @@
<Property name="ParamType" type="TParamType">ptBoolean</Property>
<Property name="SelectAll" type="Boolean">False</Property>
</Object>
+ <Object Class="TPersistParam" XMLID="{32EB6318-920B-411A-86ED-6B385A213A74}"><Property MultiValue="0" name="Caption" type="string">Create subversion &amp;tag</Property>
+ <Property MultiValue="0" name="DefaultValue" type="string">false</Property>
+ <Property name="InUse" type="Boolean">True</Property>
+ <Property name="List" type="TStrings"><![CDATA[]]>
+ </Property>
+ <Property MultiValue="0" name="Name" type="string">CREATETAG</Property>
+ <Property name="ParamType" type="TParamType">ptBoolean</Property>
+ <Property name="SelectAll" type="Boolean">False</Property>
+ </Object>
</Object>
+ <Object Class="TDateTimeAction" XMLID="{5E21D46F-05E4-4CDB-8395-A88FC89031B0}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Property name="ActionTextColor" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
+ <Property MultiValue="0" name="DateFormat" type="string">yyyy-mm-dd</Property>
+ <Property MultiValue="0" name="Description" type="string">Get Todays Date</Property>
+ <Property name="Enabled" type="WordBool">True</Property>
+ <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
+ <Property MultiValue="0" name="FBVariable" type="string">CURRENTDATE</Property>
+ <Property name="ForceSeparators" type="Boolean">True</Property>
+ <Property name="IgnoreFailure" type="WordBool">False</Property>
+ <Property name="IsAction" type="Boolean">True</Property>
+ <Property name="IsBreakPoint" type="WordBool">False</Property>
+ <Property MultiValue="0" name="LogToVariable" type="string"></Property>
+ <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="PauseInterval" type="Cardinal">0</Property>
+ <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
+ <Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Property name="TheDate" type="TDateTime">39055.6535620023</Property>
+ <Property name="UseNow" type="Boolean">True</Property>
+ </Object>
<Object Class="TFBScriptAction" XMLID="{71A52E66-12F5-442F-A25F-092DC75BC9DE}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
@@ -267,6 +298,52 @@
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Object Class="TFBSubversionCopy" XMLID="{F13B4721-1A84-4257-8A47-F3B9A8CF8E43}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Property name="ActionTextColor" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
+ <Property MultiValue="0" name="ArgsFile" type="string"></Property>
+ <Property MultiValue="0" name="Comment" type="string"></Property>
+ <Property MultiValue="0" name="ConfigDir" type="string"></Property>
+ <Property MultiValue="0" name="Destination" type="string">https://initranslator.svn.sourceforge.net/svnroot/initranslator/translator/tags/release_%VERSION_MAJOR%.%VERSION_MINOR%.%VERSION_RELEASE%.%VERSION_BUILD%</Property>
+ <Property MultiValue="0" name="EditorCommand" type="string"></Property>
+ <Property name="Enabled" type="WordBool">True</Property>
+ <Property name="EnableTimeout" type="Boolean">False</Property>
+ <Property MultiValue="0" name="Encoding" type="string"></Property>
+ <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
+ <Property MultiValue="0" name="ExtraCmdLineParamsAtEnd" type="string"></Property>
+ <Property MultiValue="0" name="ExtraCmdLineParamsAtStart" type="string"></Property>
+ <Property name="ForceLog" type="Boolean">False</Property>
+ <Property name="IgnoreFailure" type="WordBool">False</Property>
+ <Property MultiValue="0" name="ImpersonateToken" type="string"></Property>
+ <Property name="ImpersonateUser" type="Boolean">False</Property>
+ <Property MultiValue="0" name="ImpersonateUserName" type="string"></Property>
+ <Property name="IsAction" type="Boolean">True</Property>
+ <Property name="IsBreakPoint" type="WordBool">False</Property>
+ <Property MultiValue="0" name="LogToVariable" type="string"></Property>
+ <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
+ <Property name="NoAuthCache" type="Boolean">False</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="NonInteractive" type="Boolean">True</Property>
+ <Property MultiValue="0" name="Password" type="string"></Property>
+ <Property MultiValue="0" name="Path" type="string"></Property>
+ <Property name="PauseInterval" type="Cardinal">0</Property>
+ <Property name="ProcessorAffinity" type="Cardinal">0</Property>
+ <Property name="ProcessPriority" type="TFBExecuteThreadPriority">tpNormal</Property>
+ <Property name="Quiet" type="Boolean">False</Property>
+ <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
+ <Property MultiValue="0" name="Revision" type="string">HEAD</Property>
+ <Property MultiValue="0" name="Source" type="string">https://initranslator.svn.sourceforge.net/svnroot/initranslator/translator/trunk</Property>
+ <Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Property name="TerminateOnTimeout" type="Boolean">True</Property>
+ <Property name="TimeoutLength" type="Cardinal">2</Property>
+ <Property MultiValue="0" name="UserName" type="string"></Property>
+ <Property MultiValue="0" name="WorkFolder" type="string">%ROOTPATH%</Property>
+ <Object Class="TBuildScript" XMLID="{64188A31-21E3-40FB-9E52-06126CE2FA5D}"><Property MultiValue="0" name="BreakPointsStore" type="string"></Property>
+ <Property MultiValue="0" name="Name" type="string">Condition</Property>
+ <Property MultiValue="0" name="Script" type="string">CREATETAG = true</Property>
+ <Property MultiValue="0" name="ScriptLanguage" type="string">VBScript</Property>
+ </Object>
+ </Object>
<Object Class="TFBSubversionCheckout" XMLID="{FD18A0BC-F0EC-4DD8-96E6-6D6E1857E9BB}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
@@ -320,7 +397,7 @@
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="NodeCollapsed" type="Boolean">True</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@@ -3029,7 +3106,7 @@
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="NodeCollapsed" type="Boolean">True</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@@ -3125,7 +3202,7 @@
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="NodeCollapsed" type="Boolean">True</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@@ -3154,7 +3231,7 @@
]]>
</Property>
<Property MultiValue="0" name="Description" type="string">News Post to Borland</Property>
- <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
+ <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property MultiValue="0" name="Encoding" type="string"></Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@@ -3174,7 +3251,7 @@
<Property MultiValue="0" name="ReplyTo" type="string"></Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="SenderName" type="string">Peter Thornqvist</Property>
- <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released</Property>
+ <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released %CURRENTDATE%</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TimeOut" type="Integer">0</Property>
<Property MultiValue="0" name="Token" type="string"></Property>
@@ -3205,7 +3282,7 @@
]]>
</Property>
<Property MultiValue="0" name="Description" type="string">News Post to JRSoftware</Property>
- <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
+ <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property MultiValue="0" name="Encoding" type="string"></Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@@ -3225,7 +3302,7 @@
<Property MultiValue="0" name="ReplyTo" type="string"></Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="SenderName" type="string">Peter Thornqvist</Property>
- <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released</Property>
+ <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released %CURRENTDATE%</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TimeOut" type="Integer">0</Property>
<Property MultiValue="0" name="Token" type="string"></Property>
@@ -3256,7 +3333,7 @@
]]>
</Property>
<Property MultiValue="0" name="Description" type="string">News Post to JEDI</Property>
- <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
+ <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property MultiValue="0" name="Encoding" type="string"></Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@@ -3276,7 +3353,7 @@
<Property MultiValue="0" name="ReplyTo" type="string"></Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="SenderName" type="string">Peter Thornqvist</Property>
- <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released</Property>
+ <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released %CURRENTDATE%</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TimeOut" type="Integer">0</Property>
<Property MultiValue="0" name="Token" type="string"></Property>
@@ -3307,7 +3384,7 @@
]]>
</Property>
<Property MultiValue="0" name="Description" type="string">News Post to Microsoft</Property>
- <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
+ <Property MultiValue="0" name="EmailAddress" type="string">pe...@no...</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property MultiValue="0" name="Encoding" type="string"></Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@@ -3327,7 +3404,7 @@
<Property MultiValue="0" name="ReplyTo" type="string"></Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="SenderName" type="string">Peter Thornqvist</Property>
- <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released</Property>
+ <Property MultiValue="0" name="Subject" type="string">ANN: New version of IniTranslator released %CURRENTDATE%</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TimeOut" type="Integer">0</Property>
<Property MultiValue="0" name="Token" type="string"></Property>
@@ -3423,7 +3500,7 @@
</Object>
<Object Class="TFBVariablesCollection" XMLID="{C95A8F83-E731-4886-851A-9740E107DB47}"><Property MultiValue="0" name="Name" type="string"></Property>
<Object Class="TFBVariable" XMLID="{8BFA64C1-2C51-4F04-996F-75E8F6E92E74}"><Property MultiValue="0" name="Comment" type="string"></Property>
- <Property MultiValue="0" name="DefaultValue" type="string">C:\Program FIles\Borland\AddOns</Property>
+ <Property MultiValue="0" name="DefaultValue" type="string">%ProgramFiles%\Borland\AddOns</Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
@@ -3510,6 +3587,22 @@
<Property MultiValue="0" name="Name" type="string">VCSCHECKOUT</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
+ <Object Class="TFBVariable" XMLID="{9F83AEE6-9EEB-4A66-B0C5-CE35A599ED6E}"><Property MultiValue="0" name="Comment" type="string"></Property>
+ <Property MultiValue="0" name="DefaultValue" type="string"></Property>
+ <Property name="IsMacro" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="MakeEnv" type="Boolean">False</Property>
+ <Property MultiValue="0" name="Name" type="string">CURRENTDATE</Property>
+ <Property name="VariableType" type="TFBVariableType">vtProject</Property>
+ </Object>
+ <Object Class="TFBVariable" XMLID="{B41B38BD-4F60-4CD2-873A-136F62853B9E}"><Property MultiValue="0" name="Comment" type="string"></Property>
+ <Property MultiValue="0" name="DefaultValue" type="string">false</Property>
+ <Property name="IsMacro" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="MakeEnv" type="Boolean">False</Property>
+ <Property MultiValue="0" name="Name" type="string">CREATETAG</Property>
+ <Property name="VariableType" type="TFBVariableType">vtProject</Property>
+ </Object>
</Object>
</Object>
</VSXML>
Modified: translator/trunk/src/CommentsFrm.pas
===================================================================
--- translator/trunk/src/CommentsFrm.pas 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/src/CommentsFrm.pas 2006-12-04 17:41:35 UTC (rev 156)
@@ -91,7 +91,7 @@
end;
procedure TfrmComments.SetComments(const Item: ITranslationItem; CommentChars: TTntStrings);
-var i: integer;
+// var i: integer;
begin
if Item = nil then
begin
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/src/MainFrm.pas 2006-12-04 17:41:35 UTC (rev 156)
@@ -564,6 +564,7 @@
procedure MakeTranslationsConsistent;
function SelectOriginal(ShowDialog, ShowTransDialog: boolean): boolean;
function SelectTranslation(ShowDialog, CalledByOrig: boolean): boolean;
+ procedure DoMergeOrphans(Sender: TObject);
public
function GetItems: ITranslationItems;
function GetOrphans: ITranslationItems;
@@ -1699,7 +1700,6 @@
ini.WriteString(ClassName, EncodeStrings(SFmtOrphansCount), EncodeStrings(SFmtOrphansCount));
ini.WriteString(ClassName, EncodeStrings(SImportedPromptToExport), EncodeStrings(SImportedPromptToExport));
-
for i := 0 to alMain.ActionCount - 1 do
begin
S := EncodeStrings(alMain.Actions[i].Category);
@@ -2870,8 +2870,7 @@
lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
lvTranslateStrings.Invalidate;
if j < FTranslateFile.Items.Count then
- SelectedListItem :=
- lvTranslateStrings.Items[j];
+ SelectedListItem := lvTranslateStrings.Items[j];
end;
GlobalAppOptions.TranslationFile := '';
GlobalAppOptions.TransEncoding := GlobalAppOptions.DefaultTransEncoding;
@@ -3039,7 +3038,7 @@
var
P: TPoint;
AInfoTip: WideString;
- AItem:ITranslationItem;
+ AItem: ITranslationItem;
begin
InfoTip := '';
AInfoTip := '';
@@ -3383,7 +3382,7 @@
begin
// lvTranslateStrings.Items.BeginUpdate;
try
- TfrmOrphans.Edit(FTranslateFile.Items, FTranslateFile.Orphans, (FCapabilitesSupported = 0) or (FCapabilitesSupported and CAP_ITEM_INSERT = CAP_ITEM_INSERT));
+ TfrmOrphans.Edit(FTranslateFile.Items, FTranslateFile.Orphans, (FCapabilitesSupported = 0) or (FCapabilitesSupported and CAP_ITEM_INSERT = CAP_ITEM_INSERT), DoMergeOrphans);
lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
finally
// lvTranslateStrings.Items.EndUpdate;
@@ -3978,7 +3977,7 @@
i := 0;
while i <= AIndex do
begin
- // find first item with same section name
+ // find first item with same section name
if WideSameText(FTranslateFile.Items[i].Section, AItem.Section) then
begin
while i <= AIndex do
@@ -4019,12 +4018,24 @@
end;
procedure TfrmMain.DeleteItem(Index: integer);
+var
+ i:integer;
+ FOldSort: TTranslateSortType;
begin
if (Index >= 0) and (Index < FTranslateFile.Items.Count) then
begin
if not NotifyChanging(NOTIFY_ITEM_DEL_ITEM, Index, 0) then
Exit;
FTranslateFile.Items.Delete(Index);
+ FTranslateFile.Items.Modified := true;
+ FOldSort := FTranslateFile.Items.Sort;
+ try
+ FTranslateFile.Items.Sort := stIndex;
+ for i := 0 to FTranslateFile.Items.Count - 1 do
+ FTranslateFile.Items[i].Index := i;
+ finally
+ FTranslateFile.Items.Sort := FOldSort;
+ end;
NotifyChanged(NOTIFY_ITEM_DEL_ITEM, Index, 0);
end;
end;
@@ -4401,6 +4412,27 @@
Result := GlobalLanguageFile.Translate(Section, Name, Value);
end;
+procedure TfrmMain.DoMergeOrphans(Sender: TObject);
+var
+ i: integer;
+ AItem: ITranslationItem;
+ FOldSort: TTranslateSortType;
+begin
+ AItem := SelectedItem;
+ FOldSort := FTranslateFile.Items.Sort;
+ lvTranslateStrings.Items.BeginUpdate;
+ try
+ FTranslateFile.Items.Sort := stIndex;
+ for i := 0 to FTranslateFile.Orphans.Count - 1 do
+ AddItem(FTranslateFile.Orphans[i]);
+ FTranslateFile.Orphans.Clear;
+ lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
+ finally
+ FTranslateFile.Items.Sort := FOldSort;
+ lvTranslateStrings.Items.EndUpdate;
+ SelectedItem := AItem;
+ end;
+end;
end.
Modified: translator/trunk/src/OrphansFrm.dfm
===================================================================
--- translator/trunk/src/OrphansFrm.dfm 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/src/OrphansFrm.dfm 2006-12-04 17:41:35 UTC (rev 156)
@@ -107,7 +107,7 @@
DesignSize = (
433
41)
- object TntButton1: TTntButton
+ object btnSave: TTntButton
Left = 259
Top = 7
Width = 75
@@ -116,7 +116,7 @@
Anchors = [akTop, akRight]
TabOrder = 0
end
- object TntButton2: TTntButton
+ object btnMerge: TTntButton
Left = 343
Top = 7
Width = 75
Modified: translator/trunk/src/OrphansFrm.pas
===================================================================
--- translator/trunk/src/OrphansFrm.pas 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/src/OrphansFrm.pas 2006-12-04 17:41:35 UTC (rev 156)
@@ -43,8 +43,8 @@
Copy1: TSpTBXItem;
acCopy: TTntAction;
TntPanel1: TTntPanel;
- TntButton1: TTntButton;
- TntButton2: TTntButton;
+ btnSave: TTntButton;
+ btnMerge: TTntButton;
acSave: TTntAction;
acMerge: TTntAction;
procedure lvOrphanedResize(Sender: TObject);
@@ -58,12 +58,13 @@
procedure acSaveExecute(Sender: TObject);
private
FItems, FOrphans: ITranslationItems;
+ FOnMerge:TNotifyEvent;
procedure SaveToFile(const FileName: WideString);
procedure ShowError(Count:integer);
{ Private declarations }
public
{ Public declarations }
- class function Edit(const Items, Orphans: ITranslationItems; CanMerge:boolean): boolean;
+ class function Edit(const Items, Orphans: ITranslationItems; CanMerge:boolean; OnMerge:TNotifyEvent): boolean;
end;
implementation
@@ -72,7 +73,7 @@
{$R *.dfm}
-class function TfrmOrphans.Edit(const Items, Orphans: ITranslationItems; CanMerge:boolean): boolean;
+class function TfrmOrphans.Edit(const Items, Orphans: ITranslationItems; CanMerge:boolean; OnMerge:TNotifyEvent): boolean;
var
frmOrphans: TfrmOrphans;
begin
@@ -80,8 +81,10 @@
try
frmOrphans.FItems := Items;
frmOrphans.FOrphans := Orphans;
+ frmOrphans.FOnMerge := OnMerge;
frmOrphans.lvOrphaned.Items.Count := Orphans.Count;
- frmOrphans.acMerge.Enabled := CanMerge;
+ frmOrphans.acSave.Enabled := Orphans.Count > 0;
+ frmOrphans.acMerge.Enabled := Assigned(OnMerge) and CanMerge and (Orphans.Count > 0);
Result := frmOrphans.ShowModal = mrOK;
finally
frmOrphans.Free;
@@ -155,13 +158,16 @@
end;
procedure TfrmOrphans.acMergeExecute(Sender: TObject);
-var i: integer;
begin
- for i := 0 to FOrphans.Count - 1 do
- FItems.Add(FOrphans[i]);
- FOrphans.Clear;
- lvOrphaned.Items.Count := 0;
- lvOrphaned.Invalidate;
+ if Assigned(FOnMerge) then
+ begin
+ FOnMerge(self);
+ lvOrphaned.Items.Count := FOrphans.Count;
+ lvOrphaned.Invalidate;
+ end;
+ acMerge.Enabled := (FOrphans.Count > 0);
+ acSave.Enabled := acMerge.Enabled;
+ lvOrphanedChange(nil, nil, ctState);
end;
procedure TfrmOrphans.lvOrphanedData(Sender: TObject; Item: TListItem);
Modified: translator/trunk/src/TransIntf.pas
===================================================================
--- translator/trunk/src/TransIntf.pas 2006-12-04 14:31:44 UTC (rev 155)
+++ translator/trunk/src/TransIntf.pas 2006-12-04 17:41:35 UTC (rev 156)
@@ -173,13 +173,13 @@
// return S_OK if the index is valid
function FileParser(Index: Integer; out FileParser: IFileParsers): HResult; safecall;
end;
-
+
// Plugins that support localizing should implement this interface.
// When the user wants to create a new translation template,
// IniTranslator searches the plugins for implementors of this interface
// and repeatedly calls GetString to get all the untranslated strings
ILocalizable ...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-05 18:40:50
|
Revision: 169
http://svn.sourceforge.net/initranslator/?rev=169&view=rev
Author: peter3
Date: 2006-12-05 10:40:50 -0800 (Tue, 05 Dec 2006)
Log Message:
-----------
- FileAge warning removed
- BDS project updated
Modified Paths:
--------------
translator/trunk/src/FileMonitor.pas
translator/trunk/src/ToolConsistency/ToolConsistency.res
translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj
translator/trunk/src/ToolListEdit/ToolListEdit.res
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
translator/trunk/src/translator.bdsproj
translator/trunk/src/translator.res
translator/trunk/translator.bdsgroup
Added Paths:
-----------
translator/trunk/src/ToolConsistency/ToolConsistency.bdsproj
Modified: translator/trunk/src/FileMonitor.pas
===================================================================
--- translator/trunk/src/FileMonitor.pas 2006-12-05 18:27:33 UTC (rev 168)
+++ translator/trunk/src/FileMonitor.pas 2006-12-05 18:40:50 UTC (rev 169)
@@ -31,7 +31,7 @@
private
FOnChange: TFileMonitorEvent;
FFilename: WideString;
- FFileAge: integer;
+ FFileAge: TDateTime;
FTimeOut: integer;
procedure Change; dynamic;
procedure SetFilename(const Value: WideString);
@@ -84,7 +84,7 @@
inherited Create(true);
Priority := tpLowest;
Filename := AFilename;
- FFileAge := FileAge(Filename);
+ FileAge(Filename, FFileAge);
FTimeOut := ATimeOut;
end;
@@ -109,13 +109,15 @@
end;
function TFileMonitorThread.HasChanged: boolean;
+var tmp:TDateTime;
begin
- Result := FFileAge < FileAge(Filename);
+ FileAge(Filename, tmp);
+ Result := FFileAge < tmp;
end;
procedure TFileMonitorThread.InitMonitor;
begin
- FFileAge := FileAge(Filename);
+ FileAge(Filename, FFileAge);
end;
procedure TFileMonitorThread.SetFilename(const Value: WideString);
Added: translator/trunk/src/ToolConsistency/ToolConsistency.bdsproj
===================================================================
--- translator/trunk/src/ToolConsistency/ToolConsistency.bdsproj (rev 0)
+++ translator/trunk/src/ToolConsistency/ToolConsistency.bdsproj 2006-12-05 18:40:50 UTC (rev 169)
@@ -0,0 +1,170 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+ <PersonalityInfo>
+ <Option>
+ <Option Name="Personality">Delphi.Personality</Option>
+ <Option Name="ProjectType">VCLApplication</Option>
+ <Option Name="Version">1.0</Option>
+ <Option Name="GUID">{25831C1B-9D0F-409B-9E55-E0D5A9B95D1C}</Option>
+ </Option>
+ </PersonalityInfo>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">ToolConsistency.dpr</Source>
+ </Source>
+ <FileVersion>
+ <FileVersion Name="Version">7.0</FileVersion>
+ </FileVersion>
+ <Compiler>
+ <Compiler Name="A">8</Compiler>
+ <Compiler Name="B">0</Compiler>
+ <Compiler Name="C">1</Compiler>
+ <Compiler Name="D">1</Compiler>
+ <Compiler Name="E">0</Compiler>
+ <Compiler Name="F">0</Compiler>
+ <Compiler Name="G">1</Compiler>
+ <Compiler Name="H">1</Compiler>
+ <Compiler Name="I">1</Compiler>
+ <Compiler Name="J">0</Compiler>
+ <Compiler Name="K">0</Compiler>
+ <Compiler Name="L">1</Compiler>
+ <Compiler Name="M">0</Compiler>
+ <Compiler Name="N">1</Compiler>
+ <Compiler Name="O">1</Compiler>
+ <Compiler Name="P">1</Compiler>
+ <Compiler Name="Q">0</Compiler>
+ <Compiler Name="R">0</Compiler>
+ <Compiler Name="S">0</Compiler>
+ <Compiler Name="T">0</Compiler>
+ <Compiler Name="U">0</Compiler>
+ <Compiler Name="V">1</Compiler>
+ <Compiler Name="W">0</Compiler>
+ <Compiler Name="X">1</Compiler>
+ <Compiler Name="Y">1</Compiler>
+ <Compiler Name="Z">1</Compiler>
+ <Compiler Name="ShowHints">True</Compiler>
+ <Compiler Name="ShowWarnings">True</Compiler>
+ <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+ <Compiler Name="NamespacePrefix"></Compiler>
+ <Compiler Name="GenerateDocumentation">False</Compiler>
+ <Compiler Name="DefaultNamespace"></Compiler>
+ <Compiler Name="SymbolDeprecated">True</Compiler>
+ <Compiler Name="SymbolLibrary">True</Compiler>
+ <Compiler Name="SymbolPlatform">True</Compiler>
+ <Compiler Name="SymbolExperimental">True</Compiler>
+ <Compiler Name="UnitLibrary">True</Compiler>
+ <Compiler Name="UnitPlatform">True</Compiler>
+ <Compiler Name="UnitDeprecated">True</Compiler>
+ <Compiler Name="UnitExperimental">True</Compiler>
+ <Compiler Name="HResultCompat">True</Compiler>
+ <Compiler Name="HidingMember">True</Compiler>
+ <Compiler Name="HiddenVirtual">True</Compiler>
+ <Compiler Name="Garbage">True</Compiler>
+ <Compiler Name="BoundsError">True</Compiler>
+ <Compiler Name="ZeroNilCompat">True</Compiler>
+ <Compiler Name="StringConstTruncated">True</Compiler>
+ <Compiler Name="ForLoopVarVarPar">True</Compiler>
+ <Compiler Name="TypedConstVarPar">True</Compiler>
+ <Compiler Name="AsgToTypedConst">True</Compiler>
+ <Compiler Name="CaseLabelRange">True</Compiler>
+ <Compiler Name="ForVariable">True</Compiler>
+ <Compiler Name="ConstructingAbstract">True</Compiler>
+ <Compiler Name="ComparisonFalse">True</Compiler>
+ <Compiler Name="ComparisonTrue">True</Compiler>
+ <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+ <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+ <Compiler Name="UnsupportedConstruct">True</Compiler>
+ <Compiler Name="FileOpen">True</Compiler>
+ <Compiler Name="FileOpenUnitSrc">True</Compiler>
+ <Compiler Name="BadGlobalSymbol">True</Compiler>
+ <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+ <Compiler Name="InvalidDirective">True</Compiler>
+ <Compiler Name="PackageNoLink">True</Compiler>
+ <Compiler Name="PackageThreadVar">True</Compiler>
+ <Compiler Name="ImplicitImport">True</Compiler>
+ <Compiler Name="HPPEMITIgnored">True</Compiler>
+ <Compiler Name="NoRetVal">True</Compiler>
+ <Compiler Name="UseBeforeDef">True</Compiler>
+ <Compiler Name="ForLoopVarUndef">True</Compiler>
+ <Compiler Name="UnitNameMismatch">True</Compiler>
+ <Compiler Name="NoCFGFileFound">True</Compiler>
+ <Compiler Name="ImplicitVariants">True</Compiler>
+ <Compiler Name="UnicodeToLocale">True</Compiler>
+ <Compiler Name="LocaleToUnicode">True</Compiler>
+ <Compiler Name="ImagebaseMultiple">True</Compiler>
+ <Compiler Name="SuspiciousTypecast">True</Compiler>
+ <Compiler Name="PrivatePropAccessor">True</Compiler>
+ <Compiler Name="UnsafeType">False</Compiler>
+ <Compiler Name="UnsafeCode">False</Compiler>
+ <Compiler Name="UnsafeCast">False</Compiler>
+ <Compiler Name="OptionTruncated">True</Compiler>
+ <Compiler Name="WideCharReduced">True</Compiler>
+ <Compiler Name="DuplicatesIgnored">True</Compiler>
+ <Compiler Name="UnitInitSeq">True</Compiler>
+ <Compiler Name="LocalPInvoke">True</Compiler>
+ <Compiler Name="MessageDirective">True</Compiler>
+ <Compiler Name="CodePage"></Compiler>
+ </Compiler>
+ <Linker>
+ <Linker Name="MapFile">3</Linker>
+ <Linker Name="OutputObjs">0</Linker>
+ <Linker Name="GenerateHpps">False</Linker>
+ <Linker Name="ConsoleApp">1</Linker>
+ <Linker Name="DebugInfo">False</Linker>
+ <Linker Name="RemoteSymbols">False</Linker>
+ <Linker Name="GenerateDRC">False</Linker>
+ <Linker Name="MinStackSize">16384</Linker>
+ <Linker Name="MaxStackSize">1048576</Linker>
+ <Linker Name="ImageBase">4194304</Linker>
+ <Linker Name="ExeDescription"></Linker>
+ </Linker>
+ <Directories>
+ <Directories Name="OutputDir">..\..\bin\plugins</Directories>
+ <Directories Name="UnitOutputDir">..\..\dcu</Directories>
+ <Directories Name="PackageDLLOutputDir"></Directories>
+ <Directories Name="PackageDCPOutputDir"></Directories>
+ <Directories Name="SearchPath"></Directories>
+ <Directories Name="Packages"></Directories>
+ <Directories Name="Conditionals"></Directories>
+ <Directories Name="DebugSourceDirs"></Directories>
+ <Directories Name="UsePackages">False</Directories>
+ </Directories>
+ <Parameters>
+ <Parameters Name="RunParams"></Parameters>
+ <Parameters Name="HostApplication"></Parameters>
+ <Parameters Name="Launcher"></Parameters>
+ <Parameters Name="UseLauncher">False</Parameters>
+ <Parameters Name="DebugCWD"></Parameters>
+ <Parameters Name="Debug Symbols Search Path"></Parameters>
+ <Parameters Name="LoadAllSymbols">True</Parameters>
+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">9</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">41</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">True</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">Tool Consistency Checker Plugin for IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.41</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName">ToolConsistency.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalCopyright">Copyright (c) 2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+ <VersionInfoKeys Name="OriginalFilename">ToolConsistency.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductName">Tool Consistency Checker Plugin for IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductVersion">1.9</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments">Latest version available at http://initranslator.sourceforge.net</VersionInfoKeys>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+</BorlandProject>
Modified: translator/trunk/src/ToolConsistency/ToolConsistency.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj
===================================================================
--- translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj 2006-12-05 18:27:33 UTC (rev 168)
+++ translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj 2006-12-05 18:40:50 UTC (rev 169)
@@ -145,7 +145,7 @@
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
- <VersionInfo Name="Build">17</VersionInfo>
+ <VersionInfo Name="Build">18</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -157,7 +157,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Peter Thörnqvist</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Alternate List Editor plugin for IniTranslator</VersionInfoKeys>
- <VersionInfoKeys Name="FileVersion">1.9.0.17</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.18</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">ToolListEdit.dll</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
Modified: translator/trunk/src/ToolListEdit/ToolListEdit.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj
===================================================================
--- translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj 2006-12-05 18:27:33 UTC (rev 168)
+++ translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj 2006-12-05 18:40:50 UTC (rev 169)
@@ -145,7 +145,7 @@
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
- <VersionInfo Name="Build">4</VersionInfo>
+ <VersionInfo Name="Build">5</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -157,7 +157,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">IniTranslator</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Tool Property Viewer Plugin for IniTranslator</VersionInfoKeys>
- <VersionInfoKeys Name="FileVersion">1.9.0.4</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.5</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">ToolPropertiesView.dll</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright (c) 2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/translator.bdsproj
===================================================================
--- translator/trunk/src/translator.bdsproj 2006-12-05 18:27:33 UTC (rev 168)
+++ translator/trunk/src/translator.bdsproj 2006-12-05 18:40:50 UTC (rev 169)
@@ -145,7 +145,7 @@
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
- <VersionInfo Name="Build">39</VersionInfo>
+ <VersionInfo Name="Build">42</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -157,7 +157,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Peter Thörnqvist</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Ini Language Translator</VersionInfoKeys>
- <VersionInfoKeys Name="FileVersion">1.9.0.39</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.42</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">translator.exe</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
Modified: translator/trunk/src/translator.res
===================================================================
(Binary files differ)
Modified: translator/trunk/translator.bdsgroup
===================================================================
--- translator/trunk/translator.bdsgroup 2006-12-05 18:27:33 UTC (rev 168)
+++ translator/trunk/translator.bdsgroup 2006-12-05 18:40:50 UTC (rev 169)
@@ -25,13 +25,13 @@
<Projects Name="POParser.dll">src\POPlugin\POParser.bdsproj</Projects>
<Projects Name="SciTEParser.dll">src\SciTEPlugin\SciTEParser.bdsproj</Projects>
<Projects Name="TMXParser.dll">src\TMXPlugin\TMXParser.bdsproj</Projects>
+ <Projects Name="ToolConsistency.dll">src\ToolConsistency\ToolConsistency.bdsproj</Projects>
<Projects Name="ToolListEdit.dll">src\ToolListEdit\ToolListEdit.bdsproj</Projects>
- <Projects Name="ToolPluginDemo.dll">src\ToolPluginDemo\ToolPluginDemo.bdsproj</Projects>
<Projects Name="ToolPropertiesView.dll">src\ToolPropertiesView\ToolPropertiesView.bdsproj</Projects>
<Projects Name="ToolTreeView.dll">src\ToolTreeView\ToolTreeView.bdsproj</Projects>
<Projects Name="XilisoftParser.dll">src\XilisoftPlugin\XilisoftParser.bdsproj</Projects>
<Projects Name="XLIFFParser.dll">src\XLIFFPlugin\XLIFFParser.bdsproj</Projects>
- <Projects Name="Targets">translator.exe FoxitParser.dll IBForumsParser.dll MozillaDTDParser.dll MozillaPropsParser.dll MSDictBuild.exe MSDictParser.dll MsTermBuild.exe OlegParser.dll OOGSIParser.dll PHPNukeParser.dll PHPParser.dll PolyGlotParser.dll POParser.dll SciTEParser.dll TMXParser.dll ToolListEdit.dll ToolPluginDemo.dll ToolPropertiesView.dll ToolTreeView.dll XilisoftParser.dll XLIFFParser.dll</Projects>
+ <Projects Name="Targets">translator.exe FoxitParser.dll IBForumsParser.dll MozillaDTDParser.dll MozillaPropsParser.dll MSDictBuild.exe MSDictParser.dll MsTermBuild.exe OlegParser.dll OOGSIParser.dll PHPNukeParser.dll PHPParser.dll PolyGlotParser.dll POParser.dll SciTEParser.dll TMXParser.dll ToolConsistency.dll ToolListEdit.dll ToolPropertiesView.dll ToolTreeView.dll XilisoftParser.dll XLIFFParser.dll</Projects>
</Projects>
<Dependencies/>
</Default.Personality>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-05 19:49:58
|
Revision: 170
http://svn.sourceforge.net/initranslator/?rev=170&view=rev
Author: peter3
Date: 2006-12-05 11:49:58 -0800 (Tue, 05 Dec 2006)
Log Message:
-----------
- have to check if user is on XP before using XP specific functions
- FileAge for pre-BDS
Modified Paths:
--------------
translator/trunk/help/images/translator.jpg
translator/trunk/src/AppUtils.pas
translator/trunk/src/FileMonitor.pas
Modified: translator/trunk/help/images/translator.jpg
===================================================================
(Binary files differ)
Modified: translator/trunk/src/AppUtils.pas
===================================================================
--- translator/trunk/src/AppUtils.pas 2006-12-05 18:40:50 UTC (rev 169)
+++ translator/trunk/src/AppUtils.pas 2006-12-05 19:49:58 UTC (rev 170)
@@ -556,7 +556,7 @@
begin
if TWinControl(AControl).Controls[i] is TCustomComboBox then
begin
- if IsAppThemed {Win32PlatformIsXP} then
+ if Assigned(IsAppThemed) and IsAppThemed {Win32PlatformIsXP} then
TAccessComboBox(TWinControl(AControl).Controls[i]).BevelKind := bkNone
else
TAccessComboBox(TWinControl(AControl).Controls[i]).BevelKind := bkFlat;
@@ -578,7 +578,7 @@
begin
if WC.Controls[i] is TCustomComboBox then
begin
- if IsAppThemed {Win32PlatformIsXP} then
+ if Assigned(IsAppThemed) and IsAppThemed {Win32PlatformIsXP} then
TAccessComboBox(TWinControl(AControl).Controls[i]).BevelKind := bkNone
else
TAccessComboBox(TWinControl(AControl).Controls[i]).BevelKind := bkFlat;
Modified: translator/trunk/src/FileMonitor.pas
===================================================================
--- translator/trunk/src/FileMonitor.pas 2006-12-05 18:40:50 UTC (rev 169)
+++ translator/trunk/src/FileMonitor.pas 2006-12-05 19:49:58 UTC (rev 170)
@@ -57,6 +57,32 @@
resourcestring
SFmtMonitorFileNotFound = 'File "%s" not found: cannot monitor a nonexistent file!';
+{$IFNDEF COMPILER9_UP}
+function FileAge(const FileName: string; out FileDateTime: TDateTime): Boolean;
+var
+ Handle: THandle;
+ FindData: TWin32FindData;
+ LSystemTime: TSystemTime;
+ LocalFileTime: TFileTime;
+begin
+ Result := False;
+ Handle := FindFirstFile(PChar(FileName), FindData);
+ if Handle <> INVALID_HANDLE_VALUE then
+ begin
+ Windows.FindClose(Handle);
+ if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
+ begin
+ Result := True;
+ FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
+ FileTimeToSystemTime(LocalFileTime, LSystemTime);
+ with LSystemTime do
+ FileDateTime := EncodeDate(wYear, wMonth, wDay) +
+ EncodeTime(wHour, wMinute, wSecond, wMilliSeconds);
+ end;
+ end;
+end;
+{$ENDIF}
+
{ TFileMonitorThread }
procedure TFileMonitorThread.Change;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-05 21:27:21
|
Revision: 172
http://svn.sourceforge.net/initranslator/?rev=172&view=rev
Author: peter3
Date: 2006-12-05 13:16:00 -0800 (Tue, 05 Dec 2006)
Log Message:
-----------
- update for 1.9.0.42 release
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/releasenote.txt
translator/trunk/setup/translator.fbp5
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-05 21:14:36 UTC (rev 171)
+++ translator/trunk/Changelog.txt 2006-12-05 21:16:00 UTC (rev 172)
@@ -1,8 +1,17 @@
Ini Translator Changelog
========================
2006-12-05:
+- Released on Sourceforge as 1.9.0.42
+- Bug Fixed: latest release did not work on non-XP systems
- Bug Fixed: translation comment wasn't cleared when user clicked "New translation"
- New tool plugin: ToolConsistency. Checks if items are consistently translated, i.e same translation for same original
+ToolConsistency:
+- the user settings are now persisted
+- components are now TNT
+- Items can now be edited in the tree
+- Items can easily be copied to all other matching items
+- Translations always display their accelerator key
+- When form closes, the selected item in the main list is synced
2006-12-04:
- Released on Sourceforge as 1.9.0.41
Modified: translator/trunk/releasenote.txt
===================================================================
--- translator/trunk/releasenote.txt 2006-12-05 21:14:36 UTC (rev 171)
+++ translator/trunk/releasenote.txt 2006-12-05 21:16:00 UTC (rev 172)
@@ -4,6 +4,11 @@
Ini Translator is a small Windows tool to simplify the translation of ini style language files (as used by programs like FlashGet, Inno Setup and Wallpaper Sequencer to name a few) and the GUI is similar to that of poEdit (a translation editor for gnu gettext).
The program and the sources are hosted at sourceforge and are released subject to the MPL 1.1 license.
+
+New in version 1.9.0.42:
+- Bug Fixed: previous version did not work on non-XP systems
+- New tool plugin: ToolConsistency. Checks if items are consistently translated, i.e same translation for same original
+
New in version 1.9.0.41:
- Bug Fixed: translation is now sorted by index before saving (was sorted by section)
- Bug Fixed: when merging orphans, items are now inserted at the correct location in the translation
Modified: translator/trunk/setup/translator.fbp5
===================================================================
--- translator/trunk/setup/translator.fbp5 2006-12-05 21:14:36 UTC (rev 171)
+++ translator/trunk/setup/translator.fbp5 2006-12-05 21:16:00 UTC (rev 172)
@@ -56,6 +56,51 @@
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
+ <Object Class="TFBVariablesLoadAction" XMLID="{CB3841EF-CCB4-4772-8F70-EC518AADE710}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Property name="ActionTextColor" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
+ <Property name="CreateVarInINIifNotExists" type="Boolean">True</Property>
+ <Property name="Enabled" type="WordBool">True</Property>
+ <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
+ <Property name="FailIfVariableNotDefined" type="Boolean">False</Property>
+ <Property name="FailIfVariableNotInIniFile" type="Boolean">False</Property>
+ <Property name="IgnoreFailure" type="WordBool">False</Property>
+ <Property name="IgnoreFileNotFound" type="Boolean">True</Property>
+ <Property MultiValue="0" name="INIFile" type="string">%FBPROJECTDIR%\FBVariables.ini</Property>
+ <Property name="IsAction" type="Boolean">True</Property>
+ <Property name="IsBreakPoint" type="WordBool">False</Property>
+ <Property MultiValue="0" name="LogToVariable" type="string"></Property>
+ <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="PauseInterval" type="Cardinal">0</Property>
+ <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
+ <Property MultiValue="0" name="SectionName" type="string">FBVariables</Property>
+ <Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Property name="Variables" type="TStrings"><![CDATA[ADDONS
+CREATETAG
+DELETE_FOLDER
+FTP_UPLOAD
+NEWS_NOTIFY
+ROOTPATH
+VERSION_BUILD
+VERSION_MAJOR
+VERSION_MINOR
+VERSION_RELEASE
+]]>
+ </Property>
+ <Property name="VariableTypes" type="TStrings"><![CDATA[String
+String
+String
+String
+String
+String
+String
+String
+String
+String
+]]>
+ </Property>
+ </Object>
<Object Class="TFBDialogBuilderAction" XMLID="{A317A7BB-C95A-4031-AF6C-8922CC87A759}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
@@ -351,7 +396,7 @@
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="NodeCollapsed" type="Boolean">True</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@@ -378,7 +423,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -424,13 +469,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=Ini Language Translator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=translator.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=translator.exe
ProductName=Ini Translator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -516,7 +561,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -562,13 +607,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=MsDictBuild
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=MsDictBuild.exe
LegalCopyright=Copyright (c) 2003-2004 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsDictBuild.exe
ProductName=MsDictBuild
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -653,7 +698,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -699,13 +744,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Peter Thörnqvist
FileDescription=MsTermBuild
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=MsTermBuild.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsTermBuild.exe
ProductName=MsTermBuild
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
@@ -806,7 +851,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -852,13 +897,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Foxit Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=FoxitParser.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=FoxitParser.dll
ProductName=Foxit Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
CompileDate=den 25 november 2006 16:58
]]>
@@ -942,7 +987,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -988,13 +1033,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=PHP Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=PHPParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=PHPParser.dll
ProductName=PHP Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1077,7 +1122,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1123,13 +1168,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=IB Forums Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=IBForumsParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=IBForumsParser.dll
ProductName=IB Forums Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1212,7 +1257,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1258,13 +1303,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Mozilla DTD Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=MozillaDTDParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaDTDParser.dll
ProductName=Mozilla DTD Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1347,7 +1392,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1393,13 +1438,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Mozilla Properties Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=MozillaPropsParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaPropsParser.dll
ProductName=Mozilla Properties Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1482,7 +1527,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1528,13 +1573,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Oleg Translator Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=OlegParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=OlegParser.dll
ProductName=Oleg Translator Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1617,7 +1662,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1663,13 +1708,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=phpNuke Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=phpNukeParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=phpNukeParser.dll
ProductName=phpNuke Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1752,7 +1797,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1798,13 +1843,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=PO Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
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.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -1887,7 +1932,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -1933,13 +1978,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=SciTE Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=SciTEParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=SciTEParser.dll
ProductName=SciTE Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -2022,7 +2067,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -2068,13 +2113,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=TMX Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=TMXParser.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=TMXParser.dll
ProductName=TMX Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -2157,7 +2202,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -2203,13 +2248,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=XiliSoft Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=XiliSoftParser.dll
LegalCopyright=Copyright (c) 2006 by Alexander Kornienko; all rights reserved
LegalTrademarks=
OriginalFilename=XiliSoftParser.DLL
ProductName=XiliSoft Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -2292,7 +2337,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -2338,13 +2383,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=XLIFF Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=XLIFFPlugin.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=XLIFFPlugin.dll
ProductName=XLIFF Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -2443,7 +2488,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -2489,13 +2534,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=ListView Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=ToolListEdit.dll
LegalCopyright=Copyright (c) 2003-2006 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=ToolListEdit.dll
ProductName=ListView Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.44
Comments=Latest version at http://initranslator.sourceforge.net
]]>
</Property>
@@ -2578,7 +2623,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -2624,13 +2669,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Tool Consistency Checker Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=ToolConsistency.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=ToolConsistency.dll
ProductName=Tool Consistency Checker Plugin for IniTranslator
-ProductVersion=1.9
+ProductVersion=1.9.0.44
Comments=Latest version available at http://initranslator.sourceforge.net
]]>
</Property>
@@ -2713,7 +2758,7 @@
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
- <Property name="BuildVersion" type="Integer">41</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">4</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
@@ -2759,13 +2804,13 @@
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
FileDescription=Tool Property Viewer Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.44
InternalName=ToolPropertiesView.dll
LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=ToolPropertiesView.dll
Produ...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-06 21:34:13
|
Revision: 173
http://svn.sourceforge.net/initranslator/?rev=173&view=rev
Author: peter3
Date: 2006-12-06 13:34:00 -0800 (Wed, 06 Dec 2006)
Log Message:
-----------
- Multiple undo
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/src/AppConsts.pas
translator/trunk/src/MainFrm.dfm
translator/trunk/src/MainFrm.pas
translator/trunk/src/ToolConsistency/ToolConsistency.dpr
translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas
translator/trunk/src/translator.dpr
Added Paths:
-----------
translator/trunk/src/UndoList.pas
Property Changed:
----------------
translator/trunk/src/ToolConsistency/ToolConsistency.dpr
translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas
translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/Changelog.txt 2006-12-06 21:34:00 UTC (rev 173)
@@ -1,5 +1,8 @@
Ini Translator Changelog
========================
+2006-12-06:
+- Multiple undo
+
2006-12-05:
- Released on Sourceforge as 1.9.0.42
- Bug Fixed: latest release did not work on non-XP systems
Modified: translator/trunk/src/AppConsts.pas
===================================================================
--- translator/trunk/src/AppConsts.pas 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/src/AppConsts.pas 2006-12-06 21:34:00 UTC (rev 173)
@@ -110,7 +110,12 @@
SConfirmRemoveOrphans = 'Saving the translation now will remove any orphaned items from the file. Continue anyway?';
SFmtOrphansCount = '%d orphan(s)';
SImportedPromptToExport = 'The current items seems to have been imported. Do you want to export them instead?';
+ SUndo = 'Nothing to undo';
+ SUndoAdd = 'Undo add';
+ SUndoEdit = 'Undo edit';
+ SUndoDelete = 'Undo delete';
+
const
SLngExt = 'lng';
SANSI = 'ANSI';
@@ -172,6 +177,10 @@
cDictIgnore = 2;
cDictCancel = 3;
+ cUndoAdd = 0;
+ cUndoEdit = 1;
+ cUndoDelete = 2;
+
implementation
end.
Modified: translator/trunk/src/MainFrm.dfm
===================================================================
--- translator/trunk/src/MainFrm.dfm 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/src/MainFrm.dfm 2006-12-06 21:34:00 UTC (rev 173)
@@ -206,7 +206,7 @@
object TBItem14: TSpTBXItem
Action = acUndo
CaptionW = 'Undo'
- HintW = 'Undo last edit'
+ HintW = 'Undo last action'
end
object TBSeparatorItem8: TSpTBXSeparatorItem
end
@@ -619,6 +619,13 @@
end
object TBSeparatorItem1: TSpTBXSeparatorItem
end
+ object SpTBXItem3: TSpTBXItem
+ Action = acUndo
+ CaptionW = 'Undo'
+ HintW = 'Undo last action'
+ end
+ object SpTBXSeparatorItem2: TSpTBXSeparatorItem
+ end
object TBItem12: TSpTBXItem
Action = acCut
CaptionW = 'Cut'
@@ -1203,7 +1210,7 @@
object acUndo: TTntAction
Category = 'Edit'
Caption = 'Undo'
- Hint = 'Undo last edit'
+ Hint = 'Undo last action'
ImageIndex = 13
ShortCut = 16474
OnExecute = acUndoExecute
@@ -3840,7 +3847,7 @@
object Undo1: TSpTBXItem
Action = acUndo
CaptionW = 'Undo'
- HintW = 'Undo last edit'
+ HintW = 'Undo last action'
end
object N13: TSpTBXSeparatorItem
end
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/src/MainFrm.pas 2006-12-06 21:34:00 UTC (rev 173)
@@ -27,7 +27,7 @@
// app specific
BaseForm, FileMonitor, MsgTranslate, AppOptions,
AppConsts, TranslateFile, TransIntf, Dictionary,
- FindReplaceFrm, EncodingDlgs, ToolItems, WideIniFiles,
+ FindReplaceFrm, EncodingDlgs, ToolItems, WideIniFiles, UndoList,
{$IFDEF USEADDICTSPELLCHECKER}
// addict spell checker (www.addictive-software.com)
@@ -341,6 +341,8 @@
SpTBXItem1: TSpTBXItem;
SpTBXSeparatorItem1: TSpTBXSeparatorItem;
SpTBXItem2: TSpTBXItem;
+ SpTBXItem3: TSpTBXItem;
+ SpTBXSeparatorItem2: TSpTBXSeparatorItem;
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure lvTranslateStringsChange(Sender: TObject; Item: TListItem;
@@ -432,9 +434,9 @@
procedure acToolsCustomizeExecute(Sender: TObject);
procedure TBXSubmenuItem1Select(Sender: TTBCustomItem;
Viewer: TTBItemViewer; Selecting: Boolean);
+ procedure acAddItemExecute(Sender: TObject);
+ procedure acEditItemExecute(Sender: TObject);
procedure acDeleteItemExecute(Sender: TObject);
- procedure acEditItemExecute(Sender: TObject);
- procedure acAddItemExecute(Sender: TObject);
procedure acSaveOriginalExecute(Sender: TObject);
procedure lvTranslateStringsDblClick(Sender: TObject);
procedure acTrimExecute(Sender: TObject);
@@ -450,6 +452,7 @@
FTranslateFile: TTranslateFiles;
FLastFindText, FLastFolder: WideString;
FCommandProcessor, FModified, FIsImport: boolean;
+ FUndoList: TUndoList;
FDictionary: TDictionaryItems;
FFileMonitors: array of TFileMonitorThread;
@@ -464,6 +467,7 @@
function NotifyChanging(Msg, WParam, LParam: integer): WordBool;
procedure NotifyChanged(Msg, WParam, LParam: integer);
{$IFDEF USEADDICTSPELLCHECKER}
+
procedure SpellCheckComplete(Sender: TObject);
procedure CreateSpellChecker;
procedure SpellCheckGetString(Sender: TObject;
@@ -555,7 +559,9 @@
procedure DoTrim;
procedure AddItem(const Section, Original, Translation, OrigComments, TransComments: WideString); overload;
procedure AddItem(AItem: ITranslationItem); overload;
- procedure DeleteItem(Index: integer);
+ procedure InsertItem(AItem: ITranslationItem);
+ procedure DeleteItem(Index: integer); overload;
+ procedure DeleteItem(const Item: ITranslationItem); overload;
procedure DoExternalToolClick(Sender: TObject);
function GetSelectedItem: ITranslationItem;
procedure SetSelectedItem(const Value: ITranslationItem);
@@ -565,6 +571,8 @@
function SelectOriginal(ShowDialog, ShowTransDialog: boolean): boolean;
function SelectTranslation(ShowDialog, CalledByOrig: boolean): boolean;
procedure DoMergeOrphans(Sender: TObject);
+ procedure DoUndoEvent(Sender: TObject; AItem: TUndoItem);
+ procedure AddUndo(const Item: ITranslationItem; Description: WideString; UndoType: integer);
public
function GetItems: ITranslationItems;
function GetOrphans: ITranslationItems;
@@ -614,6 +622,37 @@
{$R *.dfm}
+type
+ TTranslationUndoItem = class(TUndoData)
+ private
+ FItem: ITranslationItem;
+ public
+ constructor Create(const Items: ITranslationItems; const Item: ITranslationItem);
+ property Item: ITranslationItem read FItem;
+ end;
+
+{ TTranslationUndoItem }
+
+constructor TTranslationUndoItem.Create(const Items: ITranslationItems;
+ const Item: ITranslationItem);
+begin
+ inherited Create;
+ FreeObject := true;
+ FItem := Items.CreateItem;
+ FItem.Index := Item.Index;
+ FItem.Translated := Item.Translated;
+ FItem.TransComments := Item.TransComments;
+ FItem.OrigComments := Item.OrigComments;
+ FItem.Original := Item.Original;
+ FItem.Translation := Item.Translation;
+ FItem.Section := Item.Section;
+ FItem.Name := Item.Name;
+ FItem.PrivateStorage := Item.PrivateStorage;
+ FItem.PreData := Item.PreData;
+ FItem.PostData := Item.PostData;
+ FItem.Modified := Item.Modified;
+end;
+
{ TfrmMain }
// frmMain support routines
@@ -625,6 +664,8 @@
// only options that can be changed from the options dialog needs to be reset, so these are only set once
if FirstLoad then
begin
+ FUndoList := TUndoList.Create;
+ FUndoList.OnUndo := DoUndoEvent;
CreateDialogs;
if WideFileExists(GlobalAppOptions.OriginalFile) then
LoadOriginal(GlobalAppOptions.OriginalFile, TEncoding(GlobalAppOptions.OrigEncoding)); // ??
@@ -905,7 +946,7 @@
Exit;
if not CheckModified then
Exit;
-
+ FUndoList.Clear;
if WideFileExists(Filename) and not FCommandProcessor then
begin
FCapabilitesSupported := 0;
@@ -946,6 +987,7 @@
Exit;
if not CheckModified then
Exit;
+ FUndoList.Clear;
StopMonitor(FFileMonitors[cTransMonitor]);
reOriginal.Clear;
reTranslation.Clear;
@@ -1259,10 +1301,14 @@
begin
if (S <> '') and FPrompt then
FDictionary[j].Translations.Add(S);
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
FTranslateFile.Items[i].Translation := S;
end;
cDictUse:
- FTranslateFile.Items[i].Translation := S;
+ begin
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
+ FTranslateFile.Items[i].Translation := S;
+ end;
cDictCancel:
Exit;
end;
@@ -1699,6 +1745,10 @@
ini.WriteString(ClassName, EncodeStrings(SConfirmRemoveOrphans), EncodeStrings(SConfirmRemoveOrphans));
ini.WriteString(ClassName, EncodeStrings(SFmtOrphansCount), EncodeStrings(SFmtOrphansCount));
ini.WriteString(ClassName, EncodeStrings(SImportedPromptToExport), EncodeStrings(SImportedPromptToExport));
+ ini.WriteString(ClassName, EncodeStrings(SUndo), EncodeStrings(SUndo));
+ ini.WriteString(ClassName, EncodeStrings(SUndoAdd), EncodeStrings(SUndoAdd));
+ ini.WriteString(ClassName, EncodeStrings(SUndoEdit), EncodeStrings(SUndoEdit));
+ ini.WriteString(ClassName, EncodeStrings(SUndoDelete), EncodeStrings(SUndoDelete));
for i := 0 to alMain.ActionCount - 1 do
begin
@@ -1774,12 +1824,16 @@
if b then
begin
if FFindReplace.MatchLine then
- FTranslateFile.Items[i].Translation := FFindReplace.ReplaceText
+ begin
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
+ FTranslateFile.Items[i].Translation := FFindReplace.ReplaceText;
+ end
else
begin
F := [rfReplaceAll];
if not FFindReplace.MatchCase then
Include(F, rfIgnoreCase);
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
FTranslateFile.Items[i].Translation := Tnt_WideStringReplace(FTranslateFile.Items[i].Translation,
FFindReplace.FindText, FFindReplace.ReplaceText, F);
end;
@@ -1824,12 +1878,16 @@
if b then
begin
if FFindReplace.MatchLine then
- FTranslateFile.Items[i].Translation := FFindReplace.ReplaceText
+ begin
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
+ FTranslateFile.Items[i].Translation := FFindReplace.ReplaceText;
+ end
else
begin
F := [rfReplaceAll];
if not FFindReplace.MatchCase then
Include(F, rfIgnoreCase);
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
FTranslateFile.Items[i].Translation := Tnt_WideStringReplace(FTranslateFile.Items[i].Translation,
FFindReplace.FindText, FFindReplace.ReplaceText, F);
end;
@@ -2146,7 +2204,12 @@
else
Index := -1;
ACount := FTranslateFile.Items.Count;
- acUndo.Enabled := reTranslation.Focused and Modified;
+ acUndo.Enabled := FUndoList.CanUndo; // reTranslation.Focused and Modified;
+ if acUndo.Enabled then
+ acUndo.Caption := _(ClassName, FUndoList.Current.Description)
+ else
+ acUndo.Caption := _(ClassName, SUndo);
+
acDictSave.Enabled := FDictionary.Count > 0;
acDictEdit.Enabled := acDictSave.Enabled;
acDictTranslate.Enabled := (FDictionary.Count > 0) and (ACount > 0);
@@ -2403,6 +2466,7 @@
FreeAndNil(FTranslateFile);
FreeAndNil(FDictionary);
FreeAndNil(FExternalToolItems);
+ FreeAndNil(FUndoList);
for i := 0 to Length(FFileMonitors) - 1 do
if FFileMonitors[i] <> nil then
begin
@@ -2444,6 +2508,7 @@
begin
if not NotifyChanging(NOTIFY_ITEM_TRANS_CHANGE, Integer(PWideChar(Translation)), Integer(PWideChar(reTranslation.Text))) then
Exit;
+ AddUndo(SelectedItem, _(ClassName, SUndoEdit), cUndoEdit);
Translation := RemoveQuotes(trimCRLFRight(reTranslation.Text));
NotifyChanged(NOTIFY_ITEM_TRANS_CHANGE, Integer(PWideChar(Translation)), 0);
Translated := MyWideDequotedStr(Translation, TransQuote) <> '';
@@ -2637,7 +2702,9 @@
procedure TfrmMain.acUndoExecute(Sender: TObject);
begin
- if ActiveControl is TWinControl then
+ if FUndoList.CanUndo then
+ FUndoList.Undo
+ else if ActiveControl is TWinControl then
SendMessage(TWinControl(ActiveControl).Handle, WM_UNDO, 0, 0);
end;
@@ -2859,6 +2926,7 @@
else
j := 0;
ScrollToTop;
+ FUndoList.Clear;
lvTranslateStrings.Items.Count := 0;
try
for i := 0 to FTranslateFile.Items.Count - 1 do
@@ -2931,6 +2999,7 @@
var
i: integer;
begin
+ FUndoList.Clear;
lvTranslateStrings.Items.Count := 0;
try
for i := 0 to FTranslateFile.Items.Count - 1 do
@@ -3174,6 +3243,7 @@
var
i: integer;
begin
+ FUndoList.Clear;
for i := 0 to FTranslateFile.Items.Count - 1 do
begin
FTranslateFile.Items[i].Translation := '';
@@ -3203,6 +3273,7 @@
if WideSameText(FOrig, FTranslateFile.Items[j].Original) and
not WideSameText(FTrans, FTranslateFile.Items[j].Translation) then
begin
+ AddUndo(FTranslateFile.Items[j], _(ClassName, SUndoEdit), cUndoEdit);
FTranslateFile.Items[j].Translation := FTrans;
FTranslateFile.Items[j].Translated := true;
Modified := true;
@@ -3231,6 +3302,7 @@
begin
if WideSameText(FOrig, FTranslateFile.Items[i].Original) then
begin
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
FTranslateFile.Items[i].Translation := FTrans;
FTranslateFile.Items[i].Translated := FTrans <> '';
Modified := true;
@@ -3410,14 +3482,15 @@
lvTranslateStrings.Items.Count := 0;
reOriginal.Clear;
reTranslation.Clear;
+ FUndoList.Clear;
if TfrmImportExport.Edit(FTranslateFile.Items, FTranslateFile.Orphans,
GetPluginsFolder, true, FImportIndex, FCapabilitesSupported) then
begin
FIsImport := true;
- // make sure the "Save As" dialog is shown on Ctrl+S to prevent inadverent saving to wrong file
StopMonitor(FFileMonitors[cOrigMonitor]);
StopMonitor(FFileMonitors[cTransMonitor]);
// StopMonitor(FFileMonitors[cDictMonitor]);
+ // make sure the "Save As" dialog is shown on Ctrl+S to prevent inadverent saving to wrong file
GlobalAppOptions.TranslationFile := '';
GlobalAppOptions.OriginalFile := '';
acRestoreSort.Execute;
@@ -4019,9 +4092,28 @@
AddItem(AItem);
end;
+procedure TfrmMain.InsertItem(AItem: ITranslationItem);
+var
+ i, aIndex: integer;
+ FOldSort: TTranslateSortType;
+begin
+ aIndex := AItem.Index;
+ FOldSort := FTranslateFile.Items.Sort;
+ try
+ FTranslateFile.Items.Sort := stNone;
+ for i := 0 to FTranslateFile.Items.Count - 1 do
+ if FTranslateFile.Items[i].Index >= aIndex then
+ FTranslateFile.Items[i].Index := FTranslateFile.Items[i].Index + 1;
+ FTranslateFile.Items.Add(AItem);
+ AItem.Index := aIndex;
+ finally
+ FTranslateFile.Items.Sort := FOldSort;
+ end;
+end;
+
procedure TfrmMain.DeleteItem(Index: integer);
var
- i:integer;
+ i: integer;
FOldSort: TTranslateSortType;
begin
if (Index >= 0) and (Index < FTranslateFile.Items.Count) then
@@ -4042,6 +4134,14 @@
end;
end;
+procedure TfrmMain.DeleteItem(const Item: ITranslationItem);
+var i: integer;
+begin
+ i := FTranslateFile.Items.IndexOf(Item);
+ if i >= 0 then
+ DeleteItem(i);
+end;
+
procedure TfrmMain.acAddItemExecute(Sender: TObject);
var
AItem: ITranslationItem;
@@ -4056,6 +4156,7 @@
GetSections(ASections);
if TfrmEditItem.Edit(_(ClassName, SCaptionAddItem), ASections, AItem, true) then
begin
+ AddUndo(AItem, _(ClassName, SUndoAdd), cUndoAdd);
if (AItem.Section = '') then
ErrMsg(_(ClassName, SErrSectionEmpty), SErrorCaption)
else if (AItem.Name = '') then
@@ -4132,6 +4233,7 @@
begin
if EqualItems(AItem, ANewItem) then
Exit;
+ AddUndo(AItem, _(ClassName, SUndoEdit), cUndoEdit);
lvTranslateStrings.Items.BeginUpdate;
try
if (ANewItem.Section = '') then
@@ -4163,10 +4265,12 @@
procedure TfrmMain.acDeleteItemExecute(Sender: TObject);
var i: integer;
begin
- if (SelectedListItem <> nil) and YesNo(_(ClassName, SPromptDeleteItem), _(ClassName, SConfirmDelete)) then
+ if (SelectedItem <> nil)
+ and YesNo(_(ClassName, SPromptDeleteItem), _(ClassName, SConfirmDelete)) then
begin
i := SelectedListItem.Index;
- DeleteItem(SelectedListItem.Index);
+ AddUndo(SelectedItem, _(ClassName, SUndoDelete), cUndoDelete);
+ DeleteItem(SelectedItem);
lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
if i >= FTranslateFile.Items.Count then
i := FTranslateFile.Items.Count - 1
@@ -4237,6 +4341,7 @@
InternalTrim(S);
if Length(S) <> Length(ti.Translation) then
begin
+ AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
ti.Translation := S;
Modified := true;
end;
@@ -4436,5 +4541,56 @@
end;
end;
+procedure TfrmMain.DoUndoEvent(Sender: TObject; AItem: TUndoItem);
+var
+ i: integer;
+ ItemOrig, ItemNew: ITranslationItem;
+begin
+ ItemOrig := TTranslationUndoItem(AItem.Data).Item;
+ case AItem.UndoType of
+ cUndoAdd: // an item was added, remove it
+ begin
+ SelectedItem := ItemOrig;
+ DeleteItem(ItemOrig);
+ end;
+ cUndoEdit: // an item was changed, restore it
+ begin
+ i := FTranslateFile.Items.IndexOf(ItemOrig);
+ if i >= 0 then
+ begin
+ ItemNew := FTranslateFile.Items[i];
+ ItemNew.Index := ItemOrig.Index;
+ ItemNew.Translated := ItemOrig.Translated;
+ ItemNew.TransComments := ItemOrig.TransComments;
+ ItemNew.OrigComments := ItemOrig.OrigComments;
+ ItemNew.Original := ItemOrig.Original;
+ ItemNew.Translation := ItemOrig.Translation;
+ ItemNew.Section := ItemOrig.Section;
+ ItemNew.Name := ItemOrig.Name;
+ ItemNew.PrivateStorage := ItemOrig.PrivateStorage;
+ ItemNew.PreData := ItemOrig.PreData;
+ ItemNew.PostData := ItemOrig.PostData;
+ ItemNew.Modified := ItemOrig.Modified;
+ SelectedItem := ItemNew;
+ end;
+ end;
+ cUndoDelete: // an item was deleted, recreate it
+ begin
+ InsertItem(ItemOrig);
+ SelectedItem := ItemOrig;
+ end;
+ end;
+ if SelectedListItem <> nil then
+ SelectedListItem.MakeVisible(false);
+ lvTranslateStrings.Invalidate;
+end;
+
+procedure TfrmMain.AddUndo(const Item: ITranslationItem;
+ Description: WideString; UndoType: integer);
+begin
+ FUndoList.Add(TTranslationUndoItem.Create(FTranslateFile.Items, Item),
+ Description, UndoType);
+end;
+
end.
Modified: translator/trunk/src/ToolConsistency/ToolConsistency.dpr
===================================================================
--- translator/trunk/src/ToolConsistency/ToolConsistency.dpr 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/src/ToolConsistency/ToolConsistency.dpr 2006-12-06 21:34:00 UTC (rev 173)
@@ -15,7 +15,7 @@
the specific language governing rights and limitations under the License.
}
-// $Id: $
+// $Id$
library ToolConsistency;
uses
Property changes on: translator/trunk/src/ToolConsistency/ToolConsistency.dpr
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Property changes on: translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Modified: translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas
===================================================================
--- translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas 2006-12-06 21:34:00 UTC (rev 173)
@@ -15,7 +15,7 @@
the specific language governing rights and limitations under the License.
}
-// $Id: $
+// $Id$
unit ToolConsistencyImpl;
interface
Property changes on: translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Added: translator/trunk/src/UndoList.pas
===================================================================
--- translator/trunk/src/UndoList.pas (rev 0)
+++ translator/trunk/src/UndoList.pas 2006-12-06 21:34:00 UTC (rev 173)
@@ -0,0 +1,257 @@
+{@abstract(Generic undo implementation) }
+
+{
+ Copyright \xA9 2006 by Peter Thornqvist; all rights reserved
+
+ Developer(s):
+ p3 - peter3 att users dott sourceforge dott net
+
+ Status:
+ The contents of this file are subject to the Mozilla Public License Version
+ 1.1 (the "License"); you may not use this file except in compliance with the
+ License. You may obtain a copy of the License at http://www.mozilla.org/MPL/MPL-1.1.html
+
+ Software distributed under the License is distributed on an "AS IS" basis,
+ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+ the specific language governing rights and limitations under the License.
+}
+// $Id$
+unit UndoList;
+
+interface
+uses
+ SysUtils, Classes;
+
+type
+ TUndoData = class(TObject)
+ protected
+ FreeObject:boolean; // set to true if you want the item auto-freed
+ end;
+
+ TUndoItem = class;
+ TUndoEvent = procedure(Sender: TObject; AItem: TUndoItem) of object;
+
+ TUndoItem = class
+ private
+ FItems: TList;
+ FUserData: integer;
+ FData: TUndoData;
+ FDescription: WideString;
+ function GetCount: integer;
+ function GetItem(Index: integer): TUndoItem;
+ public
+ constructor Create(Data: TUndoData; Description: WideString; UndoType: integer);
+ destructor Destroy; override;
+ procedure Add(AItem: TUndoItem);
+ procedure Delete(Index: integer);
+ procedure Clear;
+ property Data: TUndoData read FData write FData;
+ property UndoType: integer read FUserData write FUserData;
+ property Description: WideString read FDescription write FDescription;
+ property Item[Index: integer]: TUndoItem read GetItem;
+ property Count: integer read GetCount;
+ end;
+
+ TUndoList = class
+ private
+ FItems: TList;
+ FMaxCount, FUpdateCount: integer;
+ FOnUndo: TUndoEvent;
+ FGroupItem: TUndoItem;
+ function GetCurrent: TUndoItem;
+ protected
+ procedure InternalAdd(AItem: TUndoItem);
+ procedure InternalDelete(Index: integer);
+ public
+ constructor Create(MaxCount: integer = 0);
+ destructor Destroy; override;
+ procedure Add(Data: TUndoData; Description: WideString; UndoType: integer);
+ procedure Clear;
+ function CanUndo: boolean;
+ procedure Undo;
+ procedure BeginUpdate;
+ procedure EndUpdate;
+ function Updating: boolean;
+ procedure BeginGroup(Description: WideString);
+ procedure EndGroup;
+ property Current: TUndoItem read GetCurrent;
+ property OnUndo: TUndoEvent read FOnUndo write FOnUndo;
+ end;
+
+implementation
+
+uses Math;
+
+{ TUndoItem }
+
+procedure TUndoItem.Add(AItem: TUndoItem);
+begin
+ if FItems = nil then
+ FItems := TList.Create;
+ FItems.Add(AItem);
+end;
+
+procedure TUndoItem.Clear;
+var i: integer;
+begin
+ if FItems <> nil then
+ begin
+ for i := 0 to FItems.Count - 1 do
+ TUndoItem(FItems[i]).Free;
+ FItems.Clear;
+ end;
+end;
+
+constructor TUndoItem.Create(Data: TUndoData; Description: WideString;
+ UndoType: integer);
+begin
+ inherited Create;
+ self.Data := Data;
+ self.Description := Description;
+ self.UndoType := UndoType;
+end;
+
+procedure TUndoItem.Delete(Index: integer);
+begin
+ TUndoItem(FItems[Index]).Free;
+ FItems.Delete(Index);
+end;
+
+destructor TUndoItem.Destroy;
+begin
+ Clear;
+ FreeAndNil(FItems);
+ if Assigned(FData) and FData.FreeObject then
+ FreeAndNil(FData);
+ inherited Destroy;
+end;
+
+function TUndoItem.GetCount: integer;
+begin
+ if FItems <> nil then
+ Result := FItems.Count
+ else
+ Result := 0;
+end;
+
+function TUndoItem.GetItem(Index: integer): TUndoItem;
+begin
+ Result := TUndoItem(FItems[Index]);
+end;
+
+{ TUndoList }
+
+procedure TUndoList.Add(Data: TUndoData; Description: WideString;
+ UndoType: integer);
+begin
+ InternalAdd(TUndoItem.Create(Data, Description, UndoType));
+end;
+
+procedure TUndoList.BeginGroup(Description: WideString);
+begin
+ FGroupItem := TUndoItem.Create(nil, Description, -1);
+ InternalAdd(FGroupItem);
+end;
+
+procedure TUndoList.BeginUpdate;
+begin
+ Inc(FUpdateCount);
+end;
+
+function TUndoList.CanUndo: boolean;
+begin
+ Result := Current <> nil;
+end;
+
+procedure TUndoList.Clear;
+var i: integer;
+begin
+ if FItems <> nil then
+ begin
+ for i := 0 to FItems.Count - 1 do
+ TUndoItem(FItems[i]).Free;
+ FItems.Clear;
+ end;
+end;
+
+constructor TUndoList.Create(MaxCount: integer = 0);
+begin
+ inherited Create;
+ FMaxCount := MaxCount;
+end;
+
+procedure TUndoList.InternalDelete(Index: integer);
+begin
+ if FItems <> nil then
+ begin
+ TUndoItem(FItems[Index]).Free;
+ FItems.Delete(Index);
+ end;
+end;
+
+destructor TUndoList.Destroy;
+begin
+ Clear;
+ FreeAndNil(FItems);
+ inherited;
+end;
+
+procedure TUndoList.EndGroup;
+begin
+ FGroupItem := nil;
+end;
+
+procedure TUndoList.EndUpdate;
+begin
+ Dec(FUpdateCount);
+ if FUpdateCount < 0 then
+ FUpdateCount := 0;
+end;
+
+procedure TUndoList.InternalAdd(AItem: TUndoItem);
+begin
+ if FItems = nil then
+ FItems := TList.Create;
+ while (FMaxCount > 0) and (FItems.Count >= FMaxCount) do
+ InternalDelete(0);
+ if FGroupItem = nil then
+ FItems.Add(AItem)
+ else
+ FGroupItem.Add(AItem);
+end;
+
+procedure TUndoList.Undo;
+var i: integer;
+begin
+ if Assigned(FOnUndo) and (Current <> nil) then
+ begin
+ if FGroupItem <> nil then
+ begin
+ for i := 0 to FGroupItem.Count - 1 do
+ FOnUndo(self, FGroupItem.Item[i]);
+ FItems.Remove(FGroupItem);
+ FreeAndNil(FGroupItem);
+ end
+ else
+ begin
+ FOnUndo(self, Current);
+ FItems.Remove(Current);
+ end;
+ end;
+end;
+
+function TUndoList.Updating: boolean;
+begin
+ Result := FUpdateCount > 0;
+end;
+
+function TUndoList.GetCurrent: TUndoItem;
+begin
+ if (FItems = nil) or (FItems.Count = 0) then
+ Result := nil
+ else
+ Result := TUndoItem(FItems[FItems.Count - 1]);
+end;
+
+end.
+
Property changes on: translator/trunk/src/UndoList.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Modified: translator/trunk/src/translator.dpr
===================================================================
--- translator/trunk/src/translator.dpr 2006-12-05 21:16:00 UTC (rev 172)
+++ translator/trunk/src/translator.dpr 2006-12-06 21:34:00 UTC (rev 173)
@@ -55,7 +55,8 @@
DictEditFrm in 'DictEditFrm.pas' {frmDictEdit: TTntForm},
ToolItems in 'ToolItems.pas',
ColorsFrm in 'ColorsFrm.pas' {frmColors: TTntForm},
- ApplicationServices in 'ApplicationServices.pas';
+ ApplicationServices in 'ApplicationServices.pas',
+ UndoList in 'UndoList.pas';
{$R *.res}
{$R 'manifest.res' 'manifest.rc'}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-11 17:38:52
|
Revision: 183
http://svn.sourceforge.net/initranslator/?rev=183&view=rev
Author: peter3
Date: 2006-12-11 09:38:53 -0800 (Mon, 11 Dec 2006)
Log Message:
-----------
- Trim removed from main app
- Trim added as new tool plugin
Modified Paths:
--------------
translator/trunk/Changelog.txt
translator/trunk/translator.bpg
Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt 2006-12-11 17:38:09 UTC (rev 182)
+++ translator/trunk/Changelog.txt 2006-12-11 17:38:53 UTC (rev 183)
@@ -1,6 +1,12 @@
Ini Translator Changelog
========================
+2006-12-11:
+- Trim removed from main app
+- Trim now its own tool plugin
+
2006-12-10:
+IniTranslator:
+- Add SpellChecker strings to template file
ToolConsistency:
- better alhorithm in AutoShortCut
ToolKeyCheck:
Modified: translator/trunk/translator.bpg
===================================================================
--- translator/trunk/translator.bpg 2006-12-11 17:38:09 UTC (rev 182)
+++ translator/trunk/translator.bpg 2006-12-11 17:38:53 UTC (rev 183)
@@ -14,7 +14,8 @@
OlegParser.dll OOGSIParser.dll PHPNukeParser.dll PHPParser.dll \
PolyGlotParser.dll POParser.dll SciTEParser.dll TMXParser.dll \
ToolConsistency.dll ToolKeyCheck.dll ToolListEdit.dll ToolPropertiesView.dll \
- ToolTreeView.dll XLIFFParser.dll XilisoftParser.dll translator.exe
+ ToolTreeView.dll ToolTrim.dll XLIFFParser.dll XilisoftParser.dll \
+ translator.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
@@ -88,4 +89,7 @@
ToolKeyCheck.dll: src\ToolKeyCheck\ToolKeyCheck.dpr
$(DCC)
+ToolTrim.dll: src\ToolTrim\ToolTrim.dpr
+ $(DCC)
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-14 20:13:24
|
Revision: 196
http://svn.sourceforge.net/initranslator/?rev=196&view=rev
Author: peter3
Date: 2006-12-14 12:13:23 -0800 (Thu, 14 Dec 2006)
Log Message:
-----------
- FastMM added to repository for easy access
- Memory leak removed
- Don't show dialogs when CommandProcessor is running
- No need to load and save variables in FB5: use persistent variables instead
Modified Paths:
--------------
translator/trunk/clean.bat
translator/trunk/setup/IniTransCommon.iss
translator/trunk/setup/translator.fbp5
translator/trunk/src/FastMM4Options.inc
translator/trunk/src/MainFrm.pas
translator/trunk/src/TRANSLATOR.INC
translator/trunk/src/TranslateFile.pas
Modified: translator/trunk/clean.bat
===================================================================
--- translator/trunk/clean.bat 2006-12-14 14:39:34 UTC (rev 195)
+++ translator/trunk/clean.bat 2006-12-14 20:13:23 UTC (rev 196)
@@ -1 +1 @@
-del /s /q *.dcu *.~* *.drc *.cfg *.ddp *.dsk .#* *.rsm *.rsb *.used *.identcache *.dll *.map *.exe
\ No newline at end of file
+del /s /q *.dcu *.~* *.drc *.cfg *.ddp *.dsk .#* *.rsm *.rsb *.used *.identcache *.dll *.map *.exe mainicon.ico *.rc *.local
\ No newline at end of file
Modified: translator/trunk/setup/IniTransCommon.iss
===================================================================
--- translator/trunk/setup/IniTransCommon.iss 2006-12-14 14:39:34 UTC (rev 195)
+++ translator/trunk/setup/IniTransCommon.iss 2006-12-14 20:13:23 UTC (rev 196)
@@ -1,6 +1,6 @@
#define AppName "Ini Translator"
-#define AppVersion "1.9.0.42"
-#define AppShortVersion "19042"
+#define AppVersion "1.9.0.44"
+#define AppShortVersion "19044"
#define GroupName "Ini Translator"
#define URL "http://initranslator.sourceforge.net"
#define AppPublisher "Peter Th\xF6rnqvist"
Modified: translator/trunk/setup/translator.fbp5
===================================================================
--- translator/trunk/setup/translator.fbp5 2006-12-14 14:39:34 UTC (rev 195)
+++ translator/trunk/setup/translator.fbp5 2006-12-14 20:13:23 UTC (rev 196)
@@ -56,51 +56,6 @@
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
- <Object Class="TFBVariablesLoadAction" XMLID="{CB3841EF-CCB4-4772-8F70-EC518AADE710}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
- <Property name="ActionTextColor" type="Cardinal">0</Property>
- <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
- <Property name="CreateVarInINIifNotExists" type="Boolean">True</Property>
- <Property name="Enabled" type="WordBool">True</Property>
- <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
- <Property name="FailIfVariableNotDefined" type="Boolean">False</Property>
- <Property name="FailIfVariableNotInIniFile" type="Boolean">False</Property>
- <Property name="IgnoreFailure" type="WordBool">False</Property>
- <Property name="IgnoreFileNotFound" type="Boolean">True</Property>
- <Property MultiValue="0" name="INIFile" type="string">%FBPROJECTDIR%\FBVariables.ini</Property>
- <Property name="IsAction" type="Boolean">True</Property>
- <Property name="IsBreakPoint" type="WordBool">False</Property>
- <Property MultiValue="0" name="LogToVariable" type="string"></Property>
- <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="NodeCollapsed" type="Boolean">False</Property>
- <Property name="PauseInterval" type="Cardinal">0</Property>
- <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
- <Property MultiValue="0" name="SectionName" type="string">FBVariables</Property>
- <Property name="SuppressStatusMessages" type="Boolean">False</Property>
- <Property name="Variables" type="TStrings"><![CDATA[ADDONS
-CREATETAG
-DELETE_FOLDER
-FTP_UPLOAD
-NEWS_NOTIFY
-ROOTPATH
-VERSION_BUILD
-VERSION_MAJOR
-VERSION_MINOR
-VERSION_RELEASE
-]]>
- </Property>
- <Property name="VariableTypes" type="TStrings"><![CDATA[String
-String
-String
-String
-String
-String
-String
-String
-String
-String
-]]>
- </Property>
- </Object>
<Object Class="TFBDialogBuilderAction" XMLID="{A317A7BB-C95A-4031-AF6C-8922CC87A759}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
@@ -860,7 +815,7 @@
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
<Property name="HintsAsError" type="Boolean">False</Property>
- <Property MultiValue="0" name="IconFile" type="WideString">%SRCPATH%FoxitPlugin\mainicon.ico</Property>
+ <Property MultiValue="0" name="IconFile" type="WideString"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">True</Property>
<Property name="IncludeVerInfo" type="WordBool">True</Property>
@@ -3020,6 +2975,141 @@
<Property name="VarStringChecks" type="WordBool">True</Property>
</Object>
</Object>
+ <Object Class="TDelphiCompilerAction" XMLID="{4C59E329-4B9C-4938-BEED-D4617F06B4CC}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
+ <Property name="ActionTextColor" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
+ <Property name="AllowImplicitImport" type="Boolean">True</Property>
+ <Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
+ <Property name="AutoIncBuild" type="WordBool">False</Property>
+ <Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
+ <Property name="BuildAll" type="WordBool">True</Property>
+ <Property name="BuildVersion" type="Integer">44</Property>
+ <Property name="CodePage" type="Integer">1252</Property>
+ <Property name="CompilerVersion" type="Integer">4</Property>
+ <Property name="DebugVersionNumbers" type="Boolean">False</Property>
+ <Property MultiValue="0" name="Description" type="string">ToolTrim DLL</Property>
+ <Property name="Enabled" type="WordBool">True</Property>
+ <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
+ <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
+ <Property name="HintsAsError" type="Boolean">False</Property>
+ <Property MultiValue="0" name="IconFile" type="WideString"></Property>
+ <Property name="IgnoreFailure" type="WordBool">False</Property>
+ <Property name="IncludeCompileDate" type="WordBool">True</Property>
+ <Property name="IncludeVerInfo" type="WordBool">True</Property>
+ <Property name="IsAction" type="Boolean">True</Property>
+ <Property name="IsBreakPoint" type="WordBool">False</Property>
+ <Property name="IsDebug" type="WordBool">False</Property>
+ <Property name="IsDLL" type="WordBool">True</Property>
+ <Property name="IsPreRelease" type="WordBool">False</Property>
+ <Property name="IsPrivate" type="WordBool">False</Property>
+ <Property name="IsSpecial" type="WordBool">False</Property>
+ <Property name="KeepCFG" type="Boolean">False</Property>
+ <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
+ <Property name="Locale" type="Integer">1033</Property>
+ <Property MultiValue="0" name="LogToVariable" type="string"></Property>
+ <Property name="MajorVersion" type="Integer">1</Property>
+ <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
+ <Property name="MinorVersion" type="Integer">9</Property>
+ <Property name="NodeCollapsed" type="Boolean">False</Property>
+ <Property name="PauseInterval" type="Cardinal">0</Property>
+ <Property MultiValue="0" name="ProjectFile" type="WideString">%SRCPATH%ToolTrim\ToolTrim.dpr</Property>
+ <Property name="RegenerateResource" type="WordBool">True</Property>
+ <Property name="ReleaseVersion" type="Integer">0</Property>
+ <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
+ <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
+ <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
+ <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
+ <Property MultiValue="0" name="StartingDir" type="WideString">%SRCPATH%ToolTrim\</Property>
+ <Property name="SuppressStatusMessages" type="Boolean">False</Property>
+ <Property name="UpdateDofFile" type="Boolean">False</Property>
+ <Property name="UpdatePackageSource" type="Boolean">False</Property>
+ <Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
+ <Property name="UseProjectSettings" type="TFBUseProjectSettings">[]</Property>
+ <Property name="UsePropertySet" type="Boolean">False</Property>
+ <Property name="UseVersionFromDOF" type="Boolean">False</Property>
+ <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=IniTranslator
+FileDescription=Tool Trim Plugin for IniTranslator
+FileVersion=1.9.0.44
+InternalName=ToolTrim.dll
+LegalCopyright=Copyright (c) 2006 by Peter Thörnqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=ToolTrim.dll
+ProductName=Tool Trim Plugin for IniTranslator
+ProductVersion=1.9.0.44
+Comments=Latest version available at http://initranslator.sourceforge.net
+]]>
+ </Property>
+ <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
+ <Property name="WarningsAsError" type="Boolean">False</Property>
+ <Property name="WorkAroundD5Bug" type="WordBool">False</Property>
+ <Object Class="TBuildScript" XMLID="{64A4880E-C242-49CA-89CA-F822F1856C79}"><Property MultiValue="0" name="BreakPointsStore" type="string"></Property>
+ <Property MultiValue="0" name="Name" type="string">BeforeAction</Property>
+ <Property MultiValue="1" name="Script" type="string"><![CDATA[Action.MajorVersion = VERSION_MAJOR;
+Action.MinorVersion = VERSION_MINOR;
+Action.ReleaseVersion = VERSION_RELEASE;
+Action.BuildVersion = VERSION_BUILD;
+Action.SetVersionInfoKey("ProductVersion",Action.GetVersionInfoKey("FileVersion"))
+]]>
+ </Property>
+ <Property MultiValue="0" name="ScriptLanguage" type="string">JavaScript</Property>
+ </Object>
+ <Object Class="TDelphiCompilerOptions" XMLID="{DE8991DD-B188-4349-BFCF-FDE0A6C340EA}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
+ <Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property>
+ <Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
+ <Property name="Assertions" type="WordBool">True</Property>
+ <Property name="AssignableConst" type="WordBool">False</Property>
+ <Property name="BoolEval" type="WordBool">False</Property>
+ <Property MultiValue="0" name="BPLOutputDir" type="WideString"></Property>
+ <Property name="CompilerWarnings" type="TStrings"><![CDATA[-w-UNSAFE_TYPE=0
+-w-UNSAFE_CODE=0
+-w-UNSAFE_CAST=0
+]]>
+ </Property>
+ <Property MultiValue="0" name="Conditionals" type="WideString"></Property>
+ <Property name="ConsoleApp" type="WordBool">False</Property>
+ <Property MultiValue="0" name="DCPOutputDir" type="WideString"></Property>
+ <Property name="DebugInfo" type="WordBool">True</Property>
+ <Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
+ <Property name="DefinitionsOnly" type="WordBool">True</Property>
+ <Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
+ <Property name="ExportAllSymbols" type="WordBool">False</Property>
+ <Property name="ExtendedSyntax" type="WordBool">True</Property>
+ <Property name="GenerateDocumentation" type="Boolean">False</Property>
+ <Property name="GenerateHPP" type="WordBool">False</Property>
+ <Property name="HugeStrings" type="WordBool">True</Property>
+ <Property name="ImageBase" type="Cardinal">4194304</Property>
+ <Property name="IncludeNamespaces" type="WordBool">False</Property>
+ <Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
+ <Property name="IncludeTD32" type="WordBool">False</Property>
+ <Property name="IOChecking" type="WordBool">True</Property>
+ <Property MultiValue="0" name="LibraryPath" type="WideString">$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;F:\Program\Borland\Add\JEDI\JCL\source;F:\Program\Borland\Add\JEDI\dev\JVCL3\common;F:\Program\Borland\Add\JEDI\dev\JVCL3\run;F:\Program\Borland\Add\dunit\src;F:\Program\Borland\Add\Others;F:\Program\Borland\Add\Utils;f:\program\borland\projects\work\eq plan\eq plan 2.0\eqplan</Property>
+ <Property name="LinkerOutput" type="Integer">3</Property>
+ <Property name="LocalSymbols" type="WordBool">True</Property>
+ <Property name="Mapfile" type="Integer">3</Property>
+ <Property name="MaxStackSize" type="Cardinal">1048576</Property>
+ <Property name="MinStackSize" type="Cardinal">16384</Property>
+ <Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
+ <Property name="OpenStrings" type="WordBool">True</Property>
+ <Property name="Optimisation" type="WordBool">True</Property>
+ <Property MultiValue="0" name="OutputDir" type="WideString">..\..\bin\plugins</Property>
+ <Property name="OverflowChecking" type="WordBool">False</Property>
+ <Property MultiValue="0" name="Packages" type="WideString"></Property>
+ <Property name="RangeChecking" type="WordBool">False</Property>
+ <Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
+ <Property name="ReferenceInfo" type="WordBool">True</Property>
+ <Property name="SafeDivide" type="WordBool">False</Property>
+ <Property MultiValue="0" name="SearchPath" type="WideString"></Property>
+ <Property name="ShowHints" type="WordBool">True</Property>
+ <Property name="ShowWarnings" type="WordBool">True</Property>
+ <Property name="StackFrames" type="WordBool">False</Property>
+ <Property name="TypedPointers" type="WordBool">False</Property>
+ <Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
+ <Property MultiValue="0" name="UnitOutputDir" type="WideString">..\..\dcu</Property>
+ <Property name="UseDebugDCU" type="WordBool">False</Property>
+ <Property name="UsePackages" type="WordBool">False</Property>
+ <Property name="VarStringChecks" type="WordBool">True</Property>
+ </Object>
+ </Object>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{CF0D85C6-C44F-4EE3-B47D-70B885A082BC}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
@@ -3638,36 +3728,6 @@
<Property MultiValue="0" name="ScriptLanguage" type="string">VBScript</Property>
</Object>
</Object>
- <Object Class="TFBVariablesSaveAction" XMLID="{FEA30826-A093-44B8-B43A-2D228C5DC717}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
- <Property name="ActionTextColor" type="Cardinal">0</Property>
- <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
- <Property name="Enabled" type="WordBool">True</Property>
- <Property name="EraseSection" type="Boolean">True</Property>
- <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
- <Property name="IgnoreFailure" type="WordBool">False</Property>
- <Property MultiValue="0" name="INIFile" type="string">%FBPROJECTDIR%\FBVariables.ini</Property>
- <Property name="IsAction" type="Boolean">True</Property>
- <Property name="IsBreakPoint" type="WordBool">False</Property>
- <Property MultiValue="0" name="LogToVariable" type="string"></Property>
- <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
- <Property name="NodeCollapsed" type="Boolean">False</Property>
- <Property name="PauseInterval" type="Cardinal">0</Property>
- <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
- <Property MultiValue="0" name="SectionName" type="string">FBVariables</Property>
- <Property name="SuppressStatusMessages" type="Boolean">False</Property>
- <Property name="Variables" type="TStrings"><![CDATA[ADDONS
-CREATETAG
-DELETE_FOLDER
-FTP_UPLOAD
-NEWS_NOTIFY
-ROOTPATH
-VERSION_BUILD
-VERSION_MAJOR
-VERSION_MINOR
-VERSION_RELEASE
-]]>
- </Property>
- </Object>
</Object>
<Object Class="TFBEndBlockAction" XMLID="{B497A3C2-CD75-4C25-9F57-3F663C9D73B0}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
@@ -3713,7 +3773,7 @@
<Object Class="TFBVariable" XMLID="{8BFA64C1-2C51-4F04-996F-75E8F6E92E74}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">%ProgramFiles%\Borland\AddOns</Property>
<Property name="IsMacro" type="Boolean">False</Property>
- <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">True</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">ADDONS</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
@@ -3729,7 +3789,7 @@
<Object Class="TFBVariable" XMLID="{CD0B31FC-1CB1-4269-97CB-A5FC3899DA2B}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">%ProgramFiles%\Borland\projects\private\translator\trunk</Property>
<Property name="IsMacro" type="Boolean">False</Property>
- <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">True</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">ROOTPATH</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
@@ -3737,7 +3797,7 @@
<Object Class="TFBVariable" XMLID="{6FCDC26C-20F7-4422-92C8-073D4E1FD478}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">1</Property>
<Property name="IsMacro" type="Boolean">False</Property>
- <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">True</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">VERSION_MAJOR</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
@@ -3745,7 +3805,7 @@
<Object Class="TFBVariable" XMLID="{76F5D217-30E7-48D1-9638-D316BA7E2D27}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">9</Property>
<Property name="IsMacro" type="Boolean">False</Property>
- <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">True</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">VERSION_MINOR</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
@@ -3753,7 +3813,7 @@
<Object Class="TFBVariable" XMLID="{608062A2-70E0-4230-814A-68433682D1F7}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">0</Property>
<Property name="IsMacro" type="Boolean">False</Property>
- <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">True</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">VERSION_RELEASE</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
@@ -3761,7 +3821,7 @@
<Object Class="TFBVariable" XMLID="{2C0ECC00-A68D-45F6-9BBA-67E2C178ACCA}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">42</Property>
<Property name="IsMacro" type="Boolean">False</Property>
- <Property name="IsPersistent" type="Boolean">False</Property>
+ <Property name="IsPersistent" type="Boolean">True</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">VERSION_BUILD</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
Modified: translator/trunk/src/FastMM4Options.inc
===================================================================
--- translator/trunk/src/FastMM4Options.inc 2006-12-14 14:39:34 UTC (rev 195)
+++ translator/trunk/src/FastMM4Options.inc 2006-12-14 20:13:23 UTC (rev 196)
@@ -13,7 +13,7 @@
smallest block sizes will be 8-byte aligned instead which may result in a
reduction in memory usage. Medium and large blocks are always 16-byte aligned
irrespective of this setting.}
-{.$define Align16Bytes}
+{$define Align16Bytes}
{Enable to use faster fixed-size move routines when upsizing small blocks.
These routines are much faster than the Borland RTL move procedure since they
@@ -97,7 +97,7 @@
Very important: If you enable this option your application will require the
FastMM_FullDebugMode.dll library. If this library is not available you will
get an error on startup.}
-{.$define FullDebugMode}
+{$define FullDebugMode}
{Set this option to perform "raw" stack traces, i.e. check all entries on the
stack for valid return addresses. Note that this is significantly slower
@@ -133,7 +133,7 @@
{Set this option to enable reporting of memory leaks. Combine it with the two
options below for further fine-tuning.}
-{.$define EnableMemoryLeakReporting}
+{$define EnableMemoryLeakReporting}
{Set this option to suppress the display and logging of expected memory leaks
that were registered by pointer. Leaks registered by size or class are often
@@ -150,7 +150,7 @@
{Set this option to require the program to be run inside the IDE debugger to
report memory leaks. This option has no effect if the option
"EnableMemoryLeakReporting" is not also set.}
- {$define RequireDebuggerPresenceForLeakReporting}
+ {.$define RequireDebuggerPresenceForLeakReporting}
{Set this option to require the presence of debug info ($D+ option) in the
compiled unit to perform memory leak checking. This option has no effect if
@@ -231,16 +231,16 @@
{Group the options you use for release and debug versions below}
{$ifdef Release}
{Specify the options you use for release versions below}
- {$undef FullDebugMode}
- {$undef CheckHeapForCorruption}
- {$define ASMVersion}
- {$undef EnableMemoryLeakReporting}
- {$undef UseOutputDebugString}
+ {.$undef FullDebugMode}
+ {.$undef CheckHeapForCorruption}
+ {.$define ASMVersion}
+ {.$undef EnableMemoryLeakReporting}
+ {.$undef UseOutputDebugString}
{$else}
{Specify the options you use for debugging below}
{.$define FullDebugMode}
- {$define EnableMemoryLeakReporting}
- {$define UseOutputDebugString}
+ {.$define EnableMemoryLeakReporting}
+ {.$define UseOutputDebugString}
{$endif}
{--------------------Compilation Options For borlndmm.dll---------------------}
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-12-14 14:39:34 UTC (rev 195)
+++ translator/trunk/src/MainFrm.pas 2006-12-14 20:13:23 UTC (rev 196)
@@ -481,6 +481,7 @@
function CheckOrphans: boolean;
procedure LoadSettings(FirstLoad: boolean);
procedure SaveSettings;
+ function CloseApp: boolean;
procedure LoadTranslate;
function LoadOriginal(const FileName: WideString; Encoding: TEncoding): TEncoding;
function LoadTranslation(const FileName: WideString; Encoding: TEncoding): TEncoding;
@@ -499,9 +500,10 @@
procedure LoadDictionary(const FileName: WideString);
procedure SaveDictionary(const FileName: WideString);
procedure HandleCommandLine;
+ // performs a command
// returns false if the application should be terminated
function ProcessCommand(const ACommand: WideString): boolean;
- // lods a file with commands and processes them
+ // lods a file with commands and calls ProcessCommand for each row
procedure ProcessCommands(const CommandFile: WideString);
procedure DoMonitoredFileChange(Sender: TObject; const FileName: WideString; var AContinue, AReset: boolean);
procedure DoThreadTerminate(Sender: TObject);
@@ -791,6 +793,8 @@
end;
end;
+
+
function TfrmMain.ProcessCommand(const ACommand: WideString): boolean;
var
tmp, tmp2: WideString;
@@ -873,7 +877,7 @@
begin
WaitCursor;
FCommandProcessor := true;
- ShowWindow(Application.Handle, SW_MINIMIZE);
+ ShowWindow(Application.Handle, SW_HIDE);
SendMessage(Handle, WM_SETREDRAW, 0, 0);
try
S := TTntStringlist.Create;
@@ -882,6 +886,7 @@
for i := 0 to S.Count - 1 do
if not ProcessCommand(S[i]) then
begin
+ CloseApp;
Application.Terminate;
Halt(0); // Close is not fast enough
Exit; // this will skip the ShowWindow below
@@ -893,8 +898,8 @@
FCommandProcessor := false;
end;
lvTranslateStrings.Items.Count := FTranslateFile.Items.Count;
- ShowWindow(Application.Handle, SW_RESTORE);
- ShowWindow(Handle, SW_RESTORE);
+ ShowWindow(Application.Handle, SW_SHOW);
+ ShowWindow(Handle, SW_SHOW);
SendMessage(Handle, WM_SETREDRAW, 1, 0);
end;
end;
@@ -2127,7 +2132,7 @@
function TfrmMain.CheckDictModified: boolean;
begin
Result := true;
- if FDictionary.Modified then
+ if not FCommandProcessor and FDictionary.Modified then
begin
case YesNoCancel(_(ClassName, SSaveDictPrompt), _(ClassName, SConfirmCaption)) of
IDYES:
@@ -2144,7 +2149,7 @@
function TfrmMain.CheckOrphans: boolean;
begin
- if FTranslateFile.Orphans.Count > 0 then
+ if not FCommandProcessor and (FTranslateFile.Orphans.Count > 0) then
Result := YesNo(_(ClassName, SConfirmRemoveOrphans),
_(ClassName, SConfirmDelete))
else
@@ -2460,13 +2465,12 @@
Hint := '';
end;
-procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+function TfrmMain.CloseApp:boolean;
var
i: integer;
begin
- WaitCursor;
- CanClose := CheckModified and CheckDictModified;
- if not CanClose then
+ Result := CheckModified and CheckDictModified;
+ if not Result then
Exit;
if acFullScreen.Checked then
acFullScreen.Execute;
@@ -2488,6 +2492,12 @@
FApplicationServices := nil;
end;
+procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+ WaitCursor;
+ CanClose := CloseApp;
+end;
+
procedure TfrmMain.lvTranslateStringsChange(Sender: TObject;
Item: TListItem; Change: TItemChange);
begin
@@ -4544,7 +4554,7 @@
procedure TfrmMain.mnuToolsPopup(Sender: TTBCustomItem; FromLink: Boolean);
begin
-// BuildToolMenu(Sender);
+ BuildToolMenu(Sender);
end;
end.
Modified: translator/trunk/src/TRANSLATOR.INC
==========================================...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-21 11:01:36
|
Revision: 222
http://svn.sourceforge.net/initranslator/?rev=222&view=rev
Author: peter3
Date: 2006-12-21 03:01:36 -0800 (Thu, 21 Dec 2006)
Log Message:
-----------
- new swedish translations
SDFSplit:
- Validate method added
- XP manifest added
Modified Paths:
--------------
translator/trunk/languages/Svenska.lng
translator/trunk/src/SDFSplit/MainFrm.pas
translator/trunk/src/SDFSplit/SDFSplit.dpr
Modified: translator/trunk/languages/Svenska.lng
===================================================================
--- translator/trunk/languages/Svenska.lng 2006-12-21 10:58:28 UTC (rev 221)
+++ translator/trunk/languages/Svenska.lng 2006-12-21 11:01:36 UTC (rev 222)
@@ -132,10 +132,6 @@
|