Thread: [Initranslator-svncheckins] SF.net SVN: initranslator: [100] translator/trunk/src (Page 2)
Brought to you by:
peter3
Menu
▾
▴
initranslator-svncheckins
|
From: <pe...@us...> - 2006-09-23 16:51:20
|
Revision: 100
http://svn.sourceforge.net/initranslator/?rev=100&view=rev
Author: peter3
Date: 2006-09-23 09:51:03 -0700 (Sat, 23 Sep 2006)
Log Message:
-----------
Added Paths:
-----------
translator/trunk/src/MsDictBuild/manifest.res
translator/trunk/src/MsTermBuild/MsTermBuild.res
translator/trunk/src/MsTermBuild/manifest.res
Added: translator/trunk/src/MsDictBuild/manifest.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/MsDictBuild/manifest.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/src/MsTermBuild/MsTermBuild.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/MsTermBuild/MsTermBuild.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/src/MsTermBuild/manifest.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/MsTermBuild/manifest.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-11-07 20:56:05
|
Revision: 109
http://svn.sourceforge.net/initranslator/?rev=109&view=rev
Author: peter3
Date: 2006-11-07 12:55:57 -0800 (Tue, 07 Nov 2006)
Log Message:
-----------
Modified Paths:
--------------
translator/trunk/src/translator.dof
translator/trunk/src/translator.res
Modified: translator/trunk/src/translator.dof
===================================================================
--- translator/trunk/src/translator.dof 2006-11-07 20:51:52 UTC (rev 108)
+++ translator/trunk/src/translator.dof 2006-11-07 20:55:57 UTC (rev 109)
@@ -110,7 +110,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=35
+Build=36
Debug=0
PreRelease=0
Special=0
@@ -121,7 +121,7 @@
[Version Info Keys]
CompanyName=Peter Th\xF6rnqvist
FileDescription=Ini Language Translator
-FileVersion=1.9.0.35
+FileVersion=1.9.0.36
InternalName=translator.exe
LegalCopyright=Copyright (c) 2003-2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
Modified: translator/trunk/src/translator.res
===================================================================
(Binary files differ)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-11-13 17:08:22
|
Revision: 121
http://svn.sourceforge.net/initranslator/?rev=121&view=rev
Author: peter3
Date: 2006-11-13 09:07:20 -0800 (Mon, 13 Nov 2006)
Log Message:
-----------
- missing call to UpdateFile added
- some spelling corrected
Modified Paths:
--------------
translator/trunk/src/AppOptions.pas
translator/trunk/src/AppUtils.pas
translator/trunk/src/MsgTranslate.pas
translator/trunk/src/TransIntf.pas
translator/trunk/src/WideIniFiles.pas
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2006-11-13 11:21:35 UTC (rev 120)
+++ translator/trunk/src/AppOptions.pas 2006-11-13 17:07:20 UTC (rev 121)
@@ -742,7 +742,7 @@
function TAppOptions.GetOption(const Section, Name: WideString): WideString;
begin
- with TWideIniFile.Create(Filename) do
+ with TWideMemIniFile.Create(Filename) do
try
Result := ReadString(Section, Name, '');
finally
@@ -752,9 +752,10 @@
procedure TAppOptions.SetOption(const Section, Name, Value: WideString);
begin
- with TWideIniFile.Create(Filename) do
+ with TWideMemIniFile.Create(Filename) do
try
WriteString(Section, Name, Value);
+ UpdateFile;
finally
Free;
end;
Modified: translator/trunk/src/AppUtils.pas
===================================================================
--- translator/trunk/src/AppUtils.pas 2006-11-13 11:21:35 UTC (rev 120)
+++ translator/trunk/src/AppUtils.pas 2006-11-13 17:07:20 UTC (rev 121)
@@ -277,17 +277,17 @@
procedure TBMRULoadFromIni(MRU: TTBXMRUList);
var
- ini: TWideIniFile;
- I: Integer;
+ ini: TWideMemIniFile;
+ i: Integer;
S: WideString;
begin
- ini := TWideIniFile.Create(GetUserAppOptionsFile);
+ ini := TWideMemIniFile.Create(GetUserAppOptionsFile);
try
MRU.Items.Clear;
- for I := 1 to MRU.MaxItems do
+ for i := 1 to MRU.MaxItems do
begin
- S := Ini.ReadString(cIniMRUKey, MRU.Prefix + IntToStr(I), '');
+ S := ini.ReadString(cIniMRUKey, MRU.Prefix + IntToStr(i), '');
if S <> '' then
MRU.Items.Add(S);
end;
@@ -298,17 +298,18 @@
procedure TBMRUSaveToIni(MRU: TTBXMRUList);
var
- ini: TWideIniFile;
- I: Integer;
+ ini: TWideMemIniFile;
+ i: Integer;
begin
- ini := TWideIniFile.Create(GetUserAppOptionsFile);
+ ini := TWideMemIniFile.Create(GetUserAppOptionsFile);
try
- for I := 1 to MRU.MaxItems do
+ for i := 1 to MRU.MaxItems do
begin
- if I <= MRU.Items.Count then
- Ini.WriteString(cIniMRUKey, MRU.Prefix + IntToStr(I), MRU.Items[I - 1])
+ if i <= MRU.Items.Count then
+ ini.WriteString(cIniMRUKey, MRU.Prefix + IntToStr(i), MRU.Items[i - 1])
else
- Ini.DeleteKey(cIniMRUKey, MRU.Prefix + IntToStr(I));
+ ini.DeleteKey(cIniMRUKey, MRU.Prefix + IntToStr(i));
+ ini.UpdateFile;
end;
finally
ini.Free;
Modified: translator/trunk/src/MsgTranslate.pas
===================================================================
--- translator/trunk/src/MsgTranslate.pas 2006-11-13 11:21:35 UTC (rev 120)
+++ translator/trunk/src/MsgTranslate.pas 2006-11-13 17:07:20 UTC (rev 121)
@@ -312,7 +312,6 @@
AnObject: TObject);
var
ini: TWideMemIniFile;
- S:WideString;
begin
ini := TWideMemIniFile.Create(AFilename);
try
Modified: translator/trunk/src/TransIntf.pas
===================================================================
--- translator/trunk/src/TransIntf.pas 2006-11-13 11:21:35 UTC (rev 120)
+++ translator/trunk/src/TransIntf.pas 2006-11-13 17:07:20 UTC (rev 121)
@@ -224,8 +224,7 @@
procedure Changed(Msg: Integer; WParam, LParam: Integer); safecall;
end;
- // NB! not used!
- // not completed
+ // implemented by IniTranslator
IApplicationServices = interface(IInterface)
['{61FD76C9-714C-4DDF-BEB2-19A4631B444C}']
function GetItems: ITranslationItems;
Modified: translator/trunk/src/WideIniFiles.pas
===================================================================
--- translator/trunk/src/WideIniFiles.pas 2006-11-13 11:21:35 UTC (rev 120)
+++ translator/trunk/src/WideIniFiles.pas 2006-11-13 17:07:20 UTC (rev 121)
@@ -103,7 +103,7 @@
{ TWideMemIniFile - loads an entire INI file into memory and allows all
operations to be performed on the memory image. The image can then
- be written out to the disk file }
+ be written out to the disk file by calling UpdateFile }
TWideMemIniFile = class(TWideCustomIniFile)
private
@@ -784,9 +784,8 @@
if not WritePrivateProfileStringW(PWideChar(Section), nil, nil, PWideChar(FFileName)) then
raise EWideIniFileException.CreateResFmt(@SIniFileWriteError, [FileName]);
end
- else
- if not WritePrivateProfileStringA(PChar2(Section), nil, nil, PChar2(FFileName)) then
- raise EWideIniFileException.CreateResFmt(@SIniFileWriteError, [FileName]);
+ else if not WritePrivateProfileStringA(PChar2(Section), nil, nil, PChar2(FFileName)) then
+ raise EWideIniFileException.CreateResFmt(@SIniFileWriteError, [FileName]);
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-11-13 17:08:32
|
Revision: 117
http://svn.sourceforge.net/initranslator/?rev=117&view=rev
Author: peter3
Date: 2006-11-10 11:26:27 -0800 (Fri, 10 Nov 2006)
Log Message:
-----------
- 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)
Modified Paths:
--------------
translator/trunk/src/AppConsts.pas
translator/trunk/src/AppOptions.pas
translator/trunk/src/AppUtils.pas
translator/trunk/src/ColorsFrm.pas
translator/trunk/src/CommonUtils.pas
translator/trunk/src/DictEditFrm.pas
translator/trunk/src/DictTranslationSelectDlg.pas
translator/trunk/src/Dictionary.pas
translator/trunk/src/EditItemFrm.pas
translator/trunk/src/EncodingDlgs.pas
translator/trunk/src/ExceptDlg.pas
translator/trunk/src/ExceptDlgMail.pas
translator/trunk/src/ExtToolsFrm.pas
translator/trunk/src/FileMonitor.pas
translator/trunk/src/ImportExportFrm.pas
translator/trunk/src/KbdCfgFrame.pas
translator/trunk/src/MSDictParser/MSDictParser.dpr
translator/trunk/src/MainFrm.pas
translator/trunk/src/MsgTranslate.pas
translator/trunk/src/OptionsFrm.pas
translator/trunk/src/PluginCommon/DualImportFrm.pas
translator/trunk/src/PluginCommon/PreviewExportFrm.dfm
translator/trunk/src/PluginCommon/PreviewExportFrm.pas
translator/trunk/src/PluginCommon/SingleImportFrm.dfm
translator/trunk/src/PluginCommon/SingleImportFrm.pas
translator/trunk/src/ToolItems.pas
translator/trunk/src/ToolListEdit/ToolListEdit.dof
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof
translator/trunk/src/TransIntf.pas
translator/trunk/src/TranslateFile.pas
translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas
translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr
translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.dfm
translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.pas
translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
translator/trunk/src/translator.dof
translator/trunk/src/translator.dpr
Added Paths:
-----------
translator/trunk/src/XilisoftPlugin/XiliSoftParserConsts.pas
Modified: translator/trunk/src/AppConsts.pas
===================================================================
--- translator/trunk/src/AppConsts.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/AppConsts.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -29,7 +29,7 @@
'Toolbars and menus courtesy of Toolbar2000.'#10#9'For more information, see http://www.jrsoftware.org/tb2k.php.'#10 +
'Theme enabled toolbars and menus courtesy of TBX.'#10#9'For more information, see http://g32.org/tbx/index.html.'#10 +
'Extra themes for TBX courtesy of Roy Magne Klever.'#10#9'For more information, see http://www.rmklever.com/delphitbx.'#10 +
- 'Unicode enabled add-on package for Toolbar2000 and TBX courtesy of Silverpoint Development'#10#9'For more information, see http://club.telepolis.com/silverpointdev/sptbxlib.'#10+
+ 'Unicode enabled add-on package for Toolbar2000 and TBX courtesy of Silverpoint Development'#10#9'For more information, see http://club.telepolis.com/silverpointdev/sptbxlib.'#10 +
'Unicode controls courtesy of Troy Wolbrink''s TNT controls.'#10#9'For more information, see http://www.tntware.com/delphicontrols/unicode/.'#10 +
'Spell checker kindly donated by Addictive Software.'#10#9'For more info and additional dictionaries, see http://www.addictivesoftware.com'#10#10 +
'This program is released subject to the MPL 1.1 license (http://www.mozilla.org/MPL/MPL-1.1.html for details)'#10'and come with absolutely no warranty of any kind.';
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/AppOptions.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -176,8 +176,8 @@
property DictionaryFile: WideString read FDictionaryFile write FDictionaryFile;
property TranslationFile: WideString read FTranslationFile write FTranslationFile;
- property DefaultTransEncoding:integer read FDefaultTransEncoding write FDefaultTransEncoding;
- property DefaultOrigEncoding:integer read FDefaultOrigEncoding write FDefaultOrigEncoding;
+ property DefaultTransEncoding: integer read FDefaultTransEncoding write FDefaultTransEncoding;
+ property DefaultOrigEncoding: integer read FDefaultOrigEncoding write FDefaultOrigEncoding;
property TransEncoding: integer read FTransEncoding write FTransEncoding;
property OriginalFile: WideString read FOriginalFile write FOriginalFile;
property OrigEncoding: integer read FOrigEncoding write FOrigEncoding;
@@ -185,13 +185,12 @@
property FilterIndex: integer read FFilterIndex write FFilterIndex default 1;
property AppTitle: WideString read FAppTitle write FAppTitle;
property FontName: WideString read FFontName write FFontName;
- property FontSize:integer read FFontSize write FFontSize;
+ 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;
- property Footer:TTntStrings read FFooter write SetFooter;
+ property Header: TTntStrings read FHeader write SetHeader;
+ property Footer: TTntStrings read FFooter write SetFooter;
-
// find replace
property FindText: WideString read FFindText write FFindText;
property ReplaceText: WideString read FReplaceText write FReplaceText;
@@ -222,20 +221,15 @@
property DictIgnoreNonEmpty: boolean read FDictIgnoreNonEmpty write FDictIgnoreNonEmpty;
property DictEditFilter: Integer read FDictEditFilter write FDictEditFilter;
- property ColorUntranslated:TColor read FColorUntranslated write FColorUntranslated;
- property ColorFontUntranslated:TColor read FColorFontUntranslated write FColorFontUntranslated;
+ property ColorUntranslated: TColor read FColorUntranslated write FColorUntranslated;
+ property ColorFontUntranslated: TColor read FColorFontUntranslated write FColorFontUntranslated;
- property ColorEvenRow:TColor read FColorEvenRow write FColorEvenRow;
- property ColorFontEvenRow:TColor read FColorFontEvenRow write FColorFontEvenRow;
- property ColorOddRow:TColor read FColorOddRow write FColorOddRow;
- property ColorFontOddRow:TColor read FColorFontOddRow write FColorFontOddRow;
+ property ColorEvenRow: TColor read FColorEvenRow write FColorEvenRow;
+ property ColorFontEvenRow: TColor read FColorFontEvenRow write FColorFontEvenRow;
+ property ColorOddRow: TColor read FColorOddRow write FColorOddRow;
+ property ColorFontOddRow: TColor read FColorFontOddRow write FColorFontOddRow;
end;
- TTranslationService = class(TInterfacedObject, ITranslationService)
- public
- function Translate(const Section, Name, Value: String): WideString;
- end;
-
implementation
uses
StrUtils, AppConsts, AppUtils, TntSysUtils;
@@ -447,7 +441,6 @@
inherited;
end;
-
procedure TAppOptions.ReadWindowInfos(ini: TWideCustomIniFile);
var
i: integer;
@@ -524,11 +517,11 @@
TransEncoding := ini.ReadInteger('Files', 'TransEncoding', TransEncoding);
OrigEncoding := ini.ReadInteger('Files', 'OrigEncoding', OrigEncoding);
DefaultTransEncoding := ini.ReadInteger('Files', 'DefaultTransEncoding', TransEncoding);
- DefaultOrigEncoding := ini.ReadInteger('Files', 'DefaultOrigEncoding', OrigEncoding);
+ DefaultOrigEncoding := ini.ReadInteger('Files', 'DefaultOrigEncoding', OrigEncoding);
MonitorFiles := ini.ReadBool('Files', 'MonitorFiles', MonitorFiles);
- Header.Text := Tnt_WideStringReplace(ini.ReadString('UserData','Header',''), #2, #13#10, [rfReplaceAll]);
- Footer.Text := Tnt_WideStringReplace(ini.ReadString('UserData','Footer',''), #2, #13#10, [rfReplaceAll]);
+ Header.Text := Tnt_WideStringReplace(ini.ReadString('UserData', 'Header', ''), #2, #13#10, [rfReplaceAll]);
+ Footer.Text := Tnt_WideStringReplace(ini.ReadString('UserData', 'Footer', ''), #2, #13#10, [rfReplaceAll]);
PinCommentWindow := ini.ReadBool('Comments', 'PinCommentWindow', PinCommentWindow);
@@ -557,12 +550,12 @@
MisMatchIdentical := ini.ReadBool('MisMatch', 'MisMatchIdentical', true);
MisMatchEmptyTranslation := ini.ReadBool('MisMatch', 'MisMatchEmptyTranslation', true);
- ColorUntranslated := ini.ReadInteger('Colors','ColorUntranslated', $EFEFEF);
- ColorFontUntranslated := ini.ReadInteger('Colors','ColorFontUntranslated', $000000);
- ColorEvenRow := ini.ReadInteger('Colors','ColorEvenRow',$FFFFFF);
- ColorFontEvenRow := ini.ReadInteger('Colors','ColorFontEvenRow',$000000);
- ColorOddRow := ini.ReadInteger('Colors','ColorOddRow',$FFFFFF);
- ColorFontOddRow := ini.ReadInteger('Colors','ColorFontOddRow',$000000);
+ ColorUntranslated := ini.ReadInteger('Colors', 'ColorUntranslated', $EFEFEF);
+ ColorFontUntranslated := ini.ReadInteger('Colors', 'ColorFontUntranslated', $000000);
+ ColorEvenRow := ini.ReadInteger('Colors', 'ColorEvenRow', $FFFFFF);
+ ColorFontEvenRow := ini.ReadInteger('Colors', 'ColorFontEvenRow', $000000);
+ ColorOddRow := ini.ReadInteger('Colors', 'ColorOddRow', $FFFFFF);
+ ColorFontOddRow := ini.ReadInteger('Colors', 'ColorFontOddRow', $000000);
ReadWindowInfos(ini);
FTools.LoadFromIni(ini);
@@ -633,8 +626,8 @@
ini.WriteInteger('Files', 'DefaultOrigEncoding', DefaultOrigEncoding);
ini.WriteBool('Files', 'MonitorFiles', MonitorFiles);
- ini.WriteString('UserData', 'Header', Tnt_WideStringReplace(Header.Text, #13#10,#2,[rfReplaceAll]));
- ini.WriteString('UserData', 'Footer', Tnt_WideStringReplace(Footer.Text, #13#10,#2,[rfReplaceAll]));
+ ini.WriteString('UserData', 'Header', Tnt_WideStringReplace(Header.Text, #13#10, #2, [rfReplaceAll]));
+ ini.WriteString('UserData', 'Footer', Tnt_WideStringReplace(Footer.Text, #13#10, #2, [rfReplaceAll]));
ini.WriteBool('Comments', 'PinCommentWindow', PinCommentWindow);
// find replace dialog
@@ -660,14 +653,13 @@
ini.WriteBool('MisMatch', 'MisMatchIdentical', MisMatchIdentical);
ini.WriteBool('MisMatch', 'MisMatchEmptyTranslation', MisMatchEmptyTranslation);
- ini.WriteInteger('Colors','ColorUntranslated', ColorUntranslated);
- ini.WriteInteger('Colors','ColorFontUntranslated', ColorFontUntranslated);
- ini.WriteInteger('Colors','ColorEvenRow',ColorEvenRow);
- ini.WriteInteger('Colors','ColorFontEvenRow',ColorFontEvenRow);
- ini.WriteInteger('Colors','ColorOddRow',ColorOddRow);
- ini.WriteInteger('Colors','ColorFontOddRow',ColorFontOddRow);
+ ini.WriteInteger('Colors', 'ColorUntranslated', ColorUntranslated);
+ ini.WriteInteger('Colors', 'ColorFontUntranslated', ColorFontUntranslated);
+ ini.WriteInteger('Colors', 'ColorEvenRow', ColorEvenRow);
+ ini.WriteInteger('Colors', 'ColorFontEvenRow', ColorFontEvenRow);
+ ini.WriteInteger('Colors', 'ColorOddRow', ColorOddRow);
+ ini.WriteInteger('Colors', 'ColorFontOddRow', ColorFontOddRow);
-
WriteWindowInfos(ini);
FTools.SaveToIni(ini);
ini.UpdateFile;
@@ -768,15 +760,4 @@
end;
end;
-{ TTranslationService }
-
-{ TTranslationService }
-
-function TTranslationService.Translate(const Section, Name,
- Value: String): WideString;
-begin
- Result := GlobalLanguageFile.Translate(Section, Name, Value);
-end;
-
end.
-
Modified: translator/trunk/src/AppUtils.pas
===================================================================
--- translator/trunk/src/AppUtils.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/AppUtils.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -38,7 +38,7 @@
function ActionShortCutInUse(AM: TActionList; ShortCut: Word): boolean;
function FindActionShortCut(AM: TActionList; ShortCut: Word): TCustomAction;
function RemoveActionShortCut(AM: TActionList; ShortCut: Word): integer;
-function Translate(const ASection, AMsg: WideString): WideString;
+function _(const ASection, AMsg: WideString): WideString;
function MyShortCutToText(ShortCut: TShortCut): WideString;
function BinarySearch(AList: TList; L, R: integer; CompareItem: Pointer; CompareFunc: TListSortCompare; var Index: integer): boolean;
@@ -64,17 +64,22 @@
procedure SetXPComboStyle(AControl:TControl);
+type
+ TApplicationServicesFunc = function:IApplicationServices;
+
+var
+ GlobalApplicationServicesFunc:TApplicationServicesFunc = nil;
+
implementation
uses
- Windows, Forms, Dialogs, Math, Registry, StdCtrls,
+ Windows, Forms, Dialogs, Math, Registry, StdCtrls,
WideIniFiles, Menus, Consts, ShFolder,
- CommonUtils, ShlObj, ActiveX, TbxUxThemes,
+ CommonUtils, ShlObj, ActiveX, TbxUxThemes,
TntWindows, TntSysUtils, TntWideStrUtils;
var
FLanguageFile: TAppLanguage = nil;
FAppOptions: TAppOptions = nil;
- FApplicationServices:IApplicationServices = nil;
function AutoDetectCharacterSet(Stream: TStream): TEncoding;
begin
@@ -127,9 +132,10 @@
function GlobalApplicationServices:IApplicationServices;
begin
- if FApplicationServices = nil then
- FApplicationServices := Application.MainForm as IApplicationServices;
- Result := FApplicationServices;
+ if Assigned(GlobalApplicationServicesFunc) then
+ Result := GlobalApplicationServicesFunc
+ else
+ Result := nil;
end;
function SHGetFolderPathW2(hwnd: HWND; csidl: Integer; hToken: THandle; dwFlags: DWord; pszPath: PWideChar): HRESULT; stdcall; external 'SHFolder.dll' name 'SHGetFolderPathW';
@@ -184,7 +190,8 @@
Result := WideIncludeTrailingPathDelimiter(Result) + 'translator.ini';
end;
-function Translate(const ASection, AMsg: WideString): WideString;
+
+function _(const ASection, AMsg: WideString): WideString;
begin
if GlobalLanguageFile <> nil then
Result := GlobalLanguageFile.Translate(ASection, AMsg, AMsg)
@@ -418,7 +425,7 @@
procedure HandleFileCreateException(Sender: TObject; E: Exception; const Filename: WideString);
begin
if E is EFCreateError then
- ErrMsg(WideFormat(Translate(Sender.ClassName, SErrCreateFileFmt), [Filename]), Translate(Sender.ClassName, SErrorCaption))
+ ErrMsg(WideFormat(_(Sender.ClassName, SErrCreateFileFmt), [Filename]), _(Sender.ClassName, SErrorCaption))
else
Application.HandleException(Sender);
end;
Modified: translator/trunk/src/ColorsFrm.pas
===================================================================
--- translator/trunk/src/ColorsFrm.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/ColorsFrm.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -51,10 +51,9 @@
procedure SaveOptions(Options: TAppOptions);
public
{ Public declarations }
- class function Edit(Options:TAppOptions):boolean;
+ class function Edit(Options: TAppOptions): boolean;
end;
-
implementation
{$R *.dfm}
Modified: translator/trunk/src/CommonUtils.pas
===================================================================
--- translator/trunk/src/CommonUtils.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/CommonUtils.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -28,8 +28,8 @@
function YesNoCancel(const AText, ACaption: WideString): integer;
function GetCmdSwitchValue(const Switch: AnsiString; SwitchChars: TSysCharSet; var Value: AnsiString; IgnoreCase: boolean): boolean;
-function ScreenCursor(ACursor: TCursor): IUnknown;
-function WaitCursor: IUnknown;
+function ScreenCursor(ACursor: TCursor): IInterface;
+function WaitCursor: IInterface;
function StripChars(const S: AnsiString; Ch: TSysCharSet): AnsiString; overload;
function StripChars(const S: WideString; const Ch: WideString): WideString; overload;
@@ -52,9 +52,8 @@
const WaitUntilTerminated, WaitUntilIdle: Boolean; const ShowCmd: Integer; var ResultCode: Cardinal): Boolean;
function SubStrCount(const SubStr, Str: WideString): integer;
function WideContainsChar(Ch: WideChar; const S: WideString): boolean;
-function IsCharPunct(const S:WideChar):boolean;
+function IsCharPunct(const S: WideChar): boolean;
-
implementation
uses
Windows, Forms, Dialogs, Math, Registry, StrUtils,
@@ -121,7 +120,7 @@
end;
function trimCRLFRight(const S: WideString): WideString;
-var i:integer;
+var i: integer;
begin
Result := S;
i := Length(Result);
@@ -237,7 +236,7 @@
end;
type
- TScreenCursor = class(TInterfacedObject, IUnknown)
+ TScreenCursor = class(TInterfacedObject, IInterface)
private
FCursor: TCursor;
public
@@ -261,12 +260,12 @@
inherited;
end;
-function ScreenCursor(ACursor: TCursor): IUnknown;
+function ScreenCursor(ACursor: TCursor): IInterface;
begin
Result := TScreenCursor.Create(ACursor);
end;
-function WaitCursor: IUnknown;
+function WaitCursor: IInterface;
begin
Result := ScreenCursor(crHourGlass);
end;
@@ -490,7 +489,7 @@
Result := SubStrCount(Ch, S) > 0;
end;
-function IsCharPunct(const S:WideChar):boolean;
+function IsCharPunct(const S: WideChar): boolean;
var
CharType: integer;
begin
@@ -501,4 +500,3 @@
end;
end.
-
Modified: translator/trunk/src/DictEditFrm.pas
===================================================================
--- translator/trunk/src/DictEditFrm.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/DictEditFrm.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -65,7 +65,7 @@
FItems: TDictionaryItems;
procedure SetItems(const Value: TDictionaryItems);
function GetItems: TDictionaryItems;
- function CurrentItem:TDictionaryItem;
+ function CurrentItem: TDictionaryItem;
procedure UpdateUI;
public
{ Public declarations }
@@ -130,7 +130,7 @@
procedure TfrmDictEdit.cbOriginalChange(Sender: TObject);
var
- D:TDictionaryItem;
+ D: TDictionaryItem;
begin
lbTranslations.Count := 0;
@@ -147,7 +147,7 @@
var Handled: Boolean);
var
i: integer;
- D:TDictionaryItem;
+ D: TDictionaryItem;
begin
D := CurrentItem;
acAddOriginal.Enabled := (cbOriginal.Text <> '') and (D = nil);
@@ -157,7 +157,7 @@
i := D.Translations.IndexOf(edTranslation.Text);
acAddTranslation.Enabled := (edTranslation.Text <> '') and (i < 0);
acRemoveTranslation.Enabled := i > -1;
- acMakeDefault.Enabled := (D.Translations.Count > 1) and (D.DefaultIndex <> lbTranslations.ItemIndex);
+ acMakeDefault.Enabled := (D.Translations.Count > 1) and (D.DefaultIndex <> lbTranslations.ItemIndex);
end
else
begin
@@ -169,7 +169,7 @@
procedure TfrmDictEdit.acAddOriginalExecute(Sender: TObject);
var
- D:TDictionaryItem;
+ D: TDictionaryItem;
begin
if (cbOriginal.Text <> '') and (CurrentItem <> nil) then
begin
@@ -225,7 +225,7 @@
procedure TfrmDictEdit.acRemoveTranslationExecute(Sender: TObject);
var
- D:TDictionaryItem;
+ D: TDictionaryItem;
begin
D := CurrentItem;
if (D <> nil) then
@@ -252,27 +252,27 @@
end;
procedure TfrmDictEdit.cbFilterChange(Sender: TObject);
-var i:integer;
+var i: integer;
begin
cbOriginal.Text := '';
cbOriginal.Items.Clear;
for i := 0 to FItems.Count - 1 do
case cbFilter.ItemIndex of
- 0: // all items
- cbOriginal.Items.Add(FItems[i].Original);
- 1: // items with translations
- if FItems[i].Translations.Count > 0 then
+ 0: // all items
cbOriginal.Items.Add(FItems[i].Original);
- 2:
- if FItems[i].Translations.Count = 0 then
- cbOriginal.Items.Add(FItems[i].Original);
- 3:
- if FItems[i].Translations.Count > 1 then
- cbOriginal.Items.Add(FItems[i].Original);
- 4:
- if FItems[i].Translations.Count = 1 then
- cbOriginal.Items.Add(FItems[i].Original);
- end;
+ 1: // items with translations
+ if FItems[i].Translations.Count > 0 then
+ cbOriginal.Items.Add(FItems[i].Original);
+ 2:
+ if FItems[i].Translations.Count = 0 then
+ cbOriginal.Items.Add(FItems[i].Original);
+ 3:
+ if FItems[i].Translations.Count > 1 then
+ cbOriginal.Items.Add(FItems[i].Original);
+ 4:
+ if FItems[i].Translations.Count = 1 then
+ cbOriginal.Items.Add(FItems[i].Original);
+ end;
if cbOriginal.Items.Count > 0 then
cbOriginal.ItemIndex := 0;
cbOriginalChange(Sender);
@@ -284,7 +284,7 @@
end;
function TfrmDictEdit.CurrentItem: TDictionaryItem;
-var i:integer;
+var i: integer;
begin
i := Items.IndexOf(cbOriginal.Text);
if i >= 0 then
@@ -296,8 +296,8 @@
procedure TfrmDictEdit.lbTranslationsDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
- D:TDictionaryItem;
- C:TCanvas;
+ D: TDictionaryItem;
+ C: TCanvas;
begin
C := lbTranslations.Canvas;
C.Font := lbTranslations.Font;
@@ -317,7 +317,7 @@
procedure TfrmDictEdit.acMakeDefaultExecute(Sender: TObject);
var
- D:TDictionaryItem;
+ D: TDictionaryItem;
begin
// set the selected item as the default translation
D := CurrentItem;
@@ -329,4 +329,3 @@
end;
end.
-
Modified: translator/trunk/src/DictTranslationSelectDlg.pas
===================================================================
--- translator/trunk/src/DictTranslationSelectDlg.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/DictTranslationSelectDlg.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -46,15 +46,14 @@
procedure lbTranslationsDblClick(Sender: TObject);
private
{ Private declarations }
- FResult:integer;
- FModified:boolean;
- FDictionaryItem:TDictionaryItem;
+ FResult: integer;
+ FModified: boolean;
+ FDictionaryItem: TDictionaryItem;
public
{ Public declarations }
- class function Edit(DictionaryItem:TDictionaryItem; var Translation:WideString; out Modified:boolean; var Prompt:boolean):Integer;
+ class function Edit(DictionaryItem: TDictionaryItem; var Translation: WideString; out Modified: boolean; var Prompt: boolean): Integer;
end;
-
implementation
uses
AppUtils, AppConsts;
@@ -64,7 +63,7 @@
{ TfrmDictTranslationSelect }
class function TfrmDictTranslationSelect.Edit(
- DictionaryItem: TDictionaryItem; var Translation: WideString; out Modified:boolean; var Prompt:boolean): Integer;
+ DictionaryItem: TDictionaryItem; var Translation: WideString; out Modified: boolean; var Prompt: boolean): Integer;
var
frm: TfrmDictTranslationSelect;
begin
Modified: translator/trunk/src/Dictionary.pas
===================================================================
--- translator/trunk/src/Dictionary.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/Dictionary.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -32,21 +32,21 @@
procedure Change;
{IDictionaryItem}
procedure SetOriginal(const Value: WideString);
- function GetOriginal:WideString;
- function TranslationCount:integer;
- function GetTranslation(Index:Integer):WideString;
- procedure SetTranslation(Index:integer; const Value:WideString);
- function Add(const Translation:WideString):Integer;
- procedure Delete(Index:integer);
- function IndexOf(const Translation:WideString):integer;
+ function GetOriginal: WideString;
+ function TranslationCount: integer;
+ function GetTranslation(Index: Integer): WideString;
+ procedure SetTranslation(Index: integer; const Value: WideString);
+ function Add(const Translation: WideString): Integer;
+ procedure Delete(Index: integer);
+ function IndexOf(const Translation: WideString): integer;
procedure Clear;
public
constructor Create;
destructor Destroy; override;
- function DefaultTranslation:string;
+ function DefaultTranslation: string;
property Original: WideString read GetOriginal write SetOriginal;
property Translations: TTntStrings read FTranslations write SetTranslations;
- property DefaultIndex:integer read FDefaultIndex write FDefaultIndex;
+ property DefaultIndex: integer read FDefaultIndex write FDefaultIndex;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
@@ -59,18 +59,18 @@
function GetItems(Index: integer): TDictionaryItem;
{IDictionaryItems}
function IDictionaryItems.Add = DictAdd;
- function GetModified:WordBool;
- procedure SetModified(Value:WordBool);
- function GetItem(Index:integer):IDictionaryItem;
- function GetIgnorePunctuation:WordBool;
- procedure SetIgnorePunctuation(Value:WordBool);
+ function GetModified: WordBool;
+ procedure SetModified(Value: WordBool);
+ function GetItem(Index: integer): IDictionaryItem;
+ function GetIgnorePunctuation: WordBool;
+ procedure SetIgnorePunctuation(Value: WordBool);
function DictAdd(const AOriginal: WideString): IDictionaryItem;
protected
procedure DoChange(Sender: TObject);
procedure Merge;
public
procedure Invert;
- procedure Assign(Source:TPersistent);override;
+ procedure Assign(Source: TPersistent); override;
function Add(const AOriginal: WideString): TDictionaryItem; overload;
function Add(var Item: TDictionaryItem): integer; overload;
procedure Delete(Index: integer);
@@ -84,7 +84,7 @@
destructor Destroy; override;
property Items[Index: integer]: TDictionaryItem read GetItems; default;
property Count: integer read GetCount;
- property Modified:WordBool read GetModified write SetModified;
+ property Modified: WordBool read GetModified write SetModified;
procedure LoadFromFile(const Filename: WideString);
procedure SaveToFile(const Filename: WideString);
property IgnorePunctuation: WordBool read GetIgnorePunctuation write SetIgnorePunctuation;
@@ -143,7 +143,6 @@
TTntStringlist(FTranslations).Sorted := true;
end;
-
function TDictionaryItem.DefaultTranslation: string;
begin
if (DefaultIndex >= 0) and (DefaultIndex < Translations.Count) then
@@ -236,7 +235,7 @@
end;
procedure TDictionaryItems.Assign(Source: TPersistent);
-var i:integer;
+var i: integer;
begin
if Source = nil then
Clear
@@ -460,7 +459,7 @@
end;
procedure TDictionaryItems.TrimTranslations;
-var i, j:integer;
+var i, j: integer;
begin
for i := 0 to Count - 1 do
for j := Items[i].Translations.Count - 1 downto 0 do
Modified: translator/trunk/src/EditItemFrm.pas
===================================================================
--- translator/trunk/src/EditItemFrm.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/EditItemFrm.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -85,7 +85,7 @@
frm.edTranslation.Text := AItem.Translation;
frm.edOrigComments.Text := AItem.OrigComments;
frm.edTransComment.Text := AItem.TransComments;
- If IsNewItem then
+ if IsNewItem then
frm.ActiveControl := frm.cbSections
else
frm.ActiveControl := frm.edTranslation;
Modified: translator/trunk/src/EncodingDlgs.pas
===================================================================
--- translator/trunk/src/EncodingDlgs.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/EncodingDlgs.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -42,7 +42,7 @@
FParentWnd: HWND;
procedure WMNCDestroy(var Message: TWMNCDestroy); message WM_NCDESTROY;
protected
- procedure Initialize;virtual;
+ procedure Initialize; virtual;
public
constructor Create(OpenDialog: TTntOpenDialog); reintroduce;
destructor Destroy; override;
@@ -69,8 +69,8 @@
property Encodings: TTntStrings read FEncodings write SetEncodings;
property EncodingLabel: WideString read FEncodingLabel write FEncodingLabel;
property EncodingIndex: integer read FEncodingIndex write SetEncodingIndex default 0;
- property InsertHeader:boolean read FInsertHeader write FInsertHeader;
- property InsertFooter:boolean read FInsertFooter write FInsertFooter;
+ property InsertHeader: boolean read FInsertHeader write FInsertHeader;
+ property InsertFooter: boolean read FInsertFooter write FInsertFooter;
end;
TEncodingSaveDialog = class(TEncodingOpenDialog)
Modified: translator/trunk/src/ExceptDlg.pas
===================================================================
--- translator/trunk/src/ExceptDlg.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/ExceptDlg.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -288,7 +288,7 @@
if not LogOpen then
begin
FLogFileHandle := Tnt_CreateFileW(PWideChar(FLogFileName), GENERIC_WRITE, FILE_SHARE_READ, nil,
- OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
+ OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if LogOpen then
FLogWasEmpty := SetFilePointer(FLogFileHandle, 0, nil, FILE_END) = 0;
end
Modified: translator/trunk/src/ExceptDlgMail.pas
===================================================================
--- translator/trunk/src/ExceptDlgMail.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/ExceptDlgMail.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -57,7 +57,7 @@
const
SendBugReportAddress = 'pe...@us...';
SendBugReportSubject = 'IniTranslator Bug Report';
-
+
resourcestring
SSendReport = '&Send Report...';
Modified: translator/trunk/src/ExtToolsFrm.pas
===================================================================
--- translator/trunk/src/ExtToolsFrm.pas 2006-11-10 14:27:16 UTC (rev 116)
+++ translator/trunk/src/ExtToolsFrm.pas 2006-11-10 19:26:27 UTC (rev 117)
@@ -129,7 +129,7 @@
procedure acDirExecute(Sender: TObject);
procedure alToolsUpdate(Action: TBasicAction; var Handled: Boolean);
function lbContentsDataFind(Control: TWinControl;
- FindString: String): Integer;
+ FindString: string): Integer;
procedure lbContentsData(Control: TWinControl; Index: Integer;
var Data: WideString);
private
@@ -304,7 +304,7 @@
S: WideString;
begin
i := 1;
- S := Translate(Application.MainForm.ClassName, SNewToolNameFmt);
+ S := _(Application.MainForm.ClassName, SNewToolNameFmt);
Result := WideFormat(S, [i]);
while FTools.IndexOf(Result) >= 0 do
begin
@@ -450,7 +450,7 @@...
[truncated message content] |
|
From: <pe...@us...> - 2006-11-13 17:59:15
|
Revision: 114
http://svn.sourceforge.net/initranslator/?rev=114&view=rev
Author: peter3
Date: 2006-11-10 05:42:37 -0800 (Fri, 10 Nov 2006)
Log Message:
-----------
- XiliSoft plugin from Alexander Kornienko
Added Paths:
-----------
translator/trunk/src/XilisoftPlugin/
translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr
translator/trunk/src/XilisoftPlugin/XilisoftParser.res
translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.dfm
translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.pas
translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
Added: translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParser.dof (rev 0)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParser.dof 2006-11-10 13:42:37 UTC (rev 114)
@@ -0,0 +1,52 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=1
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+[Parameters]
+RunParams=
+HostApplication=C:\Program\Borland\Projects\Private\initranslator\bin\translator.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=9
+Release=0
+Build=1
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1049
+CodePage=1251
+[Version Info Keys]
+CompanyName=Alexander Kornienko
+FileDescription=Xilisoft plugin for IniTranslator
+FileVersion=1.9.0.1
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=IniTranslator
+ProductVersion=1.9
+Comments=
\ No newline at end of file
Added: translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr (rev 0)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParser.dpr 2006-11-10 13:42:37 UTC (rev 114)
@@ -0,0 +1,41 @@
+{@abstract(Project file for Xilisoft parser) }
+{
+ Copyright \xA9 2006 by Alexander Kornienko; all rights reserved
+
+ Developer(s):
+
+ 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: $
+library XilisoftParser;
+
+uses
+ SysUtils,
+ Classes,
+ TransIntf in '..\TransIntf.pas',
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmImport},
+ XilisoftParserImpl in 'XilisoftParserImpl.pas',
+ XilisoftParserCfgForm in 'XilisoftParserCfgForm.pas' {XilisoftCfgForm},
+ PluginLocale in '..\PluginCommon\PluginLocale.pas';
+
+{$R *.res}
+
+function InstallPlugin(out Parser: IFileParser): HResult; stdcall;
+begin
+ Parser := TXilisoftParser.Create;
+ Result := S_OK;
+end;
+
+exports InstallPlugin name cRegisterTransFileParserFuncName;
+
+begin
+end.
+
Added: translator/trunk/src/XilisoftPlugin/XilisoftParser.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/XilisoftPlugin/XilisoftParser.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.dfm
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.dfm (rev 0)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.dfm 2006-11-10 13:42:37 UTC (rev 114)
@@ -0,0 +1,38 @@
+object XilisoftCfgForm: TXilisoftCfgForm
+ Left = 192
+ Top = 107
+ BorderIcons = []
+ BorderStyle = bsSingle
+ Caption = 'Configuration'
+ ClientHeight = 65
+ ClientWidth = 212
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poMainFormCenter
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 13
+ object TCB1: TTntCheckBox
+ Left = 8
+ Top = 8
+ Width = 193
+ Height = 17
+ Caption = 'Do not export empty translations'
+ TabOrder = 0
+ end
+ object TntButton1: TTntButton
+ Left = 64
+ Top = 32
+ Width = 75
+ Height = 25
+ Caption = 'OK'
+ Default = True
+ TabOrder = 1
+ OnClick = TntButton1Click
+ end
+end
Added: translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.pas
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.pas (rev 0)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.pas 2006-11-10 13:42:37 UTC (rev 114)
@@ -0,0 +1,83 @@
+{
+ Copyright \xA9 2006 by Alexander Kornienko; all rights reserved
+
+ Developer(s):
+
+ 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 XilisoftParserCfgForm;
+
+interface
+
+uses
+ PluginLocale,
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, TntStdCtrls;
+
+type
+ TXilisoftCfgForm = class(TForm)
+ TCB1: TTntCheckBox;
+ TntButton1: TTntButton;
+ procedure TntButton1Click(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ private
+ { Private declarations }
+ FLocale: TPlgLocale;
+ public
+ { Public declarations }
+ procedure FillLocale(LocaleFile: TPlgLocale);
+ end;
+
+var
+ XilisoftCfgForm: TXilisoftCfgForm;
+
+implementation
+
+uses
+ IniFiles;
+
+{$R *.dfm}
+
+const
+ cfgSection = 'CfgForm';
+ cCaption = 'Caption';
+ cSkip = 'SkipEmpty';
+
+procedure TXilisoftCfgForm.TntButton1Click(Sender: TObject);
+begin
+ if TCB1.Checked then
+ ModalResult := mrYes
+ else
+ ModalResult := mrNo;
+end;
+
+procedure TXilisoftCfgForm.FillLocale(LocaleFile: TPlgLocale);
+begin
+ FLocale := LocaleFile;
+ FLocale.FormSection := cfgSection;
+ FLocale.AddKey(sForm, cCaption);
+ FLocale.AddKey(sForm, cSkip);
+end;
+
+procedure TXilisoftCfgForm.FormShow(Sender: TObject);
+var
+ s: string;
+begin
+ s := FLocale.GetLocalizedKey(sForm, cCaption);
+ if s <> '' then
+ Caption := s;
+ s := FLocale.GetLocalizedKey(sForm, cSkip);
+ if s <> '' then
+ TCB1.Caption := s;
+end;
+
+end.
+
Added: translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas (rev 0)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas 2006-11-10 13:42:37 UTC (rev 114)
@@ -0,0 +1,387 @@
+{@abstract(Parser for Xilisoft language files) }
+{
+ Copyright \xA9 2006 by Alexander Kornienko; all rights reserved
+
+ Developer(s):
+
+ 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 XilisoftParserImpl;
+
+interface
+uses
+ PluginLocale,
+ Classes, Types, TntClasses, TransIntf;
+
+type
+ TXilisoftParser = class(TInterfacedObject, IUnknown, IFileParser)
+ private
+ FOldAppHandle: Cardinal;
+ FOrigFile: string;
+ FTransFile: string;
+ FLangFile: string;
+ FSkip: Boolean;
+ FPLocale: TPlgLocale;
+ procedure LoadSettings;
+ procedure SaveSettings;
+ procedure BuildPreview(Items, Orphans: ITranslationItems; Strings: TTntStrings);
+ procedure InitLocale;
+ public
+ constructor Create;
+ destructor Destroy; override;
+
+ 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(const ApplicationServices: IApplicationServices); safecall;
+ property SkipEmpty: Boolean read FSkip write FSkip;
+ end;
+
+implementation
+uses
+ XilisoftParserCfgForm,
+ Controls,
+ Windows, SysUtils, Forms, IniFiles, DualImportFrm;
+
+const
+ cSectionName = 'XilisoftTranslator';
+ cSkip = 'SkipEmpty';
+ cPlugin = 'Plugin';
+ cImport = 'ImportFrom';
+ cExport = 'ExportTo';
+ cAllFiles = 'AllFiles';
+ cLangFiles = 'LangFiles';
+
+var
+ cXilisoftFilter: string = 'Lang files (*.lang)|*.lang|All files (*.*)|*.*';
+ cXilisoftImportTitle: string = 'Import from Xilisoft .lang file';
+ cXilisoftExportTitle: string = 'Export to Xilisoft .lang file';
+
+function GetLocaleInformation(Flag: Integer): string;
+var
+ pcLCA: array[0..20] of Char;
+begin
+ if (GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0) then
+ begin
+ pcLCA[0] := #0;
+ end;
+ Result := pcLCA;
+end;
+
+{ TXilisoftParser }
+
+procedure TXilisoftParser.BuildPreview(Items, Orphans: ITranslationItems;
+ Strings: TTntStrings);
+var i: integer;
+begin
+ for i := 0 to Orphans.Count - 1 do
+ Strings.Add(Orphans[i].Name + WideChar('=') + Orphans[i].Translation);
+ for i := 0 to Items.Count - 1 do
+ if Items[i].Translation <> '' then
+ begin
+ Strings.Add(WideChar('#') + Items[i].Name + WideString('# "') + Items[i].Translation + WideChar('"'));
+ Items[i].Modified := false;
+ end;
+end;
+
+function TXilisoftParser.Capabilities: Integer;
+begin
+ Result := CAP_IMPORT or CAP_EXPORT; // or CAP_CONFIGURE;
+end;
+
+procedure TXiliSoftParser.InitLocale;
+var s: string;
+begin
+ if FPLocale = nil then
+ begin
+ FLangFile := ChangeFileExt(GetModuleName(hInstance), '.lng');
+ FPLocale := TPlgLocale.Create(FLangFile);
+ FPLocale.PluginSection := cPlugin;
+ FPLocale.AddKey(sPlugin, cImport);
+ FPLocale.AddKey(sPlugin, cExport);
+ FPLocale.AddKey(sPlugin, cAllFiles);
+ FPLocale.AddKey(sPlugin, cLangFiles);
+ s := FPLocale.GetLocalizedKey(sPlugin, cImport);
+ if s <> '' then
+ cXilisoftImportTitle := s + ' Xilisoft .lang'
+ else
+ cXilisoftImportTitle := 'Import from Xilisoft .lang file';
+ s := FPLocale.GetLocalizedKey(sPlugin, cExport);
+ if s <> '' then
+ cXilisoftExportTitle := s + ' Xilisoft .lang'
+ else
+ cXilisoftExportTitle := 'Export to Xilisoft .lang file';
+ s := FPLocale.GetLocalizedKey(sPlugin, cLangFiles);
+ if s <> '' then
+ cXilisoftFilter := s + '|*.lang'
+ else
+ cXilisoftFilter := 'Lang files (*.lang)|*.lang|';
+ s := FPLocale.GetLocalizedKey(sPlugin, cAllFiles);
+ if s <> '' then
+ cXilisoftFilter := cXilisoftFilter + s + '|*.*'
+ else
+ cXilisoftFilter := cXilisoftFilter + 'All files (*.*)|*.*';
+ end;
+
+end;
+
+function TXilisoftParser.Configure(Capability: Integer): HRESULT;
+begin
+// InitLocale;
+ case Capability of
+ CAP_EXPORT:
+ begin
+ XilisoftCfgForm := TXilisoftCfgForm.Create(nil);
+ try
+ // XilisoftCfgForm.FillLocale(FPLocale);
+ XilisoftCfgForm.TCB1.Checked := SkipEmpty;
+ if XilisoftCfgForm.ShowModal = mrYes then
+ SkipEmpty := true
+ else
+ SkipEmpty := false;
+ finally
+ XilisoftCfgForm.Free;
+ end;
+ Result := S_OK;
+ end;
+ else
+ Result := S_OK;
+ end;
+end;
+
+constructor TXilisoftParser.Create;
+begin
+ inherited Create;
+ FOldAppHandle := Application.Handle;
+end;
+
+destructor TXilisoftParser.Destroy;
+begin
+ FreeAndNil(FPLocale);
+ Application.Handle := FOldAppHandle;
+ inherited;
+end;
+
+function TXilisoftParser.DisplayName(Capability: Integer): WideString;
+begin
+ {
+ if GetLocaleInformation(LOCALE_ILANGUAGE)='0419' then
+ begin
+ cXilisoftFilter := '\xD4\xE0\xE9\xEB\xFB Lang (*.lang)|*.lang|\xC2\xF1\xE5 \xF4\xE0\xE9\xEB\xFB (*.*)|*.*';
+ cXilisoftImportTitle := '\xC8\xEC\xEF\xEE\xF0\xF2 \xE8\xE7 \xF4\xE0\xE9\xEB\xE0 Xilisoft .lang';
+ cXilisoftExportTitle := '\xDD\xEA\xF1\xEF\xEE\xF0\xF2 \xE2 \xF4\xE0\xE9\xEB Xilisoft .lang';
+ end
+ else
+ begin
+ cXilisoftFilter := 'Lang files (*.lang)|*.lang|All files (*.*)|*.*';
+ cXilisoftImportTitle := 'Import from Xilisoft .lang file';
+ cXilisoftExportTitle := 'Export to Xilisoft .lang file';
+ end;
+ }
+ case Capability of
+ CAP_IMPORT:
+ Result := cXilisoftImportTitle;
+ CAP_EXPORT:
+ Result := cXilisoftExportTitle;
+ else
+ Result := '';
+ end;
+end;
+
+function TXilisoftParser.ExportItems(const Items,
+ Orphans: ITranslationItems): HRESULT;
+var
+ S: TTntStringlist;
+begin
+ Result := S_FALSE;
+ try
+ LoadSettings;
+ S := TTntStringlist.Create;
+ try
+ BuildPreview(Items, Orphans, S);
+ begin
+ S.AnsiStrings.SaveToFile(FTransFile);
+ Result := S_OK;
+ SaveSettings;
+ end;
+ finally
+ S.Free;
+ end;
+ except
+ Application.HandleException(self);
+ end;
+end;
+
+function TXilisoftParser.ImportItems(const Items, Orphans: ITranslationItems): HRESULT;
+var
+ SO, ST: TTntStringlist;
+ i, j, k: integer;
+ TI: ITranslationItem;
+ ssi, sst, sName, sValue: string;
+ IsInT: Boolean;
+begin
+ Result := S_FALSE;
+ try
+ Items.Clear;
+ Orphans.Clear;
+ TI := nil;
+ LoadSettings;
+ if TfrmImport.Execute(FOrigFile, FTransFile, cXilisoftImportTitle, cXilisoftFilter, '.', 'lang') then
+ begin
+ Items.Sort := stNone;
+ SO := TTntStringlist.Create;
+ ST := TTntStringlist.Create;
+ try
+ SO.LoadFromFile(FOrigFile);
+ ST.LoadFromFile(FTransFile);
+ for i := 0 to SO.Count - 1 do
+ begin
+ ssi := SO[i];
+ if ssi = '' then
+ Continue;
+ if ssi[1] in ['/', ';'] then
+ Continue;
+ k := Pos('=', ssi);
+ if k > 0 then
+ begin
+ sName := Copy(ssi, 1, k - 1);
+ sValue := Copy(ssi, k + 1, MaxInt);
+ IsInT := false;
+ for j := 0 to ST.Count - 1 do
+ begin
+ if ST[j] = '' then
+ Continue;
+ k := Pos('=', ST[j]);
+ if k > 0 then
+ begin
+ sst := Copy(ST[j], 1, k - 1);
+ if sst = sName then
+ begin
+ sst := ST[j];
+ IsInT := true;
+ Break;
+ end;
+ end;
+ end;
+ TI := Orphans.Add;
+ TI.Section := cSectionName;
+ TI.Name := sName;
+ TI.Original := sValue;
+ if IsInT then
+ begin
+ k := Pos('=', sst);
+ TI.Translation := Copy(sst, k + 1, MaxInt);
+ TI.Translated := true;
+ end
+ else
+ begin
+ TI.Translation := '';
+ TI.Translated := false;
+ end;
+ Continue;
+ end;
+ k := Pos('#', ssi);
+ if k > 0 then
+ begin
+ k := Pos(' ', ssi);
+ sName := Copy(ssi, 1, k - 1);
+ sValue := Copy(ssi, k + 1, MaxInt);
+ IsInT := false;
+ for j := 0 to ST.Count - 1 do
+ begin
+ if ST[j] = '' then
+ Continue;
+ k := Pos('#', ST[j]);
+ if k > 0 then
+ begin
+ k := Pos(' ', ST[j]);
+ sst := Copy(ST[j], 1, k - 1);
+ if sst = sName then
+ begin
+ sst := ST[j];
+ IsInT := true;
+ Break;
+ end;
+ end;
+ end;
+ TI := Items.Add;
+ TI.Section := cSectionName;
+ TI.Name := Copy(sName, 2, Length(sName) - 2);
+ TI.Original := Copy(sValue, 2, Length(sValue) - 2);
+ if IsInT then
+ begin
+ ssi := Copy(sst, Pos(' ', sst) + 1, MaxInt);
+ TI.Translation := Copy(ssi, 2, Length(ssi) - 2);
+ TI.Translated := true;
+ end
+ else
+ begin
+ TI.Translation := '';
+ TI.Translated := false;
+ end;
+ TI.Modified := false;
+ end;
+ end;
+ finally
+ SO.Free;
+ ST.Free;
+ end;
+ SaveSettings;
+ Result := S_OK;
+ end;
+ except
+ Application.HandleException(self);
+ end;
+end;
+
+procedure TXilisoftParser.Init(const ApplicationServices: IApplicationServices);
+begin
+ Application.Handle := ApplicationServices.AppHandle;
+end;
+
+procedure TXilisoftParser.LoadSettings;
+begin
+ try
+ with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
+ try
+ FOrigFile := ReadString('Settings', 'OrigFile', FOrigFile);
+ FTransFile := ReadString('Settings', 'TransFile', FTransFile);
+ SkipEmpty := ReadBool('Settings', cSkip, false);
+ finally
+ Free;
+ end;
+ except
+ Application.HandleException(self);
+ end;
+end;
+
+procedure TXilisoftParser.SaveSettings;
+begin
+ try
+ with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
+ try
+ WriteString('Settings', 'OrigFile', FOrigFile);
+ WriteString('Settings', 'TransFile', FTransFile);
+ WriteBool('Settings', cSkip, SkipEmpty);
+ finally
+ Free;
+ end;
+ except
+ Application.HandleException(self);
+ end;
+end;
+
+end.
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-11-22 15:06:39
|
Revision: 131
http://svn.sourceforge.net/initranslator/?rev=131&view=rev
Author: peter3
Date: 2006-11-22 07:06:38 -0800 (Wed, 22 Nov 2006)
Log Message:
-----------
- Updated copyright notice in dof files
Modified Paths:
--------------
translator/trunk/src/IBForumsPlugin/IBForumsParser.dof
translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof
translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof
translator/trunk/src/OlegPlugin/OlegParser.dof
translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof
translator/trunk/src/PHPPlugin/PHPParser.dof
translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof
translator/trunk/src/SciTEPlugin/SciTEParser.dof
translator/trunk/src/TMXPlugin/TMXParser.dof
translator/trunk/src/ToolListEdit/ToolListEdit.dof
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof
translator/trunk/src/XLIFFPlugin/XLIFFParser.dof
translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
translator/trunk/src/translator.dof
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParser.dof
===================================================================
--- translator/trunk/src/IBForumsPlugin/IBForumsParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/IBForumsPlugin/IBForumsParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,84 +1,44 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=28901376
-
-ExeDescription=IB Forums Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=7
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=1
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=IniTranslator
-
-FileDescription=IB Forums Plugin for IniTranslator
-
-FileVersion=1.7.0.0
-
-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
-
-Comments=Latest version at http://initranslator.sourceforge.net
-
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=28901376
+ExeDescription=IB Forums Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=7
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=IB Forums Plugin for IniTranslator
+FileVersion=1.7.0.0
+InternalName=IBForumsParser.dll
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=IBForumsParser.dll
+ProductName=IB Forums Plugin for IniTranslator
+ProductVersion=1.7.0.0
+Comments=Latest version at http://initranslator.sourceforge.net
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,83 +1,44 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=28901376
-
-ExeDescription=Mozilla DTD Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=7
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=1
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=IniTranslator
-
-FileDescription=Mozilla DTD Plugin for IniTranslator
-
-FileVersion=1.7.0.0
-
-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.7.0.0
-
-Comments=Latest version at http://initranslator.sourceforge.net
\ No newline at end of file
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=28901376
+ExeDescription=Mozilla DTD Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=7
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=Mozilla DTD Plugin for IniTranslator
+FileVersion=1.7.0.0
+InternalName=MozillaDTDParser.dll
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=MozillaDTDParser.dll
+ProductName=Mozilla DTD Plugin for IniTranslator
+ProductVersion=1.7.0.0
+Comments=Latest version at http://initranslator.sourceforge.net
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,84 +1,44 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=28901376
-
-ExeDescription=Mozilla Properties Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=7
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=1
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=IniTranslator
-
-FileDescription=Mozilla Properties Plugin for IniTranslator
-
-FileVersion=1.7.0.0
-
-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
-
-Comments=Latest version at http://initranslator.sourceforge.net
-
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=28901376
+ExeDescription=Mozilla Properties Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=7
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=Mozilla Properties Plugin for IniTranslator
+FileVersion=1.7.0.0
+InternalName=MozillaPropsParser.dll
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=MozillaPropsParser.dll
+ProductName=Mozilla Properties Plugin for IniTranslator
+ProductVersion=1.7.0.0
+Comments=Latest version at http://initranslator.sourceforge.net
Modified: translator/trunk/src/OlegPlugin/OlegParser.dof
===================================================================
--- translator/trunk/src/OlegPlugin/OlegParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/OlegPlugin/OlegParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,86 +1,45 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=4194304
-
-ExeDescription=OlegTranslator Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-UsePackages=0
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=7
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=1
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=IniTranslator
-
-FileDescription=OlegTranslator Plugin for IniTranslator
-
-FileVersion=1.7.0.0
-
-InternalName=OlegParser.dll
-
-LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
-
-LegalTrademarks=
-
-OriginalFilename=OlegParser.dll
-
-ProductName=OlegTranslator Plugin for IniTranslator
-
-ProductVersion=1.7.0.0
-
-Comments=Latest version at http://initranslator.sourceforge.net
-
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=OlegTranslator Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+UsePackages=0
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=7
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=OlegTranslator Plugin for IniTranslator
+FileVersion=1.7.0.0
+InternalName=OlegParser.dll
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=OlegParser.dll
+ProductName=OlegTranslator Plugin for IniTranslator
+ProductVersion=1.7.0.0
+Comments=Latest version at http://initranslator.sourceforge.net
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof
===================================================================
--- translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -17,7 +17,6 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
-UsePackages=0
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
@@ -37,7 +36,7 @@
FileDescription=phpNuke Plugin for IniTranslator
FileVersion=1.7.0.0
InternalName=phpNukeParser.dll
-LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=phpNukeParser.dll
ProductName=phpNuke Plugin for IniTranslator
Modified: translator/trunk/src/PHPPlugin/PHPParser.dof
===================================================================
--- translator/trunk/src/PHPPlugin/PHPParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/PHPPlugin/PHPParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,84 +1,44 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=28901376
-
-ExeDescription=PHP Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=7
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=1
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=IniTranslator
-
-FileDescription=PHP Plugin for IniTranslator
-
-FileVersion=1.7.0.0
-
-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.7.0.0
-
-Comments=Latest version at http://initranslator.sourceforge.net
-
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=1
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=28901376
+ExeDescription=PHP Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=7
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=PHP Plugin for IniTranslator
+FileVersion=1.7.0.0
+InternalName=PHPParser.dll
+LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=PHPParser.dll
+ProductName=PHP Plugin for IniTranslator
+ProductVersion=1.7.0.0
+Comments=Latest version at http://initranslator.sourceforge.net
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof
===================================================================
--- translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -5,13 +5,14 @@
UnsafeCode=0
UnsafeCast=0
[Linker]
-[Linker]MapFile=3OutputObjs=0ConsoleApp=1DebugInfo=0RemoteSymbols=0MinStackSize=16384
+MapFile=0
+MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
-[Language]
+UsePackages=0
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/SciTEPlugin/SciTEParser.dof
===================================================================
--- translator/trunk/src/SciTEPlugin/SciTEParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/SciTEPlugin/SciTEParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,192 +1,57 @@
-[Compiler]
-
-UnsafeType=0
-
-UnsafeCode=0
-
-UnsafeCast=0
-
-[Linker]
-
-MapFile=3
-
-OutputObjs=0
-
-ConsoleApp=1
-
-DebugInfo=0
-
-RemoteSymbols=0
-
-MinStackSize=16384
-
-MaxStackSize=1048576
-
-ImageBase=462422016
-
-ExeDescription=SciTE Plugin for IniTranslator
-
-[Directories]
-
-OutputDir=..\..\bin\plugins
-
-UnitOutputDir=..\..\dcu
-
-PackageDLLOutputDir=
-
-PackageDCPOutputDir=
-
-SearchPath=
-
-Packages=vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;bdertl;vcldbx;webdsnap;websnap;teeui;teedb;tee;dss;visualclx;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;tb2k_d7;TntUnicodeVcl_R70;indy;FB20DXGButtonEdit;dxPSLnksD7;dxPSCoreD7;dxPSTeeChartD7;dxPScxGridLnkD7;cxGridVCLD7;cxLibraryVCLD7;dxThemeD7;cxEditorsVCLD7;cxDataD7;dxPSDBTeeChartD7;cxExtEditorsVCLD7;cxGridUtilsVCLD7;adortl;ibxpress;dbexpress;soaprtl;VclSmp;dbxcds;inetdb;visualdbclx;vclactnband;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvCtrlsD7R;JvCustomD7R;JvPageCompsD7R;JvCmpD7R;tbx_d7;SpTBXLib_d7;JvDlgsD7R;JvAppFrmD7R
-
-Conditionals=
-
-DebugSourceDirs=
-
-UsePackages=0
-
-[Parameters]
-
-RunParams=
-
-HostApplication=
-
-Launcher=
-
-UseLauncher=0
-
-DebugCWD=
-
-[Language]
-
-ActiveLang=
-
-ProjectLang=
-
-RootDir=
-
-[Version Info]
-
-IncludeVerInfo=1
-
-AutoIncBuild=0
-
-MajorVer=1
-
-MinorVer=8
-
-Release=0
-
-Build=0
-
-Debug=0
-
-PreRelease=0
-
-Special=0
-
-Private=0
-
-DLL=0
-
-Locale=1033
-
-CodePage=1252
-
-[Version Info Keys]
-
-CompanyName=
-
-FileDescription=
-
-FileVersion=1.8.0.0
-
-InternalName=
-
-LegalCopyright=
-
-LegalTrademarks=
-
-OriginalFilename=
-
-ProductName=
-
-ProductVersion=1.0.0.0
-
-Compile Date=den 25 september 2004 18:56
-
-[Excluded Packages]
-
-F:\Program\Borland\Delphi7\Projects\Bpl\tbx_d7.bpl=Toolbar2000 -- TBX Extensions (Alex Denisov)
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvPrintPreviewD7D.bpl=JVCL Print Preview Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvPluginD7D.bpl=JVCL Plugin Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvXPCtrlsD7D.bpl=JVCL XP Controls
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvWizardD7D.bpl=JVCL Wizard Design Time Package
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvDotNetCtrlsD7D.bpl=JVCL DotNet Controls
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvGlobusD7D.bpl=JVCL Globus Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvJansD7D.bpl=JVCL Jans Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvTimeFrameworkD7D.bpl=JVCL Time Framework
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvUIBD7D.bpl=JVCL Unified Interbase Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvMMD7D.bpl=JVCL Multimedia and Image Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvDockingD7D.bpl=JVCL Docking Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvEDID7D.bpl=JVCL EDI Components Designtime Package
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvInspectorD7D.bpl=JVCL Inspector Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvValidatorsD7D.bpl=JVCL Validators and Error Provider Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvBandsD7D.bpl=JVCL Band Objects
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvBDED7D.bpl=JVCL BDE Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvDBD7D.bpl=JVCL Database Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvCryptD7D.bpl=JVCL Encryption and Compression Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvHMID7D.bpl=JVCL HMI Controls design time unit
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvInterpreterD7D.bpl=JVCL Interpreter Components
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvManagedThreadsD7D.bpl=JVCL Managed Threads
-
-F:\Program\Borland\Delphi7\Projects\Bpl\JvNetD7D.bpl=JVCL Network Components
-
-f:\program\borland\delphi7\Projects\Bpl\dclusr70.bpl=Borland User Components
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSPrVwAdvD7.bpl=ExpressPrinting System Advanced Preview Window by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumTreeList by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxDBTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumDBTreeList by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxDBGrLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumGrid by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxDBTVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressDBTree by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxInsLnkD7.bpl=ExpressPrinting System ReportLink for ExpressInspector by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxOILnkD7.bpl=ExpressPrinting System ReportLink for ExpressRTTIInspector by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxMVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressMasterView by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxOCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressOrgChart by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxDBOCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressDBOrgChart by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPSdxFCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressFlowChart by Developer Express Inc.
-
-F:\Program\Borland\Add\DX\EPS\Lib\dxPScxSSLnkD7.bpl=ExpressPrinting System ReportLink for ExpressSpreadSheet by Developer Express Inc.
-
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=462422016
+ExeDescription=SciTE Plugin for IniTranslator
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;bdertl;vcldbx;webdsnap;websnap;teeui;teedb;tee;dss;visualclx;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;tb2k_d7;TntUnicodeVcl_R70;indy;FB20DXGButtonEdit;dxPSLnksD7;dxPSCoreD7;dxPSTeeChartD7;dxPScxGridLnkD7;cxGridVCLD7;cxLibraryVCLD7;dxThemeD7;cxEditorsVCLD7;cxDataD7;dxPSDBTeeChartD7;cxExtEditorsVCLD7;cxGridUtilsVCLD7;adortl;ibxpress;dbexpress;soaprtl;VclSmp;dbxcds;inetdb;visualdbclx;vclactnband;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvCtrlsD7R;JvCustomD7R;JvPageCompsD7R;JvCmpD7R;tbx_d7;SpTBXLib_d7;JvDlgsD7R;JvAppFrmD7R
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=8
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.8.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Compile Date=den 25 september 2004 18:56
Modified: translator/trunk/src/TMXPlugin/TMXParser.dof
===================================================================
--- translator/trunk/src/TMXPlugin/TMXParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/TMXPlugin/TMXParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -31,7 +31,7 @@
FileDescription=TMX Plugin for IniTranslator
FileVersion=1.9.0.0
InternalName=TMXParser.dll
-LegalCopyright=Copyright (c) 2006 by Peter Th\xF6rnqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2007 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=TMXParser.dll
ProductName=TMX Plugin for IniTranslator
Modified: translator/trunk/src/ToolListEdit/ToolListEdit.dof
===================================================================
--- translator/trunk/src/ToolListEdit/ToolListEdit.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/ToolListEdit/ToolListEdit.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -22,7 +22,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=15
+Build=22
Debug=0
PreRelease=0
Special=0
@@ -33,7 +33,7 @@
[Version Info Keys]
CompanyName=Peter Th\xF6rnqvist
FileDescription=Alternate List Editor plugin for IniTranslator
-FileVersion=1.9.0.15
+FileVersion=1.9.0.22
InternalName=ToolListEdit.dll
LegalCopyright=Copyright (c) 2003-2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof
===================================================================
--- translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -22,7 +22,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=2
+Build=9
Debug=0
PreRelease=0
Special=0
@@ -33,7 +33,7 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=Tool Property Viewer Plugin for IniTranslator
-FileVersion=1.9.0.2
+FileVersion=1.9.0.9
InternalName=ToolPropertiesView.dll
LegalCopyright=Copyright (c) 2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
Modified: translator/trunk/src/XLIFFPlugin/XLIFFParser.dof
===================================================================
--- translator/trunk/src/XLIFFPlugin/XLIFFParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/XLIFFPlugin/XLIFFParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,3 +1,5 @@
+[FileVersion]
+Version=7.0
[Compiler]
UnsafeType=0
UnsafeCode=0
Modified: translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParser.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParser.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -19,12 +19,6 @@
UnitOutputDir=..\..\dcu
PackageDLLOutputDir=
PackageDCPOutputDir=
-[Parameters]
-RunParams=
-HostApplication=C:\Program Files\Borland\projects\Private\translator\trunk\bin\translator.exe
-Launcher=
-UseLauncher=0
-DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
@@ -44,7 +38,7 @@
FileDescription=Xilisoft plugin for IniTranslator
FileVersion=1.9.0.1
InternalName=
-LegalCopyright=
+LegalCopyright=Copyright (c) 2006 by Alexander Kornienko; all rights reserved
LegalTrademarks=
OriginalFilename=
ProductName=IniTranslator
Modified: translator/trunk/src/translator.dof
===================================================================
--- translator/trunk/src/translator.dof 2006-11-22 14:59:21 UTC (rev 130)
+++ translator/trunk/src/translator.dof 2006-11-22 15:06:38 UTC (rev 131)
@@ -1,81 +1,6 @@
[FileVersion]
Version=7.0
[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-NamespacePrefix=
-SymbolDeprecated=1
-SymbolLibrary=1
-SymbolPlatform=1
-UnitLibrary=1
-UnitPlatform=1
-UnitDeprecated=1
-HResultCompat=1
-HidingMember=1
-HiddenVirtual=1
-Garbage=1
-BoundsError=1
-ZeroNilCompat=1
-StringConstTruncated=1
-ForLoopVarVarPar=1
-TypedConstVarPar=1
-AsgToTypedConst=1
-CaseLabelRange=1
-ForVariable=1
-ConstructingAbstract=1
-ComparisonFalse=1
-ComparisonTrue=1
-ComparingSignedUnsigned=1
-CombiningSignedUnsigned=1
-UnsupportedConstruct=1
-FileOpen=1
-FileOpenUnitSrc=1
-BadGlobalSymbol=1
-DuplicateConstructorDestructor=1
-InvalidDirective=1
-PackageNoLink=1
-PackageThreadVar=1
-ImplicitImport=1
-HPPEMITIgnored=1
-NoRetVal=1
-UseBeforeDef=1
-ForLoopVarUndef=1
-UnitNameMismatch=1
-NoCFGFileFound=1
-MessageDirective=1
-ImplicitVariants=1
-UnicodeToLocale=1
-LocaleToUnicode=1
-ImagebaseMultiple=1
-SuspiciousTypecast=1
-PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
@@ -111,7 +36,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=38
+Build=44
Debug=0
PreRelease=0
Special=0
@@ -122,9 +47,9 @@
[Version Info Keys]
CompanyName=Peter Th\xF6rnqvist
FileDescription=Ini Language Translator
-FileVersion=1.9.0.38
+FileVersion=1.9.0.44
InternalName=translator.exe
-LegalCopyright=Copyright (c) 2003-2006 by Peter Th\xF6rnqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2007 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=translator.exe
ProductName=Ini Translator
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:26:37
|
Revision: 144
http://svn.sourceforge.net/initranslator/?rev=144&view=rev
Author: peter3
Date: 2006-12-01 09:26:33 -0800 (Fri, 01 Dec 2006)
Log Message:
-----------
- Orphans form now shows section and name in caption
- Fix to store the correct encoding after opening a file
Modified Paths:
--------------
translator/trunk/src/OrphansFrm.pas
translator/trunk/src/TranslateFile.pas
Modified: translator/trunk/src/OrphansFrm.pas
===================================================================
--- translator/trunk/src/OrphansFrm.pas 2006-12-01 16:23:53 UTC (rev 143)
+++ translator/trunk/src/OrphansFrm.pas 2006-12-01 17:26:33 UTC (rev 144)
@@ -120,7 +120,7 @@
Change: TItemChange);
begin
if (lvOrphaned.Selected <> nil) then
- lblSection.Caption := '[' + FOrphans.Items[lvOrphaned.Selected.Index].Section + ']'
+ lblSection.Caption := '[' + FOrphans.Items[lvOrphaned.Selected.Index].Section + '] ' + FOrphans.Items[lvOrphaned.Selected.Index].Name
else
lblSection.Caption := '[]';
end;
Modified: translator/trunk/src/TranslateFile.pas
===================================================================
--- translator/trunk/src/TranslateFile.pas 2006-12-01 16:23:53 UTC (rev 143)
+++ translator/trunk/src/TranslateFile.pas 2006-12-01 17:26:33 UTC (rev 144)
@@ -542,11 +542,14 @@
end;
feUnicode:
S.LoadFromFile(Filename);
- end
+ end;
+ Result := Encoding;
end
else
+ begin
S.LoadFromFile(Filename);
- Result := FileCharSetToEncoding(S.LastFileCharSet);
+ Result := FileCharSetToEncoding(S.LastFileCharSet);
+ end;
for i := 0 to S.Count - 1 do
begin
if WideTextPos(CommentChar, S[i]) = 1 then
@@ -602,11 +605,14 @@
S.AnsiStrings.LoadFromFileEx(Filename, CP_UTF8);
feUnicode:
S.LoadFromFile(Filename);
- end
+ end;
+ Result := Encoding;
end
else
+ begin
S.LoadFromFile(Filename);
- Result := FileCharSetToEncoding(S.LastFileCharSet);
+ Result := FileCharSetToEncoding(S.LastFileCharSet);
+ end;
for i := 0 to S.Count - 1 do
begin
if WideTextPos(CommentChar, S[i]) = 1 then
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-05 00:22:50
|
Revision: 164
http://svn.sourceforge.net/initranslator/?rev=164&view=rev
Author: peter3
Date: 2006-12-04 16:22:49 -0800 (Mon, 04 Dec 2006)
Log Message:
-----------
- Bug Fixed: translation comment wasn't cleared when user clicked "New translation"
Modified Paths:
--------------
translator/trunk/src/MainFrm.pas
translator/trunk/src/ToolPropertiesView/ToolPropertiesViewImpl.pas
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-12-04 19:56:09 UTC (rev 163)
+++ translator/trunk/src/MainFrm.pas 2006-12-05 00:22:49 UTC (rev 164)
@@ -2864,6 +2864,7 @@
for i := 0 to FTranslateFile.Items.Count - 1 do
begin
FTranslateFile.Items[i].Translation := '';
+ FTranslateFile.Items[i].TransComments := '';
FTranslateFile.Items[i].Translated := false;
end;
finally
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesViewImpl.pas
===================================================================
--- translator/trunk/src/ToolPropertiesView/ToolPropertiesViewImpl.pas 2006-12-04 19:56:09 UTC (rev 163)
+++ translator/trunk/src/ToolPropertiesView/ToolPropertiesViewImpl.pas 2006-12-05 00:22:49 UTC (rev 164)
@@ -1,4 +1,4 @@
-{@abstract(Implementation if ToolPropertiesView) }
+{@abstract(Implementation of ToolPropertiesView) }
{
Copyright \xA9 2003-2006 by Peter Thornqvist; all rights reserved
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:13
|
Revision: 182
http://svn.sourceforge.net/initranslator/?rev=182&view=rev
Author: peter3
Date: 2006-12-11 09:38:09 -0800 (Mon, 11 Dec 2006)
Log Message:
-----------
- Trim removed from main app
- Trim added as new tool plugin
Modified Paths:
--------------
translator/trunk/src/AppOptions.pas
translator/trunk/src/MainFrm.dfm
translator/trunk/src/MainFrm.pas
translator/trunk/src/translator.dpr
Added Paths:
-----------
translator/trunk/src/ToolTrim/
translator/trunk/src/ToolTrim/ToolTrim.dof
translator/trunk/src/ToolTrim/ToolTrim.dpr
translator/trunk/src/ToolTrim/ToolTrim.res
translator/trunk/src/ToolTrim/ToolTrimConsts.pas
translator/trunk/src/ToolTrim/ToolTrimFrm.dfm
translator/trunk/src/ToolTrim/ToolTrimFrm.pas
translator/trunk/src/ToolTrim/ToolTrimImpl.pas
Removed Paths:
-------------
translator/trunk/src/TrimFrm.dfm
translator/trunk/src/TrimFrm.pas
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2006-12-10 20:21:30 UTC (rev 181)
+++ translator/trunk/src/AppOptions.pas 2006-12-11 17:38:09 UTC (rev 182)
@@ -115,10 +115,6 @@
FUseTranslationEverywhere: boolean;
FAutoFocusTranslation: boolean;
FTools: TToolItems;
- FTrimWhiteSpace: boolean;
- FTrimHow: integer;
- FTrimWhere: integer;
- FTrimWhat: WideString;
FMisMatchItems: WideString;
FMisMatchTrailingSpaces: boolean;
FMisMatchLeadingSpaces: boolean;
@@ -201,11 +197,6 @@
property SearchUp: boolean read FSearchUp write FSearchUp;
property FuzzySearch: boolean read FFuzzySearch write FFuzzySearch;
property FindInIndex: integer read FFindInIndex write FFindInIndex;
- // trim
- property TrimWhat: WideString read FTrimWhat write FTrimWhat;
- property TrimWhere: integer read FTrimWhere write FTrimWhere;
- property TrimHow: integer read FTrimHow write FTrimHow;
- property TrimWhiteSpace: boolean read FTrimWhiteSpace write FTrimWhiteSpace;
property MisMatchItems: WideString read FMisMatchItems write FMisMatchItems;
property MisMatchLeadingSpaces: boolean read FMisMatchLeadingSpaces write FMisMatchLeadingSpaces;
@@ -538,11 +529,6 @@
if (FindInIndex < 0) or (FindInIndex > 2) then
FindInIndex := 0;
- TrimWhat := ini.ReadString('Trim', 'TrimWhat', '');
- TrimWhere := ini.ReadInteger('Trim', 'TrimWhere', cTrimTranslation);
- TrimHow := ini.ReadInteger('Trim', 'TrimHow', cTrimBoth);
- TrimWhiteSpace := ini.ReadBool('Trim', 'TrimWhiteSpace', true);
-
MisMatchItems := ini.ReadString('MisMatch', 'Items', '&,!,...,?,:,!');
MisMatchLeadingSpaces := ini.ReadBool('MisMatch', 'MisMatchLeadingSpaces', true);
MisMatchTrailingSpaces := ini.ReadBool('MisMatch', 'MisMatchTrailingSpaces', true);
@@ -633,6 +619,7 @@
// find replace dialog
ini.WriteString('FindReplace', 'FindText', FindText);
ini.WriteString('FindReplace', 'ReplaceText', ReplaceText);
+
ini.WriteString('FindReplace', 'FindHistory', trim(FindHistory));
ini.WriteString('FindReplace', 'ReplaceHistory', trim(ReplaceHistory));
ini.WriteBool('FindReplace', 'MatchLine', MatchLine);
@@ -641,11 +628,6 @@
ini.WriteBool('FindReplace', 'FuzzySearch', FuzzySearch);
ini.WriteInteger('FindReplace', 'FindInIndex', FindInIndex);
- ini.WriteString('Trim', 'TrimWhat', TrimWhat);
- ini.WriteInteger('Trim', 'TrimWhere', TrimWhere);
- ini.WriteInteger('Trim', 'TrimHow', TrimHow);
- ini.WriteBool('Trim', 'TrimWhiteSpace', TrimWhiteSpace);
-
ini.WriteString('MisMatch', 'Items', MisMatchItems);
ini.WriteBool('MisMatch', 'MisMatchLeadingSpaces', MisMatchLeadingSpaces);
ini.WriteBool('MisMatch', 'MisMatchTrailingSpaces', MisMatchTrailingSpaces);
Modified: translator/trunk/src/MainFrm.dfm
===================================================================
--- translator/trunk/src/MainFrm.dfm 2006-12-10 20:21:30 UTC (rev 181)
+++ translator/trunk/src/MainFrm.dfm 2006-12-11 17:38:09 UTC (rev 182)
@@ -308,7 +308,7 @@
HintW = 'Restore original sort'
end
object TBXItem14: TSpTBXItem
- Action = acTrim
+ ShortCut = 24660
CaptionW = 'Trim...'
HintW = 'Trim leading and trailing characters'
end
@@ -1420,13 +1420,6 @@
ShortCut = 16430
OnExecute = acDeleteItemExecute
end
- object acTrim: TTntAction
- Category = 'Actions'
- Caption = 'Trim...'
- Hint = 'Trim leading and trailing characters'
- ShortCut = 24660
- OnExecute = acTrimExecute
- end
object acMakeConsistent: TTntAction
Category = 'Actions'
Caption = 'Make all translations consistent'
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2006-12-10 20:21:30 UTC (rev 181)
+++ translator/trunk/src/MainFrm.pas 2006-12-11 17:38:09 UTC (rev 182)
@@ -327,7 +327,6 @@
acSaveOriginal: TTntAction;
TBXItem13: TSpTBXItem;
TBXItem14: TSpTBXItem;
- acTrim: TTntAction;
acConfigSuspicious: TTntAction;
TBXItem15: TSpTBXItem;
acDictEdit: TTntAction;
@@ -439,7 +438,6 @@
procedure acDeleteItemExecute(Sender: TObject);
procedure acSaveOriginalExecute(Sender: TObject);
procedure lvTranslateStringsDblClick(Sender: TObject);
- procedure acTrimExecute(Sender: TObject);
procedure acConfigSuspiciousExecute(Sender: TObject);
procedure acDictEditExecute(Sender: TObject);
procedure mnuPluginsPopup(Sender: TTBCustomItem; FromLink: Boolean);
@@ -556,7 +554,6 @@
procedure GetSections(Strings: TTntStringlist);
procedure CheckBookMarkImages;
- procedure DoTrim;
procedure AddItem(const Section, Original, Translation, OrigComments, TransComments: WideString); overload;
procedure AddItem(AItem: ITranslationItem); overload;
procedure InsertItem(AItem: ITranslationItem);
@@ -617,7 +614,7 @@
{$ENDIF USEADDICTSPELLCHECKER}
AppUtils, CommonUtils, OptionsFrm, CommentsFrm, OrphansFrm, ApplicationServices,
KbdCfgFrame, KbdCfgFrm, ImportExportFrm, ExtToolsFrm, PromptArgsFrm,
- EditItemFrm, TrimFrm, SuspiciousConfigFrm, DictTranslationSelectDlg,
+ EditItemFrm, SuspiciousConfigFrm, DictTranslationSelectDlg,
DictEditFrm, ColorsFrm;
{$R *.dfm}
@@ -1669,7 +1666,19 @@
var
i: integer;
S: WideString;
+ {$IFDEF USEADDICTSPELLCHECKER}
+ l:TSpellLanguageString;
+ {$ENDIF}
begin
+ {$IFDEF USEADDICTSPELLCHECKER}
+ // add all spellchecker strings
+ for l := Low(TSpellLanguageString) to High(TSpellLanguageString) do
+ begin
+ S := EncodeStrings(ad3SpellLanguages.GetString(l, ltEnglish));
+ ini.WriteString('SpellChecker', S, S);
+ end;
+ {$ENDIF}
+
// write out all resourcestrings
ini.WriteString(ClassName, EncodeStrings(SFmtAboutText), EncodeStrings(SFmtAboutText));
ini.WriteString(ClassName, EncodeStrings(SFmtAboutCaption), EncodeStrings(SFmtAboutCaption));
@@ -2238,7 +2247,6 @@
acDeleteItem.Enabled := (Index <> -1) and ((FCapabilitesSupported = 0) or (FCapabilitesSupported and CAP_ITEM_DELETE = CAP_ITEM_DELETE));
acAddItem.Enabled := (Index <> -1) and ((FCapabilitesSupported = 0) or (FCapabilitesSupported and CAP_ITEM_INSERT = CAP_ITEM_INSERT));
acEditItem.Enabled := (Index <> -1) and ((FCapabilitesSupported = 0) or (FCapabilitesSupported and CAP_ITEM_EDIT = CAP_ITEM_EDIT));
- acTrim.Enabled := FTranslateFile.Items.Count > 0;
// Handled := true;
end;
@@ -2948,9 +2956,9 @@
procedure TfrmMain.acCreateTranslationFileExecute(Sender: TObject);
const
- cTranslatableForms: array[0..11] of TFormClass =
+ cTranslatableForms: array[0..10] of TFormClass =
(TfrmOptions, TfrmOrphans, TfrmConfigKbd, TfrmImportExport, TfrmTools, TfrmPromptArgs,
- TfrmEditItem, TfrmTrim, TfrmConfigSuspicious, TfrmDictTranslationSelect,
+ TfrmEditItem, TfrmConfigSuspicious, TfrmDictTranslationSelect,
TfrmDictEdit, TfrmColors);
var
@@ -4293,77 +4301,6 @@
acEditItem.Execute;
end;
-procedure TfrmMain.DoTrim;
-var
- i: integer;
- ti: ITranslationItem;
- S: WideString;
-
- procedure InternalTrim(var S: WideString);
- var iStart: integer;
- begin
- if GlobalAppOptions.TrimHow in [cTrimLeading, cTrimBoth] then
- begin
- iStart := 1;
- while (iStart <= Length(S)) and ((Pos(S[iStart], GlobalAppOptions.TrimWhat) > 0)
- or (GlobalAppOptions.TrimWhiteSpace and (S[iStart] < #33))) do
- Inc(iStart);
- S := Copy(S, iStart, MaxInt);
- end;
- if GlobalAppOptions.TrimHow in [cTrimTrailing, cTrimBoth] then
- begin
- iStart := Length(S);
- while (iStart >= 1) and ((Pos(S[iStart], GlobalAppOptions.TrimWhat) > 0)
- or (GlobalAppOptions.TrimWhiteSpace and (S[iStart] < #33))) do
- Dec(iStart);
- S := Copy(S, 1, iStart);
- end;
-
- end;
-begin
- if (GlobalAppOptions.TrimWhat <> '') or GlobalAppOptions.TrimWhiteSpace then
- begin
- for i := 0 to FTranslateFile.Items.Count - 1 do
- begin
- ti := FTranslateFile.Items[i];
- if (GlobalAppOptions.TrimWhere in [cTrimOriginal, cTrimBoth]) and (ti.Original <> '') then
- begin
- S := ti.Original;
- InternalTrim(S);
- if Length(S) <> Length(ti.Original) then
- begin
- ti.Original := S;
- Modified := true;
- end;
- end;
- if (GlobalAppOptions.TrimWhere in [cTrimTranslation, cTrimBoth]) and (ti.Translation <> '') then
- begin
- S := ti.Translation;
- InternalTrim(S);
- if Length(S) <> Length(ti.Translation) then
- begin
- AddUndo(FTranslateFile.Items[i], _(ClassName, SUndoEdit), cUndoEdit);
- ti.Translation := S;
- Modified := true;
- end;
- end;
- end;
- end;
-end;
-
-procedure TfrmMain.acTrimExecute(Sender: TObject);
-begin
- if TfrmTrim.Edit(GlobalAppOptions) then
- begin
- lvTranslateStrings.Items.BeginUpdate;
- try
- DoTrim;
- finally
- lvTranslateStrings.Items.EndUpdate;
- end;
- end;
-end;
-
procedure TfrmMain.acConfigSuspiciousExecute(Sender: TObject);
begin
TfrmConfigSuspicious.Edit(GlobalAppOptions);
Added: translator/trunk/src/ToolTrim/ToolTrim.dof
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrim.dof (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrim.dof 2006-12-11 17:38:09 UTC (rev 182)
@@ -0,0 +1,56 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=9
+Release=0
+Build=41
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=1
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=Tool Trim Plugin for IniTranslator
+FileVersion=1.9.0.41
+InternalName=ToolTrim.dll
+LegalCopyright=Copyright (c) 2006 by Peter Th\xF6rnqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=ToolTrim.dll
+ProductName=Tool Trim Plugin for IniTranslator
+ProductVersion=1.9
+Comments=Latest version available at http://initranslator.sourceforge.net
Added: translator/trunk/src/ToolTrim/ToolTrim.dpr
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrim.dpr (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrim.dpr 2006-12-11 17:38:09 UTC (rev 182)
@@ -0,0 +1,41 @@
+{@abstract(Tool plugin to trim whitespace and other characters) }
+{
+ Copyright \xA9 2003-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$
+library ToolTrim;
+
+uses
+ SysUtils,
+ Classes,
+ ToolTrimImpl in 'ToolTrimImpl.pas',
+ TransIntf in '..\TransIntf.pas',
+ ToolTrimFrm in 'ToolTrimFrm.pas' {frmToolTrim},
+ WideIniFiles in '..\WideIniFiles.pas',
+ ToolTrimConsts in 'ToolTrimConsts.pas';
+
+{$R *.res}
+function InstallPlugin(out ToolItems: IToolItems): HResult; stdcall;
+begin
+ ToolItems := TToolTrimPlugins.Create;
+ Result := S_OK;
+end;
+
+exports InstallPlugin name cRegisterTransToolItemsFuncName;
+
+begin
+end.
+
Property changes on: translator/trunk/src/ToolTrim/ToolTrim.dpr
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Added: translator/trunk/src/ToolTrim/ToolTrim.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/ToolTrim/ToolTrim.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/src/ToolTrim/ToolTrimConsts.pas
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrimConsts.pas (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrimConsts.pas 2006-12-11 17:38:09 UTC (rev 182)
@@ -0,0 +1,27 @@
+{@abstract(Resourcestrings for ToolTrim) }
+{
+ Copyright \xA9 2006 by Peter Th\xF6rnqvist; all rights reserved
+
+ Developer(s):
+ peter3 - 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 ToolTrimConsts;
+
+interface
+const
+ SToolTrimAbout = 'This plugin trims leading and trailing whitespaces and other characters';
+ SToolTrimPluginDisplayName = 'Trim...';
+
+implementation
+
+end.
Property changes on: translator/trunk/src/ToolTrim/ToolTrimConsts.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Added: translator/trunk/src/ToolTrim/ToolTrimFrm.dfm
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrimFrm.dfm (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrimFrm.dfm 2006-12-11 17:38:09 UTC (rev 182)
@@ -0,0 +1,119 @@
+object frmToolTrim: TfrmToolTrim
+ Left = 636
+ Top = 240
+ ActiveControl = edTrimWhat
+ BorderStyle = bsDialog
+ Caption = 'Trim Options'
+ ClientHeight = 228
+ ClientWidth = 390
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Shell Dlg 2'
+ Font.Style = []
+ OldCreateOrder = False
+ DesignSize = (
+ 390
+ 228)
+ PixelsPerInch = 96
+ TextHeight = 13
+ object TntLabel1: TTntLabel
+ Left = 8
+ Top = 16
+ Width = 51
+ Height = 13
+ Caption = 'Trim wh&at:'
+ FocusControl = edTrimWhat
+ end
+ object TntLabel2: TTntLabel
+ Left = 8
+ Top = 88
+ Width = 57
+ Height = 13
+ Caption = 'Trim wh&ere:'
+ FocusControl = cbTrimWhere
+ end
+ object TntLabel3: TTntLabel
+ Left = 8
+ Top = 136
+ Width = 47
+ Height = 13
+ Caption = 'Trim h&ow:'
+ FocusControl = cbTrimHow
+ end
+ object edTrimWhat: TTntEdit
+ Left = 8
+ Top = 31
+ Width = 373
+ Height = 21
+ Anchors = [akLeft, akTop, akRight]
+ BevelKind = bkFlat
+ BorderStyle = bsNone
+ TabOrder = 0
+ end
+ object cbTrimWhere: TTntComboBox
+ Left = 8
+ Top = 104
+ Width = 373
+ Height = 21
+ Style = csDropDownList
+ Anchors = [akLeft, akTop, akRight]
+ ItemHeight = 13
+ ItemIndex = 2
+ TabOrder = 2
+ Text = 'Both'
+ Items.Strings = (
+ 'Original'
+ 'Translation'
+ 'Both')
+ end
+ object cbTrimHow: TTntComboBox
+ Left = 8
+ Top = 152
+ Width = 373
+ Height = 21
+ Style = csDropDownList
+ Anchors = [akLeft, akTop, akRight]
+ ItemHeight = 13
+ ItemIndex = 2
+ TabOrder = 3
+ Text = 'Both'
+ Items.Strings = (
+ 'Leading'
+ 'Trailing'
+ 'Both')
+ end
+ object chkTrimWhitespace: TTntCheckBox
+ Left = 16
+ Top = 60
+ Width = 364
+ Height = 17
+ Anchors = [akLeft, akTop, akRight]
+ Caption = 'Trim additional &whitespace also'
+ TabOrder = 1
+ end
+ object btnOK: TTntButton
+ Left = 204
+ Top = 190
+ Width = 80
+ Height = 23
+ Anchors = [akRight, akBottom]
+ Caption = 'OK'
+ Default = True
+ ModalResult = 1
+ TabOrder = 4
+ OnClick = btnOKClick
+ end
+ object btnCancel: TTntButton
+ Left = 292
+ Top = 190
+ Width = 80
+ Height = 23
+ Anchors = [akRight, akBottom]
+ Cancel = True
+ Caption = 'Cancel'
+ ModalResult = 2
+ TabOrder = 5
+ end
+end
Added: translator/trunk/src/ToolTrim/ToolTrimFrm.pas
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrimFrm.pas (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrimFrm.pas 2006-12-11 17:38:09 UTC (rev 182)
@@ -0,0 +1,158 @@
+{@abstract(Trim options dialog) }
+{
+ Copyright \xA9 2003-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 ToolTrimFrm;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, TntForms, TntStdCtrls, TransIntf;
+
+type
+ TfrmToolTrim = class(TTntForm)
+ TntLabel1: TTntLabel;
+ edTrimWhat: TTntEdit;
+ TntLabel2: TTntLabel;
+ cbTrimWhere: TTntComboBox;
+ TntLabel3: TTntLabel;
+ cbTrimHow: TTntComboBox;
+ chkTrimWhitespace: TTntCheckBox;
+ btnOK: TTntButton;
+ btnCancel: TTntButton;
+ procedure btnOKClick(Sender: TObject);
+ private
+ { Private declarations }
+ FItems: ITranslationItems;
+ procedure LoadSettings;
+ procedure SaveSettings;
+ procedure DoTrim;
+ public
+ { Public declarations }
+ class function Execute(const ApplicationServices: IApplicationServices; const Items: ITranslationItems): boolean;
+ end;
+
+implementation
+uses
+ WideIniFiles;
+
+{$R *.dfm}
+
+{ TfrmTrim }
+
+class function TfrmToolTrim.Execute(const ApplicationServices: IApplicationServices; const Items: ITranslationItems): boolean;
+var
+ frmTrim: TfrmToolTrim;
+begin
+ frmTrim := self.Create(Application);
+ try
+ // frmTrim.Font := Application.MainForm.Font;
+ frmTrim.FItems := Items;
+ frmTrim.LoadSettings;
+ Result := frmTrim.ShowModal = mrOK;
+ frmTrim.SaveSettings;
+ finally
+ frmTrim.Free;
+ end;
+end;
+
+procedure TfrmToolTrim.LoadSettings;
+begin
+ with TWideMemIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
+ try
+ edTrimWhat.Text := ReadString('Settings', 'What', edTrimWhat.Text);
+ cbTrimWhere.ItemIndex := ReadInteger('Settings', 'Where', cbTrimWhere.ItemIndex);
+ cbTrimHow.ItemIndex := ReadInteger('Settings', 'How', cbTrimHow.ItemIndex);
+ chkTrimWhitespace.Checked := ReadBool('Settings', 'WhiteSpace', chkTrimWhitespace.Checked);
+ finally
+ Free;
+ end;
+end;
+
+procedure TfrmToolTrim.SaveSettings;
+begin
+ with TWideMemIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
+ try
+ WriteString('Settings', 'What', edTrimWhat.Text);
+ WriteInteger('Settings', 'Where', cbTrimWhere.ItemIndex);
+ WriteInteger('Settings', 'How', cbTrimHow.ItemIndex);
+ WriteBool('Settings', 'WhiteSpace', chkTrimWhitespace.Checked);
+ UpdateFile;
+ finally
+ Free;
+ end;
+end;
+
+procedure TfrmToolTrim.btnOKClick(Sender: TObject);
+begin
+ DoTrim;
+end;
+
+procedure TfrmToolTrim.DoTrim;
+var
+ i: integer;
+ ti: ITranslationItem;
+ S: WideString;
+
+ procedure InternalTrim(var S: WideString);
+ var iStart: integer;
+ begin
+ if cbTrimHow.ItemIndex in [0, 2] then
+ begin
+ iStart := 1;
+ while (iStart <= Length(S)) and ((Pos(S[iStart], edTrimWhat.Text) > 0)
+ or (chkTrimWhiteSpace.Checked and (S[iStart] < #33))) do
+ Inc(iStart);
+ S := Copy(S, iStart, MaxInt);
+ end;
+ if cbTrimHow.ItemIndex in [1, 2] then
+ begin
+ iStart := Length(S);
+ while (iStart >= 1) and ((Pos(S[iStart], edTrimWhat.Text) > 0)
+ or (chkTrimWhiteSpace.Checked and (S[iStart] < #33))) do
+ Dec(iStart);
+ S := Copy(S, 1, iStart);
+ end;
+
+ end;
+begin
+ if (edTrimWhat.Text <> '') or chkTrimWhiteSpace.Checked then
+ begin
+ for i := 0 to FItems.Count - 1 do
+ begin
+ ti := FItems[i];
+ if (cbTrimWhere.ItemIndex in [0, 2]) and (ti.Original <> '') then
+ begin
+ S := ti.Original;
+ InternalTrim(S);
+ if Length(S) <> Length(ti.Original) then
+ ti.Original := S;
+ end;
+ if (cbTrimWhere.ItemIndex in [0, 2]) and (ti.Translation <> '') then
+ begin
+ S := ti.Translation;
+ InternalTrim(S);
+ if Length(S) <> Length(ti.Translation) then
+ ti.Translation := S;
+ end;
+ end;
+ end;
+end;
+
+end.
+
Property changes on: translator/trunk/src/ToolTrim/ToolTrimFrm.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Added: translator/trunk/src/ToolTrim/ToolTrimImpl.pas
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrimImpl.pas (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrimImpl.pas 2006-12-11 17:38:09 UTC (rev 182)
@@ -0,0 +1,110 @@
+{@abstract(Implementation of ToolTrim) }
+{
+ Copyright \xA9 2003-2006 by Peter Thornqvist; all rights reserved
+
+ Developer(s):
+ p3 - peter3 att users dott sourceforge dott net
+ Korney San - kora 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 ToolTrimImpl;
+
+interface
+uses
+ Classes, TransIntf;
+
+type
+ TToolTrimPlugins = class(TInterfacedObject, IInterface, IToolItems)
+ public
+ function Count: Integer; safecall;
+ function ToolItem(Index: Integer; out ToolItem: IToolItem): HRESULT;
+ safecall;
+ end;
+
+ TToolTrimPlugin = class(TInterfacedObject, IInterface, IToolItem)
+ private
+ FAppServices:IApplicationServices;
+ { ILocalizable }
+ public
+ function About: WideString; safecall;
+ function DisplayName: WideString; safecall;
+ function Execute(const Items: ITranslationItems; const Orphans: ITranslationItems; var SelectedItem: ITranslationItem): HRESULT; safecall;
+ function Icon: Cardinal; safecall;
+ procedure Init(const ApplicationServices: IApplicationServices); safecall;
+ function Status(const Items: ITranslationItems; const Orphans: ITranslationItems; const SelectedItem: ITranslationItem): Integer; safecall;
+ end;
+
+implementation
+
+uses ToolTrimFrm, ToolTrimConsts;
+
+{ TToolTrimPlugins }
+
+function TToolTrimPlugins.Count: Integer;
+begin
+ Result := 1;
+end;
+
+function TToolTrimPlugins.ToolItem(Index: Integer;
+ out ToolItem: IToolItem): HRESULT;
+begin
+ if Index = 0 then
+ begin
+ ToolItem := TToolTrimPlugin.Create;
+ Result := S_OK;
+ end
+ else
+ Result := S_FALSE;
+end;
+
+{ TToolTrimPlugin }
+
+function TToolTrimPlugin.About: WideString;
+begin
+ Result := SToolTrimAbout;
+end;
+
+function TToolTrimPlugin.DisplayName: WideString;
+begin
+ Result := SToolTrimPluginDisplayName;
+end;
+
+function TToolTrimPlugin.Execute(const Items, Orphans: ITranslationItems; var SelectedItem: ITranslationItem): HRESULT;
+begin
+ TfrmToolTrim.Execute(FAppServices, Items);
+ Result := S_OK;
+end;
+
+function TToolTrimPlugin.Icon: Cardinal;
+begin
+ Result := 0;
+end;
+
+procedure TToolTrimPlugin.Init(const ApplicationServices: IApplicationServices);
+begin
+ FAppServices := ApplicationServices;
+end;
+
+function TToolTrimPlugin.Status(const Items,
+ Orphans: ITranslationItems;
+ const SelectedItem: ITranslationItem): Integer;
+begin
+ Result := TOOL_VISIBLE;
+ if Items.Count > 0 then
+ Result := Result or TOOL_ENABLED;
+end;
+
+end.
+
+
Property changes on: translator/trunk/src/ToolTrim/ToolTrimImpl.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate
LastChangedRevision
LastChangedBy
HeadURL
Id
Deleted: translator/trunk/src/TrimFrm.dfm
===================================================================
--- translator/trunk/src/TrimFrm.dfm 2006-12-10 20:21:30 UTC (rev 181)
+++ translator/trunk/src/TrimFrm.dfm 2006-12-11 17:38:09 UTC (rev 182)
@@ -1,106 +0,0 @@
-inherited frmTrim: TfrmTrim
- ActiveControl = edTrimWhat
- BorderStyle = bsDialog
- Caption = 'Trim Options'
- ClientHeight = 240
- ClientWidth = 390
- PixelsPerInch = 96
- TextHeight = 13
- object TntLabel1: TTntLabel
- Left = 8
- Top = 16
- Width = 51
- Height = 13
- Caption = 'Trim wh&at:'
- FocusControl = edTrimWhat
- end
- object TntLabel2: TTntLabel
- Left = 8
- Top = 96
- Width = 57
- Height = 13
- Caption = 'Trim wh&ere:'
- FocusControl = cbTrimWhere
- end
- object TntLabel3: TTntLabel
- Left = 8
- Top = 144
- Width = 47
- Height = 13
- Caption = 'Trim h&ow:'
- FocusControl = cbTrimHow
- end
- object edTrimWhat: TTntEdit
- Left = 8
- Top = 31
- Width = 373
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- BevelKind = bkFlat
- BorderStyle = bsNone
- TabOrder = 0
- end
- object cbTrimWhere: TTntComboBox
- Left = 8
- Top = 112
- Width = 373
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- ItemIndex = 2
- TabOrder = 2
- Text = 'Both'
- Items.Strings = (
- 'Original'
- 'Translation'
- 'Both')
- end
- object cbTrimHow: TTntComboBox
- Left = 8
- Top = 160
- Width = 373
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- ItemIndex = 2
- TabOrder = 3
- Text = 'Both'
- Items.Strings = (
- 'Leading'
- 'Trailing'
- 'Both')
- end
- object chkTrimWhitespace: TTntCheckBox
- Left = 16
- Top = 63
- Width = 364
- Height = 17
- Anchors = [akLeft, akTop, akRight]
- Caption = 'Trim additional &whitespace also'
- TabOrder = 1
- end
- object btnOK: TTntButton
- Left = 204
- Top = 202
- Width = 80
- Height = 23
- Anchors = [akRight, akBottom]
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 4
- end
- object btnCancel: TTntButton
- Left = 292
- Top = 202
- Width = 80
- Height = 23
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- end
-end
Deleted: translator/trunk/src/TrimFrm.pas
===================================================================
--- translator/trunk/src/TrimFrm.pas 2006-12-10 20:21:30 UTC (rev 181)
+++ translator/trunk/src/TrimFrm.pas 2006-12-11 17:38:09 UTC (rev 182)
@@ -1,85 +0,0 @@
-{@abstract(Trim options dialog) }
-{
- Copyright \xA9 2003-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 TrimFrm;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, BaseForm, StdCtrls, TntStdCtrls, AppOptions;
-
-type
- TfrmTrim = class(TfrmBase)
- TntLabel1: TTntLabel;
- edTrimWhat: TTntEdit;
- TntLabel2: TTntLabel;
- cbTrimWhere: TTntComboBox;
- TntLabel3: TTntLabel;
- cbTrimHow: TTntComboBox;
- chkTrimWhitespace: TTntCheckBox;
- btnOK: TTntButton;
...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-13 10:31:30
|
Revision: 185
http://svn.sourceforge.net/initranslator/?rev=185&view=rev
Author: peter3
Date: 2006-12-13 02:31:30 -0800 (Wed, 13 Dec 2006)
Log Message:
-----------
ToolTreeView, ToolListEdit, ToolConsistency:
- Handle ENTER and ESCAPE better
- Use action list
Modified Paths:
--------------
translator/trunk/src/ToolConsistency/ToolConsistencyFrm.dfm
translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas
translator/trunk/src/ToolKeyCheck/ToolKeyCheckFrm.dfm
translator/trunk/src/ToolListEdit/ToolItemEditFrm.dfm
translator/trunk/src/ToolListEdit/ToolItemEditFrm.pas
translator/trunk/src/ToolListEdit/ToolListEditFrm.dfm
translator/trunk/src/ToolListEdit/ToolListEditFrm.pas
translator/trunk/src/ToolTreeView/ToolTreeViewFrm.dfm
translator/trunk/src/ToolTreeView/ToolTreeViewFrm.pas
Modified: translator/trunk/src/ToolConsistency/ToolConsistencyFrm.dfm
===================================================================
--- translator/trunk/src/ToolConsistency/ToolConsistencyFrm.dfm 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolConsistency/ToolConsistencyFrm.dfm 2006-12-13 10:31:30 UTC (rev 185)
@@ -183,7 +183,7 @@
PopupMenu = popItems
TabOrder = 0
OnChange = tvItemsChange
- OnDblClick = tvItemsDblClick
+ OnDblClick = acEditExecute
OnEdited = tvItemsEdited
OnEditing = tvItemsEditing
end
@@ -244,16 +244,28 @@
ShortCut = 16397
OnExecute = acUseThisTranslationExecute
end
+ object acSync: TTntAction
+ Caption = 'Show in main list'
+ ShortCut = 16416
+ OnExecute = acSyncExecute
+ end
end
object popItems: TTntPopupMenu
Left = 252
Top = 56
+ object Edit1: TTntMenuItem
+ Action = acEdit
+ Default = True
+ end
+ object N1: TTntMenuItem
+ Caption = '-'
+ end
object Usethistranslation1: TTntMenuItem
Action = acUseThisTranslation
Hint = 'Use this translation for all items'
end
- object Edit1: TTntMenuItem
- Action = acEdit
+ object acSync1: TTntMenuItem
+ Action = acSync
end
end
end
Modified: translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas
===================================================================
--- translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas 2006-12-13 10:31:30 UTC (rev 185)
@@ -43,6 +43,9 @@
Usethistranslation1: TTntMenuItem;
Edit1: TTntMenuItem;
chkSynchronizeAccelChar: TTntCheckBox;
+ acSync1: TTntMenuItem;
+ acSync: TTntAction;
+ N1: TTntMenuItem;
procedure chkIgnoreAccelCharClick(Sender: TObject);
procedure tvItemsChange(Sender: TObject; Node: TTreeNode);
procedure tvItemsEditing(Sender: TObject; Node: TTreeNode;
@@ -54,19 +57,17 @@
procedure acCloseExecute(Sender: TObject);
procedure acUpdateExecute(Sender: TObject);
procedure alMainUpdate(Action: TBasicAction; var Handled: Boolean);
- procedure tvItemsDblClick(Sender: TObject);
+ procedure acSyncExecute(Sender: TObject);
private
{ Private declarations }
Congratulations: WideString;
FItems: ITranslationItems;
FAppServices: IApplicationServices;
-
FSelectedItem: ITranslationItem;
procedure BuildList(IgnoreAccelChar: boolean);
procedure LoadSettings;
procedure SaveSettings;
function AutoShortCut(Item: ITranslationItem; S: WideString): WideString;
-
public
{ Public declarations }
class function Execute(const ApplicationServices: IApplicationServices;
@@ -313,7 +314,6 @@
try
chkIgnoreAccelChar.Checked := ReadBool('Settings', 'IgnoreAccelChar', chkIgnoreAccelChar.Checked);
chkSynchronizeAccelChar.Checked := ReadBool('Settings', 'SyncAccelChar', chkSynchronizeAccelChar.Checked);
-
finally
Free;
end;
@@ -419,7 +419,7 @@
acEdit.Enabled := acUseThisTranslation.Enabled;
end;
-procedure TfrmToolConsistency.tvItemsDblClick(Sender: TObject);
+procedure TfrmToolConsistency.acSyncExecute(Sender: TObject);
begin
if Assigned(tvItems.Selected) and Assigned(tvItems.Selected.Data) then
FAppServices.SelectedItem := ITranslationItem(tvItems.Selected.Data);
Modified: translator/trunk/src/ToolKeyCheck/ToolKeyCheckFrm.dfm
===================================================================
--- translator/trunk/src/ToolKeyCheck/ToolKeyCheckFrm.dfm 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolKeyCheck/ToolKeyCheckFrm.dfm 2006-12-13 10:31:30 UTC (rev 185)
@@ -94,7 +94,7 @@
TabOrder = 1
ViewStyle = vsReport
OnColumnClick = lvItemsColumnClick
- OnDblClick = acSyncExecute
+ OnDblClick = acEditExecute
OnEnter = lvItemsEnter
OnInsert = lvItemsInsert
OnResize = lvItemsResize
@@ -114,7 +114,7 @@
43)
object chkIgnoreEmpty: TTntCheckBox
Left = 18
- Top = 12
+ Top = 14
Width = 457
Height = 17
Caption = '&Ignore items without keys'
@@ -137,7 +137,7 @@
Left = 84
Top = 70
Bitmap = {
- 494C01010600090004000F000F00FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+ 494C01010600090004000F000F00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
00000000000036000000280000003C0000001E0000000100200000000000201C
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -373,11 +373,12 @@
FFFFFFFC00000000FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0F83FFDFFFFFFF7F0
F83FF8FFE0FFE3F0F83FF07FE0FFC1F0F83FE03E000F80F0C007C01F001F0070
E00F800F803E0030F01FF07FC07C0010F83FF07FE0FFC1F0FC7FF07FF1FFC1F0
- FEFFF07FFBFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0}
+ FEFFF07FFBFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0
+ 00000000000000000000000000000000000000000000}
end
object alMain: TTntActionList
- Left = 126
- Top = 70
+ Left = 142
+ Top = 78
object acUpdate: TTntAction
Caption = '&Update'
ShortCut = 116
@@ -397,19 +398,20 @@
end
object acSync: TTntAction
Caption = 'Show in main list'
+ ShortCut = 16416
OnExecute = acSyncExecute
end
end
object popListView: TTntPopupMenu
- Left = 224
- Top = 63
+ Left = 208
+ Top = 79
+ object Edit1: TTntMenuItem
+ Action = acEdit
+ Default = True
+ end
object Showinmainlist1: TTntMenuItem
Action = acSync
- Default = True
end
- object Edit1: TTntMenuItem
- Action = acEdit
- end
object N1: TTntMenuItem
Caption = '-'
end
Modified: translator/trunk/src/ToolListEdit/ToolItemEditFrm.dfm
===================================================================
--- translator/trunk/src/ToolListEdit/ToolItemEditFrm.dfm 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolListEdit/ToolItemEditFrm.dfm 2006-12-13 10:31:30 UTC (rev 185)
@@ -14,6 +14,7 @@
Font.Style = []
KeyPreview = True
OldCreateOrder = False
+ OnKeyDown = TntFormKeyDown
OnKeyUp = TntFormKeyUp
PixelsPerInch = 96
TextHeight = 13
Modified: translator/trunk/src/ToolListEdit/ToolItemEditFrm.pas
===================================================================
--- translator/trunk/src/ToolListEdit/ToolItemEditFrm.pas 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolListEdit/ToolItemEditFrm.pas 2006-12-13 10:31:30 UTC (rev 185)
@@ -15,8 +15,11 @@
Shift: TShiftState);
procedure TntFormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
+ procedure TntFormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
private
{ Private declarations }
+ ReturnKey:boolean;
public
{ Public declarations }
class function Edit(const AItem:ITranslationItem; APos:TPoint):boolean;
@@ -70,13 +73,22 @@
procedure TfrmEditItem.TntFormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
- if Key = VK_RETURN then
+ if ReturnKey and (Key = VK_RETURN) then
begin
Key := 0;
ModalResult := mrOK;
end
else if Key = VK_ESCAPE then
ModalResult := mrCancel;
+ ReturnKey := false;
end;
+procedure TfrmEditItem.TntFormKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ ReturnKey := false;
+ if Key = VK_RETURN then
+ ReturnKey := true;
+end;
+
end.
\ No newline at end of file
Modified: translator/trunk/src/ToolListEdit/ToolListEditFrm.dfm
===================================================================
--- translator/trunk/src/ToolListEdit/ToolListEditFrm.dfm 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolListEdit/ToolListEditFrm.dfm 2006-12-13 10:31:30 UTC (rev 185)
@@ -89,9 +89,25 @@
ViewStyle = vsReport
OnAdvancedCustomDrawItem = lvItemsAdvancedCustomDrawItem
OnData = lvItemsData
- OnDblClick = lvItemsDblClick
+ OnDblClick = acEditExecute
OnEnter = lvItemsEnter
- OnKeyUp = lvItemsKeyUp
OnResize = lvItemsResize
end
+ object alMain: TTntActionList
+ Left = 144
+ Top = 96
+ object acEdit: TTntAction
+ Caption = 'Edit'
+ ShortCut = 113
+ SecondaryShortCuts.Strings = (
+ ''
+ 'Enter')
+ OnExecute = acEditExecute
+ end
+ object acClose: TTntAction
+ Caption = 'Close'
+ ShortCut = 27
+ OnExecute = acCloseExecute
+ end
+ end
end
Modified: translator/trunk/src/ToolListEdit/ToolListEditFrm.pas
===================================================================
--- translator/trunk/src/ToolListEdit/ToolListEditFrm.pas 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolListEdit/ToolListEditFrm.pas 2006-12-13 10:31:30 UTC (rev 185)
@@ -4,7 +4,8 @@
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, TntForms, TntComCtrls, TntGrids, ComCtrls, Grids, TransIntf;
+ Dialogs, TntForms, TntComCtrls, TntGrids, ComCtrls, Grids, TransIntf,
+ ActnList, TntActnList;
const
WM_EDITITEM = WM_USER + 101;
@@ -12,15 +13,17 @@
TfrmToolListEdit = class(TTntForm)
TntStatusBar1: TTntStatusBar;
lvItems: TTntListView;
+ alMain: TTntActionList;
+ acEdit: TTntAction;
+ acClose: TTntAction;
procedure lvItemsResize(Sender: TObject);
- procedure lvItemsDblClick(Sender: TObject);
- procedure lvItemsKeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
procedure lvItemsData(Sender: TObject; Item: TListItem);
procedure lvItemsAdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
procedure lvItemsEnter(Sender: TObject);
+ procedure acCloseExecute(Sender: TObject);
+ procedure acEditExecute(Sender: TObject);
private
{ Private declarations }
FItems: ITranslationItems;
@@ -90,21 +93,6 @@
lvItems.Columns[2].Width := W;
end;
-procedure TfrmToolListEdit.lvItemsDblClick(Sender: TObject);
-begin
- EditItem;
-end;
-
-procedure TfrmToolListEdit.lvItemsKeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- if Key = VK_RETURN then
- begin
- Key := 0;
- EditItem;
- end;
-end;
-
procedure TfrmToolListEdit.lvItemsData(Sender: TObject; Item: TListItem);
begin
if (Item <> nil) and (Item.Index >= 0) then
@@ -139,8 +127,17 @@
lvItems.Selected := lvItems.Items[0];
lvItems.Selected.Focused := true;
end;
+end;
+procedure TfrmToolListEdit.acCloseExecute(Sender: TObject);
+begin
+ Close;
end;
+procedure TfrmToolListEdit.acEditExecute(Sender: TObject);
+begin
+ EditItem;
+end;
+
end.
Modified: translator/trunk/src/ToolTreeView/ToolTreeViewFrm.dfm
===================================================================
--- translator/trunk/src/ToolTreeView/ToolTreeViewFrm.dfm 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolTreeView/ToolTreeViewFrm.dfm 2006-12-13 10:31:30 UTC (rev 185)
@@ -46,11 +46,13 @@
0007C0000007C0000007C0000007C0000007C0000007C0000007C0000007C000
0007C0000007C0000007C0000007C0000007C0000007C0000007C0000007C000
0007C0000007C0000007C0000007E000000FF24924BF}
+ KeyPreview = True
OldCreateOrder = False
PopupMenu = popTreeview
Position = poMainFormCenter
Scaled = False
ShowHint = True
+ OnKeyUp = TntFormKeyUp
OnResize = TntFormResize
PixelsPerInch = 96
TextHeight = 13
@@ -117,9 +119,8 @@
OnCustomDrawItem = tvSectionsCustomDrawItem
OnDblClick = tvSectionsDblClick
OnGetImageIndex = tvSectionsGetImageIndex
- OnKeyDown = tvSectionsKeyDown
OnKeyPress = tvSectionsKeyPress
- OnMouseUp = tvSectionsMouseUp
+ OnKeyUp = tvSectionsKeyUp
end
end
object nbViews: TNotebook
@@ -183,7 +184,6 @@
TabOrder = 0
WantReturns = False
WordWrap = False
- OnKeyDown = reOriginalKeyDown
end
end
object pnlBottomRight: TTntPanel
@@ -218,7 +218,8 @@
TabOrder = 0
WantReturns = False
WordWrap = False
- OnKeyDown = reOriginalKeyDown
+ OnKeyDown = reTranslationKeyDown
+ OnKeyUp = reTranslationKeyUp
end
end
end
Modified: translator/trunk/src/ToolTreeView/ToolTreeViewFrm.pas
===================================================================
--- translator/trunk/src/ToolTreeView/ToolTreeViewFrm.pas 2006-12-13 10:29:32 UTC (rev 184)
+++ translator/trunk/src/ToolTreeView/ToolTreeViewFrm.pas 2006-12-13 10:31:30 UTC (rev 185)
@@ -34,8 +34,6 @@
pnlBottomRight: TTntPanel;
lblTranslation: TTntLabel;
reTranslation: TTntRichEdit;
- procedure reOriginalKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
procedure tvSectionsChanging(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
procedure lvViewDblClick(Sender: TObject);
@@ -51,16 +49,20 @@
procedure lvViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure tvSectionsDblClick(Sender: TObject);
- procedure tvSectionsKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
procedure lvViewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure tvSectionsKeyPress(Sender: TObject; var Key: Char);
procedure lvViewKeyPress(Sender: TObject; var Key: Char);
procedure lvViewEnter(Sender: TObject);
- procedure tvSectionsMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
procedure TntFormResize(Sender: TObject);
+ procedure TntFormKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure reTranslationKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure tvSectionsKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure reTranslationKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
private
{ Private declarations }
procedure BuildTree(const Items: ITranslationItems; const SelectedItem: ITranslationItem);
@@ -164,17 +166,6 @@
end;
end;
-procedure TfrmToolTreeView.reOriginalKeyDown(Sender: TObject;
- var Key: Word; Shift: TShiftState);
-begin
- if Key = VK_RETURN then
- begin
- if tvSections.CanFocus then
- tvSections.SetFocus;
- Key := 0;
- end;
-end;
-
procedure TfrmToolTreeView.tvSectionsChanging(Sender: TObject;
Node: TTreeNode; var AllowChange: Boolean);
var I: ITranslationItem;
@@ -484,16 +475,6 @@
reTranslation.SelectAll;
end;
-procedure TfrmToolTreeView.tvSectionsKeyDown(Sender: TObject;
- var Key: Word; Shift: TShiftState);
-begin
- if Key = VK_RETURN then
- begin
- tvSectionsDblClick(Sender);
- Key := 0;
- end;
-end;
-
procedure TfrmToolTreeView.lvViewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
@@ -525,12 +506,6 @@
lvView.Selected.Focused := true;
end;
-procedure TfrmToolTreeView.tvSectionsMouseUp(Sender: TObject;
- Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- if Button = mbRight then
-end;
-
procedure TfrmToolTreeView.TntFormResize(Sender: TObject);
var i, j:integer;
begin
@@ -541,5 +516,40 @@
lvView.Columns[j].Width := i;
end;
+procedure TfrmToolTreeView.TntFormKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if (Key = VK_ESCAPE) then
+ Close;
+end;
+
+procedure TfrmToolTreeView.reTranslationKeyUp(Sender: TObject;
+ var Key: Word; Shift: TShiftState);
+begin
+ if Key = VK_RETURN then
+ begin
+ if tvSections.CanFocus then
+ tvSections.SetFocus;
+ Key := 0;
+ end;
+end;
+
+procedure TfrmToolTreeView.tvSectionsKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Key = VK_RETURN then
+ begin
+ tvSectionsDblClick(Sender);
+ Key := 0;
+ end;
+end;
+
+procedure TfrmToolTreeView.reTranslationKeyDown(Sender: TObject;
+ var Key: Word; Shift: TShiftState);
+begin
+ if Key = VK_RETURN then
+ Key := 0;
+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-14 00:46:01
|
Revision: 193
http://svn.sourceforge.net/initranslator/?rev=193&view=rev
Author: peter3
Date: 2006-12-13 16:46:01 -0800 (Wed, 13 Dec 2006)
Log Message:
-----------
- FastMM4 units added
Added Paths:
-----------
translator/trunk/src/FastMM4.pas
translator/trunk/src/FastMM4Messages.pas
translator/trunk/src/FastMM4Options.inc
Added: translator/trunk/src/FastMM4.pas
===================================================================
--- translator/trunk/src/FastMM4.pas (rev 0)
+++ translator/trunk/src/FastMM4.pas 2006-12-14 00:46:01 UTC (rev 193)
@@ -0,0 +1,7904 @@
+(*
+
+Fast Memory Manager 4.74
+
+Description:
+ A fast replacement memory manager for Borland Delphi Win32 applications that
+ scales well under multi-threaded usage, is not prone to memory fragmentation,
+ and supports shared memory without the use of external .DLL files.
+
+Homepage:
+ http://fastmm.sourceforge.net
+
+Advantages:
+ - Fast
+ - Low overhead. FastMM is designed for an average of 5% and maximum of 10%
+ overhead per block.
+ - Supports up to 3GB of user mode address space under Windows 32-bit and 4GB
+ under Windows 64-bit. Add the "$SetPEFlags $20" option (in curly braces)
+ to your .dpr to enable this.
+ - Highly aligned memory blocks. Can be configured for either 8-byte or 16-byte
+ alignment.
+ - Good scaling under multi-threaded applications
+ - Intelligent reallocations. Avoids slow memory move operations through
+ not performing unneccesary downsizes and by having a minimum percentage
+ block size growth factor when an in-place block upsize is not possible.
+ - Resistant to address space fragmentation
+ - No external DLL required when sharing memory between the application and
+ external libraries (provided both use this memory manager)
+ - Optionally reports memory leaks on program shutdown. (This check can be set
+ to be performed only if Delphi is currently running on the machine, so end
+ users won't be bothered by the error message.)
+ - Supports Delphi 4 (or later), C++ Builder 5 (or later), Kylix 3.
+
+Usage:
+ Delphi:
+ Place this unit as the very first unit under the "uses" section in your
+ project's .dpr file. When sharing memory between an application and a DLL
+ (e.g. when passing a long string or dynamic array to a DLL function), both the
+ main application and the DLL must be compiled using this memory manager (with
+ the required conditional defines set). There are some conditional defines
+ (inside FastMM4Options.inc) that may be used to tweak the memory manager. To
+ enable support for a user mode address space greater than 2GB you will have to
+ use the EditBin* tool to set the LARGE_ADDRESS_AWARE flag in the EXE header.
+ This informs Windows x64 or Windows 32-bit (with the /3GB option set) that the
+ application supports an address space larger than 2GB (up to 4GB). In Delphi 7
+ and later you can also specify this flag through the compiler directive
+ {$SetPEFlags $20}
+ *The EditBin tool ships with the MS Visual C compiler.
+ C++ Builder 6:
+ Refer to the instructions inside FastMM4BCB.cpp.
+
+License:
+ This work is copyright Professional Software Development / Pierre le Riche. It
+ is released under a dual license, and you may choose to use it under either the
+ Mozilla Public License 1.1 (MPL 1.1, available from
+ http://www.mozilla.org/MPL/MPL-1.1.html) or the GNU Lesser General Public
+ License 2.1 (LGPL 2.1, available from
+ http://www.opensource.org/licenses/lgpl-license.php). If you find FastMM useful
+ or you would like to support further development, a donation would be much
+ appreciated. My banking details are:
+ Country: South Africa
+ Bank: ABSA Bank Ltd
+ Branch: Somerset West
+ Branch Code: 334-712
+ Account Name: PSD (Distribution)
+ Account No.: 4041827693
+ Swift Code: ABSAZAJJ
+ My PayPal account is:
+ bo...@ps...
+
+Contact Details:
+ My contact details are shown below if you would like to get in touch with me.
+ If you use this memory manager I would like to hear from you: please e-mail me
+ your comments - good and bad.
+ Snailmail:
+ PO Box 2514
+ Somerset West
+ 7129
+ South Africa
+ E-mail:
+ pl...@ps...
+
+Support:
+ If you have trouble using FastMM, you are welcome to drop me an e-mail at the
+ address above, or you may post your questions in the BASM newsgroup on the
+ Borland news server (which is where I hang out quite frequently).
+
+Disclaimer:
+ FastMM has been tested extensively with both single and multithreaded
+ applications on various hardware platforms, but unfortunately I am not in a
+ position to make any guarantees. Use it at your own risk.
+
+Acknowledgements (for version 4):
+ - Eric Grange for his RecyclerMM on which the earlier versions of FastMM were
+ based. RecyclerMM was what inspired me to try and write my own memory
+ manager back in early 2004.
+ - Dennis Christensen for his tireless efforts with the Fastcode project:
+ helping to develop, optimize and debug the growing Fastcode library.
+ - Pierre Y. for his suggestions regarding the extension of the memory leak
+ checking options.
+ - Anders Isaksson and Greg for finding and identifying the "DelphiIsRunning"
+ bug under Delphi 5.
+ - Francois Malan for finding the bug that caused compilation to fail when
+ both the "AssumeMultiThreaded" and "CheckHeapForCorruption" options were set.
+ - Craig Peterson for helping me identify the cache associativity issues that
+ could arise due to medium blocks always being an exact multiple of 256 bytes.
+ Also for various other bug reports and enhancement suggestions.
+ - Jarek Karciarz, Vladimir Ulchenko (Vavan) and Bob Gonder for their help in
+ implementing the BCB support.
+ - Ben Taylor for his suggestion to display the object class of all memory
+ leaks.
+ - Jean Marc Eber and Vincent Mahon (the Memcheck guys) for the call stack
+ trace code and also the method used to catch virtual method calls on freed
+ objects.
+ - Nahan Hyn for the suggestion to be able to enable or disable memory leak
+ reporting through a global variable (the "ManualLeakReportingControl"
+ option.)
+ - Leonel Togniolli for various suggestions with regard to enhancing the bug
+ tracking features of FastMM and other helpful advice.
+ - Joe Bain and Leonel Togniolli for the workaround to QC#10922 affecting
+ compilation under Delphi 2005.
+ - Robert Marquardt for the suggestion to make localisation of FastMM easier by
+ having all string constants together.
+ - Simon Kissel and Fikret Hasovic for their help in implementing Kylix support.
+ - Matthias Thoma, Petr Vones, Robert Rossmair and the rest of the JCL team for
+ their debug info library used in the debug info support DLL and also the
+ code used to check for a valid call site in the "raw" stack trace code.
+ - Andreas Hausladen for the suggestion to use an external DLL to enable the
+ reporting of debug information.
+ - Alexander Tabakov for various good suggestions regarding the debugging
+ facilities of FastMM.
+ - M. Skloff for some useful suggestions and bringing to my attention some
+ compiler warnings.
+ - Martin Aignesberger for the code to use madExcept instead of the JCL library
+ inside the debug info support DLL.
+ - Diederik and Dennis Passmore for the suggestion to be able to register
+ expected leaks.
+ - Dario Tiraboschi and Mark Gebauer for pointing out the problems that occur
+ when range checking and complete boolean evaluation is turned on.
+ - Hanspeter Widmer for his suggestion to have an option to display install and
+ uninstall debug messages and moving options to a separate file.
+ - Arthur Hoornweg for notifying me of the image base being incorrect for
+ borlndmm.dll.
+ - Theo Carr-Brion and Hanspeter Widmer for finding the false alarm error
+ message "Block Header Has Been Corrupted" bug in FullDebugMode.
+ - Danny Heijl for reporting the compiler error in "release" mode.
+ - Omar Zelaya for reporting the BCB support regression bug.
+ - Dan Miser for various good suggestions, e.g. not logging expected leaks to
+ file, enhancements the stack trace and messagebox functionality, etc.
+ - Arjen de Ruijter for fixing the bug in GetMemoryLeakType that caused it
+ to not properly detect expected leaks registered by class when in
+ "FullDebugMode".
+ - Aleksander Oven for reporting the installation problem when trying to use
+ FastMM in an application together with libraries that all use runtime
+ packages.
+ - Kristofer Skaug for reporting the bug that sometimes causes the leak report
+ to be shown, even when all the leaks have been registered as expected leaks.
+ Also for some useful enhancement suggestions.
+ - G\xFCnther Schoch for the "RequireDebuggerPresenceForLeakReporting" option.
+ - Jan Schl\xFCter for the "ForceMMX" option.
+ - Hallvard Vassbotn for various good enhancement suggestions.
+ - Mark Edington for some good suggestions and bug reports.
+ - Paul Ishenin for reporting the compilation error when the NoMessageBoxes
+ option is set and also the missing call stack entries issue when "raw" stack
+ traces are enabled, as well as for the Russian translation.
+ - Cristian Nicola for reporting the compilation bug when the
+ CatchUseOfFreedInterfaces option was enabled (4.40).
+ - Mathias Rauen (madshi) for improving the support for madExcept in the debug
+ info support DLL.
+ - Roddy Pratt for the BCB5 support code.
+ - Rene Mihula for the Czech translation.
+ - Artur Redzko for the Polish translation.
+ - Bart van der Werf for helping me solve the DLL unload order problem when
+ using the debug mode borlndmm.dll library.
+ - JRG ("The Delphi Guy") for the Spanish translation.
+ - Justus Janssen for Delphi 4 support.
+ - Vadim Lopushansky and Charles Vinal for reporting the Delphi 5 compile error
+ in version 4.50.
+ - Johni Jeferson Capeletto for the Brazilian Portuguese translation.
+ - Kurt Fitzner for reporting the BCb6 compiler error in 4.52.
+ - Michal Niklas for reporting the Kylix compiler error in 4.54.
+ - Thomas Speck and Uwe Queisser for German translations.
+ - Zaenal Mutaqin for the Indonesian translation.
+ - Carlos Macao for the Portuguese translation.
+ - Michael Winter for catching the performance issue when reallocating certain
+ block sizes.
+ - dzmitry[li] for the Belarussian translation.
+ - Marcelo Montenegro for the updated Spanish translation.
+ - Jud Cole for finding and reporting the bug which may trigger a read access
+ violation when upsizing certain small block sizes together with the
+ "UseCustomVariableSizeMoveRoutines" option.
+ - Zdenek Vasku for reporting and fixing the memory manager sharing bug
+ affecting Windows 95/98/Me.
+ - RB Winston for suggesting the improvement to GExperts "backup" support.
+ - Thomas Schulz for reporting the bug affecting large address space support
+ under FullDebugMode.
+ - Luigi Sandon for the Italian translation.
+ - Primoz Gabrijelcic for helping to track down the RawStackTraces A/V bug.
+ - Werner Bochtler and Markus Beth for suggesting the
+ "NeverSleepOnThreadContention" option.
+ - JiYuan Xie for the Simplified Chinese translation.
+ - Andrey Shtukaturov for the updated Russian translation, as well as the
+ Ukrainian translation.
+ - Dimitry Timokhov for finding two elusive bugs in the memory leak class
+ detection code.
+ - Paulo Moreno for fixing the AllocMem bug in FullDebugMode that prevented
+ large blocks from being cleared.
+ - Everyone who have made donations. Thanks!
+ - Any other Fastcoders or supporters that I have forgotten, and also everyone
+ that helped with the older versions.
+
+Change log:
+ Version 1.00 (28 June 2004):
+ - First version (called PSDMemoryManager). Based on RecyclerMM (free block
+ stack approach) by Eric Grange.
+ Version 2.00 (3 November 2004):
+ - Complete redesign and rewrite from scratch. Name changed to FastMM to
+ reflect this fact. Uses a linked-list approach. Is faster, has less memory
+ overhead, and will now catch most bad pointers on FreeMem calls.
+ Version 3.00 (1 March 2005):
+ - Another rewrite. Reduced the memory overhead by: (a) not having a separate
+ memory area for the linked list of free blocks (uses space inside free
+ blocks themselves) (b) batch managers are allocated as part of chunks (c)
+ block size lookup table size reduced. This should make FastMM more CPU
+ cache friendly.
+ Version 4.00 (7 June 2005):
+ - Yet another rewrite. FastMM4 is in fact three memory managers in one: Small
+ blocks (up to a few KB) are managed through the binning model in the same
+ way as previous versions, medium blocks (from a few KB up to approximately
+ 256K) are allocated in a linked-list fashion, and large blocks are grabbed
+ directly from the system through VirtualAlloc. This 3-layered design allows
+ very fast operation with the most frequently used block sizes (small
+ blocks), while also minimizing fragmentation and imparting significant
+ overhead savings with blocks larger than a few KB.
+ Version 4.01 (8 June 2005):
+ - Added the options "RequireDebugInfoForLeakReporting" and
+ "RequireIDEPresenceForLeakReporting" as suggested by Pierre Y.
+ - Fixed the "DelphiIsRunning" function not working under Delphi 5, and
+ consequently no leak checking. (Reported by Anders Isaksson and Greg.)
+ Version 4.02 (8 June 2005):
+ - Fixed the compilation error when both the "AssumeMultiThreaded" and
+ "CheckHeapForCorruption options were set. (Reported by Francois Malan.)
+ Version 4.03 (9 June 2005):
+ - Added descriptive error messages when FastMM4 cannot be installed because
+ another MM has already been installed or memory has already been allocated.
+ Version 4.04 (13 June 2005):
+ - Added a small fixed offset to the size of medium blocks (previously always
+ exact multiples of 256 bytes). This makes performance problems due to CPU
+ cache associativity limitations much less likely. (Reported by Craig
+ Peterson.)
+ Version 4.05 (17 June 2005):
+ - Added the Align16Bytes option. Disable this option to drop the 16 byte
+ alignment restriction and reduce alignment to 8 bytes for the smallest
+ block sizes. Disabling Align16Bytes should lower memory consumption at the
+ cost of complicating the use of aligned SSE move instructions. (Suggested
+ by Craig Peterson.)
+ - Added a support unit for C++ Builder 6 - Add FastMM4BCB.cpp and
+ FastMM4.pas to your BCB project to use FastMM instead of the RTL MM. Memory
+ leak checking is not supported because (unfortunately) once an MM is
+ installed under BCB you cannot uninstall it... at least not without
+ modifying the RTL code in exit.c or patching the RTL code runtime. (Thanks
+ to Jarek Karciarz, Vladimir Ulchenko and Bob Gonder.)
+ Version 4.06 (22 June 2005):
+ - Displays the class of all leaked objects on the memory leak report and also
+ tries to identify leaked long strings. Previously it only displayed the
+ sizes of all leaked blocks. (Suggested by Ben Taylor.)
+ - Added support for displaying the sizes of medium and large block memory
+ leaks. Previously it only displayed details for small block leaks.
+ Version 4.07 (22 June 2005):
+ - Fixed the detection of the class of leaked objects not working under
+ Windows 98/Me.
+ Version 4.08 (27 June 2005):
+ - Added a BorlndMM.dpr project to allow you to build a borlndmm.dll that uses
+ FastMM4 instead of the default memory manager. You may replace the old
+ DLL in the Delphi \Bin directory to make the IDE use this memory manager
+ instead.
+ Version 4.09 (30 June 2005):
+ - Included a patch fix for the bug affecting replacement borlndmm.dll files
+ with Delphi 2005 (QC#14007). Compile the patch, close Delphi, and run it
+ once to patch your vclide90.bpl. You will now be able to use the
+ replacement borlndmm.dll to speed up the Delphi 2005 IDE as well.
+ Version 4.10 (7 July 2005):
+ - Due to QC#14070 ("Delphi IDE attempts to free memory after the shutdown
+ code of borlndmm.dll has been called"), FastMM cannot be uninstalled
+ safely when used inside a replacement borlndmm.dll for the IDE. Added a
+ conditional define "NeverUninstall" for this purpose.
+ - Added the "FullDebugMode" option to pad all blocks with a header and footer
+ to help you catch memory overwrite bugs in your applications. All blocks
+ returned to freemem are also zeroed out to help catch bugs involving the
+ use of previously freed blocks. Also catches attempts at calling virtual
+ methods of freed objects provided the block in question has not been reused
+ since the object was freed. Displays stack traces on error to aid debugging.
+ - Added the "LogErrorsToFile" option to log all errors to a text file in the
+ same folder as the application.
+ - Added the "ManualLeakReportingControl" option (suggested by Nahan Hyn) to
+ enable control over whether the memory leak report should be done or not
+ via a global variable.
+ Version 4.11 (7 July 2005):
+ - Fixed a compilation error under Delphi 2005 due to QC#10922. (Thanks to Joe
+ Bain and Leonel Togniolli.)
+ - Fixed leaked object classes not displaying in the leak report in
+ "FullDebugMode".
+ Version 4.12 (8 July 2005):
+ - Moved all the string constants to one place to make it easier to do
+ translations into other languages. (Thanks to Robert Marquardt.)
+ - Added support for Kylix. Some functionality is currently missing: No
+ support for detecting the object class on leaks and also no MM sharing.
+ (Thanks to Simon Kissel and Fikret Hasovic).
+ Version 4.13 (11 July 2005):
+ - Added the FastMM_DebugInfo.dll support library to display debug info for
+ stack traces.
+ - Stack traces for the memory leak report is now logged to the log file in
+ "FullDebugMode".
+ Version 4.14 (14 July 2005):
+ - Fixed string leaks not being detected as such in "FullDebugMode". (Thanks
+ to Leonel Togniolli.)
+ - Fixed the compilation error in "FullDebugMode" when "LogErrorsToFile" is
+ not set. (Thanks to Leonel Togniolli.)
+ - Added a "Release" option to allow the grouping of various options and to
+ make it easier to make debug and release builds. (Thanks to Alexander
+ Tabakov.)
+ - Added a "HideMemoryLeakHintMessage" option to not display the hint below
+ the memory leak message. (Thanks to Alexander Tabakov.)
+ - Changed the fill character for "FullDebugMode" from zero to $80 to be able
+ to differentiate between invalid memory accesses using nil pointers to
+ invalid memory accesses using fields of freed objects. FastMM tries to
+ reserve the 64K block starting at $80800000 at startup to ensure that an
+ A/V will occur when this block is accessed. (Thanks to Alexander Tabakov.)
+ - Fixed some compiler warnings. (Thanks to M. Skloff)
+ - Fixed some display bugs in the memory leak report. (Thanks to Leonel
+ Togniolli.)
+ - Added a "LogMemoryLeakDetailToFile" option. Some applications leak a lot of
+ memory and can make the log file grow very large very quickly.
+ - Added the option to use madExcept instead of the JCL Debug library in the
+ debug info support DLL. (Thanks to Martin Aignesberger.)
+ - Added procedures "GetMemoryManagerState" and "GetMemoryMap" to retrieve
+ statistics about the current state of the memory manager and memory pool.
+ (A usage tracker form together with a demo is also available.)
+ Version 4.15 (14 July 2005):
+ - Fixed a false 4GB(!) memory leak reported in some instances.
+ Version 4.16 (15 July 2005):
+ - Added the "CatchUseOfFreedInterfaces" option to catch the use of interfaces
+ of freed objects. This option is not compatible with checking that a freed
+ block has not been modified, so enable this option only when hunting an
+ invalid interface reference. (Only relevant if "FullDebugMode" is set.)
+ - During shutdown FastMM now checks that all free blocks have not been
+ modified since being freed. (Only when "FullDebugMode" is set and
+ "CatchUseOfFreedInterfaces" is disabled.)
+ Version 4.17 (15 July 2005):
+ - Added the AddExpectedMemoryLeaks and RemoveExpectedMemoryLeaks procedures to
+ register/unregister expected leaks, thus preventing the leak report from
+ displaying if only expected leaks occurred. (Thanks to Diederik and Dennis
+ Passmore for the suggestion.) (Note: these functions were renamed in later
+ versions.)
+ - Fixed the "LogMemoryLeakDetailToFile" not logging memory leak detail to file
+ as it is supposed to. (Thanks to Leonel Togniolli.)
+ Version 4.18 (18 July 2005):
+ - Fixed some issues when range checking or complete boolean evaluation is
+ switched on. (Thanks to Dario Tiraboschi and Mark Gebauer.)
+ - Added the "OutputInstallUninstallDebugString" option to display a message when
+ FastMM is installed or uninstalled. (Thanks to Hanspeter Widmer.)
+ - Moved the options to a separate include file. (Thanks to Hanspeter Widmer.)
+ - Moved message strings to a separate file for easy translation.
+ Version 4.19 (19 July 2005):
+ - Fixed Kylix support that was broken in 4.14.
+ Version 4.20 (20 July 2005):
+ - Fixed a false memory overwrite report at shutdown in "FullDebugMode". If you
+ consistently got a "Block Header Has Been Corrupted" error message during
+ shutdown at address $xxxx0070 then it was probably a false alarm. (Thanks to
+ Theo Carr-Brion and Hanspeter Widmer.}
+ Version 4.21 (27 July 2005):
+ - Minor change to the block header flags to make it possible to immediately
+ tell whether a medium block is being used as a small block pool or not.
+ (Simplifies the leak checking and status reporting code.)
+ - Expanded the functionality around the management of expected memory leaks.
+ - Added the "ClearLogFileOnStartup" option. Deletes the log file during
+ initialization. (Thanks to M. Skloff.)
+ - Changed "OutputInstallUninstallDebugString" to use OutputDebugString instead
+ of MessageBox. (Thanks to Hanspeter Widmer.)
+ Version 4.22 (1 August 2005):
+ - Added a FastAllocMem function that avoids an unnecessary FillChar call with
+ large blocks.
+ - Changed large block resizing behavior to be a bit more conservative. Large
+ blocks will be downsized if the new size is less than half of the old size
+ (the threshold was a quarter previously).
+ Version 4.23 (6 August 2005):
+ - Fixed BCB6 support (Thanks to Omar Zelaya).
+ - Renamed "OutputInstallUninstallDebugString" to "UseOutputDebugString", and
+ added debug string output on memory leak or error detection.
+ Version 4.24 (11 August 2005):
+ - Added the "NoMessageBoxes" option to suppress the display of message boxes,
+ which is useful for services that should not be interrupted. (Thanks to Dan
+ Miser).
+ - Changed the stack trace code to return the line number of the caller and not
+ the line number of the return address. (Thanks to Dan Miser).
+ Version 4.25 (15 August 2005):
+ - Fixed GetMemoryLeakType not detecting expected leaks registered by class
+ when in "FullDebugMode". (Thanks to Arjen de Ruijter).
+ Version 4.26 (18 August 2005):
+ - Added a "UseRuntimePackages" option that allows FastMM to be used in a main
+ application together with DLLs that all use runtime packages. (Thanks to
+ Aleksander Oven.)
+ Version 4.27 (24 August 2005):
+ - Fixed a bug that sometimes caused the leak report to be shown even though all
+ leaks were registered as expected leaks. (Thanks to Kristofer Skaug.)
+ Version 4.29 (30 September 2005):
+ - Added the "RequireDebuggerPresenceForLeakReporting" option to only display
+ the leak report if the application is run inside the IDE. (Thanks to G\xFCnther
+ Schoch.)
+ - Added the "ForceMMX" option, which when disabled will check the CPU for
+ MMX compatibility before using MMX. (Thanks to Jan Schl\xFCter.)
+ - Added the module name to the title of error dialogs to more easily identify
+ which application caused the error. (Thanks to Kristofer Skaug.)
+ - Added an ASCII dump to the "FullDebugMode" memory dumps. (Thanks to Hallvard
+ Vassbotn.)
+ - Added the option "HideExpectedLeaksRegisteredByPointer" to suppress the
+ display and logging of expected memory leaks that were registered by pointer.
+ (Thanks to Dan Miser.) Leaks registered by size or class are often ambiguous,
+ so these expected leaks are always logged to file (in FullDebugMode) and are
+ never hidden from the leak display (only displayed if there is at least one
+ unexpected leak).
+ - Added a procedure "GetRegisteredMemoryLeaks" to return a list of all
+ registered memory leaks. (Thanks to Dan Miser.)
+ - Added the "RawStackTraces" option to perform "raw" stack traces, negating
+ the need for stack frames. This will usually result in more complete stack
+ traces in FullDebugMode error reports, but it is significantly slower.
+ (Thanks to Hallvard Vassbotn, Dan Miser and the JCL team.)
+ Version 4.31 (2 October 2005):
+ - Fixed the crash bug when both "RawStackTraces" and "FullDebugMode" were
+ enabled. (Thanks to Dan Miser and Mark Edington.)
+ Version 4.33 (6 October 2005):
+ - Added a header corruption check to all memory blocks that are identified as
+ leaks in FullDebugMode. This allows better differentiation between memory
+ pool corruption bugs and actual memory leaks.
+ - Fixed the stack overflow bug when using "RawStackTraces".
+ Version 4.35 (6 October 2005):
+ - Fixed a compilation error when the "NoMessageBoxes" option is set. (Thanks
+ to Paul Ishenin.)
+ - Before performing a "raw" stack trace, FastMM now checks whether exception
+ handling is in place. If exception handling is not in place FastMM falls
+ back to stack frame tracing. (Exception handling is required to handle the
+ possible A/Vs when reading invalid call addresses. Exception handling is
+ usually always available except when SysUtils hasn't been initialized yet or
+ after SysUtils has been finalized.)
+ Version 4.37 (8 October 2005):
+ - Fixed the missing call stack trace entry issue when dynamically loading DLLs.
+ (Thanks to Paul Ishenin.)
+ Version 4.39 (12 October 2005):
+ - Restored the performance with "RawStackTraces" enabled back to the level it
+ was in 4.35.
+ - Fixed the stack overflow error when using "RawStackTraces" that I thought I
+ had fixed in 4.31, but unfortunately didn't. (Thanks to Craig Peterson.)
+ Version 4.40 (13 October 2005):
+ - Improved "RawStackTraces" to have less incorrect extra entries. (Thanks to
+ Craig Peterson.)
+ - Added the Russian (by Paul Ishenin) and Afrikaans translations of
+ FastMM4Messages.pas.
+ Version 4.42 (13 October 2005):
+ - Fixed the compilation error when "CatchUseOfFreedInterfaces" is enabled.
+ (Thanks to Cristian Nicola.)
+ Version 4.44 (25 October 2005):
+ - Implemented a FastGetHeapStatus function in analogy with GetHeapStatus.
+ (Suggested by Cristian Nicola.)
+ - Shifted more of the stack trace code over to the support dll to allow third
+ party vendors to make available their own stack tracing and stack trace
+ logging facilities.
+ - Mathias Rauen (madshi) improved the support for madExcept in the debug info
+ support DLL. Thanks!
+ - Added support for BCB5. (Thanks to Roddy Pratt.)
+ - Added the Czech translation by Rene Mihula.
+ - Added the "DetectMMOperationsAfterUninstall" option. This will catch
+ attempts to use the MM after FastMM has been uninstalled, and is useful for
+ debugging.
+ Version 4.46 (26 October 2005):
+ - Renamed FastMM_DebugInfo.dll to FastMM_FullDebugMode.dll and made the
+ dependency on this library a static one. This solves a DLL unload order
+ problem when using FullDebugMode together with the replacement
+ borlndmm.dll. (Thanks to Bart van der Werf.)
+ - Added the Polish translation by Artur Redzko.
+ Version 4.48 (10 November 2005):
+ - Fixed class detection for objects leaked in dynamically loaded DLLs that
+ were relocated.
+ - Fabio Dell'Aria implemented support for EurekaLog in the FullDebugMode
+ support DLL. Thanks!
+ - Added the Spanish translation by JRG ("The Delphi Guy").
+ Version 4.49 (10 November 2005):
+ - Implemented support for installing replacement AllocMem and leak
+ registration mechanisms for Delphi/BCB versions that support it.
+ - Added support for Delphi 4. (Thanks to Justus Janssen.)
+ Version 4.50 (5 December 2005):
+ - Renamed the ReportMemoryLeaks global variable to ReportMemoryLeaksOnShutdown
+ to be more consistent with the Delphi 2006 memory manager.
+ - Improved the handling of large blocks. Large blocks can now consist of
+ several consecutive segments allocated through VirtualAlloc. This
+ significantly improves speed when frequently resizing large blocks, since
+ these blocks can now often be upsized in-place.
+ Version 4.52 (7 December 2005):
+ - Fixed the compilation error with Delphi 5. (Thanks to Vadim Lopushansky and
+ Charles Vinal for reporting the error.)
+ Version 4.54 (15 December 2005):
+ - Added the Brazilian Portuguese translation by Johni Jeferson Capeletto.
+ - Fixed the compilation error with BCB6. (Thanks to Kurt Fitzner.)
+ Version 4.56 (20 December 2005):
+ - Fixed the Kylix compilation problem. (Thanks to Michal Niklas.)
+ Version 4.58 (1 February 2006):
+ - Added the German translations by Thomas Speck and Uwe Queisser.
+ - Added the Indonesian translation by Zaenal Mutaqin.
+ - Added the Portuguese translation by Carlos Macao.
+ Version 4.60 (21 February 2006):
+ - Fixed a performance issue due to an unnecessary block move operation when
+ allocating a block in the range 1261-1372 bytes and then reallocating it in
+ the range 1373-1429 bytes twice. (Thanks to Michael Winter.)
+ - Added the Belarussian translation by dzmitry[li].
+ - Added the updated Spanish translation by Marcelo Montenegro.
+ - Added a new option "EnableSharingWithDefaultMM". This option allows FastMM
+ to be shared with the default MM of Delphi 2006. It is on by default, but
+ MM sharing has to be enabled otherwise it has no effect (refer to the
+ documentation for the "ShareMM" and "AttemptToUseSharedMM" options).
+ Version 4.62 (22 February 2006):
+ - Fixed a possible read access violation ...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-14 00:48:39
|
Revision: 194
http://svn.sourceforge.net/initranslator/?rev=194&view=rev
Author: peter3
Date: 2006-12-13 16:48:38 -0800 (Wed, 13 Dec 2006)
Log Message:
-----------
Modified Paths:
--------------
translator/trunk/src/FastMM4.pas
translator/trunk/src/FastMM4Messages.pas
Modified: translator/trunk/src/FastMM4.pas
===================================================================
--- translator/trunk/src/FastMM4.pas 2006-12-14 00:46:01 UTC (rev 193)
+++ translator/trunk/src/FastMM4.pas 2006-12-14 00:48:38 UTC (rev 194)
@@ -568,6 +568,7 @@
type bugs).
*)
+// $Id:$
unit FastMM4;
Modified: translator/trunk/src/FastMM4Messages.pas
===================================================================
--- translator/trunk/src/FastMM4Messages.pas 2006-12-14 00:46:01 UTC (rev 193)
+++ translator/trunk/src/FastMM4Messages.pas 2006-12-14 00:48:38 UTC (rev 194)
@@ -7,6 +7,7 @@
}
unit FastMM4Messages;
+// $Id:$
interface
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-18 18:31:03
|
Revision: 202
http://svn.sourceforge.net/initranslator/?rev=202&view=rev
Author: peter3
Date: 2006-12-18 10:30:59 -0800 (Mon, 18 Dec 2006)
Log Message:
-----------
- SDFSplit: New utility for splitting and extracting languages from OpenOffice multi-language sdf files
Added Paths:
-----------
translator/trunk/src/SDFSplit/
translator/trunk/src/SDFSplit/MainFrm.dfm
translator/trunk/src/SDFSplit/MainFrm.pas
translator/trunk/src/SDFSplit/SDFSplit.dof
translator/trunk/src/SDFSplit/SDFSplit.dpr
translator/trunk/src/SDFSplit/SDFSplit.res
Added: translator/trunk/src/SDFSplit/MainFrm.dfm
===================================================================
--- translator/trunk/src/SDFSplit/MainFrm.dfm (rev 0)
+++ translator/trunk/src/SDFSplit/MainFrm.dfm 2006-12-18 18:30:59 UTC (rev 202)
@@ -0,0 +1,208 @@
+object frmMain: TfrmMain
+ Left = 199
+ Top = 172
+ BorderStyle = bsDialog
+ Caption = 'SDF Split and Extract'
+ ClientHeight = 206
+ ClientWidth = 506
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Shell Dlg 2'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ OnCloseQuery = FormCloseQuery
+ OnShow = FormShow
+ DesignSize = (
+ 506
+ 206)
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 8
+ Top = 16
+ Width = 40
+ Height = 13
+ Caption = 'SDF file:'
+ end
+ object Label2: TLabel
+ Left = 8
+ Top = 65
+ Width = 69
+ Height = 13
+ Caption = 'Output folder:'
+ end
+ object edSDFFile: TEdit
+ Left = 8
+ Top = 31
+ Width = 466
+ Height = 21
+ Anchors = [akLeft, akTop, akRight]
+ TabOrder = 0
+ end
+ object btnSDFFile: TButton
+ Left = 478
+ Top = 31
+ Width = 21
+ Height = 21
+ Anchors = [akTop, akRight]
+ Caption = '...'
+ TabOrder = 1
+ OnClick = btnSDFFileClick
+ end
+ object edSaveFolder: TEdit
+ Left = 8
+ Top = 80
+ Width = 466
+ Height = 21
+ Anchors = [akLeft, akTop, akRight]
+ TabOrder = 2
+ end
+ object btnSaveFolder: TButton
+ Left = 478
+ Top = 80
+ Width = 21
+ Height = 21
+ Anchors = [akTop, akRight]
+ Caption = '...'
+ TabOrder = 3
+ OnClick = btnSaveFolderClick
+ end
+ object btnOK: TButton
+ Left = 335
+ Top = 170
+ Width = 75
+ Height = 25
+ Anchors = [akRight, akBottom]
+ Caption = 'Split'
+ Default = True
+ ModalResult = 1
+ TabOrder = 7
+ OnClick = btnOKClick
+ end
+ object btnCancel: TButton
+ Left = 419
+ Top = 170
+ Width = 75
+ Height = 25
+ Anchors = [akRight, akBottom]
+ Cancel = True
+ Caption = 'Close'
+ ModalResult = 2
+ TabOrder = 8
+ OnClick = btnCancelClick
+ end
+ object chkExtractLanguage: TCheckBox
+ Left = 16
+ Top = 121
+ Width = 120
+ Height = 17
+ Caption = 'E&xtract language:'
+ TabOrder = 4
+ OnClick = chkExtractLanguageClick
+ end
+ object cbLanguages: TComboBox
+ Left = 147
+ Top = 119
+ Width = 145
+ Height = 21
+ Enabled = False
+ ItemHeight = 13
+ TabOrder = 5
+ Text = 'af'
+ Items.Strings = (
+ 'af'
+ 'ar'
+ 'as-IN'
+ 'be-BY'
+ 'bg'
+ 'br'
+ 'bs'
+ 'ca'
+ 'cs'
+ 'cy'
+ 'da'
+ 'el'
+ 'en-GB'
+ 'en-ZA'
+ 'eo'
+ 'es'
+ 'et'
+ 'fi'
+ 'fr'
+ 'ga'
+ 'gu'
+ 'gu-IN'
+ 'he'
+ 'hi-IN'
+ 'hr'
+ 'hu'
+ 'it'
+ 'ja'
+ 'ka'
+ 'km'
+ 'ko'
+ 'ku'
+ 'lt'
+ 'mk'
+ 'ml-IN'
+ 'mr-IN'
+ 'nb'
+ 'ne'
+ 'nl'
+ 'nn'
+ 'nr'
+ 'ns'
+ 'or-IN'
+ 'pa-IN'
+ 'pl'
+ 'pt'
+ 'pt-BR'
+ 'ru'
+ 'rw'
+ 'sh-YU'
+ 'sk'
+ 'sl'
+ 'sr-CS'
+ 'ss'
+ 'st'
+ 'sv'
+ 'sw-TZ'
+ 'ta'
+ 'ta-IN'
+ 'te-IN'
+ 'tg'
+ 'th'
+ 'ti-ER'
+ 'tn'
+ 'tr'
+ 'ts'
+ 'uk'
+ 'ur-IN'
+ 've'
+ 'vi'
+ 'xh'
+ 'zh-CN'
+ 'zh-TW'
+ 'zu')
+ end
+ object chkSortItems: TCheckBox
+ Left = 14
+ Top = 154
+ Width = 274
+ Height = 17
+ Caption = 'Sort items in output file(s)'
+ Checked = True
+ State = cbChecked
+ TabOrder = 6
+ end
+ object odSDFFile: TOpenDialog
+ DefaultExt = 'sdf'
+ Filter = 'SDF files|*.sdf|GSI files|*.gsi|All files|*.*'
+ InitialDir = '.'
+ Left = 147
+ Top = 7
+ end
+end
Added: translator/trunk/src/SDFSplit/MainFrm.pas
===================================================================
--- translator/trunk/src/SDFSplit/MainFrm.pas (rev 0)
+++ translator/trunk/src/SDFSplit/MainFrm.pas 2006-12-18 18:30:59 UTC (rev 202)
@@ -0,0 +1,319 @@
+unit MainFrm;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls;
+
+type
+ TfrmMain = class(TForm)
+ Label1: TLabel;
+ edSDFFile: TEdit;
+ btnSDFFile: TButton;
+ Label2: TLabel;
+ edSaveFolder: TEdit;
+ btnSaveFolder: TButton;
+ btnOK: TButton;
+ btnCancel: TButton;
+ odSDFFile: TOpenDialog;
+ chkExtractLanguage: TCheckBox;
+ cbLanguages: TComboBox;
+ chkSortItems: TCheckBox;
+ procedure btnOKClick(Sender: TObject);
+ procedure btnCancelClick(Sender: TObject);
+ procedure btnSDFFileClick(Sender: TObject);
+ procedure btnSaveFolderClick(Sender: TObject);
+ procedure chkExtractLanguageClick(Sender: TObject);
+ procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+ procedure FormShow(Sender: TObject);
+ private
+ { Private declarations }
+ procedure LoadSettings;
+ procedure SaveSettings;
+ procedure SplitFile(const Filename, OutputFolder: string; SortItems: boolean);
+ procedure ExtractFile(const Filename, OutputFolder, Language: string; SortItems: boolean);
+ public
+ { Public declarations }
+ end;
+
+var
+ frmMain: TfrmMain;
+
+implementation
+uses
+ FileCtrl, IniFiles;
+
+{$R *.dfm}
+
+procedure StrTokenize(const S: string; Delimiter: Char; List: TStrings; MinLength: integer = 1);
+var i, j: integer;
+ tmp: string;
+begin
+ j := 1;
+ for i := 1 to Length(S) do
+ begin
+ if (S[i] = Delimiter) then
+ begin
+ tmp := Copy(S, j, i - j);
+ if Length(tmp) >= MinLength then
+ List.Add(tmp);
+ j := i + 1;
+ end;
+ end;
+ if j <= Length(S) then
+ begin
+ tmp := Copy(S, j, MaxInt);
+ if Length(tmp) >= MinLength then
+ List.Add(tmp);
+ end;
+end;
+
+procedure TfrmMain.btnOKClick(Sender: TObject);
+begin
+ if not FileExists(edSDFFile.Text) then
+ ShowMessage('File does not exist')
+ else if not DirectoryExists(edSaveFolder.Text) then
+ ShowMessage('Output folder does not exist')
+ else if chkExtractLanguage.Checked then
+ begin
+ if cbLanguages.Text = '' then
+ begin
+ ShowMessage('No language specified');
+ Exit;
+ end;
+ ExtractFile(edSDFFile.Text, edSaveFolder.Text, cbLanguages.Text, chkSortItems.Checked);
+ ShowMessage('Done');
+ end
+ else
+ begin
+ SplitFile(edSDFFile.Text, edSaveFolder.Text, chkSortItems.Checked);
+ ShowMessage('Done');
+ end;
+end;
+
+function GetLanguage(S: string): string;
+var T: TStringlist;
+begin
+ T := TStringlist.Create;
+ try
+ StrTokenize(S, #9, T, 0);
+ if T.Count > 9 then
+ Result := T[9]
+ else
+ Result := '';
+ finally
+ T.Free;
+ end;
+end;
+
+procedure TfrmMain.SplitFile(const Filename, OutputFolder: string; SortItems: boolean);
+var
+ i, aStart, aIndex, aCount: integer;
+ S: TStringlist;
+ aFileNameTemplate, aBaseFolder, aCurrentFilename: string;
+ FFiles: array of TextFile;
+ FLanguages: TStringlist;
+
+ function GetLanguages(S: TStrings; i: integer): integer;
+ var
+ j: integer;
+ lang: string;
+ begin
+ for j := i to S.Count - 1 do
+ begin
+ lang := GetLanguage(S[j]);
+ if FLanguages.IndexOf(lang) > -1 then
+ begin
+ Result := FLanguages.Count;
+ Exit;
+ end
+ else
+ FLanguages.Add(lang);
+ end;
+ Result := 0;
+ end;
+begin
+ aBaseFolder := IncludeTrailingPathDelimiter(OutputFolder);
+ aFileNameTemplate := ExtractFileName(Filename);
+ S := TStringlist.Create;
+ FLanguages := TStringlist.Create;
+ try
+ FLanguages.Sorted := true;
+ S.LoadFromFile(Filename);
+ aStart := 0;
+ // skip empty and comment lines
+ while aStart < S.Count do
+ if (S[aStart] = '') or (S[aStart][1] = '#') then
+ Inc(aStart)
+ else
+ Break;
+ aCount := GetLanguages(S, aStart);
+ if aCount > 0 then
+ begin
+ SetLength(FFiles, aCount);
+ for i := 0 to aCount - 1 do
+ begin
+ // create a folder for each file, named like the language
+ ForceDirectories(aBaseFolder + FLanguages[i]);
+ aCurrentFilename := IncludeTrailingPathDelimiter(aBaseFolder + FLanguages[i]) + aFileNameTemplate;
+ // assign the filename to the file
+ // this assures that the index of a file in FFiles directly syncs up with the items in FLanguages,
+ // i.e they have the same index - THIS IS VERY IMPORTANT!
+ AssignFile(FFiles[i], aCurrentFilename);
+ Rewrite(FFiles[i]);
+ end;
+ // walk the source file, extract lines and put into correct file based on the language
+ for i := aStart to S.Count - 1 do
+ begin
+ aIndex := FLanguages.IndexOf(GetLanguage(S[i]));
+ if aIndex >= 0 then
+ Writeln(FFiles[aIndex], S[i]);
+ end;
+
+ if SortItems then
+ begin
+ // save the file names for later
+ FLanguages.Clear;
+ for i := 0 to aCount - 1 do
+ FLanguages.Add(TTextRec(FFiles[i]).Name);
+ end;
+ // close the files
+ for i := 0 to aCount - 1 do
+ begin
+ Flush(FFiles[i]);
+ CloseFile(FFiles[i]);
+ end;
+ SetLength(FFiles, 0);
+ if SortItems then
+ // sort the files
+ for i := 0 to aCount - 1 do
+ begin
+ S.LoadFromFile(FLanguages[i]);
+ S.Sort;
+ S.SaveToFile(FLanguages[i]);
+ end;
+ end;
+ finally
+ S.Free;
+ FLanguages.Free;
+ end;
+end;
+
+procedure TfrmMain.ExtractFile(const Filename, OutputFolder, Language: string; SortItems: boolean);
+var
+ i, aStart: integer;
+ S: TStringlist;
+ aFileNameTemplate, aBaseFolder, aCurrentFilename: string;
+ FFile: TextFile;
+begin
+ aBaseFolder := IncludeTrailingPathDelimiter(OutputFolder);
+ aFileNameTemplate := ExtractFileName(Filename);
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(Filename);
+ aStart := 0;
+ // skip empty and comment lines
+ while aStart < S.Count do
+ if (S[aStart] = '') or (S[aStart][1] = '#') then
+ Inc(aStart)
+ else
+ Break;
+ ForceDirectories(aBaseFolder + Language);
+ aCurrentFilename := IncludeTrailingPathDelimiter(aBaseFolder + Language) + aFileNameTemplate;
+ AssignFile(FFile, aCurrentFilename);
+ Rewrite(FFile);
+ try
+ for i := aStart to S.Count - 1 do
+ if AnsiSameText(Language, GetLanguage(S[i])) then
+ Writeln(FFile, S[i]);
+ finally
+ CloseFile(FFile);
+ end;
+ if SortItems then
+ begin
+ S.LoadFromFile(aCurrentFilename);
+ S.Sort;
+ S.SaveToFile(aCurrentFilename);
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+procedure TfrmMain.btnCancelClick(Sender: TObject);
+begin
+ Close;
+end;
+
+procedure TfrmMain.btnSDFFileClick(Sender: TObject);
+begin
+ odSDFFile.FileName := edSDFFile.Text;
+ if odSDFFile.Execute then
+ begin
+ edSDFFile.Text := odSDFFile.FileName;
+ if not DirectoryExists(edSaveFolder.Text) then
+ edSaveFolder.Text := ExtractFilePath(odSDFFile.FileName);
+ end;
+end;
+
+procedure TfrmMain.btnSaveFolderClick(Sender: TObject);
+var S: string;
+begin
+ S := edSaveFolder.Text;
+ if S = '' then
+ S := ExtractFilePath(edSDFFile.Text);
+ if SelectDirectory('Select output folder', '', S) then
+ edSDFFile.Text := S;
+end;
+
+procedure TfrmMain.chkExtractLanguageClick(Sender: TObject);
+begin
+ if chkExtractLanguage.Checked then
+ btnOK.Caption := 'Extract'
+ else
+ btnOK.Caption := 'Split';
+ cbLanguages.Enabled := chkExtractLanguage.Checked;
+end;
+
+procedure TfrmMain.LoadSettings;
+begin
+ with TIniFile.Create(ChangeFileExt(Application.Exename, '.ini')) do
+ try
+ edSDFFile.Text := ReadString('Settings', 'Filename','');
+ edSaveFolder.Text := ReadString('Settings', 'SaveFolder','');
+ chkExtractLanguage.Checked := ReadBool('Settings', 'ExtractLanguage',false);
+ chkSortItems.Checked := ReadBool('Settings', 'SortItems', true);
+ cbLanguages.Text := ReadString('Settings', 'Language','af');
+ finally
+ Free;
+ end;
+end;
+
+procedure TfrmMain.SaveSettings;
+begin
+ with TIniFile.Create(ChangeFileExt(Application.Exename, '.ini')) do
+ try
+ WriteString('Settings', 'Filename',edSDFFile.Text);
+ WriteString('Settings', 'SaveFolder',edSaveFolder.Text);
+ WriteBool('Settings', 'ExtractLanguage',chkExtractLanguage.Checked);
+ WriteBool('Settings', 'SortItems', chkSortItems.Checked);
+ WriteString('Settings', 'Language',cbLanguages.Text);
+ finally
+ Free;
+ end;
+end;
+
+procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+ SaveSettings;
+end;
+
+procedure TfrmMain.FormShow(Sender: TObject);
+begin
+ LoadSettings;
+ OnShow := nil;
+end;
+
+end.
+
Property changes on: translator/trunk/src/SDFSplit/MainFrm.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate LastChangedRevision LastChangedBy HeadURL Id
Added: translator/trunk/src/SDFSplit/SDFSplit.dof
===================================================================
--- translator/trunk/src/SDFSplit/SDFSplit.dof (rev 0)
+++ translator/trunk/src/SDFSplit/SDFSplit.dof 2006-12-18 18:30:59 UTC (rev 202)
@@ -0,0 +1,54 @@
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=..\..\bin
+UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1053
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
Added: translator/trunk/src/SDFSplit/SDFSplit.dpr
===================================================================
--- translator/trunk/src/SDFSplit/SDFSplit.dpr (rev 0)
+++ translator/trunk/src/SDFSplit/SDFSplit.dpr 2006-12-18 18:30:59 UTC (rev 202)
@@ -0,0 +1,13 @@
+program SDFSplit;
+
+uses
+ Forms,
+ MainFrm in 'MainFrm.pas' {frmMain};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.CreateForm(TfrmMain, frmMain);
+ Application.Run;
+end.
Property changes on: translator/trunk/src/SDFSplit/SDFSplit.dpr
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate LastChangedRevision LastChangedBy HeadURL Id
Added: translator/trunk/src/SDFSplit/SDFSplit.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/SDFSplit/SDFSplit.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-18 19:26:39
|
Revision: 207
http://svn.sourceforge.net/initranslator/?rev=207&view=rev
Author: peter3
Date: 2006-12-18 11:26:35 -0800 (Mon, 18 Dec 2006)
Log Message:
-----------
- New BDS 2006 projects added
Added Paths:
-----------
translator/trunk/src/SDFSplit/SDFSplit.bdsproj
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.bdsproj
translator/trunk/src/ToolTrim/ToolTrim.bdsproj
Added: translator/trunk/src/SDFSplit/SDFSplit.bdsproj
===================================================================
--- translator/trunk/src/SDFSplit/SDFSplit.bdsproj (rev 0)
+++ translator/trunk/src/SDFSplit/SDFSplit.bdsproj 2006-12-18 19:26:35 UTC (rev 207)
@@ -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">{FDBE0361-DF0B-4716-AC46-4F287EF70CEB}</Option>
+ </Option>
+ </PersonalityInfo>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">SDFSplit.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">0</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</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">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1053</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+ <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+ <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+ <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+</BorlandProject>
Added: translator/trunk/src/ToolKeyCheck/ToolKeyCheck.bdsproj
===================================================================
--- translator/trunk/src/ToolKeyCheck/ToolKeyCheck.bdsproj (rev 0)
+++ translator/trunk/src/ToolKeyCheck/ToolKeyCheck.bdsproj 2006-12-18 19:26:35 UTC (rev 207)
@@ -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">{9552CD49-20DD-403D-A9C5-5223C766587A}</Option>
+ </Option>
+ </PersonalityInfo>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">ToolKeyCheck.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">True</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">C:\Program Files\Borland\projects\Private\translator\trunk\bin\translator.exe</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">True</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">9</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</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">1053</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">Peter Thörnqvist</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">Tool Key Check plugin for IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName">ToolKeyCheck.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalCopyright">Copyright (c) 2003-2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+ <VersionInfoKeys Name="OriginalFilename">ToolKeyCheck.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductName">IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductVersion">1.9.0.13</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments">Latest version from http://initranslator.sourceforge.net</VersionInfoKeys>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+</BorlandProject>
Added: translator/trunk/src/ToolTrim/ToolTrim.bdsproj
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrim.bdsproj (rev 0)
+++ translator/trunk/src/ToolTrim/ToolTrim.bdsproj 2006-12-18 19:26:35 UTC (rev 207)
@@ -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">{2C71A3AE-667F-4D1E-8856-40183343989E}</Option>
+ </Option>
+ </PersonalityInfo>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">ToolTrim.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">C:\Program Files\Borland\projects\Private\translator\trunk\bin\translator.exe</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">0</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 Trim Plugin for IniTranslator</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">1.9.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName">ToolTrim.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalCopyright">Copyright (c) 2006 by Peter Thörnqvist; all rights reserved</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+ <VersionInfoKeys Name="OriginalFilename">ToolTrim.dll</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductName">Tool Trim 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>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-19 00:06:36
|
Revision: 210
http://svn.sourceforge.net/initranslator/?rev=210&view=rev
Author: peter3
Date: 2006-12-18 16:06:37 -0800 (Mon, 18 Dec 2006)
Log Message:
-----------
- PreviewExportForm now supports wordwrap
Modified Paths:
--------------
translator/trunk/src/PluginCommon/PreviewExportFrm.pas
translator/trunk/src/SDFSplit/MainFrm.pas
Modified: translator/trunk/src/PluginCommon/PreviewExportFrm.pas
===================================================================
--- translator/trunk/src/PluginCommon/PreviewExportFrm.pas 2006-12-19 00:03:21 UTC (rev 209)
+++ translator/trunk/src/PluginCommon/PreviewExportFrm.pas 2006-12-19 00:06:37 UTC (rev 210)
@@ -49,9 +49,9 @@
public
{ Public declarations }
class function Execute(var FileName: string; const ACaption, Filter, InitialDir, DefaultExt: string;
- Preview: TTntStrings): boolean; overload;
+ Preview: TTntStrings; WordWrap:boolean = false): boolean; overload;
class function Execute(const ApplicationServices: IApplicationServices; var FileName: string;
- const ACaption, Filter, InitialDir, DefaultExt: string; Preview: TTntStrings): boolean; overload;
+ const ACaption, Filter, InitialDir, DefaultExt: string; Preview: TTntStrings; WordWrap:boolean = false): boolean; overload;
function GetString(out Section: WideString; out Name: WideString; out Value: WideString): WordBool; safecall;
end;
@@ -71,9 +71,9 @@
class function TfrmExport.Execute(var FileName: string;
const ACaption, Filter, InitialDir, DefaultExt: string;
- Preview: TTntStrings): boolean;
+ Preview: TTntStrings; WordWrap:boolean = false): boolean;
begin
- Result := Execute(nil, Filename, ACaption, Filter, InitialDir, DefaultExt, Preview);
+ Result := Execute(nil, Filename, ACaption, Filter, InitialDir, DefaultExt, Preview, WordWrap);
end;
procedure TfrmExport.btnBrowseClick(Sender: TObject);
@@ -90,7 +90,7 @@
function TfrmExport.OverwriteOK: boolean;
begin
Result := FHasPrompted or not FileExists(edFilename.Text) or
- (WideMessageBox(Handle, PWideChar(Translate(Format(SFmtOverwriteOK, [edFilename.Text]))), PWideChar(Translate(SConfirm)), MB_YESNO or MB_TASKMODAl or MB_ICONQUESTION) = IDYES);
+ (WideMessageBox(Handle, PWideChar(Translate(WideFormat(SFmtOverwriteOK, [edFilename.Text]))), PWideChar(Translate(SConfirm)), MB_YESNO or MB_TASKMODAl or MB_ICONQUESTION) = IDYES);
end;
procedure TfrmExport.LoadSettings;
@@ -191,7 +191,7 @@
class function TfrmExport.Execute(const ApplicationServices: IApplicationServices; var FileName: string;
const ACaption, Filter, InitialDir, DefaultExt: string;
- Preview: TTntStrings): boolean;
+ Preview: TTntStrings; WordWrap:boolean = false): boolean;
var
frmExport: TfrmExport;
begin
@@ -213,6 +213,7 @@
SaveDialog1.InitialDir := InitialDir;
SaveDialog1.DefaultExt := DefaultExt;
edFilename.Text := Filename;
+ rePreview.WordWrap := WordWrap;
rePreview.Lines := Preview;
rePreview.SelStart := 0;
SendMessage(rePreview.Handle, EM_SCROLLCARET, 0, 0);
Modified: translator/trunk/src/SDFSplit/MainFrm.pas
===================================================================
--- translator/trunk/src/SDFSplit/MainFrm.pas 2006-12-19 00:03:21 UTC (rev 209)
+++ translator/trunk/src/SDFSplit/MainFrm.pas 2006-12-19 00:06:37 UTC (rev 210)
@@ -60,9 +60,11 @@
frmMain: TfrmMain;
implementation
+
uses
- FileCtrl, IniFiles;
+ {$WARN UNIT_PLATFORM OFF}FileCtrl, {$WARN UNIT_PLATFORM ON} IniFiles;
+
{$R *.dfm}
procedure StrTokenize(const S: string; Delimiter: Char; List: TStrings; MinLength: integer = 1);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-20 17:24:11
|
Revision: 220
http://svn.sourceforge.net/initranslator/?rev=220&view=rev
Author: peter3
Date: 2006-12-20 09:24:11 -0800 (Wed, 20 Dec 2006)
Log Message:
-----------
- Memory leak in MsgTranslate fixed
Modified Paths:
--------------
translator/trunk/src/MsgTranslate.pas
translator/trunk/src/POPlugin/POExportFrm.pas
translator/trunk/src/POPlugin/POParserConsts.pas
translator/trunk/src/POPlugin/POParserImpl.pas
Modified: translator/trunk/src/MsgTranslate.pas
===================================================================
--- translator/trunk/src/MsgTranslate.pas 2006-12-20 15:13:45 UTC (rev 219)
+++ translator/trunk/src/MsgTranslate.pas 2006-12-20 17:24:11 UTC (rev 220)
@@ -252,55 +252,60 @@
begin
ASection := '';
Count := GetPropList(AnObject, PropList);
- for j := 0 to Count - 1 do
- begin
- PropInfo := PropList[j];
- PropName := UpperCase(PropInfo^.Name);
- if InSkipList(PropName) or not DoWriting(AnObject, PropName) then
- Continue;
- try
- case PropInfo^.PropType^.Kind of
- tkString, tkLString, tkWString:
- begin
- AValue := GetWideStrProp(AnObject, PropName);
- if (trim(AValue) <> '') and (IsWriteProp(PropInfo)) then
+ try
+ for j := 0 to Count - 1 do
+ begin
+ PropInfo := PropList[j];
+ PropName := UpperCase(PropInfo^.Name);
+ if InSkipList(PropName) or not DoWriting(AnObject, PropName) then
+ Continue;
+ try
+ case PropInfo^.PropType^.Kind of
+ tkString, tkLString, tkWString:
begin
- AName := EncodeStrings(AValue);
- DoWriteObject(AnObject, PropName, ASection, AName, AValue);
- if (ASection <> '') and (AName <> '') then
- IniFile.WriteString(ASection, EncodeStrings(AName), EncodeStrings(AValue));
+ AValue := GetWideStrProp(AnObject, PropName);
+ if (trim(AValue) <> '') and (IsWriteProp(PropInfo)) then
+ begin
+ AName := EncodeStrings(AValue);
+ DoWriteObject(AnObject, PropName, ASection, AName, AValue);
+ if (ASection <> '') and (AName <> '') then
+ IniFile.WriteString(ASection, EncodeStrings(AName), EncodeStrings(AValue));
+ end;
end;
- end;
- tkClass:
- begin
- sl := GetObjectProp(AnObject, PropName);
- if (sl = nil) then
- Continue;
+ tkClass:
+ begin
+ sl := GetObjectProp(AnObject, PropName);
+ if (sl = nil) then
+ Continue;
// Check for TStrings translation
- if sl is TStrings then
- begin
- AValue := EncodeStrings(TStrings(sl).Text);
- AName := AValue;
- DoWriteObject(AnObject, PropName, ASection, AName, AValue);
- if (ASection <> '') and (AName <> '') then
- IniFile.WriteString(ASection, EncodeStrings(AName), EncodeStrings(AValue));
- end
- else if sl is TTntStrings then
- begin
- AValue := EncodeStrings(TTntStrings(sl).Text);
- AName := AValue;
- DoWriteObject(AnObject, PropName, ASection, AName, AValue);
- if (ASection <> '') and (AName <> '') then
- IniFile.WriteString(ASection, EncodeStrings(AName), EncodeStrings(AValue));
- end
- else if sl is TCollection then
- for i := 0 to TCollection(sl).Count - 1 do
- WriteTranslationSub(IniFile, TCollection(sl).Items[i]);
- end;
- end; // case
- except
+ if sl is TStrings then
+ begin
+ AValue := EncodeStrings(TStrings(sl).Text);
+ AName := AValue;
+ DoWriteObject(AnObject, PropName, ASection, AName, AValue);
+ if (ASection <> '') and (AName <> '') then
+ IniFile.WriteString(ASection, EncodeStrings(AName), EncodeStrings(AValue));
+ end
+ else if sl is TTntStrings then
+ begin
+ AValue := EncodeStrings(TTntStrings(sl).Text);
+ AName := AValue;
+ DoWriteObject(AnObject, PropName, ASection, AName, AValue);
+ if (ASection <> '') and (AName <> '') then
+ IniFile.WriteString(ASection, EncodeStrings(AName), EncodeStrings(AValue));
+ end
+ else if sl is TCollection then
+ for i := 0 to TCollection(sl).Count - 1 do
+ WriteTranslationSub(IniFile, TCollection(sl).Items[i]);
+ end;
+ end; // case
+ except
//
+ end;
end;
+ finally
+ if Count > 0 then
+ FreeMem(PropList);
end;
end;
if AnObject is TComponent then
Modified: translator/trunk/src/POPlugin/POExportFrm.pas
===================================================================
--- translator/trunk/src/POPlugin/POExportFrm.pas 2006-12-20 15:13:45 UTC (rev 219)
+++ translator/trunk/src/POPlugin/POExportFrm.pas 2006-12-20 17:24:11 UTC (rev 220)
@@ -99,6 +99,7 @@
lblFileName.Caption := Translate(SFileNameLabel);
lblPreview.Caption := Translate(SPreviewLabel);
chkCompileMO.Caption := Translate(SCompileMOCaption);
+ edMOCmdLine.Hint := Translate(SCompileMOHint);
btnBrowse.Caption := Translate(SBrowseCaption);
btnOK.Caption := Translate(SOK);
btnCancel.Caption := Translate(SCancel);
Modified: translator/trunk/src/POPlugin/POParserConsts.pas
===================================================================
--- translator/trunk/src/POPlugin/POParserConsts.pas 2006-12-20 15:13:45 UTC (rev 219)
+++ translator/trunk/src/POPlugin/POParserConsts.pas 2006-12-20 17:24:11 UTC (rev 220)
@@ -40,6 +40,7 @@
SFileNameLabel = '&Filename:';
SPreviewLabel = '&Preview (editable):';
SCompileMOCaption = 'Compile to &MO:';
+ SCompileMOHint = 'Command-line to invoke the MO compiler (msgfmt.exe by default).\r\nUse "%i" to insert the filename in "Filename" as the file to compile and use "%o" to change the input file extension to .mo.';
SBrowseCaption = '...';
SOK = 'OK';
SCancel = 'Cancel';
Modified: translator/trunk/src/POPlugin/POParserImpl.pas
===================================================================
--- translator/trunk/src/POPlugin/POParserImpl.pas 2006-12-20 15:13:45 UTC (rev 219)
+++ translator/trunk/src/POPlugin/POParserImpl.pas 2006-12-20 17:24:11 UTC (rev 220)
@@ -298,6 +298,7 @@
begin
S.Text := UTF8Encode(S.Text);
S.AnsiStrings.SaveToFile(FFilename);
+ Result := S_OK;
if FCompileMO then
begin
CmdLine := StringReplace(FCmdLine, '%i', FFilename, []);
@@ -305,7 +306,6 @@
if WinExec32AndWait(CmdLine, SW_SHOWNORMAL) > 31 then
RaiseLastOSError;
end;
- Result := S_OK;
end;
SaveSettings;
finally
@@ -428,6 +428,7 @@
8: Value := SBrowseCaption;
9: Value := SOK;
10: Value := SCancel;
+ 11: Value := SCompileMOHint;
else
Result := false;
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-25 17:31:23
|
Revision: 230
http://svn.sourceforge.net/initranslator/?rev=230&view=rev
Author: peter3
Date: 2006-12-25 09:31:22 -0800 (Mon, 25 Dec 2006)
Log Message:
-----------
- New Delphi Project Wizard to create plugin skeleton
Added Paths:
-----------
translator/trunk/src/PluginWizard/
translator/trunk/src/PluginWizard/FilePluginProject.txt
translator/trunk/src/PluginWizard/FilePluginUnit.txt
translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk
translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.res
translator/trunk/src/PluginWizard/PluginOptions.pas
translator/trunk/src/PluginWizard/PluginWizardForm.dfm
translator/trunk/src/PluginWizard/PluginWizardForm.pas
translator/trunk/src/PluginWizard/PluginsDesign.pas
translator/trunk/src/PluginWizard/ToolPluginProject.txt
translator/trunk/src/PluginWizard/ToolPluginUnit.txt
translator/trunk/src/PluginWizard/includes.rc
Added: translator/trunk/src/PluginWizard/FilePluginProject.txt
===================================================================
--- translator/trunk/src/PluginWizard/FilePluginProject.txt (rev 0)
+++ translator/trunk/src/PluginWizard/FilePluginProject.txt 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,33 @@
+{
+ Copyright \xA9 2003-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: $
+library %project%;
+
+uses
+ TransIntf in '%transpath%';
+
+{$R *.res}
+
+function InstallPlugin(out Parser:IFileParser):HResult;stdcall;
+begin
+ Parser := %pluginclassname%.Create;
+ Result := S_OK;
+end;
+
+exports InstallPlugin name cRegisterTransFileParserFuncName;
+
+begin
+end.
\ No newline at end of file
Property changes on: translator/trunk/src/PluginWizard/FilePluginProject.txt
___________________________________________________________________
Name: svn:eol-style
+ native
Added: translator/trunk/src/PluginWizard/FilePluginUnit.txt
===================================================================
--- translator/trunk/src/PluginWizard/FilePluginUnit.txt (rev 0)
+++ translator/trunk/src/PluginWizard/FilePluginUnit.txt 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,147 @@
+{
+ Copyright \xA9 2003-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 %unit%;
+
+interface
+uses
+ Classes, Types, TransIntf;
+
+type
+ %pluginclassname% = class(TInterfacedObject, IUnknown, IFileParser, ILocalizable)
+ private
+ FCount:integer;
+ FAppServices: IApplicationServices;
+ procedure LoadSettings;
+ procedure SaveSettings;
+ function Translate(const Value: WideString): WideString;
+ public
+ function Capabilities: integer; safecall;
+ function Configure(Capability: integer): HRESULT; safecall;
+ function DisplayName(Capability: integer): WideString; safecall;
+ function ExportItems(const Items, Orphans: ITranslationItems): HRESULT; safecall;
+ function ImportItems(const Items, Orphans: ITranslationItems): HRESULT; safecall;
+ procedure Init(const ApplicationServices: IApplicationServices); safecall;
+ function GetString(out Section, Name, Value: WideString): WordBool; safecall;
+ end;
+
+implementation
+uses
+ SysUtils, IniFiles;
+
+const
+ cExportTitle = 'Export to %title%';
+ cImportTitle = 'Import from %title%';
+ cConfigure = 'Configure %title%';
+
+{ %pluginclassname% }
+
+function %pluginclassname%.Capabilities: integer;
+begin
+ Result := CAP_IMPORT or CAP_EXPORT or CAP_CONFIGURE;
+end;
+
+function %pluginclassname%.Configure(Capability: integer): HRESULT;
+begin
+ Result := S_OK;
+end;
+
+function %pluginclassname%.DisplayName(Capability: integer): WideString;
+begin
+ case Capability of
+ CAP_IMPORT:
+ Result := Translate(cImportTitle);
+ CAP_EXPORT:
+ Result := Translate(cExportTitle);
+ CAP_CONFIGURE:
+ Result := Translate(cConfigure);
+ end;
+end;
+
+function %pluginclassname%.ExportItems(const Items, Orphans: ITranslationItems): HRESULT;
+begin
+ Result := S_FALSE;
+ LoadSettings;
+ try
+ // TODO: implement import
+ finally
+ SaveSettings;
+ end;
+end;
+
+function %pluginclassname%.GetString(out Section, Name, Value: WideString): WordBool;
+begin
+ Result := true;
+ case FCount of
+ 0: Value := cExportTitle;
+ 1: Value := cImportTitle;
+ 2: Value := cConfigure;
+ // TODO: add more strings if required
+ else
+ Result := false;
+ FCount := 0;
+ end;
+ if Result then
+ Inc(FCount);
+ Section := ClassName;
+ Name := Value;
+end;
+
+function %pluginclassname%.ImportItems(const Items, Orphans: ITranslationItems): HRESULT;
+begin
+ Result := S_FALSE;
+ LoadSettings;
+ try
+ // TODO: implement import
+ finally
+ SaveSettings;
+ end;
+end;
+
+procedure %pluginclassname%.Init(const ApplicationServices: IApplicationServices);
+begin
+ FAppServices := ApplicationServices;
+end;
+
+procedure %pluginclassname%.LoadSettings;
+begin
+ with TIniFile.Create(ChangeFileExt(GetModuleName(HInstance), '.ini')) do
+ try
+ // TODO: implement loading settings
+ finally
+ Free;
+ end;
+end;
+
+procedure %pluginclassname%.SaveSettings;
+begin
+ with TIniFile.Create(ChangeFileExt(GetModuleName(HInstance), '.ini')) do
+ try
+ // TODO: implement saving settings
+ finally
+ Free;
+ end;
+end;
+
+function %pluginclassname%.Translate(const Value: WideString): WideString;
+begin
+ if FAppServices <> nil then
+ Result := FAppServices.Translate(ClassName, Value, Value)
+ else
+ Result := Value;
+end;
+
+end.
Property changes on: translator/trunk/src/PluginWizard/FilePluginUnit.txt
___________________________________________________________________
Name: svn:eol-style
+ native
Added: translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk
===================================================================
--- translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk (rev 0)
+++ translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,41 @@
+package IniTranslatorPluginWizard;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'IniTranslator Plugin Wizard'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+ rtl,
+ designide,
+ TntUnicodeVcl_R70;
+
+{%RC 'includes.rc'}
+
+contains
+ PluginsDesign in 'PluginsDesign.pas',
+ PluginWizardForm in 'PluginWizardForm.pas' {frmTranslatorPluginWizard},
+ PluginOptions in 'PluginOptions.pas';
+
+end.
Added: translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/src/PluginWizard/PluginOptions.pas
===================================================================
--- translator/trunk/src/PluginWizard/PluginOptions.pas (rev 0)
+++ translator/trunk/src/PluginWizard/PluginOptions.pas 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,69 @@
+unit PluginOptions;
+
+interface
+
+type
+ TPluginOptions = class
+ private
+ procedure LoadSettings;
+ procedure SaveSettings;
+ public
+ PluginClassName:string;
+ ProjectName:string;
+ UnitName:string;
+ TransIntfPath:string;
+ Title:string;
+ IsFileParser:boolean;
+ constructor Create;
+ destructor Destroy;override;
+ end;
+
+implementation
+uses
+ Registry;
+
+{ TPluginOptions }
+
+constructor TPluginOptions.Create;
+begin
+ inherited;
+ LoadSettings;
+end;
+
+destructor TPluginOptions.Destroy;
+begin
+ SaveSettings;
+ inherited Destroy;
+end;
+
+procedure TPluginOptions.LoadSettings;
+begin
+ with TRegIniFile.Create('\Software\Borland\IniTranslatorWizard') do
+ try
+ PluginClassName := ReadString('Settings','PluginClassName',PluginClassName);
+ ProjectName := ReadString('Settings','ProjectName',ProjectName);
+ UnitName := ReadString('Settings','UnitName',UnitName);
+ TransIntfPath := ReadString('Settings','TransIntfPath',TransIntfPath);
+ Title := ReadString('Settings','Title',Title);
+ IsFileParser := ReadBool('Settings','IsFileParser',IsFileParser);
+ finally
+ Free;
+ end;
+end;
+
+procedure TPluginOptions.SaveSettings;
+begin
+ with TRegIniFile.Create('\Software\Borland\IniTranslatorWizard') do
+ try
+ WriteString('Settings','PluginClassName',PluginClassName);
+ WriteString('Settings','ProjectName',ProjectName);
+ WriteString('Settings','UnitName',UnitName);
+ WriteString('Settings','TransIntfPath',TransIntfPath);
+ WriteString('Settings','Title',Title);
+ WriteBool('Settings','IsFileParser',IsFileParser);
+ finally
+ Free;
+ end;
+end;
+
+end.
Property changes on: translator/trunk/src/PluginWizard/PluginOptions.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate LastChangedRevision LastChangedBy HeadURL Id
Added: translator/trunk/src/PluginWizard/PluginWizardForm.dfm
===================================================================
--- translator/trunk/src/PluginWizard/PluginWizardForm.dfm (rev 0)
+++ translator/trunk/src/PluginWizard/PluginWizardForm.dfm 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,137 @@
+object frmTranslatorPluginWizard: TfrmTranslatorPluginWizard
+ Left = 339
+ Top = 183
+ ActiveControl = edClassName
+ BorderStyle = bsDialog
+ Caption = 'Create IniTranslatorPlugin'
+ ClientHeight = 247
+ ClientWidth = 447
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Shell Dlg 2'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ DesignSize = (
+ 447
+ 247)
+ PixelsPerInch = 96
+ TextHeight = 13
+ object btnOK: TTntButton
+ Left = 256
+ Top = 211
+ Width = 75
+ Height = 25
+ Anchors = [akRight, akBottom]
+ Caption = 'OK'
+ Default = True
+ ModalResult = 1
+ TabOrder = 1
+ end
+ object btnCancel: TTntButton
+ Left = 347
+ Top = 211
+ Width = 75
+ Height = 25
+ Anchors = [akRight, akBottom]
+ Cancel = True
+ Caption = 'Cancel'
+ ModalResult = 2
+ TabOrder = 2
+ end
+ object TntGroupBox1: TTntGroupBox
+ Left = 7
+ Top = 7
+ Width = 433
+ Height = 195
+ Anchors = [akLeft, akTop, akRight, akBottom]
+ Caption = ' Options: '
+ ParentBackground = False
+ TabOrder = 0
+ DesignSize = (
+ 433
+ 195)
+ object TntLabel1: TTntLabel
+ Left = 16
+ Top = 28
+ Width = 84
+ Height = 13
+ Caption = '&Plugin classname:'
+ end
+ object TntLabel2: TTntLabel
+ Left = 16
+ Top = 98
+ Width = 24
+ Height = 13
+ Caption = 'Title:'
+ end
+ object TntLabel3: TTntLabel
+ Left = 16
+ Top = 140
+ Width = 108
+ Height = 13
+ Caption = 'Transintf.pas location:'
+ end
+ object edClassName: TTntEdit
+ Left = 16
+ Top = 42
+ Width = 380
+ Height = 21
+ Anchors = [akLeft, akTop, akRight]
+ TabOrder = 0
+ end
+ object rbFileParser: TTntRadioButton
+ Left = 32
+ Top = 70
+ Width = 113
+ Height = 17
+ Caption = 'IFileParser'
+ Checked = True
+ TabOrder = 1
+ TabStop = True
+ end
+ object rbToolPlugin: TTntRadioButton
+ Left = 168
+ Top = 70
+ Width = 113
+ Height = 17
+ Caption = 'IToolPlugin'
+ TabOrder = 2
+ end
+ object edTitle: TTntEdit
+ Left = 16
+ Top = 112
+ Width = 380
+ Height = 21
+ Anchors = [akLeft, akTop, akRight]
+ TabOrder = 3
+ end
+ object edTransIntfPath: TTntEdit
+ Left = 16
+ Top = 154
+ Width = 380
+ Height = 21
+ Anchors = [akLeft, akTop, akRight]
+ TabOrder = 4
+ end
+ object TntButton1: TTntButton
+ Left = 402
+ Top = 154
+ Width = 21
+ Height = 21
+ Anchors = [akTop, akRight]
+ Caption = '...'
+ TabOrder = 5
+ OnClick = TntButton1Click
+ end
+ end
+ object odTransIntf: TTntOpenDialog
+ DefaultExt = 'pas'
+ Filter = 'Source files (*.pas)|*.pas|All files (*.*)|*.*'
+ InitialDir = '.'
+ Left = 308
+ Top = 70
+ end
+end
Added: translator/trunk/src/PluginWizard/PluginWizardForm.pas
===================================================================
--- translator/trunk/src/PluginWizard/PluginWizardForm.pas (rev 0)
+++ translator/trunk/src/PluginWizard/PluginWizardForm.pas 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,69 @@
+unit PluginWizardForm;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, TntStdCtrls, PluginOptions, TntDialogs;
+
+type
+ TfrmTranslatorPluginWizard = class(TForm)
+ btnOK: TTntButton;
+ btnCancel: TTntButton;
+ TntGroupBox1: TTntGroupBox;
+ TntLabel1: TTntLabel;
+ edClassName: TTntEdit;
+ rbFileParser: TTntRadioButton;
+ rbToolPlugin: TTntRadioButton;
+ TntLabel2: TTntLabel;
+ edTitle: TTntEdit;
+ TntLabel3: TTntLabel;
+ edTransIntfPath: TTntEdit;
+ TntButton1: TTntButton;
+ odTransIntf: TTntOpenDialog;
+ procedure TntButton1Click(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ class function Execute(Options: TPluginOptions): boolean;
+ end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmTranslatorPluginWizard }
+
+class function TfrmTranslatorPluginWizard.Execute(Options: TPluginOptions): boolean;
+var frm: TfrmTranslatorPluginWizard;
+begin
+ frm := self.Create(Application);
+ try
+ frm.edClassName.Text := Options.PluginClassName;
+ frm.edTitle.Text := Options.Title;
+ frm.edTransIntfPath.Text := Options.TransIntfPath;
+ frm.rbFileParser.Checked := Options.IsFileParser;
+ frm.rbToolPlugin.Checked := not Options.IsFileParser;
+ Result := frm.ShowModal = mrOk;
+ if Result then
+ begin
+ Options.PluginClassName := frm.edClassName.Text;
+ Options.Title := frm.edTitle.Text;
+ Options.TransIntfPath := frm.edTransIntfPath.Text;
+ Options.IsFileParser := frm.rbFileParser.Checked;
+ end;
+ finally
+ frm.Free;
+ end;
+end;
+
+procedure TfrmTranslatorPluginWizard.TntButton1Click(Sender: TObject);
+begin
+ odTransIntf.FileName := edTransIntfPath.Text;
+ if odTransIntf.Execute then
+ edTransIntfPath.Text := odTransIntf.FileName;
+end;
+
+end.
+
Property changes on: translator/trunk/src/PluginWizard/PluginWizardForm.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate LastChangedRevision LastChangedBy HeadURL Id
Added: translator/trunk/src/PluginWizard/PluginsDesign.pas
===================================================================
--- translator/trunk/src/PluginWizard/PluginsDesign.pas (rev 0)
+++ translator/trunk/src/PluginWizard/PluginsDesign.pas 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,416 @@
+unit PluginsDesign;
+
+interface
+uses
+ Classes, DesignIntf, ToolsAPI;
+
+type
+ TPluginWizard = class(TNotifierobject, IOTAWizard, IOTARepositoryWizard, IOTAProjectWizard)
+ public
+ { IOTAWizard }
+ function GetIDString: string;
+ function GetName: string;
+ function GetState: TWizardState;
+ procedure Execute;
+ { IOTARepositoryWizard }
+ function GetAuthor: string;
+ function GetComment: string;
+ function GetGlyph: Cardinal;
+ function GetPage: string;
+ end;
+
+procedure Register;
+
+implementation
+uses
+ Windows, SysUtils, PluginOptions, PluginWizardForm;
+
+{$R includes.res}
+
+procedure Register;
+begin
+ RegisterPackageWizard(TPluginWizard.Create);
+end;
+
+function ModuleServices: IOTAModuleServices;
+begin
+ Result := (BorlandIDEServices as IOTAModuleServices);
+end;
+
+function GetActiveProjectGroup: IOTAProjectGroup;
+var
+ ModuleServices: IOTAModuleServices;
+ i: Integer;
+begin
+ Result := nil;
+ if Assigned(BorlandIDEServices) then
+ begin
+ ModuleServices := BorlandIDEServices as IOTAModuleServices;
+ for i := 0 to ModuleServices.ModuleCount - 1 do
+ if Supports(ModuleServices.Modules[i], IOTAProjectGroup, Result) then
+ Break;
+ end;
+end;
+
+function GetActiveProject: IOTAProject;
+var
+ ProjectGroup: IOTAProjectGroup;
+begin
+ Result := nil;
+ ProjectGroup := GetActiveProjectGroup;
+ if ProjectGroup <> nil then
+ Result := ProjectGroup.ActiveProject;
+end;
+
+function LoadResourceText(const ResID:string):string;
+var
+ HRes:HRSRC;
+ ResInstance:Cardinal;
+begin
+ ResInstance := hInstance;
+ HRes := FindResource(ResInstance, MakeIntResource(ResID), RT_RCDATA);
+ Result := PChar(LockResource(LoadResource(ResInstance, HRes)));
+ SetLength(Result, SizeofResource(ResInstance, HRes));
+end;
+
+function ReplaceMacros(const S:String; Options:TPluginOptions):String;
+begin
+// %transpath% %project% %pluginclassname% %unit% %title%
+ Result := StringReplace(S, '%transpath%', Options.TransIntfPath, [rfReplaceAll]);
+ Result := StringReplace(Result, '%project%', Options.ProjectName, [rfReplaceAll]);
+ Result := StringReplace(Result, '%pluginclassname%', Options.PluginClassName, [rfReplaceAll]);
+ Result := StringReplace(Result, '%unit%', Options.UnitName, [rfReplaceAll]);
+ Result := StringReplace(Result, '%title%', Options.Title, [rfReplaceAll]);
+end;
+
+type
+ TPluginCreator = class(TInterfacedObject, IInterface, IOTACreator, IOTAProjectCreator)
+ private
+ FOptions: TPluginOptions;
+ public
+ // IOTACreator
+ function GetCreatorType: string;
+ function GetExisting: Boolean;
+ function GetFileSystem: string;
+ function GetOwner: IOTAModule;
+ function GetUnnamed: Boolean;
+ // IOTAProjectCreator
+ function GetFileName: string;
+ function GetOptionFileName: string;
+ function GetShowSource: Boolean;
+ procedure NewDefaultModule;
+ function NewOptionSource(const ProjectName: string): IOTAFile;
+ procedure NewProjectResource(const Project: IOTAProject);
+ function NewProjectSource(const ProjectName: string): IOTAFile;
+ constructor Create(Options: TPluginOptions);
+ end;
+
+ TProjectFile = class(TInterfacedObject, IInterface, IOTAFile)
+ private
+ FOptions: TPluginOptions;
+ public
+ constructor Create(Options: TPluginOptions; const ProjectName: string);
+ function GetAge: TDateTime;
+ function GetSource: string;
+ end;
+
+ TUnitCreator = class(TInterfacedObject, IInterface, IOTACreator, IOTAModuleCreator)
+ private
+ FModule: IOTAModule;
+ FOptions: TPluginOptions;
+ public
+ procedure FormCreated(const FormEditor: IOTAFormEditor);
+ function GetAncestorName: string;
+ function GetCreatorType: string;
+ function GetExisting: Boolean;
+ function GetFileSystem: string;
+ function GetFormName: string;
+ function GetImplFileName: string;
+ function GetIntfFileName: string;
+ function GetMainForm: Boolean;
+ function GetOwner: IOTAModule;
+ function GetShowForm: Boolean;
+ function GetShowSource: Boolean;
+ function GetUnnamed: Boolean;
+ function NewFormFile(const FormIdent: string;
+ const AncestorIdent: string): IOTAFile;
+ function NewImplSource(const ModuleIdent: string;
+ const FormIdent: string; const AncestorIdent: string): IOTAFile;
+ function NewIntfSource(const ModuleIdent: string;
+ const FormIdent: string; const AncestorIdent: string): IOTAFile;
+ constructor Create(const Module: IOTAModule; Options: TPluginOptions);
+ end;
+
+ TUnitFile = class(TInterfacedObject, IInterface, IOTAFile)
+ private
+ FOptions: TPluginOptions;
+ public
+ function GetAge: TDateTime;
+ function GetSource: string;
+ constructor Create(Options: TPluginOptions; ModuleIdent: string);
+ end;
+
+{ TPluginWizard }
+
+procedure TPluginWizard.Execute;
+var
+ Module: IOTAModule;
+ Options: TPluginOptions;
+begin
+ Options := TPluginOptions.Create;
+ try
+ if TfrmTranslatorPluginWizard.Execute(Options) then
+ begin
+ Module := ModuleServices.CreateModule(TPluginCreator.Create(Options));
+ Module := ModuleServices.CreateModule(TUnitCreator.Create(Module, Options));
+ end;
+ finally
+ FreeAndNil(Options);
+ end;
+end;
+
+function TPluginWizard.GetAuthor: string;
+begin
+ Result := 'Peter Th\xF6rnqvist';
+end;
+
+function TPluginWizard.GetComment: string;
+begin
+ Result := 'Create new IniTranslator plugin';
+end;
+
+function TPluginWizard.GetGlyph: Cardinal;
+begin
+ Result := LoadIcon(hInstance, MakeIntResource('IDI_ICON1'));
+end;
+
+function TPluginWizard.GetIDString: string;
+begin
+ Result := 'IniTranslator.PluginWizard';
+end;
+
+function TPluginWizard.GetName: string;
+begin
+ Result := 'Create IniTranslator Plugin';
+end;
+
+function TPluginWizard.GetPage: string;
+begin
+ Result := 'New';
+end;
+
+function TPluginWizard.GetState: TWizardState;
+begin
+ Result := [wsEnabled];
+end;
+
+{ TPluginCreator }
+
+constructor TPluginCreator.Create(Options: TPluginOptions);
+begin
+ FOptions := Options;
+end;
+
+function TPluginCreator.GetCreatorType: string;
+begin
+ Result := ''; // custom
+end;
+
+function TPluginCreator.GetExisting: Boolean;
+begin
+ Result := false;
+end;
+
+function TPluginCreator.GetFileName: string;
+begin
+ Result := '';
+end;
+
+function TPluginCreator.GetFileSystem: string;
+begin
+ Result := '';
+end;
+
+function TPluginCreator.GetOptionFileName: string;
+begin
+ Result := '';
+end;
+
+function TPluginCreator.GetOwner: IOTAModule;
+begin
+ Result := GetActiveProjectGroup;
+end;
+
+function TPluginCreator.GetShowSource: Boolean;
+begin
+ Result := true;
+end;
+
+function TPluginCreator.GetUnnamed: Boolean;
+begin
+ Result := true;
+end;
+
+procedure TPluginCreator.NewDefaultModule;
+begin
+ //
+end;
+
+function TPluginCreator.NewOptionSource(const ProjectName: string): IOTAFile;
+begin
+ Result := nil;
+end;
+
+procedure TPluginCreator.NewProjectResource(const Project: IOTAProject);
+begin
+ //
+end;
+
+function TPluginCreator.NewProjectSource(const ProjectName: string): IOTAFile;
+begin
+ Result := TProjectFile.Create(FOptions, ProjectName);
+end;
+
+{ TProjectFile }
+
+constructor TProjectFile.Create(Options: TPluginOptions; const ProjectName: string);
+begin
+ FOptions := Options;
+ FOptions.ProjectName := ProjectName;
+end;
+
+function TProjectFile.GetAge: TDateTime;
+begin
+ Result := -1;
+end;
+
+function TProjectFile.GetSource: string;
+begin
+ if FOptions.IsFileParser then
+ Result := LoadResourceText('FILEPLUGINPROJECT')
+ else
+ Result := LoadResourceText('TOOLPLUGINPROJECT');
+ Result := ReplaceMacros(Result, FOptions);
+end;
+
+{ TUnitCreator }
+
+constructor TUnitCreator.Create(const Module: IOTAModule;
+ Options: TPluginOptions);
+begin
+ FModule := Module;
+ FOptions := Options;
+end;
+
+procedure TUnitCreator.FormCreated(const FormEditor: IOTAFormEditor);
+begin
+//
+end;
+
+function TUnitCreator.GetAncestorName: string;
+begin
+ Result := '';
+end;
+
+function TUnitCreator.GetCreatorType: string;
+begin
+ Result := ''; // custom
+end;
+
+function TUnitCreator.GetExisting: Boolean;
+begin
+ Result := false;
+end;
+
+function TUnitCreator.GetFileSystem: string;
+begin
+ Result := '';
+end;
+
+function TUnitCreator.GetFormName: string;
+begin
+ Result := '';
+end;
+
+function TUnitCreator.GetImplFileName: string;
+begin
+ Result := '';
+end;
+
+function TUnitCreator.GetIntfFileName: string;
+begin
+ Result := '';
+end;
+
+function TUnitCreator.GetMainForm: Boolean;
+begin
+ Result := false;
+end;
+
+function TUnitCreator.GetOwner: IOTAModule;
+begin
+ Result := FModule;
+end;
+
+function TUnitCreator.GetShowForm: Boolean;
+begin
+ Result := false;
+end;
+
+function TUnitCreator.GetShowSource: Boolean;
+begin
+ Result := true;
+end;
+
+function TUnitCreator.GetUnnamed: Boolean;
+begin
+ Result := true;
+end;
+
+function TUnitCreator.NewFormFile(const FormIdent, AncestorIdent: string): IOTAFile;
+begin
+ Result := nil;
+end;
+
+function TUnitCreator.NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+begin
+ Result := TUnitFile.Create(FOptions, ModuleIdent);
+end;
+
+function TUnitCreator.NewIntfSource(const ModuleIdent, FormIdent,
+ AncestorIdent: string): IOTAFile;
+begin
+ Result := nil;
+end;
+
+{ TUnitFile }
+
+constructor TUnitFile.Create(Options: TPluginOptions; ModuleIdent: string);
+begin
+ FOptions := Options;
+ FOptions.UnitName := ModuleIdent;
+end;
+
+function TUnitFile.GetAge: TDateTime;
+begin
+ Result := -1;
+end;
+
+function TUnitFile.GetSource: string;
+var
+ s, dummy: string;
+begin
+ if FOptions.UnitName = '' then
+ begin
+ ModuleServices.GetNewModuleAndClassName('', s, dummy, dummy);
+ FOptions.UnitName := s;
+ end;
+ if FOptions.IsFileParser then
+ Result := LoadResourceText('FILEPLUGINUNIT')
+ else
+ Result := LoadResourceText('TOOLPLUGINUNIT');
+ Result := ReplaceMacros(Result, FOptions);
+end;
+
+end.
+
Property changes on: translator/trunk/src/PluginWizard/PluginsDesign.pas
___________________________________________________________________
Name: svn:keywords
+ LastChangedDate LastChangedRevision LastChangedBy HeadURL Id
Added: translator/trunk/src/PluginWizard/ToolPluginProject.txt
===================================================================
--- translator/trunk/src/PluginWizard/ToolPluginProject.txt (rev 0)
+++ translator/trunk/src/PluginWizard/ToolPluginProject.txt 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,38 @@
+{
+ Copyright \xA9 2003-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: $
+
+library %project%;
+
+
+uses
+ SysUtils,
+ Classes,
+ TransIntf in '%transpath%';
+
+{$R *.res}
+
+function InstallPlugin(out ToolItems: IToolItems): HResult; stdcall;
+begin
+ ToolItems := %pluginclassname%s.Create;
+ Result := S_OK;
+end;
+
+exports InstallPlugin name cRegisterTransToolItemsFuncName;
+begin
+end.
+
Property changes on: translator/trunk/src/PluginWizard/ToolPluginProject.txt
___________________________________________________________________
Name: svn:eol-style
+ native
Added: translator/trunk/src/PluginWizard/ToolPluginUnit.txt
===================================================================
--- translator/trunk/src/PluginWizard/ToolPluginUnit.txt (rev 0)
+++ translator/trunk/src/PluginWizard/ToolPluginUnit.txt 2006-12-25 17:31:22 UTC (rev 230)
@@ -0,0 +1,141 @@
+{
+ Copyright \xA9 2003-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 %unit%;
+
+interface
+uses
+ TransIntf;
+
+type
+ %pluginclassname%s = class(TInterfacedObject, IUnknown, IToolItems)
+ public
+ function Count: Integer; safecall;
+ function ToolItem(Index: Integer; out ToolItem: IToolItem): HRESULT; safecall;
+ end;
+
+ %pluginclassname% = class(TInterfacedObject, IUnknown, IToolItem, ILocalizable)
+ private
+ FCount: integer;
+ FAppServices:IApplicationServices;
+ function Translate(const Value:WideString):WideString;
+ public
+ { IToolItem }
+ function About: WideString; safecall;
+ function DisplayName: WideString; safecall;
+ function Execute(const Items, Orphans: ITranslationItems; var SelectedItem: ITranslationItem): HRESULT; safecall;
+ function Icon: Cardinal; safecall;
+ procedure Init(const ApplicationServices: IApplicationServices); safecall;
+ function Status(const Items, Orphans: ITranslationItems;...
[truncated message content] |
|
From: <pe...@us...> - 2006-12-26 14:32:17
|
Revision: 237
http://svn.sourceforge.net/initranslator/?rev=237&view=rev
Author: peter3
Date: 2006-12-26 06:32:17 -0800 (Tue, 26 Dec 2006)
Log Message:
-----------
- dof and res files updated
Modified Paths:
--------------
translator/trunk/src/DCPPPlugin/DCPPParser.dof
translator/trunk/src/DCPPPlugin/DCPPParser.res
translator/trunk/src/FastMM4Options.inc
translator/trunk/src/FoxitPlugin/FoxitParser.dof
translator/trunk/src/FoxitPlugin/FoxitParser.res
translator/trunk/src/IBForumsPlugin/IBForumsParser.dof
translator/trunk/src/IBForumsPlugin/IBForumsParser.res
translator/trunk/src/KeePassPlugin/KeePassParser.dof
translator/trunk/src/KeePassPlugin/KeePassParser.res
translator/trunk/src/MSDictPlugin/MSDictParser.dof
translator/trunk/src/MSDictPlugin/MSDictParser.res
translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof
translator/trunk/src/MozillaPlugin/MozillaDTDParser.res
translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof
translator/trunk/src/MozillaPlugin/MozillaPropsParser.res
translator/trunk/src/MsDictBuild/MSDictBuild.dof
translator/trunk/src/MsDictBuild/MSDictBuild.res
translator/trunk/src/MsTermBuild/MsTermBuild.dof
translator/trunk/src/MsTermBuild/MsTermBuild.res
translator/trunk/src/OlegPlugin/OlegParser.dof
translator/trunk/src/OlegPlugin/OlegParser.res
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.res
translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof
translator/trunk/src/PHPNukePlugin/PHPNukeParser.res
translator/trunk/src/PHPPlugin/PHPParser.dof
translator/trunk/src/PHPPlugin/PHPParser.res
translator/trunk/src/POPlugin/POParser.dof
translator/trunk/src/POPlugin/POParser.res
translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof
translator/trunk/src/PolyglotPlugin/PolyGlotParser.res
translator/trunk/src/SDFSplit/SDFSplit.dof
translator/trunk/src/SDFSplit/SDFSplit.res
translator/trunk/src/SciTEPlugin/SciTEParser.res
translator/trunk/src/TMXPlugin/TMXParser.dof
translator/trunk/src/TMXPlugin/TMXParser.res
translator/trunk/src/ToolConsistency/ToolConsistency.dof
translator/trunk/src/ToolConsistency/ToolConsistency.res
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.dof
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.res
translator/trunk/src/ToolListEdit/ToolListEdit.dof
translator/trunk/src/ToolListEdit/ToolListEdit.res
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
translator/trunk/src/ToolTreeView/ToolTreeView.dof
translator/trunk/src/ToolTreeView/ToolTreeView.res
translator/trunk/src/ToolTrim/ToolTrim.dof
translator/trunk/src/ToolTrim/ToolTrim.res
translator/trunk/src/WixPlugin/WixParser.dof
translator/trunk/src/WixPlugin/WixParser.res
translator/trunk/src/XLIFFPlugin/XLIFFParser.dof
translator/trunk/src/XLIFFPlugin/XLIFFParser.res
translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
translator/trunk/src/XilisoftPlugin/XilisoftParser.res
translator/trunk/src/translator.dof
translator/trunk/src/translator.res
Modified: translator/trunk/src/DCPPPlugin/DCPPParser.dof
===================================================================
--- translator/trunk/src/DCPPPlugin/DCPPParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/DCPPPlugin/DCPPParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -20,11 +20,13 @@
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
+Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
+HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
Modified: translator/trunk/src/DCPPPlugin/DCPPParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/FastMM4Options.inc
===================================================================
--- translator/trunk/src/FastMM4Options.inc 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/FastMM4Options.inc 2006-12-26 14:32:17 UTC (rev 237)
@@ -231,15 +231,15 @@
{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 FullDebugMode}
+ {$undef CheckHeapForCorruption}
+ {$define ASMVersion}
+ {$undef EnableMemoryLeakReporting}
{.$undef UseOutputDebugString}
{$else}
{Specify the options you use for debugging below}
- {.$define FullDebugMode}
- {.$define EnableMemoryLeakReporting}
+ {$define FullDebugMode}
+ {$define EnableMemoryLeakReporting}
{.$define UseOutputDebugString}
{$endif}
Modified: translator/trunk/src/FoxitPlugin/FoxitParser.dof
===================================================================
--- translator/trunk/src/FoxitPlugin/FoxitParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/FoxitPlugin/FoxitParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/FoxitPlugin/FoxitParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParser.dof
===================================================================
--- translator/trunk/src/IBForumsPlugin/IBForumsParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/IBForumsPlugin/IBForumsParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/KeePassPlugin/KeePassParser.dof
===================================================================
--- translator/trunk/src/KeePassPlugin/KeePassParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/KeePassPlugin/KeePassParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -130,14 +130,3 @@
ProductName=KeePass Plugin for IniTranslator
ProductVersion=1.9.0.41
Comments=Latest version at http://initranslator.sourceforge.net
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-[HistoryLists\hlUnitOutputDirectory]
-Count=2
-Item0=..\dcu
-Item1=..\..\dcu
-[HistoryLists\hlOutputDirectorry]
-Count=2
-Item0=..\bin
-Item1=..\..\bin\plugins
Modified: translator/trunk/src/KeePassPlugin/KeePassParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MSDictPlugin/MSDictParser.dof
===================================================================
--- translator/trunk/src/MSDictPlugin/MSDictParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/MSDictPlugin/MSDictParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -19,6 +19,17 @@
UnitOutputDir=..\..\dcu
PackageDLLOutputDir=
PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/MSDictPlugin/MSDictParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MsDictBuild/MSDictBuild.dof
===================================================================
--- translator/trunk/src/MsDictBuild/MSDictBuild.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/MsDictBuild/MSDictBuild.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -4,9 +4,32 @@
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
@@ -15,6 +38,10 @@
Release=0
Build=0
Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
Locale=1053
CodePage=1252
[Version Info Keys]
Modified: translator/trunk/src/MsDictBuild/MSDictBuild.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MsTermBuild/MsTermBuild.dof
===================================================================
--- translator/trunk/src/MsTermBuild/MsTermBuild.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/MsTermBuild/MsTermBuild.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -1,3 +1,5 @@
+[FileVersion]
+Version=7.0
[Compiler]
UnsafeType=0
UnsafeCode=0
@@ -15,6 +17,19 @@
[Directories]
OutputDir=..\..\bin
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/MsTermBuild/MsTermBuild.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/OlegPlugin/OlegParser.dof
===================================================================
--- translator/trunk/src/OlegPlugin/OlegParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/OlegPlugin/OlegParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,7 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/OlegPlugin/OlegParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof
===================================================================
--- translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -1,3 +1,5 @@
+[FileVersion]
+Version=7.0
[Compiler]
UnsafeType=0
UnsafeCode=0
@@ -15,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof
===================================================================
--- translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/PHPPlugin/PHPParser.dof
===================================================================
--- translator/trunk/src/PHPPlugin/PHPParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/PHPPlugin/PHPParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -17,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/PHPPlugin/PHPParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/POPlugin/POParser.dof
===================================================================
--- translator/trunk/src/POPlugin/POParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/POPlugin/POParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -1,3 +1,5 @@
+[FileVersion]
+Version=7.0
[Compiler]
UnsafeType=0
UnsafeCode=0
@@ -15,6 +17,19 @@
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/POPlugin/POParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof
===================================================================
--- translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -6,13 +6,30 @@
UnsafeCast=0
[Linker]
MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/SDFSplit/SDFSplit.dof
===================================================================
--- translator/trunk/src/SDFSplit/SDFSplit.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/SDFSplit/SDFSplit.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -1,3 +1,5 @@
+[FileVersion]
+Version=7.0
[Compiler]
UnsafeType=0
UnsafeCode=0
@@ -18,6 +20,7 @@
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
+Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
@@ -28,7 +31,7 @@
UseLauncher=0
DebugCWD=
[Version Info]
-IncludeVerInfo=0
+IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Modified: translator/trunk/src/SDFSplit/SDFSplit.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/SciTEPlugin/SciTEParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/TMXPlugin/TMXParser.dof
===================================================================
--- translator/trunk/src/TMXPlugin/TMXParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/TMXPlugin/TMXParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -6,12 +6,30 @@
UnsafeCast=0
[Linker]
MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/TMXPlugin/TMXParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolConsistency/ToolConsistency.dof
===================================================================
--- translator/trunk/src/ToolConsistency/ToolConsistency.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/ToolConsistency/ToolConsistency.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -20,11 +20,13 @@
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
+Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
+HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
Modified: translator/trunk/src/ToolConsistency/ToolConsistency.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolKeyCheck/ToolKeyCheck.dof
===================================================================
--- translator/trunk/src/ToolKeyCheck/ToolKeyCheck.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/ToolKeyCheck/ToolKeyCheck.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -130,14 +130,3 @@
ProductName=IniTranslator
ProductVersion=1.9.0.13
Comments=Latest version from http://initranslator.sourceforge.net
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-[HistoryLists\hlUnitOutputDirectory]
-Count=2
-Item0=..\dcu
-Item1=..\..\dcu
-[HistoryLists\hlOutputDirectorry]
-Count=2
-Item0=..\bin
-Item1=..\..\bin\plugins
Modified: translator/trunk/src/ToolKeyCheck/ToolKeyCheck.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolListEdit/ToolListEdit.dof
===================================================================
--- translator/trunk/src/ToolListEdit/ToolListEdit.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/ToolListEdit/ToolListEdit.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -13,9 +13,23 @@
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=1
Modified: translator/trunk/src/ToolListEdit/ToolListEdit.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof
===================================================================
--- translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -13,9 +13,23 @@
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=1
Modified: translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolTreeView/ToolTreeView.dof
===================================================================
--- translator/trunk/src/ToolTreeView/ToolTreeView.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/ToolTreeView/ToolTreeView.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -13,9 +13,23 @@
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/ToolTreeView/ToolTreeView.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/ToolTrim/ToolTrim.dof
===================================================================
--- translator/trunk/src/ToolTrim/ToolTrim.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/ToolTrim/ToolTrim.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -130,14 +130,3 @@
ProductName=Tool Trim Plugin for IniTranslator
ProductVersion=1.9
Comments=Latest version available at http://initranslator.sourceforge.net
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-[HistoryLists\hlUnitOutputDirectory]
-Count=2
-Item0=..\dcu
-Item1=..\..\dcu
-[HistoryLists\hlOutputDirectorry]
-Count=2
-Item0=..\bin
-Item1=..\..\bin\plugins
Modified: translator/trunk/src/ToolTrim/ToolTrim.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/WixPlugin/WixParser.dof
===================================================================
--- translator/trunk/src/WixPlugin/WixParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/WixPlugin/WixParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -20,6 +20,7 @@
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
+Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
Modified: translator/trunk/src/WixPlugin/WixParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/XLIFFPlugin/XLIFFParser.dof
===================================================================
--- translator/trunk/src/XLIFFPlugin/XLIFFParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/XLIFFPlugin/XLIFFParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -13,9 +13,23 @@
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
+ExeDescription=
[Directories]
OutputDir=..\..\bin\plugins
UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/XLIFFPlugin/XLIFFParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
===================================================================
--- translator/trunk/src/XilisoftPlugin/XilisoftParser.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/XilisoftPlugin/XilisoftParser.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -19,6 +19,17 @@
UnitOutputDir=..\..\dcu
PackageDLLOutputDir=
PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
Modified: translator/trunk/src/XilisoftPlugin/XilisoftParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/translator.dof
===================================================================
--- translator/trunk/src/translator.dof 2006-12-26 13:04:49 UTC (rev 236)
+++ translator/trunk/src/translator.dof 2006-12-26 14:32:17 UTC (rev 237)
@@ -95,8 +95,7 @@
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
-Packages=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
-Conditionals=USEOLDTBX
+Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
@@ -111,7 +110,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=58
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -122,24 +121,14 @@
[Version Info Keys]
CompanyName=Peter Th\xF6rnqvist
FileDescription=Ini Language Translator
-FileVersion=1.9.0.58
+FileVersion=1.9.0.50
InternalName=translator.exe
-LegalCopyright=Copyright (c) 2003-2007 by Peter Th\xF6rnqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=translator.exe
ProductName=Ini Translator
-ProductVersion=1.9.0.33
+ProductVersion=1.9.0.50
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-[HistoryLists\hlUnitOutputDirectory]
-Count=2
-Item0=..\dcu
-Item1=..\..\dcu
-[HistoryLists\hlOutputDirectorry]
-Count=2
-Item0=..\bin
-Item1=..\..\bin\plugins
+CompileDate=den 25 december 2006 19:58
Modified: translator/trunk/src/translator.res
===================================================================
(Binary files differ)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2006-12-26 23:16:56
|
Revision: 240
http://svn.sourceforge.net/initranslator/?rev=240&view=rev
Author: peter3
Date: 2006-12-26 15:16:57 -0800 (Tue, 26 Dec 2006)
Log Message:
-----------
PluginWizard:
- use std components
- explicitly implement IOTANotifier
General:
- update dof files
Modified Paths:
--------------
translator/trunk/src/DCPPPlugin/DCPPParser.dof
translator/trunk/src/DCPPPlugin/DCPPParser.res
translator/trunk/src/FoxitPlugin/FoxitParser.dof
translator/trunk/src/FoxitPlugin/FoxitParser.res
translator/trunk/src/IBForumsPlugin/IBForumsParser.dof
translator/trunk/src/IBForumsPlugin/IBForumsParser.res
translator/trunk/src/KeePassPlugin/KeePassParser.dof
translator/trunk/src/KeePassPlugin/KeePassParser.res
translator/trunk/src/MSDictPlugin/MSDictParser.dof
translator/trunk/src/MSDictPlugin/MSDictParser.res
translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof
translator/trunk/src/MozillaPlugin/MozillaDTDParser.res
translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof
translator/trunk/src/MozillaPlugin/MozillaPropsParser.res
translator/trunk/src/MsDictBuild/MSDictBuild.dof
translator/trunk/src/MsDictBuild/MSDictBuild.res
translator/trunk/src/MsTermBuild/MsTermBuild.dof
translator/trunk/src/MsTermBuild/MsTermBuild.res
translator/trunk/src/OlegPlugin/OlegParser.dof
translator/trunk/src/OlegPlugin/OlegParser.res
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.res
translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof
translator/trunk/src/PHPNukePlugin/PHPNukeParser.res
translator/trunk/src/PHPPlugin/PHPParser.dof
translator/trunk/src/PHPPlugin/PHPParser.res
translator/trunk/src/POPlugin/POParser.dof
translator/trunk/src/POPlugin/POParser.res
translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk
translator/trunk/src/PluginWizard/PluginWizardForm.dfm
translator/trunk/src/PluginWizard/PluginWizardForm.pas
translator/trunk/src/PluginWizard/PluginsDesign.pas
translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof
translator/trunk/src/PolyglotPlugin/PolyGlotParser.res
translator/trunk/src/SDFSplit/SDFSplit.dof
translator/trunk/src/SDFSplit/SDFSplit.res
translator/trunk/src/SciTEPlugin/SciTEParser.dof
translator/trunk/src/SciTEPlugin/SciTEParser.res
translator/trunk/src/TMXPlugin/TMXParser.dof
translator/trunk/src/TMXPlugin/TMXParser.res
translator/trunk/src/ToolConsistency/ToolConsistency.dof
translator/trunk/src/ToolConsistency/ToolConsistency.res
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.bdsproj
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.dof
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.res
translator/trunk/src/ToolListEdit/ToolListEdit.bdsproj
translator/trunk/src/ToolListEdit/ToolListEdit.dof
translator/trunk/src/ToolListEdit/ToolListEdit.res
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.bdsproj
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.dof
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
translator/trunk/src/ToolTreeView/ToolTreeView.dof
translator/trunk/src/ToolTreeView/ToolTreeView.res
translator/trunk/src/ToolTrim/ToolTrim.dof
translator/trunk/src/ToolTrim/ToolTrim.res
translator/trunk/src/WixPlugin/WixParser.dof
translator/trunk/src/WixPlugin/WixParser.res
translator/trunk/src/XLIFFPlugin/XLIFFParser.dof
translator/trunk/src/XLIFFPlugin/XLIFFParser.res
translator/trunk/src/XilisoftPlugin/XilisoftParser.dof
translator/trunk/src/XilisoftPlugin/XilisoftParser.res
translator/trunk/src/translator.bdsproj
translator/trunk/src/translator.dof
translator/trunk/src/translator.res
Modified: translator/trunk/src/DCPPPlugin/DCPPParser.dof
===================================================================
--- translator/trunk/src/DCPPPlugin/DCPPParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/DCPPPlugin/DCPPParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -55,4 +55,4 @@
ProductName=IniTranslator
ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
-CompileDate=den 23 december 2006 13:20
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/DCPPPlugin/DCPPParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/FoxitPlugin/FoxitParser.dof
===================================================================
--- translator/trunk/src/FoxitPlugin/FoxitParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/FoxitPlugin/FoxitParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -36,7 +36,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=Foxit Plugin for IniTranslator
-FileVersion=1.9.0.0
+FileVersion=1.9.0.50
InternalName=FoxitParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalCopyright=Copyright (c) 2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=FoxitParser.dll
ProductName=Foxit Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/FoxitPlugin/FoxitParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParser.dof
===================================================================
--- translator/trunk/src/IBForumsPlugin/IBForumsParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/IBForumsPlugin/IBForumsParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=IB Forums Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=IBForumsParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+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.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/KeePassPlugin/KeePassParser.dof
===================================================================
--- translator/trunk/src/KeePassPlugin/KeePassParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/KeePassPlugin/KeePassParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -111,7 +111,7 @@
MajorVer=1
MinorVer=9
Release=0
-Build=41
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -122,11 +122,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=KeePass Plugin for IniTranslator
-FileVersion=1.9.0.41
+FileVersion=1.9.0.50
InternalName=KeePassParser.dll
LegalCopyright=Copyright (c) 2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=KeePassParser.dll
ProductName=KeePass Plugin for IniTranslator
-ProductVersion=1.9.0.41
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/KeePassPlugin/KeePassParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MSDictPlugin/MSDictParser.dof
===================================================================
--- translator/trunk/src/MSDictPlugin/MSDictParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/MSDictPlugin/MSDictParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=8
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=MS Glossary Plugin for IniTranslator
-FileVersion=1.8.0.0
+FileVersion=1.9.0.50
InternalName=
LegalCopyright=Copyright (c) 2004 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=
ProductName=MS Glossary Plugin for IniTranslator
-ProductVersion=1.8
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/MSDictPlugin/MSDictParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/MozillaPlugin/MozillaDTDParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=Mozilla DTD Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=MozillaDTDParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MozillaDTDParser.dll
ProductName=Mozilla DTD Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/MozillaPlugin/MozillaPropsParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=Mozilla Properties Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=MozillaPropsParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+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.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/MozillaPlugin/MozillaPropsParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MsDictBuild/MSDictBuild.dof
===================================================================
--- translator/trunk/src/MsDictBuild/MSDictBuild.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/MsDictBuild/MSDictBuild.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,22 +34,27 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=8
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
-Locale=1053
+Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=Peter Th\xF6rnqvist
-FileDescription=
-FileVersion=1.8.0.0
+FileDescription=MsDictBuild
+FileVersion=1.9.0.50
InternalName=MsDictBuild.exe
-LegalCopyright=Copyright (c) 2004-2005 by Peter Th\xF6rnqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2004 by Peter Th\xF6rnqvist; all rights reserved
+LegalTrademarks=
OriginalFilename=MsDictBuild.exe
ProductName=MsDictBuild
-ProductVersion=1.8.0.0
+ProductVersion=1.9.0.50
+Webpage=http://initranslator.sourceforge.net
+License=Mozilla Public License 1.1
+Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/MsDictBuild/MSDictBuild.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/MsTermBuild/MsTermBuild.dof
===================================================================
--- translator/trunk/src/MsTermBuild/MsTermBuild.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/MsTermBuild/MsTermBuild.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=8
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,14 +47,14 @@
[Version Info Keys]
CompanyName=Peter Th\xF6rnqvist
FileDescription=MsTermBuild
-FileVersion=1.8.0.0
-InternalName=MsDictBuild.exe
-LegalCopyright=Copyright (c) 2003-2004 by Peter Th\xF6rnqvist; all rights reserved
+FileVersion=1.9.0.50
+InternalName=MsTermBuild.exe
+LegalCopyright=Copyright (c) 2003-2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=MsTermBuild.exe
ProductName=MsTermBuild
-ProductVersion=1.8.0.0
+ProductVersion=1.9.0.50
Webpage=http://initranslator.sourceforge.net
License=Mozilla Public License 1.1
Comments=Latest version at http://initranslator.sourceforge.net
-Compile Date=
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/MsTermBuild/MsTermBuild.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/OlegPlugin/OlegParser.dof
===================================================================
--- translator/trunk/src/OlegPlugin/OlegParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/OlegPlugin/OlegParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -46,12 +46,13 @@
CodePage=1252
[Version Info Keys]
CompanyName=IniTranslator
-FileDescription=OlegTranslator Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileDescription=Oleg Translator Plugin for IniTranslator
+FileVersion=1.9.0.50
InternalName=OlegParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=OlegParser.dll
-ProductName=OlegTranslator Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductName=Oleg Translator Plugin for IniTranslator
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/OlegPlugin/OlegParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof
===================================================================
--- translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=OpenOffice GSI Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=OOGSIParser.dll
LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=OOGSIParser.dll
ProductName=OpenOffice GSI Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof
===================================================================
--- translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PHPNukePlugin/PHPNukeParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=phpNuke Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=phpNukeParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+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.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/PHPNukePlugin/PHPNukeParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/PHPPlugin/PHPParser.dof
===================================================================
--- translator/trunk/src/PHPPlugin/PHPParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PHPPlugin/PHPParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=PHP Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=PHPParser.dll
-LegalCopyright=Copyright (c) 2003-2007 by Peter Thornqvist; all rights reserved
+LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=PHPParser.dll
ProductName=PHP Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/PHPPlugin/PHPParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/POPlugin/POParser.dof
===================================================================
--- translator/trunk/src/POPlugin/POParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/POPlugin/POParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=7
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=PO Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=POParser.dll
LegalCopyright=Copyright (c) 2003-2004 by Peter Thornqvist; all rights reserved
LegalTrademarks=
OriginalFilename=POParser.dll
ProductName=PO Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/POPlugin/POParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk
===================================================================
--- translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PluginWizard/IniTranslatorPluginWizard.dpk 2006-12-26 23:16:57 UTC (rev 240)
@@ -28,11 +28,8 @@
requires
rtl,
- designide,
- TntUnicodeVcl_R70;
+ designide;
-{%RC 'includes.rc'}
-
contains
PluginsDesign in 'PluginsDesign.pas',
PluginWizardForm in 'PluginWizardForm.pas' {frmTranslatorPluginWizard},
Modified: translator/trunk/src/PluginWizard/PluginWizardForm.dfm
===================================================================
--- translator/trunk/src/PluginWizard/PluginWizardForm.dfm 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PluginWizard/PluginWizardForm.dfm 2006-12-26 23:16:57 UTC (rev 240)
@@ -19,7 +19,7 @@
247)
PixelsPerInch = 96
TextHeight = 13
- object btnOK: TTntButton
+ object btnOK: TButton
Left = 256
Top = 211
Width = 75
@@ -31,7 +31,7 @@
TabOrder = 1
OnClick = btnOKClick
end
- object btnCancel: TTntButton
+ object btnCancel: TButton
Left = 347
Top = 211
Width = 75
@@ -42,7 +42,7 @@
ModalResult = 2
TabOrder = 2
end
- object TntGroupBox1: TTntGroupBox
+ object GroupBox1: TGroupBox
Left = 7
Top = 7
Width = 433
@@ -54,28 +54,28 @@
DesignSize = (
433
195)
- object TntLabel1: TTntLabel
+ object Label1: TLabel
Left = 16
Top = 28
Width = 84
Height = 13
Caption = '&Plugin classname:'
end
- object TntLabel2: TTntLabel
+ object Label2: TLabel
Left = 16
Top = 98
Width = 24
Height = 13
Caption = 'Title:'
end
- object TntLabel3: TTntLabel
+ object Label3: TLabel
Left = 16
Top = 140
Width = 108
Height = 13
Caption = 'Transintf.pas location:'
end
- object edClassName: TTntEdit
+ object edClassName: TEdit
Left = 16
Top = 42
Width = 380
@@ -83,7 +83,7 @@
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
end
- object rbFileParser: TTntRadioButton
+ object rbFileParser: TRadioButton
Left = 32
Top = 70
Width = 113
@@ -93,7 +93,7 @@
TabOrder = 1
TabStop = True
end
- object rbToolPlugin: TTntRadioButton
+ object rbToolPlugin: TRadioButton
Left = 168
Top = 70
Width = 113
@@ -101,7 +101,7 @@
Caption = 'IToolPlugin'
TabOrder = 2
end
- object edTitle: TTntEdit
+ object edTitle: TEdit
Left = 16
Top = 112
Width = 380
@@ -109,7 +109,7 @@
Anchors = [akLeft, akTop, akRight]
TabOrder = 3
end
- object edTransIntfPath: TTntEdit
+ object edTransIntfPath: TEdit
Left = 16
Top = 154
Width = 380
@@ -117,7 +117,7 @@
Anchors = [akLeft, akTop, akRight]
TabOrder = 4
end
- object TntButton1: TTntButton
+ object btnBrowse: TButton
Left = 402
Top = 154
Width = 21
@@ -125,16 +125,16 @@
Anchors = [akTop, akRight]
Caption = '...'
TabOrder = 5
- OnClick = TntButton1Click
+ OnClick = btnBrowseClick
end
end
- object odTransIntf: TTntOpenDialog
+ object odTransIntf: TOpenDialog
DefaultExt = 'pas'
Filter =
- 'TransIntf file|TRansIntf.pas|Source files (*.pas)|*.pas|All file' +
+ 'TransIntf file|TransIntf.pas|Source files (*.pas)|*.pas|All file' +
's (*.*)|*.*'
InitialDir = '.'
- Left = 308
- Top = 70
+ Left = 182
+ Top = 28
end
end
Modified: translator/trunk/src/PluginWizard/PluginWizardForm.pas
===================================================================
--- translator/trunk/src/PluginWizard/PluginWizardForm.pas 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PluginWizard/PluginWizardForm.pas 2006-12-26 23:16:57 UTC (rev 240)
@@ -23,24 +23,24 @@
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, PluginOptions, TntStdCtrls, TntDialogs;
+ Dialogs, StdCtrls, PluginOptions;
type
TfrmTranslatorPluginWizard = class(TForm)
- btnOK: TTntButton;
- btnCancel: TTntButton;
- TntGroupBox1: TTntGroupBox;
- TntLabel1: TTntLabel;
- edClassName: TTntEdit;
- rbFileParser: TTntRadioButton;
- rbToolPlugin: TTntRadioButton;
- TntLabel2: TTntLabel;
- edTitle: TTntEdit;
- TntLabel3: TTntLabel;
- edTransIntfPath: TTntEdit;
- TntButton1: TTntButton;
- odTransIntf: TTntOpenDialog;
- procedure TntButton1Click(Sender: TObject);
+ btnOK: TButton;
+ btnCancel: TButton;
+ GroupBox1: TGroupBox;
+ Label1: TLabel;
+ edClassName: TEdit;
+ rbFileParser: TRadioButton;
+ rbToolPlugin: TRadioButton;
+ Label2: TLabel;
+ edTitle: TEdit;
+ Label3: TLabel;
+ edTransIntfPath: TEdit;
+ btnBrowse: TButton;
+ odTransIntf: TOpenDialog;
+ procedure btnBrowseClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
private
{ Private declarations }
@@ -79,7 +79,7 @@
end;
end;
-procedure TfrmTranslatorPluginWizard.TntButton1Click(Sender: TObject);
+procedure TfrmTranslatorPluginWizard.btnBrowseClick(Sender: TObject);
begin
odTransIntf.FileName := edTransIntfPath.Text;
if odTransIntf.Execute then
Modified: translator/trunk/src/PluginWizard/PluginsDesign.pas
===================================================================
--- translator/trunk/src/PluginWizard/PluginsDesign.pas 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PluginWizard/PluginsDesign.pas 2006-12-26 23:16:57 UTC (rev 240)
@@ -25,8 +25,14 @@
type
// creates a repository wizard for IniTranslator plugins.
// The wizard can be access from the "New" tab in the Repository
- TPluginWizard = class(TNotifierObject, IInterface, IOTANotifier, IOTAWizard, IOTARepositoryWizard, IOTARepositoryWizard60, IOTAProjectWizard)
+ TPluginWizard = class(TInterfacedObject, IInterface, IOTANotifier,
+ IOTAWizard, IOTARepositoryWizard, IOTAProjectWizard)
public
+ { IOTANotifier }
+ procedure AfterSave;
+ procedure BeforeSave;
+ procedure Destroyed;
+ procedure Modified;
{ IOTAWizard }
function GetIDString: string;
function GetName: string;
@@ -164,6 +170,21 @@
{ TPluginWizard }
+procedure TPluginWizard.AfterSave;
+begin
+ // do nothing
+end;
+
+procedure TPluginWizard.BeforeSave;
+begin
+ // do nothing
+end;
+
+procedure TPluginWizard.Destroyed;
+begin
+ // do nothing
+end;
+
procedure TPluginWizard.Execute;
var
Module: IOTAModule;
@@ -216,6 +237,11 @@
Result := [wsEnabled];
end;
+procedure TPluginWizard.Modified;
+begin
+ // do nothing
+end;
+
{ TPluginCreator }
constructor TPluginCreator.Create(Options: TPluginOptions);
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof
===================================================================
--- translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/PolyglotPlugin/PolyGlotParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,9 +34,9 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=8
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
@@ -47,11 +47,12 @@
[Version Info Keys]
CompanyName=IniTranslator
FileDescription=PolyGlotTranslator Plugin for IniTranslator
-FileVersion=1.7.0.0
+FileVersion=1.9.0.50
InternalName=PolyGlotParser.dll
LegalCopyright=Copyright (c) 2004 by Chris Thornton; all rights reserved
LegalTrademarks=
OriginalFilename=PolyGlotParser.dll
ProductName=PolyGlotTranslator Plugin for IniTranslator
-ProductVersion=1.7.0.0
+ProductVersion=1.9.0.50
Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/PolyglotPlugin/PolyGlotParser.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/SDFSplit/SDFSplit.dof
===================================================================
--- translator/trunk/src/SDFSplit/SDFSplit.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/SDFSplit/SDFSplit.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,24 +34,27 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=0
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
-Locale=1053
+Locale=1033
CodePage=1252
[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
+CompanyName=Peter Th\xF6rnqvist
+FileDescription=SDF Split
+FileVersion=1.9.0.50
+InternalName=SDFSplit.exe
+LegalCopyright=Copyright (c) 2003-2006 by Peter Th\xF6rnqvist; all rights reserved
LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
+OriginalFilename=SDFSplit.exe
+ProductName=SDFSplit
+ProductVersion=1.9.0.50
+Webpage=http://initranslator.sourceforge.net
+License=Mozilla Public License 1.1
+Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 27 december 2006 00:13
Modified: translator/trunk/src/SDFSplit/SDFSplit.res
===================================================================
(Binary files differ)
Modified: translator/trunk/src/SciTEPlugin/SciTEParser.dof
===================================================================
--- translator/trunk/src/SciTEPlugin/SciTEParser.dof 2006-12-26 14:39:01 UTC (rev 239)
+++ translator/trunk/src/SciTEPlugin/SciTEParser.dof 2006-12-26 23:16:57 UTC (rev 240)
@@ -34,24 +34,25 @@
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
-MinorVer=8
+MinorVer=9
Release=0
-Build=0
+Build=50
Debug=0
PreRelease=0
Special=0
Private=0
-DLL=0
+DLL=1
Locale=1033
CodePage=1252
[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.8.0.0
-InternalName=
-LegalCopyright=
+CompanyName=IniTranslator
+FileDescription=SciTE Plugin for IniTran...
[truncated message content] |
|
From: <pe...@us...> - 2007-08-14 16:29:54
|
Revision: 249
http://initranslator.svn.sourceforge.net/initranslator/?rev=249&view=rev
Author: peter3
Date: 2007-08-14 09:29:55 -0700 (Tue, 14 Aug 2007)
Log Message:
-----------
- consistent formatting (DelForEx)
Modified Paths:
--------------
translator/trunk/src/AppConsts.pas
translator/trunk/src/AppOptions.pas
translator/trunk/src/AppUtils.pas
translator/trunk/src/ApplicationServices.pas
translator/trunk/src/BaseForm.pas
translator/trunk/src/ColorsFrm.pas
translator/trunk/src/CommentsFrm.pas
translator/trunk/src/CommonUtils.pas
translator/trunk/src/DCPPPlugin/DCPPParser.res
translator/trunk/src/DictEditFrm.pas
translator/trunk/src/DictTranslationSelectDlg.pas
translator/trunk/src/Dictionary.pas
translator/trunk/src/EditItemFrm.pas
translator/trunk/src/ExceptDlg.pas
translator/trunk/src/ExceptDlgMail.pas
translator/trunk/src/ExtToolsFrm.pas
translator/trunk/src/FileMonitor.pas
translator/trunk/src/FindReplaceFrm.pas
translator/trunk/src/FoxitPlugin/FoxitParser.res
translator/trunk/src/IBForumsPlugin/IBForumsParser.res
translator/trunk/src/ImportExportFrm.pas
translator/trunk/src/KbdCfgFrame.pas
translator/trunk/src/KbdCfgFrm.pas
translator/trunk/src/KeePassPlugin/KeePassParser.res
translator/trunk/src/MSDictPlugin/MSDictParser.res
translator/trunk/src/MainFrm.pas
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/MsgTranslate.pas
translator/trunk/src/OlegPlugin/OlegParser.res
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParser.res
translator/trunk/src/OptionsFrm.pas
translator/trunk/src/OrphansFrm.pas
translator/trunk/src/PHPNukePlugin/PHPNukeParser.res
translator/trunk/src/PHPPlugin/PHPParser.res
translator/trunk/src/POPlugin/POParser.res
translator/trunk/src/PolyglotPlugin/PolyGlotParser.res
translator/trunk/src/PromptArgsFrm.pas
translator/trunk/src/SDFSplit/SDFSplit.res
translator/trunk/src/SciTEPlugin/SciTEParser.res
translator/trunk/src/ShortCutEdit.pas
translator/trunk/src/SuspiciousConfigFrm.pas
translator/trunk/src/TMXPlugin/TMXParser.res
translator/trunk/src/ToolConsistency/ToolConsistency.res
translator/trunk/src/ToolItems.pas
translator/trunk/src/ToolKeyCheck/ToolKeyCheck.res
translator/trunk/src/ToolListEdit/ToolListEdit.res
translator/trunk/src/ToolPropertiesView/ToolPropertiesView.res
translator/trunk/src/ToolTreeView/ToolTreeView.res
translator/trunk/src/ToolTrim/ToolTrim.res
translator/trunk/src/TransIntf.pas
translator/trunk/src/UndoList.pas
translator/trunk/src/WixPlugin/WixParser.res
translator/trunk/src/XLIFFPlugin/XLIFFParser.res
translator/trunk/src/XilisoftPlugin/XilisoftParser.res
translator/trunk/src/translator.res
Modified: translator/trunk/src/AppConsts.pas
===================================================================
--- translator/trunk/src/AppConsts.pas 2007-08-14 12:34:51 UTC (rev 248)
+++ translator/trunk/src/AppConsts.pas 2007-08-14 16:29:55 UTC (rev 249)
@@ -136,7 +136,7 @@
cRegMRUKey = '\Software\Peter3\Ini Translator\';
cIniToolbarKey = 'Toolbars';
cIniMRUKey = 'MRU';
- cArgsMacros: array[0..18] of PWideChar =
+ cArgsMacros:array[0..18] of PWideChar =
(
'$(OrigLine)',
'$(OrigText)',
@@ -158,7 +158,7 @@
'$(WinDir)',
'$(SysDir)'
);
- cDirMacros: array[0..5] of PWideChar =
+ cDirMacros:array[0..5] of PWideChar =
(
'$(OrigDir)',
'$(TransDir)',
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2007-08-14 12:34:51 UTC (rev 248)
+++ translator/trunk/src/AppOptions.pas 2007-08-14 16:29:55 UTC (rev 249)
@@ -26,206 +26,206 @@
type
PAppWindowInfo = ^TAppWindowInfo;
TAppWindowInfo = record
- Name: shortstring;
- BoundsRect: TRect;
- WindowState: TWindowState;
+ Name:shortstring;
+ BoundsRect:TRect;
+ WindowState:TWindowState;
end;
TToolItem = class(TCollectionItem)
private
- FCaptureOutput: boolean;
- FWaitForCompletion: boolean;
- FPromptForArguments: boolean;
- FInitialDirectory: WideString;
- FArguments: WideString;
- FTitle: WideString;
- FCommand: WideString;
- FUseShellExecute: boolean;
- FShortCut: Word;
- function GetAsString: WideString;
- procedure SetAsString(const Value: WideString);
+ FCaptureOutput:boolean;
+ FWaitForCompletion:boolean;
+ FPromptForArguments:boolean;
+ FInitialDirectory:WideString;
+ FArguments:WideString;
+ FTitle:WideString;
+ FCommand:WideString;
+ FUseShellExecute:boolean;
+ FShortCut:Word;
+ function GetAsString:WideString;
+ procedure SetAsString(const Value:WideString);
public
- procedure Assign(Source: TPersistent); override;
- property AsString: WideString read GetAsString write SetAsString;
+ procedure Assign(Source:TPersistent); override;
+ property AsString:WideString read GetAsString write SetAsString;
published
- property Title: WideString read FTitle write FTitle;
- property Command: WideString read FCommand write FCommand;
- property Arguments: WideString read FArguments write FArguments;
- property InitialDirectory: WideString read FInitialDirectory write FInitialDirectory;
- property CaptureOutput: boolean read FCaptureOutput write FCaptureOutput;
- property PromptForArguments: boolean read FPromptForArguments write FPromptForArguments;
- property WaitForCompletion: boolean read FWaitForCompletion write FWaitForCompletion;
- property UseShellExecute: boolean read FUseShellExecute write FUseShellExecute;
- property ShortCut: Word read FShortCut write FShortCut;
+ property Title:WideString read FTitle write FTitle;
+ property Command:WideString read FCommand write FCommand;
+ property Arguments:WideString read FArguments write FArguments;
+ property InitialDirectory:WideString read FInitialDirectory write FInitialDirectory;
+ property CaptureOutput:boolean read FCaptureOutput write FCaptureOutput;
+ property PromptForArguments:boolean read FPromptForArguments write FPromptForArguments;
+ property WaitForCompletion:boolean read FWaitForCompletion write FWaitForCompletion;
+ property UseShellExecute:boolean read FUseShellExecute write FUseShellExecute;
+ property ShortCut:Word read FShortCut write FShortCut;
end;
TToolItems = class(TCollection)
private
- function GetItem(Index: integer): TToolItem;
- procedure SetItem(Index: integer; const Value: TToolItem);
+ function GetItem(Index:integer):TToolItem;
+ procedure SetItem(Index:integer; const Value:TToolItem);
public
constructor Create;
- procedure Assign(Source: TPersistent); override;
- function Add: TToolItem;
- function IndexOf(const Title: WideString): integer;
- procedure Exchange(Index1, Index2: integer);
- procedure LoadFromIni(ini: TWideCustomIniFile);
- procedure SaveToIni(ini: TWideCustomIniFile);
- property Items[Index: integer]: TToolItem read GetItem write SetItem; default;
+ procedure Assign(Source:TPersistent); override;
+ function Add:TToolItem;
+ function IndexOf(const Title:WideString):integer;
+ procedure Exchange(Index1, Index2:integer);
+ procedure LoadFromIni(ini:TWideCustomIniFile);
+ procedure SaveToIni(ini:TWideCustomIniFile);
+ property Items[Index:integer]:TToolItem read GetItem write SetItem; default;
end;
TAppOptions = class
private
- FWindowInfos: TTntStrings;
- FInvertDictionary: boolean;
- FSaveFormPos: boolean;
- FSaveOnReturn: boolean;
- FShowToolTips: boolean;
- FAutoMoveToNext: boolean;
- FShowDetails: boolean;
- FShowQuotes: boolean;
- FShowToolTipShortCuts: boolean;
- FSaveMinMaxState: boolean;
- FSplitterPosition: integer;
- FAppTitle: WideString;
- FOriginalFile: WideString;
- FLanguageFile: WideString;
- FTranslationFile: WideString;
- FHelpFile: WideString;
- FDictionaryFile: WideString;
- FFilename: WideString;
- FFilterIndex: integer;
- FGlobalPath: boolean;
- FPinCommentWindow: boolean;
- FMatchCase: boolean;
- FMatchLine: boolean;
- FSearchUp: boolean;
- FFindText: WideString;
- FReplaceText: WideString;
- FReplaceHistory: WideString;
- FFindHistory: WideString;
- FFindInIndex: integer;
- FTransEncoding: integer;
- FOrigEncoding: integer;
- FMonitorFiles: boolean;
- FTheme: WideString;
- FFuzzySearch: boolean;
- FDictIgnoreSpeedKeys: boolean;
- FShowFullNameInColumns: boolean;
- FUseTranslationEverywhere: boolean;
- FAutoFocusTranslation: boolean;
- FTools: TToolItems;
- FMisMatchItems: WideString;
- FMisMatchTrailingSpaces: boolean;
- FMisMatchLeadingSpaces: boolean;
- FMisMatchIdentical: boolean;
- FMisMatchEmptyTranslation: boolean;
- FMisMatchEndControl: boolean;
- FDictIgnoreNonEmpty: boolean;
- FDictEditFilter: Integer;
- FColorEvenRow: TColor;
- FColorUntranslated: TColor;
- FColorOddRow: TColor;
- FColorFontUntranslated: TColor;
- FColorFontOddRow: TColor;
- FColorFontEvenRow: TColor;
- FDefaultOrigEncoding: integer;
- FDefaultTransEncoding: integer;
- FFooter: TTntStrings;
- FHeader: TTntStrings;
- FFontSize: integer;
- FFontName: WideString;
- procedure ReadWindowInfos(ini: TWideCustomIniFile);
- procedure WriteWindowInfos(ini: TWideCustomIniFile);
- function GetWindowInfo(AForm: TForm): TAppWindowInfo;
- procedure SetWindowInfo(AForm: TForm; const Value: TAppWindowInfo);
- 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);
+ FWindowInfos:TTntStrings;
+ FInvertDictionary:boolean;
+ FSaveFormPos:boolean;
+ FSaveOnReturn:boolean;
+ FShowToolTips:boolean;
+ FAutoMoveToNext:boolean;
+ FShowDetails:boolean;
+ FShowQuotes:boolean;
+ FShowToolTipShortCuts:boolean;
+ FSaveMinMaxState:boolean;
+ FSplitterPosition:integer;
+ FAppTitle:WideString;
+ FOriginalFile:WideString;
+ FLanguageFile:WideString;
+ FTranslationFile:WideString;
+ FHelpFile:WideString;
+ FDictionaryFile:WideString;
+ FFilename:WideString;
+ FFilterIndex:integer;
+ FGlobalPath:boolean;
+ FPinCommentWindow:boolean;
+ FMatchCase:boolean;
+ FMatchLine:boolean;
+ FSearchUp:boolean;
+ FFindText:WideString;
+ FReplaceText:WideString;
+ FReplaceHistory:WideString;
+ FFindHistory:WideString;
+ FFindInIndex:integer;
+ FTransEncoding:integer;
+ FOrigEncoding:integer;
+ FMonitorFiles:boolean;
+ FTheme:WideString;
+ FFuzzySearch:boolean;
+ FDictIgnoreSpeedKeys:boolean;
+ FShowFullNameInColumns:boolean;
+ FUseTranslationEverywhere:boolean;
+ FAutoFocusTranslation:boolean;
+ FTools:TToolItems;
+ FMisMatchItems:WideString;
+ FMisMatchTrailingSpaces:boolean;
+ FMisMatchLeadingSpaces:boolean;
+ FMisMatchIdentical:boolean;
+ FMisMatchEmptyTranslation:boolean;
+ FMisMatchEndControl:boolean;
+ FDictIgnoreNonEmpty:boolean;
+ FDictEditFilter:Integer;
+ FColorEvenRow:TColor;
+ FColorUntranslated:TColor;
+ FColorOddRow:TColor;
+ FColorFontUntranslated:TColor;
+ FColorFontOddRow:TColor;
+ FColorFontEvenRow:TColor;
+ FDefaultOrigEncoding:integer;
+ FDefaultTransEncoding:integer;
+ FFooter:TTntStrings;
+ FHeader:TTntStrings;
+ FFontSize:integer;
+ FFontName:WideString;
+ procedure ReadWindowInfos(ini:TWideCustomIniFile);
+ procedure WriteWindowInfos(ini:TWideCustomIniFile);
+ function GetWindowInfo(AForm:TForm):TAppWindowInfo;
+ procedure SetWindowInfo(AForm:TForm; const Value:TAppWindowInfo);
+ 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);
+ constructor Create(const AFilename:WideString);
destructor Destroy; override;
procedure ClearWindowInfos;
- procedure SaveToFile(AFilename: WideString);
- procedure LoadFromFile(AFilename: WideString);
- property Filename: WideString read FFilename;
- property WindowInfos[AForm: TForm]: TAppWindowInfo read GetWindowInfo write SetWindowInfo;
+ procedure SaveToFile(AFilename:WideString);
+ procedure LoadFromFile(AFilename:WideString);
+ 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;
- property SaveMinMaxState: boolean read FSaveMinMaxState write FSaveMinMaxState default true;
- property ShowDetails: boolean read FShowDetails write FShowDetails;
- property SaveOnReturn: boolean read FSaveOnReturn write FSaveOnReturn;
- property AutoMoveToNext: boolean read FAutoMoveToNext write FAutoMoveToNext;
- property ShowToolTips: boolean read FShowToolTips write FShowToolTips;
- property ShowToolTipShortCuts: boolean read FShowToolTipShortCuts write FShowToolTipShortCuts;
- property DictIgnoreSpeedKeys: boolean read FDictIgnoreSpeedKeys write FDictIgnoreSpeedKeys;
- property LanguageFile: WideString read FLanguageFile write FLanguageFile;
- property GlobalPath: boolean read FGlobalPath write FGlobalPath;
- property UseTranslationEverywhere: boolean read FUseTranslationEverywhere write FUseTranslationEverywhere;
- property AutoFocusTranslation: boolean read FAutoFocusTranslation write FAutoFocusTranslation;
- property HelpFile: WideString read FHelpFile write FHelpFile;
- property DictionaryFile: WideString read FDictionaryFile write FDictionaryFile;
+ 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;
+ property SaveMinMaxState:boolean read FSaveMinMaxState write FSaveMinMaxState default true;
+ property ShowDetails:boolean read FShowDetails write FShowDetails;
+ property SaveOnReturn:boolean read FSaveOnReturn write FSaveOnReturn;
+ property AutoMoveToNext:boolean read FAutoMoveToNext write FAutoMoveToNext;
+ property ShowToolTips:boolean read FShowToolTips write FShowToolTips;
+ property ShowToolTipShortCuts:boolean read FShowToolTipShortCuts write FShowToolTipShortCuts;
+ property DictIgnoreSpeedKeys:boolean read FDictIgnoreSpeedKeys write FDictIgnoreSpeedKeys;
+ property LanguageFile:WideString read FLanguageFile write FLanguageFile;
+ property GlobalPath:boolean read FGlobalPath write FGlobalPath;
+ property UseTranslationEverywhere:boolean read FUseTranslationEverywhere write FUseTranslationEverywhere;
+ property AutoFocusTranslation:boolean read FAutoFocusTranslation write FAutoFocusTranslation;
+ property HelpFile:WideString read FHelpFile write FHelpFile;
+ property DictionaryFile:WideString read FDictionaryFile write FDictionaryFile;
- property TranslationFile: WideString read FTranslationFile write FTranslationFile;
- property DefaultTransEncoding: integer read FDefaultTransEncoding write FDefaultTransEncoding;
- property DefaultOrigEncoding: integer read FDefaultOrigEncoding write FDefaultOrigEncoding;
- property TransEncoding: integer read FTransEncoding write FTransEncoding;
- property OriginalFile: WideString read FOriginalFile write FOriginalFile;
- property OrigEncoding: integer read FOrigEncoding write FOrigEncoding;
- 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 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;
- property Footer: TTntStrings read FFooter write SetFooter;
+ property TranslationFile:WideString read FTranslationFile write FTranslationFile;
+ property DefaultTransEncoding:integer read FDefaultTransEncoding write FDefaultTransEncoding;
+ property DefaultOrigEncoding:integer read FDefaultOrigEncoding write FDefaultOrigEncoding;
+ property TransEncoding:integer read FTransEncoding write FTransEncoding;
+ property OriginalFile:WideString read FOriginalFile write FOriginalFile;
+ property OrigEncoding:integer read FOrigEncoding write FOrigEncoding;
+ 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 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;
+ property Footer:TTntStrings read FFooter write SetFooter;
// find replace
- property FindText: WideString read FFindText write FFindText;
- property ReplaceText: WideString read FReplaceText write FReplaceText;
- property FindHistory: WideString read FFindHistory write FFindHistory;
- property ReplaceHistory: WideString read FReplaceHistory write FReplaceHistory;
- property MatchLine: boolean read FMatchLine write FMatchLine;
- property MatchCase: boolean read FMatchCase write FMatchCase;
- property SearchUp: boolean read FSearchUp write FSearchUp;
- property FuzzySearch: boolean read FFuzzySearch write FFuzzySearch;
- property FindInIndex: integer read FFindInIndex write FFindInIndex;
+ property FindText:WideString read FFindText write FFindText;
+ property ReplaceText:WideString read FReplaceText write FReplaceText;
+ property FindHistory:WideString read FFindHistory write FFindHistory;
+ property ReplaceHistory:WideString read FReplaceHistory write FReplaceHistory;
+ property MatchLine:boolean read FMatchLine write FMatchLine;
+ property MatchCase:boolean read FMatchCase write FMatchCase;
+ property SearchUp:boolean read FSearchUp write FSearchUp;
+ property FuzzySearch:boolean read FFuzzySearch write FFuzzySearch;
+ property FindInIndex:integer read FFindInIndex write FFindInIndex;
- property MisMatchItems: WideString read FMisMatchItems write FMisMatchItems;
- property MisMatchLeadingSpaces: boolean read FMisMatchLeadingSpaces write FMisMatchLeadingSpaces;
- property MisMatchTrailingSpaces: boolean read FMisMatchTrailingSpaces write FMisMatchTrailingSpaces;
- property MisMatchEndControl: boolean read FMisMatchEndControl write FMisMatchEndControl;
- property MisMatchIdentical: boolean read FMisMatchIdentical write FMisMatchIdentical;
- property MisMatchEmptyTranslation: boolean read FMisMatchEmptyTranslation write FMisMatchEmptyTranslation;
+ property MisMatchItems:WideString read FMisMatchItems write FMisMatchItems;
+ property MisMatchLeadingSpaces:boolean read FMisMatchLeadingSpaces write FMisMatchLeadingSpaces;
+ property MisMatchTrailingSpaces:boolean read FMisMatchTrailingSpaces write FMisMatchTrailingSpaces;
+ property MisMatchEndControl:boolean read FMisMatchEndControl write FMisMatchEndControl;
+ property MisMatchIdentical:boolean read FMisMatchIdentical write FMisMatchIdentical;
+ property MisMatchEmptyTranslation:boolean read FMisMatchEmptyTranslation write FMisMatchEmptyTranslation;
- property PinCommentWindow: boolean read FPinCommentWindow write FPinCommentWindow default true;
- property ShowFullNameInColumns: boolean read FShowFullNameInColumns write FShowFullNameInColumns default false;
- property Tools: TToolItems read FTools write SetTools;
+ property PinCommentWindow:boolean read FPinCommentWindow write FPinCommentWindow default true;
+ property ShowFullNameInColumns:boolean read FShowFullNameInColumns write FShowFullNameInColumns default false;
+ property Tools:TToolItems read FTools write SetTools;
- property DictIgnoreNonEmpty: boolean read FDictIgnoreNonEmpty write FDictIgnoreNonEmpty;
- property DictEditFilter: Integer read FDictEditFilter write FDictEditFilter;
+ property DictIgnoreNonEmpty:boolean read FDictIgnoreNonEmpty write FDictIgnoreNonEmpty;
+ property DictEditFilter:Integer read FDictEditFilter write FDictEditFilter;
- property ColorUntranslated: TColor read FColorUntranslated write FColorUntranslated;
- property ColorFontUntranslated: TColor read FColorFontUntranslated write FColorFontUntranslated;
+ property ColorUntranslated:TColor read FColorUntranslated write FColorUntranslated;
+ property ColorFontUntranslated:TColor read FColorFontUntranslated write FColorFontUntranslated;
- property ColorEvenRow: TColor read FColorEvenRow write FColorEvenRow;
- property ColorFontEvenRow: TColor read FColorFontEvenRow write FColorFontEvenRow;
- property ColorOddRow: TColor read FColorOddRow write FColorOddRow;
- property ColorFontOddRow: TColor read FColorFontOddRow write FColorFontOddRow;
+ property ColorEvenRow:TColor read FColorEvenRow write FColorEvenRow;
+ property ColorFontEvenRow:TColor read FColorFontEvenRow write FColorFontEvenRow;
+ property ColorOddRow:TColor read FColorOddRow write FColorOddRow;
+ property ColorFontOddRow:TColor read FColorFontOddRow write FColorFontOddRow;
end;
implementation
uses
StrUtils, AppConsts, AppUtils, CommonUtils, TntSysUtils;
-function StrToFontStyles(const S: WideString): TFontStyles;
+function StrToFontStyles(const S:WideString):TFontStyles;
begin
Result := [];
if Pos('B', S) > 0 then
@@ -238,11 +238,11 @@
Include(Result, fsStrikeout);
end;
-function FontStylesToStr(Styles: TFontStyles): WideString;
+function FontStylesToStr(Styles:TFontStyles):WideString;
const
- cStyles: array[TFontStyle] of PWideChar = ('B', 'I', 'U', 'S');
+ cStyles:array[TFontStyle] of PWideChar = ('B', 'I', 'U', 'S');
var
- i: TFontStyle;
+ i:TFontStyle;
begin
Result := '';
for i := Low(cStyles) to High(cStyles) do
@@ -252,7 +252,7 @@
{ TToolItem }
-procedure TToolItem.Assign(Source: TPersistent);
+procedure TToolItem.Assign(Source:TPersistent);
begin
if Source is TToolItem then
AsString := TToolItem(Source).AsString
@@ -260,8 +260,9 @@
inherited;
end;
-function TToolItem.GetAsString: WideString;
-var S: TTntStringlist;
+function TToolItem.GetAsString:WideString;
+var
+ S:TTntStringlist;
begin
S := TTntStringlist.Create;
try
@@ -280,8 +281,9 @@
end;
end;
-procedure TToolItem.SetAsString(const Value: WideString);
-var S: TTntStringlist;
+procedure TToolItem.SetAsString(const Value:WideString);
+var
+ S:TTntStringlist;
begin
S := TTntStringlist.Create;
try
@@ -311,13 +313,14 @@
{ TToolItems }
-function TToolItems.Add: TToolItem;
+function TToolItems.Add:TToolItem;
begin
Result := TToolItem(inherited Add);
end;
-procedure TToolItems.Assign(Source: TPersistent);
-var i: integer;
+procedure TToolItems.Assign(Source:TPersistent);
+var
+ i:integer;
begin
if Source is TToolItems then
begin
@@ -334,8 +337,9 @@
inherited Create(TToolItem);
end;
-procedure TToolItems.Exchange(Index1, Index2: integer);
-var F: TToolItem;
+procedure TToolItems.Exchange(Index1, Index2:integer);
+var
+ F:TToolItem;
begin
F := Add;
F.Assign(Items[Index1]);
@@ -344,12 +348,12 @@
Delete(Count - 1);
end;
-function TToolItems.GetItem(Index: integer): TToolItem;
+function TToolItems.GetItem(Index:integer):TToolItem;
begin
Result := TToolItem(inherited Items[Index]);
end;
-function TToolItems.IndexOf(const Title: WideString): integer;
+function TToolItems.IndexOf(const Title:WideString):integer;
begin
for Result := 0 to Count - 1 do
if WideSameText(Items[Result].Title, Title) then
@@ -357,10 +361,10 @@
Result := -1;
end;
-procedure TToolItems.LoadFromIni(ini: TWideCustomIniFile);
+procedure TToolItems.LoadFromIni(ini:TWideCustomIniFile);
var
- i: integer;
- S: TTntStringlist;
+ i:integer;
+ S:TTntStringlist;
begin
Clear;
S := TTntStringlist.Create;
@@ -373,15 +377,16 @@
end;
end;
-procedure TToolItems.SaveToIni(ini: TWideCustomIniFile);
-var i: integer;
+procedure TToolItems.SaveToIni(ini:TWideCustomIniFile);
+var
+ i:integer;
begin
ini.EraseSection('External Tools');
for i := 0 to Count - 1 do
ini.WriteString('External Tools', IntToStr(i), Items[i].AsString);
end;
-procedure TToolItems.SetItem(Index: integer; const Value: TToolItem);
+procedure TToolItems.SetItem(Index:integer; const Value:TToolItem);
begin
inherited Items[Index] := Value;
end;
@@ -389,14 +394,15 @@
{ TAppOptions }
procedure TAppOptions.ClearWindowInfos;
-var i: integer;
+var
+ i:integer;
begin
for i := 0 to FWindowInfos.Count - 1 do
Dispose(PAppWindowInfo(FWindowInfos.Objects[i]));
FWindowInfos.Clear;
end;
-constructor TAppOptions.Create(const AFilename: WideString);
+constructor TAppOptions.Create(const AFilename:WideString);
resourcestring
sDefault = 'Default';
begin
@@ -432,13 +438,14 @@
inherited;
end;
-procedure TAppOptions.ReadWindowInfos(ini: TWideCustomIniFile);
+procedure TAppOptions.ReadWindowInfos(ini:TWideCustomIniFile);
var
- i: integer;
- S: TTntStringlist;
+ i:integer;
+ S:TTntStringlist;
- procedure DecodeInfo(const Name, Value: WideString);
- var P: PAppWindowInfo;
+ procedure DecodeInfo(const Name, Value:WideString);
+ var
+ P:PAppWindowInfo;
begin
// format of Value: Left;Top;Right;Bottom;WindowState
if (FWindowInfos.IndexOf(Name) < 0) then
@@ -467,9 +474,9 @@
end;
end;
-procedure TAppOptions.LoadFromFile(AFilename: WideString);
+procedure TAppOptions.LoadFromFile(AFilename:WideString);
var
- ini: TWideMemIniFile;
+ ini:TWideMemIniFile;
begin
if AFilename = '' then
AFilename := GetAppStoragePath + 'translator.ini';
@@ -550,11 +557,11 @@
end;
end;
-procedure TAppOptions.WriteWindowInfos(ini: TWideCustomIniFile);
+procedure TAppOptions.WriteWindowInfos(ini:TWideCustomIniFile);
var
- i: integer;
+ i:integer;
- function EncodeInfo(Info: TAppWindowInfo): WideString;
+ function EncodeInfo(Info:TAppWindowInfo):WideString;
begin
// format of value: Left;Top;Right;Bottom;WindowState;
with Info.BoundsRect do
@@ -568,9 +575,9 @@
EncodeInfo(PAppWindowInfo(FWindowInfos.Objects[i])^));
end;
-procedure TAppOptions.SaveToFile(AFilename: WideString);
+procedure TAppOptions.SaveToFile(AFilename:WideString);
var
- ini: TWideMemIniFile;
+ ini:TWideMemIniFile;
begin
if AFilename = '' then
AFilename := GetAppStoragePath + 'translator.ini';
@@ -650,10 +657,10 @@
end;
end;
-function TAppOptions.GetWindowInfo(AForm: TForm): TAppWindowInfo;
+function TAppOptions.GetWindowInfo(AForm:TForm):TAppWindowInfo;
var
- i: integer;
- AName: WideString;
+ i:integer;
+ AName:WideString;
begin
Result.BoundsRect := AForm.BoundsRect;
Result.WindowState := AForm.WindowState;
@@ -673,11 +680,11 @@
end;
end;
-procedure TAppOptions.SetWindowInfo(AForm: TForm; const Value: TAppWindowInfo);
+procedure TAppOptions.SetWindowInfo(AForm:TForm; const Value:TAppWindowInfo);
var
- i: integer;
- P: PAppWindowInfo;
- AName: WideString;
+ i:integer;
+ P:PAppWindowInfo;
+ AName:WideString;
begin
if not SaveFormPos then
Exit;
@@ -707,22 +714,22 @@
end;
end;
-procedure TAppOptions.SetTools(const Value: TToolItems);
+procedure TAppOptions.SetTools(const Value:TToolItems);
begin
FTools.Assign(Value);
end;
-procedure TAppOptions.SetFooter(const Value: TTntStrings);
+procedure TAppOptions.SetFooter(const Value:TTntStrings);
begin
FFooter.Assign(Value);
end;
-procedure TAppOptions.SetHeader(const Value: TTntStrings);
+procedure TAppOptions.SetHeader(const Value:TTntStrings);
begin
FHeader.Assign(Value);
end;
-function TAppOptions.GetOption(const Section, Name: WideString): WideString;
+function TAppOptions.GetOption(const Section, Name:WideString):WideString;
begin
with TWideMemIniFile.Create(Filename) do
try
@@ -732,7 +739,7 @@
end;
end;
-procedure TAppOptions.SetOption(const Section, Name, Value: WideString);
+procedure TAppOptions.SetOption(const Section, Name, Value:WideString);
begin
with TWideMemIniFile.Create(Filename) do
try
Modified: translator/trunk/src/AppUtils.pas
===================================================================
--- translator/trunk/src/AppUtils.pas 2007-08-14 12:34:51 UTC (rev 248)
+++ translator/trunk/src/AppUtils.pas 2007-08-14 16:29:55 UTC (rev 249)
@@ -24,43 +24,43 @@
MsgTranslate, AppConsts, AppOptions, TransIntf,
TntClasses, TBXExtItems;
-procedure TBMRULoadFromIni(MRU: TTBXMRUList);
-procedure TBMRUSaveToIni(MRU: TTBXMRUList);
-procedure TBMRULoadFromReg(MRU: TTBXMRUList; RootKey: Cardinal; const Path: WideString);
-procedure TBMRUSaveToReg(MRU: TTBXMRUList; RootKey: Car...
[truncated message content] |
|
From: <pe...@us...> - 2007-08-14 16:41:59
|
Revision: 250
http://initranslator.svn.sourceforge.net/initranslator/?rev=250&view=rev
Author: peter3
Date: 2007-08-14 09:42:00 -0700 (Tue, 14 Aug 2007)
Log Message:
-----------
- consistent formatting (DelForEx)
Modified Paths:
--------------
translator/trunk/src/DCPPPlugin/DCPPParserImpl.pas
translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas
translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas
translator/trunk/src/KeePassPlugin/KeePassParserImpl.pas
translator/trunk/src/KeePassPlugin/KeePassParserLang.pas
translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas
translator/trunk/src/MozillaPlugin/MozillaPropsImpl.pas
translator/trunk/src/MsDictBuild/MainFrm.pas
translator/trunk/src/MsTermBuild/MainFrm.pas
translator/trunk/src/OlegPlugin/OlegParserImpl.pas
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIImportFrm.pas
translator/trunk/src/OpenOfficeGSIPlugin/OOGSIParserImpl.pas
translator/trunk/src/PHPNukePlugin/PHPNukeImpl.pas
translator/trunk/src/PHPPlugin/PHPParserImpl.pas
translator/trunk/src/POPlugin/POExportFrm.pas
translator/trunk/src/POPlugin/POParserImpl.pas
translator/trunk/src/PluginCommon/DualImportFrm.pas
translator/trunk/src/PluginCommon/PreviewExportFrm.pas
translator/trunk/src/PluginCommon/SingleImportFrm.pas
translator/trunk/src/PluginWizard/PluginOptions.pas
translator/trunk/src/PluginWizard/PluginWizardForm.pas
translator/trunk/src/PluginWizard/PluginsDesign.pas
translator/trunk/src/PolyglotPlugin/PolyGlotParserImpl.pas
translator/trunk/src/SDFSplit/MainFrm.pas
translator/trunk/src/SciTEPlugin/SciTEParserImpl.pas
translator/trunk/src/TMXPlugin/TMXImportFrm.pas
translator/trunk/src/TMXPlugin/TMXParserImpl.pas
translator/trunk/src/ToolConsistency/ToolConsistencyFrm.pas
translator/trunk/src/ToolConsistency/ToolConsistencyImpl.pas
translator/trunk/src/ToolKeyCheck/ToolKeyCheckEditFrm.pas
translator/trunk/src/ToolKeyCheck/ToolKeyCheckFrm.pas
translator/trunk/src/ToolKeyCheck/ToolKeyCheckImpl.pas
translator/trunk/src/ToolListEdit/ToolItemEditFrm.pas
translator/trunk/src/ToolListEdit/ToolListEditFrm.pas
translator/trunk/src/ToolListEdit/ToolListEditImpl.pas
translator/trunk/src/ToolPluginDemo/ToolPluginDemoImpl.pas
translator/trunk/src/ToolPropertiesView/ToolPropertiesViewFrm.pas
translator/trunk/src/ToolPropertiesView/ToolPropertiesViewImpl.pas
translator/trunk/src/ToolTreeView/ToolTreeViewFrm.pas
translator/trunk/src/ToolTreeView/ToolTreeViewImpl.pas
translator/trunk/src/ToolTrim/ToolTrimConsts.pas
translator/trunk/src/ToolTrim/ToolTrimFrm.pas
translator/trunk/src/ToolTrim/ToolTrimImpl.pas
translator/trunk/src/WideIniFiles.pas
translator/trunk/src/WixPlugin/WixParserImpl.pas
translator/trunk/src/XLIFFPlugin/XLIFFParserImpl.pas
translator/trunk/src/XilisoftPlugin/XilisoftParserCfgForm.pas
translator/trunk/src/XilisoftPlugin/XilisoftParserImpl.pas
Modified: translator/trunk/src/DCPPPlugin/DCPPParserImpl.pas
===================================================================
--- translator/trunk/src/DCPPPlugin/DCPPParserImpl.pas 2007-08-14 16:29:55 UTC (rev 249)
+++ translator/trunk/src/DCPPPlugin/DCPPParserImpl.pas 2007-08-14 16:42:00 UTC (rev 250)
@@ -26,21 +26,21 @@
type
TDCPPParser = class(TInterfacedObject, IUnknown, IFileParser, ILocalizable)
private
- FIndex: integer;
+ FIndex:integer;
FLanguageName, FAuthor, FVersion, FRevision, FRightToLeft, FEncoding,
- FOrigFile, FTransFile: WideString;
+ FOrigFile, FTransFile:WideString;
procedure LoadSettings;
procedure SaveSettings;
- procedure BuildPreview(Items: ITranslationItems; xml: IXMLDocument);
+ procedure BuildPreview(Items:ITranslationItems; xml:IXMLDocument);
public
- 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(const ApplicationServices: IApplicationServices); safecall;
- function GetString(out Section: WideString; out Name: WideString;
- out Value: WideString): WordBool; safecall;
+ 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(const ApplicationServices:IApplicationServices); safecall;
+ function GetString(out Section:WideString; out Name:WideString;
+ out Value:WideString):WordBool; safecall;
end;
implementation
@@ -51,12 +51,12 @@
{ TDCPPParser }
-function StripCRLF(const S: WideString): WideString;
+function StripCRLF(const S:WideString):WideString;
begin
Result := Tnt_WideStringReplace(S, CRLF, ' ', [rfReplaceAll]);
end;
-function XMLEncode(const S: WideString): WideString;
+function XMLEncode(const S:WideString):WideString;
begin
Result := Tnt_WideStringReplace(S, '&', '&', [rfReplaceAll]);
Result := Tnt_WideStringReplace(Result, '"', '"', [rfReplaceAll]);
@@ -65,10 +65,10 @@
Result := Tnt_WideStringReplace(Result, '>', '>', [rfReplaceAll]);
end;
-procedure TDCPPParser.BuildPreview(Items: ITranslationItems; xml: IXMLDocument);
+procedure TDCPPParser.BuildPreview(Items:ITranslationItems; xml:IXMLDocument);
var
- i, OldSort: integer;
- node, node2: IXMLNode;
+ i, OldSort:integer;
+ node, node2:IXMLNode;
begin
OldSort := Items.Sort;
try
@@ -95,17 +95,17 @@
end;
end;
-function TDCPPParser.Capabilities: Integer;
+function TDCPPParser.Capabilities:Integer;
begin
Result := CAP_IMPORT or CAP_EXPORT or CAP_ITEM_DELETE or CAP_ITEM_EDIT or CAP_ITEM_INSERT;
end;
-function TDCPPParser.Configure(Capability: Integer): HRESULT;
+function TDCPPParser.Configure(Capability:Integer):HRESULT;
begin
Result := S_FALSE;
end;
-function TDCPPParser.DisplayName(Capability: Integer): WideString;
+function TDCPPParser.DisplayName(Capability:Integer):WideString;
begin
case Capability of
CAP_IMPORT:
@@ -117,12 +117,12 @@
end;
end;
-function TDCPPParser.ExportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TDCPPParser.ExportItems(const Items, Orphans:ITranslationItems):HRESULT;
var
- ExportOrig: boolean;
- FOldSort: TTranslateSortType;
- xml: IXMLDocument;
- S: TTntStringlist;
+ ExportOrig:boolean;
+ FOldSort:TTranslateSortType;
+ xml:IXMLDocument;
+ S:TTntStringlist;
begin
Result := S_FALSE;
FOldSort := Items.Sort;
@@ -163,13 +163,13 @@
end;
function TDCPPParser.GetString(out Section, Name,
- Value: WideString): WordBool;
+ Value:WideString):WordBool;
begin
Result := true;
case FIndex of
- 0: Value := cImportTitle;
- 1: Value := cExportTitle;
- 3: Value := cDCPPFilter;
+ 0:Value := cImportTitle;
+ 1:Value := cExportTitle;
+ 3:Value := cDCPPFilter;
else
Result := false;
end;
@@ -184,17 +184,17 @@
end;
function TDCPPParser.ImportItems(const Items,
- Orphans: ITranslationItems): HRESULT;
+ Orphans:ITranslationItems):HRESULT;
var
- i, aIndex: integer;
- FOldSort: TTranslateSortType;
- TI: ITranslationItem;
- DualImport: boolean;
- xml: IXMLDocument;
- nodes: IDOMNodeList;
- node: IDOMNode;
+ i, aIndex:integer;
+ FOldSort:TTranslateSortType;
+ TI:ITranslationItem;
+ DualImport:boolean;
+ xml:IXMLDocument;
+ nodes:IDOMNodeList;
+ node:IDOMNode;
- procedure getSettings(const Nodes: IDOMNodeList);
+ procedure getSettings(const Nodes:IDOMNodeList);
begin
if (Nodes = nil) or (Nodes.length < 1) then
Exit;
@@ -308,7 +308,7 @@
Result := S_FALSE;
end;
-procedure TDCPPParser.Init(const ApplicationServices: IApplicationServices);
+procedure TDCPPParser.Init(const ApplicationServices:IApplicationServices);
begin
GlobalAppServices := ApplicationServices;
end;
@@ -357,4 +357,3 @@
end;
end.
-
Modified: translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas
===================================================================
--- translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas 2007-08-14 16:29:55 UTC (rev 249)
+++ translator/trunk/src/FoxitPlugin/FoxitParserImpl.pas 2007-08-14 16:42:00 UTC (rev 250)
@@ -25,23 +25,23 @@
type
TFoxitParser = class(TInterfacedObject, IUnknown, IFileParser)
private
- FOldAppHandle: Cardinal;
- FOrigFile, FTransFile: WideString;
+ FOldAppHandle:Cardinal;
+ FOrigFile, FTransFile:WideString;
procedure LoadSettings;
procedure SaveSettings;
- procedure BuildPreview(Items: ITranslationItems; Strings: TTntStrings);
+ procedure BuildPreview(Items:ITranslationItems; Strings:TTntStrings);
public
constructor Create;
destructor Destroy; override;
- 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(const ApplicationServices: IApplicationServices); safecall;
+ 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(const ApplicationServices:IApplicationServices); safecall;
end;
implementation
@@ -61,11 +61,11 @@
cReplaceID = '!!!!%d!!!!';
var
- XML: WideString = '';
+ XML:WideString = '';
{ TFoxitParser }
-function XMLEncode(const S: WideString): WideString;
+function XMLEncode(const S:WideString):WideString;
begin
Result := Tnt_WideStringReplace(S, '&', '&', [rfReplaceAll]);
Result := Tnt_WideStringReplace(Result, '"', '"', [rfReplaceAll]);
@@ -74,11 +74,11 @@
Result := Tnt_WideStringReplace(Result, '>', '>', [rfReplaceAll]);
end;
-procedure TFoxitParser.BuildPreview(Items: ITranslationItems; Strings: TTntStrings);
+procedure TFoxitParser.BuildPreview(Items:ITranslationItems; Strings:TTntStrings);
var
- i: integer;
- TI: ITranslationItem;
- S: WideString;
+ i:integer;
+ TI:ITranslationItem;
+ S:WideString;
begin
if XML = '' then
raise Exception.Create('Building Foxit file from scratch not supported. Please import from a Foxit file before trying to export.');
@@ -92,12 +92,12 @@
Strings.Text := S;
end;
-function TFoxitParser.Capabilities: Integer;
+function TFoxitParser.Capabilities:Integer;
begin
Result := CAP_IMPORT or CAP_EXPORT;
end;
-function TFoxitParser.Configure(Capability: Integer): HRESULT;
+function TFoxitParser.Configure(Capability:Integer):HRESULT;
begin
Result := E_NOTIMPL;
end;
@@ -114,7 +114,7 @@
inherited;
end;
-function TFoxitParser.DisplayName(Capability: Integer): WideString;
+function TFoxitParser.DisplayName(Capability:Integer):WideString;
begin
case Capability of
CAP_IMPORT:
@@ -126,10 +126,10 @@
end;
end;
-function TFoxitParser.ExportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TFoxitParser.ExportItems(const Items, Orphans:ITranslationItems):HRESULT;
var
- S: TTntStringlist;
- FOldSort: TTranslateSortType;
+ S:TTntStringlist;
+ FOldSort:TTranslateSortType;
begin
Result := S_FALSE;
FOldSort := Items.Sort;
@@ -155,21 +155,22 @@
end;
end;
-function TFoxitParser.ImportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TFoxitParser.ImportItems(const Items, Orphans:ITranslationItems):HRESULT;
type
TFoundItem = (fiOriginal, fiTranslation);
TFoundItems = set of TFoundItem;
var
- NodeList: IDOMNodeList;
+ NodeList:IDOMNodeList;
// Node, ChildNode: IDOMNode;
// i: integer;
- TI: ITranslationItem;
- FFoundItems: TFoundItems;
- FXMLImport: IXMLDocument;
+ TI:ITranslationItem;
+ FFoundItems:TFoundItems;
+ FXMLImport:IXMLDocument;
- function FindItem(const Section, Name: WideString): ITranslationItem;
- var i: integer;
+ function FindItem(const Section, Name:WideString):ITranslationItem;
+ var
+ i:integer;
begin
for i := 0 to Items.Count - 1 do
if WideSameText(Section, Items[i].Section) and WideSameText(Name, Items[i].Name) then
@@ -180,8 +181,9 @@
Result := nil;
end;
- function GetName(const ANode: IDOMNode): WideString;
- var N: IDOMNode;
+ function GetName(const ANode:IDOMNode):WideString;
+ var
+ N:IDOMNode;
begin
N := ANode;
Result := '';
@@ -195,8 +197,9 @@
end;
end;
- procedure ImportOriginalItem(const ItemName: WideString);
- var i: integer;
+ procedure ImportOriginalItem(const ItemName:WideString);
+ var
+ i:integer;
begin
NodeList := FXMLImport.DOMDocument.getElementsByTagName(ItemName);
if NodeList <> nil then
@@ -212,8 +215,9 @@
end;
- procedure ImportTranslationItem(const ItemName: WideString);
- var i: integer;
+ procedure ImportTranslationItem(const ItemName:WideString);
+ var
+ i:integer;
begin
NodeList := FXMLImport.DOMDocument.getElementsByTagName(ItemName);
if NodeList <> nil then
@@ -281,7 +285,7 @@
end;
end;
-procedure TFoxitParser.Init(const ApplicationServices: IApplicationServices);
+procedure TFoxitParser.Init(const ApplicationServices:IApplicationServices);
begin
Application.Handle := ApplicationServices.AppHandle;
end;
@@ -317,4 +321,3 @@
end;
end.
-
Modified: translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas
===================================================================
--- translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas 2007-08-14 16:29:55 UTC (rev 249)
+++ translator/trunk/src/IBForumsPlugin/IBForumsParserImpl.pas 2007-08-14 16:42:00 UTC (rev 250)
@@ -30,39 +30,39 @@
type
TIBFParser = class(TInterfacedObject, IUnknown, IFileParser, ILocalizable)
private
- FOldHandle: LongWord;
- FCount: integer;
- FAppServices: IApplicationServices;
- FOrigFile, FTransFile: WideString;
- FExportRect: TRect;
- procedure BuildPreview(const Items: ITranslationItems; Strings: TTntStrings);
- function DoImport(const Items, Orphans: ITranslationItems; const OrigFile, TransFile: WideString): boolean;
+ FOldHandle:LongWord;
+ FCount:integer;
+ FAppServices:IApplicationServices;
+ FOrigFile, FTransFile:WideString;
+ FExportRect:TRect;
+ procedure BuildPreview(const Items:ITranslationItems; Strings:TTntStrings);
+ function DoImport(const Items, Orphans:ITranslationItems; const OrigFile, TransFile:WideString):boolean;
procedure LoadSettings;
procedure SaveSettings;
- function Translate(const Value: WideString): WideString;
+ function Translate(const Value:WideString):WideString;
public
constructor Create;
destructor Destroy; override;
- function Configure(Capability: Integer): HRESULT; safecall;
- function DisplayName(Capability: Integer): WideString; safecall;
- function ExportItems(const Items, Orphans: ITranslationItems): HRESULT; safecall;
- function ImportItems(const Items, Orphans: ITranslationItems): HRESULT; safecall;
+ function Configure(Capability:Integer):HRESULT; safecall;
+ function DisplayName(Capability:Integer):WideString; safecall;
+ function ExportItems(const Items, Orphans:ITranslationItems):HRESULT; safecall;
+ function ImportItems(const Items, Orphans:ITranslationItems):HRESULT; safecall;
- procedure Init(const ApplicationServices: IApplicationServices); safecall;
- function Capabilities: Integer; safecall;
- function HandleOrig(const AFilename: WideString; const Items: ITranslationItems; const Orphans: ITranslationItems): Boolean; safecall;
- function HandleTrans(const AFilename: WideString; const Items: ITranslationItems; const Orphans: ITranslationItems): Boolean; safecall;
- function GetString(out Section: WideString; out Name: WideString; out Value: WideString): WordBool; safecall;
+ procedure Init(const ApplicationServices:IApplicationServices); safecall;
+ function Capabilities:Integer; safecall;
+ function HandleOrig(const AFilename:WideString; const Items:ITranslationItems; const Orphans:ITranslationItems):Boolean; safecall;
+ function HandleTrans(const AFilename:WideString; const Items:ITranslationItems; const Orphans:ITranslationItems):Boolean; safecall;
+ function GetString(out Section:WideString; out Name:WideString; out Value:WideString):WordBool; safecall;
end;
implementation
uses
- Windows, Forms, IniFiles, TntSysUtils, CommonUtils,
+ Windows, Forms, IniFiles, TntSysUtils, CommonUtils,
TntWindows, PreviewExportFrm, DualImportFrm;
var
- FHeader, FFooter: TTntStringlist;
+ FHeader, FFooter:TTntStringlist;
const
cPHPFilter:WideString = 'PHP files (*.php)|*.php|All files (*.*)|*.*';
@@ -74,7 +74,7 @@
SFmtErrorMsg:WideString = '%s';
-function MyWideDequotedStr(const S: WideString; Quote: WideChar): WideString;
+function MyWideDequotedStr(const S:WideString; Quote:WideChar):WideString;
//var LText:PWideChar;
begin
Result := S;
@@ -84,19 +84,19 @@
Result := Copy(S, 2, Length(S) - 2)
end;
-procedure ShowError(const Text: WideString);
+procedure ShowError(const Text:WideString);
begin
WideMessageBox(GetActiveWindow, PWideChar(WideFormat(SFmtErrorMsg, [Text])), PWideChar(SError), MB_OK or MB_ICONERROR);
end;
{ TIBFParser }
-function TIBFParser.Capabilities: Integer;
+function TIBFParser.Capabilities:Integer;
begin
Result := CAP_IMPORT or CAP_EXPORT;
end;
-function TIBFParser.Configure(Capability: Integer): HRESULT;
+function TIBFParser.Configure(Capability:Integer):HRESULT;
begin
Result := S_OK;
end;
@@ -107,11 +107,11 @@
FOldHandle := Application.Handle;
end;
-procedure TIBFParser.BuildPreview(const Items: ITranslationItems;
- Strings: TTntStrings);
+procedure TIBFParser.BuildPreview(const Items:ITranslationItems;
+ Strings:TTntStrings);
var
- i: integer;
- FOldSort: TTranslateSortType;
+ i:integer;
+ FOldSort:TTranslateSortType;
begin
try
FOldSort := Items.Sort;
@@ -140,30 +140,30 @@
inherited;
end;
-function TIBFParser.DisplayName(Capability: Integer): WideString;
+function TIBFParser.DisplayName(Capability:Integer):WideString;
begin
case Capability of
- CAP_IMPORT: Result := Translate(cIBFImportTitle);
- CAP_EXPORT: Result := Translate(cIBFExportTitle);
+ CAP_IMPORT:Result := Translate(cIBFImportTitle);
+ CAP_EXPORT:Result := Translate(cIBFExportTitle);
// CAP_CONFIGURE : Result := 'Configure';
else
Result := '';
end;
end;
-function TIBFParser.DoImport(const Items, Orphans: ITranslationItems;
- const OrigFile, TransFile: WideString): boolean;
+function TIBFParser.DoImport(const Items, Orphans:ITranslationItems;
+ const OrigFile, TransFile:WideString):boolean;
var
- S: TTntStringList;
- HeaderComplete: boolean;
- i: integer;
- FOldSort: TTranslateSortType;
+ S:TTntStringList;
+ HeaderComplete:boolean;
+ i:integer;
+ FOldSort:TTranslateSortType;
- function ParseRow(const S: WideString; IsTranslation, TranslateFormat: boolean): boolean;
+ function ParseRow(const S:WideString; IsTranslation, TranslateFormat:boolean):boolean;
var
- T: ITranslationItem;
- i: integer;
- tmp, tmp2: WideString;
+ T:ITranslationItem;
+ i:integer;
+ tmp, tmp2:WideString;
begin
Result := false;
if not TranslateFormat then
@@ -284,9 +284,9 @@
end;
end;
-function TIBFParser.ExportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TIBFParser.ExportItems(const Items, Orphans:ITranslationItems):HRESULT;
var
- S: TTntStringlist;
+ S:TTntStringlist;
begin
try
Result := S_FALSE;
@@ -308,7 +308,7 @@
end;
end;
-function TIBFParser.ImportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TIBFParser.ImportItems(const Items, Orphans:ITranslationItems):HRESULT;
begin
Result := S_FALSE;
LoadSettings;
@@ -327,7 +327,7 @@
end;
end;
-procedure TIBFParser.Init(const ApplicationServices: IApplicationServices);
+procedure TIBFParser.Init(const ApplicationServices:IApplicationServices);
begin
FAppServices := ApplicationServices;
Application.Handle := ApplicationServices.AppHandle;
@@ -335,7 +335,7 @@
procedure TIBFParser.LoadSettings;
var
- M: TMemoryStream;
+ M:TMemoryStream;
begin
try
with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
@@ -362,7 +362,7 @@
procedure TIBFParser.SaveSettings;
var
- M: TMemoryStream;
+ M:TMemoryStream;
begin
try
with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
@@ -385,14 +385,14 @@
end;
end;
-function TIBFParser.HandleOrig(const AFilename: WideString; const Items,
- Orphans: ITranslationItems): Boolean;
+function TIBFParser.HandleOrig(const AFilename:WideString; const Items,
+ Orphans:ITranslationItems):Boolean;
begin
Result := false;
end;
-function TIBFParser.HandleTrans(const AFilename: WideString; const Items,
- Orphans: ITranslationItems): Boolean;
+function TIBFParser.HandleTrans(const AFilename:WideString; const Items,
+ Orphans:ITranslationItems):Boolean;
begin
Result := false;
end;
@@ -400,15 +400,15 @@
frmExport:TfrmExport = nil;
function TIBFParser.GetString(out Section, Name,
- Value: WideString): WordBool;
+ Value:WideString):WordBool;
begin
Result := true;
case FCount of
- 0: Value := cPHPFilter;
- 1: Value := cIBFExportTitle;
- 2: Value := cIBFImportTitle;
- 3: Value := SImportError;
- 4: Value := SError;
+ 0:Value := cPHPFilter;
+ 1:Value := cIBFExportTitle;
+ 2:Value := cIBFImportTitle;
+ 3:Value := SImportError;
+ 4:Value := SError;
// 5: Value := cSectionName;
else
if frmExport = nil then
@@ -429,7 +429,7 @@
end;
end;
-function TIBFParser.Translate(const Value: WideString): WideString;
+function TIBFParser.Translate(const Value:WideString):WideString;
begin
if FAppServices <> nil then
Result := FAppServices.Translate(ClassName, Value, Value)
@@ -446,4 +446,3 @@
FFooter.Free;
end.
-
Modified: translator/trunk/src/KeePassPlugin/KeePassParserImpl.pas
===================================================================
--- translator/trunk/src/KeePassPlugin/KeePassParserImpl.pas 2007-08-14 16:29:55 UTC (rev 249)
+++ translator/trunk/src/KeePassPlugin/KeePassParserImpl.pas 2007-08-14 16:42:00 UTC (rev 250)
@@ -27,45 +27,45 @@
type
TKeePassParser = class(TInterfacedObject, IUnknown, IFileParser, ILocalizable)
private
- FIndex: integer;
- FFilename: WideString;
+ FIndex:integer;
+ FFilename:WideString;
procedure LoadSettings;
procedure SaveSettings;
- procedure BuildPreview(Items: ITranslationItems; Strings: TTntStrings);
+ procedure BuildPreview(Items:ITranslationItems; Strings:TTntStrings);
public
- 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(const ApplicationServices: IApplicationServices); safecall;
- function GetString(out Section: WideString; out Name: WideString;
- out Value: WideString): WordBool; safecall;
+ 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(const ApplicationServices:IApplicationServices); safecall;
+ function GetString(out Section:WideString; out Name:WideString;
+ out Value:WideString):WordBool; safecall;
end;
implementation
uses
Windows, SysUtils, Forms,
- {$IFDEF COMPILER_9_UP}WideStrUtils{$ELSE}TntWideStrUtils{$ENDIF},
- WideIniFiles, SingleImportFrm, PreviewExportFrm,
+{$IFDEF COMPILER_9_UP}WideStrUtils{$ELSE}TntWideStrUtils{$ENDIF},
+ WideIniFiles, SingleImportFrm, PreviewExportFrm,
KeePassParserLang;
{ TKeePassParser }
-function TKeePassParser.Capabilities: Integer;
+function TKeePassParser.Capabilities:Integer;
begin
Result := CAP_IMPORT or CAP_EXPORT;
end;
-function TKeePassParser.Configure(Capability: Integer): HRESULT;
+function TKeePassParser.Configure(Capability:Integer):HRESULT;
begin
Result := E_NOTIMPL;
end;
-function TKeePassParser.DisplayName(Capability: Integer): WideString;
+function TKeePassParser.DisplayName(Capability:Integer):WideString;
begin
case Capability of
CAP_IMPORT:
@@ -77,10 +77,10 @@
end;
end;
-procedure TKeePassParser.BuildPreview(Items: ITranslationItems; Strings: TTntStrings);
+procedure TKeePassParser.BuildPreview(Items:ITranslationItems; Strings:TTntStrings);
var
- i: integer;
- S: WideString;
+ i:integer;
+ S:WideString;
begin
Strings.Clear;
S := '';
@@ -89,10 +89,10 @@
Strings.Add(S);
end;
-function TKeePassParser.ExportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TKeePassParser.ExportItems(const Items, Orphans:ITranslationItems):HRESULT;
var
- S: TTntStringlist;
- FOldSort: TTranslateSortType;
+ S:TTntStringlist;
+ FOldSort:TTranslateSortType;
begin
Result := S_FALSE;
FOldSort := Items.Sort;
@@ -122,13 +122,13 @@
// format:
// |ORIGINAL||Translation||ORIGINAL||Translation|...
-function TKeePassParser.GetString(out Section, Name, Value: WideString): WordBool;
+function TKeePassParser.GetString(out Section, Name, Value:WideString):WordBool;
begin
Result := true;
case FIndex of
- 0: Value := cKeePassFilter;
- 1: Value := cKeePassImportTitle;
- 2: Value := cKeePassExportTitle;
+ 0:Value := cKeePassFilter;
+ 1:Value := cKeePassImportTitle;
+ 2:Value := cKeePassExportTitle;
else
Result := false;
end;
@@ -142,21 +142,21 @@
FIndex := 0;
end;
-function TKeePassParser.ImportItems(const Items, Orphans: ITranslationItems): HRESULT;
+function TKeePassParser.ImportItems(const Items, Orphans:ITranslationItems):HRESULT;
var
- S: TTntStringlist;
+ S:TTntStringlist;
- procedure ParseItems(P: PWideChar);
+ procedure ParseItems(P:PWideChar);
const
cNull = WideChar(#0);
cBar = WideChar('|');
type
States = (Original, Translation);
var
- R, S: PWideChar;
+ R, S:PWideChar;
- AStates: States;
- TI: ITranslationItem;
+ AStates:States;
+ TI:ITranslationItem;
begin
AStates := Original;
@@ -205,7 +205,7 @@
end;
end;
end
- else
+ else
Inc(P);
end;
end;
@@ -232,7 +232,7 @@
Result := S_FALSE;
end;
-procedure TKeePassParser.Init(const ApplicationServices: IApplicationServices);
+procedure TKeePassParser.Init(const ApplicationServices:IApplicationServices);
begin
GlobalAppServices := ApplicationServices;
end;
@@ -267,4 +267,3 @@
end;
end.
-
Modified: translator/trunk/src/KeePassPlugin/KeePassParserLang.pas
===================================================================
--- translator/trunk/src/KeePassPlugin/KeePassParserLang.pas 2007-08-14 16:29:55 UTC (rev 249)
+++ translator/trunk/src/KeePassPlugin/KeePassParserLang.pas 2007-08-14 16:42:00 UTC (rev 250)
@@ -11,12 +11,12 @@
cKeePassExportTitle = 'Export to KeePass language file';
var
- GlobalAppServices: IApplicationServices = nil;
-function Translate(Value: WideString): WideString;
+ GlobalAppServices:IApplicationServices = nil;
+function Translate(Value:WideString):WideString;
implementation
-function Translate(Value: WideString): WideString;
+function Translate(Value:WideString):WideString;
begin
if GlobalAppServices <> nil then
Result := GlobalAppServices.Translate(cSectionName, Value, Value)
@@ -25,4 +25,3 @@
end;
end.
-
Modified: translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas
===================================================================
--- translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas 2007-08-14 16:29:55 UTC (rev 249)
+++ translator/trunk/src/MozillaPlugin/MozillaDTDImpl.pas 2007-08-14 16:42:00 UTC (rev 250)
@@ -24,28 +24,28 @@
type
TMozillaDTDParser = class(TInterfacedObject, IUnknown, IFileParser, ILocalizable)
private
- FOldAppHandle: Cardinal;
- FCount: integer;
- FAppServices: IApplicationServices;
- FOrigFile, FTransFile: WideString;
+ FOldAppHandle:Cardinal;
+ FCount:integer;
+ FAppServices:IApplicationServices;
+ FOrigFile, FTransFile:WideString;
procedure LoadSettings;
procedure SaveSettings;
- procedure BuildPreview(Items: ITranslationItems; Strings: TTntStrings);
- function Translate(const Value: WideString): WideString;
+ procedure BuildPreview(Items:ITranslationItems; Strings:TTntStrings);
+ function Translate(const Value:WideString):WideString;
public
constructor Create;
destructor Destroy; override;
- 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; sa...
[truncated message content] |
|
From: <pe...@us...> - 2007-08-14 17:39:27
|
Revision: 251
http://initranslator.svn.sourceforge.net/initranslator/?rev=251&view=rev
Author: peter3
Date: 2007-08-14 10:39:28 -0700 (Tue, 14 Aug 2007)
Log Message:
-----------
- consistent formatting (DelForEx)
Modified Paths:
--------------
translator/trunk/src/EncodingDlgs.pas
translator/trunk/src/TranslateFile.pas
Modified: translator/trunk/src/EncodingDlgs.pas
===================================================================
--- translator/trunk/src/EncodingDlgs.pas 2007-08-14 16:42:00 UTC (rev 250)
+++ translator/trunk/src/EncodingDlgs.pas 2007-08-14 17:39:28 UTC (rev 251)
@@ -33,49 +33,49 @@
type
TfrmEncoding = class(TTntForm)
- cbEncodings: TTntComboBox;
- lblEncoding: TTntLabel;
- bvlTopLine: TBevel;
- chkHeader: TTntCheckBox;
- chkFooter: TTntCheckBox;
+ cbEncodings:TTntComboBox;
+ lblEncoding:TTntLabel;
+ bvlTopLine:TBevel;
+ chkHeader:TTntCheckBox;
+ chkFooter:TTntCheckBox;
private
- FParentWnd: HWND;
- procedure WMNCDestroy(var Message: TWMNCDestroy); message WM_NCDESTROY;
+ FParentWnd:HWND;
+ procedure WMNCDestroy(var Message:TWMNCDestroy); message WM_NCDESTROY;
protected
procedure Initialize; virtual;
public
- constructor Create(OpenDialog: TTntOpenDialog); reintroduce;
+ constructor Create(OpenDialog:TTntOpenDialog); reintroduce;
destructor Destroy; override;
end;
TEncodingOpenDialog = class(TTntOpenDialog)
private
- FEncodingIndex, FSelectedIndex: integer;
- FEncodings: TTntStrings;
- FForm: TfrmEncoding;
- FEncodingLabel: WideString;
- FInsertFooter: boolean;
- FInsertHeader: boolean;
- procedure SetEncodingIndex(const Value: integer);
- procedure SetEncodings(const Value: TTntStrings);
+ FEncodingIndex, FSelectedIndex:integer;
+ FEncodings:TTntStrings;
+ FForm:TfrmEncoding;
+ FEncodingLabel:WideString;
+ FInsertFooter:boolean;
+ FInsertHeader:boolean;
+ procedure SetEncodingIndex(const Value:integer);
+ procedure SetEncodings(const Value:TTntStrings);
protected
procedure DoShow; override;
procedure DoClose; override;
public
- constructor Create(AOwner: TComponent); override;
+ constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
- function Execute: boolean; override;
+ function Execute:boolean; override;
published
- property Encodings: TTntStrings read FEncodings write SetEncodings;
- property EncodingLabel: WideString read FEncodingLabel write FEncodingLabel;
- property EncodingIndex: integer read FEncodingIndex write SetEncodingIndex default 0;
- property InsertHeader: boolean read FInsertHeader write FInsertHeader;
- property InsertFooter: boolean read FInsertFooter write FInsertFooter;
+ property Encodings:TTntStrings read FEncodings write SetEncodings;
+ property EncodingLabel:WideString read FEncodingLabel write FEncodingLabel;
+ property EncodingIndex:integer read FEncodingIndex write SetEncodingIndex default 0;
+ property InsertHeader:boolean read FInsertHeader write FInsertHeader;
+ property InsertFooter:boolean read FInsertFooter write FInsertFooter;
end;
TEncodingSaveDialog = class(TEncodingOpenDialog)
public
- function Execute: boolean; override;
+ function Execute:boolean; override;
end;
resourcestring
@@ -89,7 +89,7 @@
{ TfrmEncoding }
-constructor TfrmEncoding.Create(OpenDialog: TTntOpenDialog);
+constructor TfrmEncoding.Create(OpenDialog:TTntOpenDialog);
begin
FParentWnd := GetParent(OpenDialog.Handle);
Initialize;
@@ -104,8 +104,8 @@
procedure TfrmEncoding.Initialize;
var
- DlgRect, DlgClientRect, OpenRect: TRect;
- hOpen, hItem: HWND;
+ DlgRect, DlgClientRect, OpenRect:TRect;
+ hOpen, hItem:HWND;
begin
CreateParented(FParentWnd);
GetWindowRect(FParentWnd, DlgRect);
@@ -136,7 +136,7 @@
MoveWindow(FParentWnd, Left, Top, Right - Left, Bottom - Top + Self.Height, true);
end;
-procedure TfrmEncoding.WMNCDestroy(var Message: TWMNCDestroy);
+procedure TfrmEncoding.WMNCDestroy(var Message:TWMNCDestroy);
begin
inherited;
Free;
@@ -144,7 +144,7 @@
{ TEncodingOpenDialog }
-constructor TEncodingOpenDialog.Create(AOwner: TComponent);
+constructor TEncodingOpenDialog.Create(AOwner:TComponent);
begin
inherited;
FEncodings := TTntStringlist.Create;
@@ -188,7 +188,7 @@
inherited;
end;
-function TEncodingOpenDialog.Execute: boolean;
+function TEncodingOpenDialog.Execute:boolean;
begin
Result := inherited Execute;
if Result then
@@ -197,14 +197,14 @@
raise Exception.CreateFmt('Invalid filename specified "%s"', [Filename]);
end;
-procedure TEncodingOpenDialog.SetEncodingIndex(const Value: integer);
+procedure TEncodingOpenDialog.SetEncodingIndex(const Value:integer);
begin
FEncodingIndex := Value;
if FForm <> nil then
FForm.cbEncodings.ItemIndex := Value;
end;
-procedure TEncodingOpenDialog.SetEncodings(const Value: TTntStrings);
+procedure TEncodingOpenDialog.SetEncodings(const Value:TTntStrings);
begin
FEncodings.Assign(Value);
if FForm <> nil then
@@ -216,7 +216,7 @@
{ TEncodingSaveDialog }
-function TEncodingSaveDialog.Execute: boolean;
+function TEncodingSaveDialog.Execute:boolean;
begin
if Win32PlatformIsUnicode then
Result := DoExecuteW(@GetSaveFileNameW)
@@ -229,3 +229,4 @@
end;
end.
+
Modified: translator/trunk/src/TranslateFile.pas
===================================================================
--- translator/trunk/src/TranslateFile.pas 2007-08-14 16:42:00 UTC (rev 250)
+++ translator/trunk/src/TranslateFile.pas 2007-08-14 17:39:28 UTC (rev 251)
@@ -661,7 +661,7 @@
FItem := FOrphans.Add;
FItem.Section := ASection;
FItem.Name := Copy(tmpString, 1, j - 1);
- FItem.Original := Copy(tmpString, 1, j - 1); // have to store something...
+ FItem.Original := Copy(tmpString, 1, j - 1); // have to store something...
FItem.Translation := Copy(tmpString, j + 1, MaxInt);
// normal behavior is to regard empty translations as untranslated
// FItem.Translated := FItem.Translation <> '';
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2007-10-17 20:37:08
|
Revision: 254
http://initranslator.svn.sourceforge.net/initranslator/?rev=254&view=rev
Author: peter3
Date: 2007-10-17 13:37:10 -0700 (Wed, 17 Oct 2007)
Log Message:
-----------
New plugin for VS.Net resx files
Added Paths:
-----------
translator/trunk/src/ResXPlugin/
translator/trunk/src/ResXPlugin/ResXParser.dof
translator/trunk/src/ResXPlugin/ResXParser.dpr
translator/trunk/src/ResXPlugin/ResXParser.rc
translator/trunk/src/ResXPlugin/ResXParser.res
translator/trunk/src/ResXPlugin/ResXParserImpl.pas
Added: translator/trunk/src/ResXPlugin/ResXParser.dof
===================================================================
--- translator/trunk/src/ResXPlugin/ResXParser.dof (rev 0)
+++ translator/trunk/src/ResXPlugin/ResXParser.dof 2007-10-17 20:37:10 UTC (rev 254)
@@ -0,0 +1,56 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=18677760
+ExeDescription=
+[Directories]
+OutputDir=..\..\bin\plugins
+UnitOutputDir=..\..\dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=9
+Release=0
+Build=50
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=IniTranslator
+FileDescription=ResX Plugin for IniTranslator
+FileVersion=1.9.0.50
+InternalName=ResXPlugin.dll
+LegalCopyright=Copyright (c) 2007 by Peter Th\xF6rnqvist; all rights reserved
+LegalTrademarks=
+OriginalFilename=ResXPlugin.dll
+ProductName=ResX Plugin for IniTranslator
+ProductVersion=1.9.0.50
+Comments=Latest version at http://initranslator.sourceforge.net
+CompileDate=den 14 augusti 2007 14:58
Added: translator/trunk/src/ResXPlugin/ResXParser.dpr
===================================================================
--- translator/trunk/src/ResXPlugin/ResXParser.dpr (rev 0)
+++ translator/trunk/src/ResXPlugin/ResXParser.dpr 2007-10-17 20:37:10 UTC (rev 254)
@@ -0,0 +1,43 @@
+{@abstract(Project file for ResX parser) }
+{
+ 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$
+library ResXParser;
+
+uses
+ SysUtils,
+ Classes,
+ ResXParserImpl in 'ResXParserImpl.pas',
+ TransIntf in '..\TransIntf.pas',
+ PreviewExportFrm in '..\PluginCommon\PreviewExportFrm.pas' {frmExport},
+ CommonUtils in '..\CommonUtils.pas',
+ DualImportFrm in '..\PluginCommon\DualImportFrm.pas' {frmDualImport: TTntForm};
+
+{$R *.res}
+
+function InstallPlugin(out Parser: IFileParser): HResult; stdcall;
+begin
+ Parser := TResXParser.Create;
+ Result := S_OK;
+end;
+
+exports InstallPlugin name cRegisterTransFileParserFuncName;
+begin
+
+end.
+
+
Property changes on: translator/trunk/src/ResXPlugin/ResXParser.dpr
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Id LastChangedDate LastChangedBy LastChangedRevision URL
Name: svn:eol-style
+ native
Added: translator/trunk/src/ResXPlugin/ResXParser.rc
===================================================================
--- translator/trunk/src/ResXPlugin/ResXParser.rc (rev 0)
+++ translator/trunk/src/ResXPlugin/ResXParser.rc 2007-10-17 20:37:10 UTC (rev 254)
@@ -0,0 +1,30 @@
+1 VERSIONINFO
+FILEVERSION 1,9,0,50
+PRODUCTVERSION 1,9,0,50
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "040904E4"
+ BEGIN
+ VALUE "CompanyName", "IniTranslator\0"
+ VALUE "FileDescription", "ResX Plugin for IniTranslator\0"
+ VALUE "FileVersion", "1.9.0.50\0"
+ VALUE "InternalName", "ResXPlugin.dll\0"
+ VALUE "LegalCopyright", "Copyright (c) 2007 by Peter Th\xF6rnqvist; all rights reserved\0"
+ VALUE "OriginalFilename", "ResXPlugin.dll\0"
+ VALUE "ProductName", "ResX Plugin for IniTranslator\0"
+ VALUE "ProductVersion", "1.9.0.50\0"
+ VALUE "Comments", "Latest version at http://initranslator.sourceforge.net\0"
+ VALUE "CompileDate", "den 14 augusti 2007 14:58\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0409, 1252
+ END
+END
Property changes on: translator/trunk/src/ResXPlugin/ResXParser.rc
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Id LastChangedDate LastChangedBy LastChangedRevision URL
Name: svn:eol-style
+ native
Added: translator/trunk/src/ResXPlugin/ResXParser.res
===================================================================
(Binary files differ)
Property changes on: translator/trunk/src/ResXPlugin/ResXParser.res
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: translator/trunk/src/ResXPlugin/ResXParserImpl.pas
===================================================================
--- translator/trunk/src/ResXPlugin/ResXParserImpl.pas (rev 0)
+++ translator/trunk/src/ResXPlugin/ResXParserImpl.pas 2007-10-17 20:37:10 UTC (rev 254)
@@ -0,0 +1,364 @@
+{@abstract(Implementaiton of ResX parser) }
+{
+ Copyright \xA9 2007 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 ResXParserImpl;
+
+interface
+uses
+ SysUtils, TransIntf;
+
+type
+ TResXParser = class(TInterfacedObject, IInterface, IFileParser)
+ private
+ FOldAppHandle:Cardinal;
+ FApplicationServices:IApplicationServices;
+ FOrigFilename, FTransFilename:WideString;
+ procedure LoadSettings;
+ procedure SaveSettings;
+ function Translate(const Value:WideString):WideString;
+
+ 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(const ApplicationServices:IApplicationServices); safecall;
+ public
+ constructor Create;
+ destructor Destroy; override;
+ end;
+{
+ limitations:
+ * since the original file is used as the template when saving, any special text or formatting
+ in the translation file is lost
+ * orphans in the translation are added to the orphans list but there is no way to add them back into
+ the original or translation
+}
+
+
+implementation
+uses
+ Forms, Dialogs, xmldoc, xmldom, xmlintf,
+ TntClasses, TntSysUtils, IniFiles,
+ PreviewExportFrm, DualImportFrm, Math;
+
+resourcestring
+ cResXImportTitle = 'Import from ResX file';
+ cResXExportTitle = 'Export to ResX file';
+ cResXFilter = 'ResX files (*.resx)|*.resx|All files (*.*)|*.*';
+ cSection = 'ResX';
+
+var
+ XML:WideString = '';
+const
+ cTranslationItem:WideString = '%%%%%%%%T%d%%%%%%%%';
+
+{ TResXParser }
+
+function TResXParser.Capabilities:Integer;
+begin
+ Result := CAP_IMPORT or CAP_EXPORT;
+end;
+
+function TResXParser.Configure(Capability:Integer):HRESULT;
+begin
+ Result := E_NOTIMPL;
+end;
+
+constructor TResXParser.Create;
+begin
+ FOldAppHandle := Application.Handle;
+ inherited Create;
+end;
+
+destructor TResXParser.Destroy;
+begin
+ Application.Handle := FOldAppHandle;
+ inherited;
+end;
+
+function TResXParser.DisplayName(Capability:Integer):WideString;
+begin
+ case Capability of
+ CAP_IMPORT:
+ Result := Translate(cResXImportTitle);
+ CAP_EXPORT:
+ Result := Translate(cResXExportTitle);
+ else
+ Result := '';
+ end;
+end;
+
+function TResXParser.ExportItems(const Items, Orphans:ITranslationItems):HRESULT;
+var
+ Strings:TTntStringlist;
+
+ function WrapTags(const T:ITranslationItem):WideString;
+ begin
+ if T.Translation = '' then
+ Result := #13#10' <value/>'
+ else
+ Result := WideFormat(#13#10' <value>%s</value>',[T.Translation]);
+ if T.TransComments <> '' then
+ Result := Result + WideFormat(#13#10' <comment>%s</comment>',[T.TransComments]);
+ Result := Result + #13#10' ';
+ end;
+
+ procedure BuildPreview(const Items, Orphans:ITranslationItems; Strings:TTntStrings);
+ var
+ S:WideString;
+ i:integer;
+ TI:ITranslationItem;
+ // XmlDoc:IXMLDocument;
+ begin
+ S := XML; // preserve template in case user exports more than once
+ for i := 0 to Items.Count - 1 do
+ begin
+ TI := Items[i];
+ S := Tnt_WideStringReplace(S, WideFormat(cTranslationItem, [TI.Index]), WrapTags(TI), [rfReplaceAll]);
+ end;
+{
+ // prettify
+ XmlDoc := NewXMLDocument();
+ XmlDoc.Options := [doNodeAutoIndent];
+ XmlDoc.LoadFromXml(S);
+ XmlDoc.SaveToXml(S);
+}
+ Strings.Text := S;
+ end;
+begin
+ Result := S_FALSE;
+ LoadSettings;
+ Strings := TTntStringlist.Create;
+ try
+ try
+ BuildPreview(Items, Orphans, Strings);
+ if TfrmExport.Execute(FApplicationServices, FTransFilename, Translate(cResXExportTitle), Translate(cResXFilter), '.', '.resx', Strings) then
+ begin
+ SaveSettings;
+ Strings.SaveToFile(FTransFilename);
+ Result := S_OK;
+ end;
+ finally
+ Strings.Free;
+ end;
+ except
+ Application.HandleException(Self);
+ end;
+end;
+
+function TResXParser.ImportItems(const Items, Orphans:ITranslationItems):HRESULT;
+
+var
+ NodeList:IDOMNodeList;
+ ParentNode, TargetNode, CommentNode:IDOMNode;
+ i,j:integer;
+ TI:ITranslationItem;
+ FXMLImport:IXMLDocument;
+ Name:WideString;
+
+ function StripTags(const S:WideString):WideString;
+ var
+ i:integer;
+ begin
+ Result := S;
+ // strip start tag
+ i := 1;
+ while i <= Length(Result) do
+ begin
+ if Result[i] = '>' then
+ begin
+ Result := Copy(Result, i + 1, MaxInt);
+ Break;
+ end;
+ Inc(i);
+ end;
+ // strip end tag
+ i := Length(Result);
+ while i >= 1 do
+ begin
+ if Result[i] = '<' then
+ begin
+ SetLength(Result, i - 1);
+ Break;
+ end;
+ Dec(i);
+ end;
+ end;
+ function IsMatchingNode(ParentNode:IDOMNode; out ValueNode:IDOMNode; out CommentNode: IDOMNode; out Name:WideString):boolean;
+ var
+ NameNode:IDOMNode;
+ i:integer;
+ begin
+ Result := false;
+ ValueNode := nil;
+ CommentNode := nil;
+ Name := '';
+
+
+ NameNode := ParentNode.attributes.getNamedItem('name');
+ if NameNode <> nil then
+ Name := NameNode.nodeValue
+ else
+ Exit;
+
+ NameNode := ParentNode.attributes.getNamedItem('type');
+ if NameNode <> nil then
+ Exit;
+
+
+ for i := 0 to ParentNode.childNodes.length-1 do
+ if ParentNode.childNodes[i].nodeName = 'value' then
+ begin
+ ValueNode := ParentNode.childNodes[i];
+ Result := true;
+ end
+ else if ParentNode.childNodes[i].nodeName = 'comment' then
+ CommentNode := ParentNode.childNodes[i];
+ end;
+
+begin
+ Result := S_FALSE;
+
+ try
+ Items.Clear;
+ Orphans.Clear;
+ LoadSettings;
+ if TfrmDualImport.Execute(FApplicationServices, FOrigFilename, FTransFilename, Translate(cResXImportTitle), Translate(cResXFilter), '.', '.resx') then
+ begin
+ SaveSettings;
+ // read original file
+ FXMLImport := LoadXMLDocument(FOrigFilename);
+ if Assigned(FXMLImport) and Assigned(FXMLImport.DOMDocument) then
+ begin
+ NodeList := FXMLImport.DOMDocument.getElementsByTagName('data');
+ for i := 0 to NodeList.length-1 do
+ begin
+ ParentNode := NodeList[i];
+
+ if IsMatchingNode(ParentNode, TargetNode, CommentNode, Name) then
+ begin
+ TI := Items.Add;
+ TI.Section := cSection;
+ TI.Name := Name;
+ if CommentNode <> nil then
+ TI.OrigComments := StripTags((CommentNode as IDOMNodeEx).xml);
+ TI.Original := StripTags((TargetNode as IDOMNodeEx).xml);
+ // preserve content of data node but remove any inner text nodes
+ // we use this template in the translation when exporting (see ExportItems)
+ if TargetNode <> nil then
+ ParentNode.removeChild(TargetNode);
+ if CommentNode <> nil then
+ ParentNode.removeChild(CommentNode);
+ // remove any redunant text nodes but leave any other nodes alone
+ for j := ParentNode.childNodes.length - 1 downto 0 do
+ if (ParentNode.childNodes[j].nodeType = TEXT_NODE) and (trim(ParentNode.childNodes[j].nodeValue) = '') then
+ ParentNode.removeChild(ParentNode.childNodes[j]);
+ TargetNode := FXMLImport.DOMDocument.createTextNode('');
+ TargetNode.nodeValue := WideFormat(cTranslationItem, [TI.Index]);
+ ParentNode.appendChild(TargetNode);
+ end;
+ end;
+ FXMLImport.SaveToXML(XML); // save the original file in a WideString as our reference file
+
+ end;
+ // read translation file
+ FXMLImport := LoadXMLDocument(FTransFilename);
+ if Assigned(FXMLImport) and Assigned(FXMLImport.DOMDocument) then
+ begin
+ NodeList := FXMLImport.DOMDocument.getElementsByTagName('data');
+ for i := 0 to NodeList.length-1 do
+ begin
+ ParentNode := NodeList[i];
+ if IsMatchingNode(ParentNode, TargetNode, CommentNode, Name) then
+ begin
+ j := Items.IndexOf(cSection,Name);
+ if j >= 0 then
+ begin
+ TI := Items[j];
+ if CommentNode <> nil then
+ TI.TransComments := StripTags((CommentNode as IDOMNodeEx).xml);
+ TI.Translation := StripTags((TargetNode as IDOMNodeEx).xml);
+ TI.Translated := TI.Translation <> '';
+ end
+ else // not found in original, add to orphans
+ begin
+ TI := Orphans.Add;
+ TI.Section := cSection;
+ TI.Name := Name;
+ if CommentNode <> nil then
+ TI.OrigComments := StripTags((CommentNode as IDOMNodeEx).xml);
+ TI.Original := StripTags((TargetNode as IDOMNodeEx).xml);
+ TI.Translation := TI.Original;
+ end;
+ end;
+ end;
+ end;
+ SaveSettings;
+ Items.Modified := false;
+
+ Result := S_OK;
+ end;
+ FXMLImport := nil;
+ except
+ Application.HandleException(self);
+ end;
+end;
+
+procedure TResXParser.Init(const ApplicationServices:IApplicationServices);
+begin
+ if FOldAppHandle = 0 then
+ FOldAppHandle := Application.Handle;
+ Application.Handle := ApplicationServices.AppHandle;
+ FApplicationServices := ApplicationServices;
+end;
+
+procedure TResXParser.LoadSettings;
+begin
+ with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
+ try
+ FOrigFilename := ReadString('Settings', 'OriginalFilename', FOrigFilename);
+ FTransFilename := ReadString('Settings', 'TranslationFilename', FTransFilename);
+ finally
+ Free;
+ end;
+end;
+
+procedure TResXParser.SaveSettings;
+begin
+ with TIniFile.Create(ChangeFileExt(GetModuleName(hInstance), '.ini')) do
+ try
+ WriteString('Settings', 'OriginalFilename', FOrigFilename);
+ WriteString('Settings', 'TranslationFilename', FTransFilename);
+ finally
+ Free;
+ end;
+end;
+
+function TResXParser.Translate(const Value:WideString):WideString;
+begin
+ if FApplicationServices <> nil then
+ Result := FApplicationServices.Translate(ClassName, Value, Value)
+ else
+ Result := Value;
+end;
+
+end.
Property changes on: translator/trunk/src/ResXPlugin/ResXParserImpl.pas
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Id LastChangedDate LastChangedBy LastChangedRevision URL
Name: svn:eol-style
+ native
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <pe...@us...> - 2007-10-20 12:49:28
|
Revision: 262
http://initranslator.svn.sourceforge.net/initranslator/?rev=262&view=rev
Author: peter3
Date: 2007-10-20 05:49:32 -0700 (Sat, 20 Oct 2007)
Log Message:
-----------
- access to SectionStart, SectionEnd and SeparatorChars from ini file (special use)
Modified Paths:
--------------
translator/trunk/src/AppOptions.pas
translator/trunk/src/MainFrm.pas
translator/trunk/src/OptionsFrm.dfm
translator/trunk/src/OptionsFrm.pas
translator/trunk/src/TranslateFile.pas
Modified: translator/trunk/src/AppOptions.pas
===================================================================
--- translator/trunk/src/AppOptions.pas 2007-10-20 12:48:11 UTC (rev 261)
+++ translator/trunk/src/AppOptions.pas 2007-10-20 12:49:32 UTC (rev 262)
@@ -135,6 +135,9 @@
FHeader:TTntStrings;
FFontSize:integer;
FFontName:WideString;
+ FSectionEnd: WideString;
+ FSectionStart: WideString;
+ FSeparatorChars: WideString;
procedure ReadWindowInfos(ini:TWideCustomIniFile);
procedure WriteWindowInfos(ini:TWideCustomIniFile);
function GetWindowInfo(AForm:TForm):TAppWindowInfo;
@@ -144,6 +147,9 @@
procedure SetHeader(const Value:TTntStrings);
function GetOption(const Section, Name:WideString):WideString;
procedure SetOption(const Section, Name, Value:WideString);
+ procedure SetSectionEnd(const Value: WideString);
+ procedure SetSectionStart(const Value: WideString);
+ procedure SetSeparatorChars(const Value: WideString);
public
constructor Create(const AFilename:WideString);
destructor Destroy; override;
@@ -219,6 +225,10 @@
property ColorFontEvenRow:TColor read FColorFontEvenRow write FColorFontEvenRow;
property ColorOddRow:TColor read FColorOddRow write FColorOddRow;
property ColorFontOddRow:TColor read FColorFontOddRow write FColorFontOddRow;
+
+ property SeparatorChars:WideString read FSeparatorChars write SetSeparatorChars;
+ property SectionStart:WideString read FSectionStart write SetSectionStart;
+ property SectionEnd:WideString read FSectionEnd write SetSectionEnd;
end;
implementation
@@ -550,6 +560,11 @@
ColorOddRow := ini.ReadInteger('Colors', 'ColorOddRow', $FFFFFF);
ColorFontOddRow := ini.ReadInteger('Colors', 'ColorFontOddRow', $000000);
+ SeparatorChars := ini.ReadString('Parsing','SeparatorChars','=');
+ SectionStart := ini.ReadString('Parsing','SectionStart','[');
+ SectionEnd := ini.ReadString('Parsing','SectionEnd',']');
+
+
ReadWindowInfos(ini);
FTools.LoadFromIni(ini);
finally
@@ -649,6 +664,11 @@
ini.WriteInteger('Colors', 'ColorOddRow', ColorOddRow);
ini.WriteInteger('Colors', 'ColorFontOddRow', ColorFontOddRow);
+
+ ini.WriteString('Parsing','SeparatorChars',SeparatorChars);
+ ini.WriteString('Parsing','SectionStart',SectionStart);
+ ini.WriteString('Parsing','SectionEnd',SectionEnd);
+
WriteWindowInfos(ini);
FTools.SaveToIni(ini);
ini.UpdateFile;
@@ -750,4 +770,25 @@
end;
end;
+procedure TAppOptions.SetSectionEnd(const Value: WideString);
+begin
+ FSectionEnd := Value;
+ if FSectionEnd = '' then
+ FSectionEnd := ']';
+end;
+
+procedure TAppOptions.SetSectionStart(const Value: WideString);
+begin
+ FSectionStart := Value;
+ if FSectionStart = '' then
+ FSectionStart := '[';
+end;
+
+procedure TAppOptions.SetSeparatorChars(const Value: WideString);
+begin
+ FSeparatorChars := Value;
+ if FSeparatorChars = '' then
+ FSeparatorChars := '=';
+end;
+
end.
Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas 2007-10-20 12:48:11 UTC (rev 261)
+++ translator/trunk/src/MainFrm.pas 2007-10-20 12:49:32 UTC (rev 262)
@@ -749,6 +749,9 @@
acSpellCheck.Tag := 0;
acSpellCheck.OnExecute := SpellCheckExecute;
{$ENDIF}
+ FTranslateFile.StartSection := GlobalAppOptions.SectionStart[1];
+ FTranslateFile.EndSection := GlobalAppOptions.SectionEnd[1];
+ FTranslateFile.SeparatorChars := GlobalAppOptions.SeparatorChars;
end;
procedure TfrmMain.SaveSettings;
Modified: translator/trunk/src/OptionsFrm.dfm
===================================================================
--- translator/trunk/src/OptionsFrm.dfm 2007-10-20 12:48:11 UTC (rev 261)
+++ translator/trunk/src/OptionsFrm.dfm 2007-10-20 12:49:32 UTC (rev 262)
@@ -1,7 +1,7 @@
object frmOptions: TfrmOptions
Left = 316
Top = 175
- ActiveControl = chkGlobalPath
+ ActiveControl = chkShowQuotes
BorderStyle = bsDialog
Caption = 'Preferences'
ClientHeight = 449
@@ -65,7 +65,7 @@
Top = 2
Width = 477
Height = 387
- ActivePage = tsAdvanced
+ ActivePage = tsGeneral
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 3
object tsGeneral: TTntTabSheet
Modified: translator/trunk/src/OptionsFrm.pas
===================================================================
--- translator/trunk/src/OptionsFrm.pas 2007-10-20 12:48:11 UTC (rev 261)
+++ translator/trunk/src/OptionsFrm.pas 2007-10-20 12:49:32 UTC (rev 262)
@@ -212,6 +212,12 @@
pnlFontPreview.Font.Size := Options.FontSize;
reHeader.Lines := Options.Header;
reFooter.Lines := Options.Footer;
+
+{
+ edSeparatorChars.Text := Options.SeparatorChars;
+ edSectionStart.Text := Options.SectionStart;
+ edSectionEnd.Text := Options.SectionEnd;
+}
UpdateFontList;
end;
@@ -242,6 +248,12 @@
Options.Header := reHeader.Lines;
Options.Footer := reFooter.Lines;
+
+{
+ Options.SeparatorChars := edSeparatorChars.Text;
+ Options.SectionStart := edSectionStart.Text;
+ Options.SectionEnd := edSectionEnd.Text;
+}
end;
procedure TfrmOptions.GetFonts(Strings:TTntStrings);
Modified: translator/trunk/src/TranslateFile.pas
===================================================================
--- translator/trunk/src/TranslateFile.pas 2007-10-20 12:48:11 UTC (rev 261)
+++ translator/trunk/src/TranslateFile.pas 2007-10-20 12:49:32 UTC (rev 262)
@@ -129,6 +129,7 @@
property Items[Index: integer]: ITranslationItem read GetItem; default;
property TranslatedCount: integer read GetTranslatedCount write SetTranslatedCount;
property Modified: WordBool read GetModified write SetModified;
+
end;
TTranslateFiles = class
@@ -137,7 +138,7 @@
FOrphans: ITranslationItems;
FEndSection: WideChar;
FStartSection: WideChar;
- FSeparatorChar: WideChar;
+ FSeparatorChars: WideString;
FHeader: WideString;
FFooter: WideString;
FCommentChars: TTntStrings;
@@ -158,7 +159,7 @@
// 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 SeparatorChar: WideChar read FSeparatorChar write FSeparatorChar default '=';
+ property SeparatorChars: WideString read FSeparatorChars write FSeparatorChars;
property CommentChars: TTntStrings read FCommentChars;
end;
@@ -505,7 +506,7 @@
FOrphans := TTranslationItems.Create;
StartSection := '[';
EndSection := ']';
- SeparatorChar := '=';
+ SeparatorChars := '=';
FCommentChars.Add(';');
FCommentChars.Add('//');
FCommentChars.Add('#');
@@ -533,6 +534,17 @@
Result := false;
end;
+function WideTextContains(SubStr:WideString; Str:WideString):integer;
+var i:integer;
+begin
+ for i := 1 to Length(SubStr) do
+ begin
+ Result := WideTExtPos(SubStr[i], Str);
+ if Result > 0 then Exit;
+ end;
+ Result := 0;
+end;
+
function TTranslateFiles.LoadOriginal(const Filename: WideString; Encoding: TEncoding): TEncoding;
var
S, FComments: TTntStringlist;
@@ -575,9 +587,9 @@
FComments.Add(tmpString)
else if WideStartsText(StartSection, tmpTrimString) and WideEndsText(EndSection, tmpTrimString) then
ASection := Copy(tmpTrimString, 2, Length(tmpTrimString) - 2)
- else if (WideTextPos(SeparatorChar, tmpString) > 1) then
+ else if WideTextContains(SeparatorChars, tmpString) > 1 then
begin
- j := WideTextPos(SeparatorChar, tmpString);
+ j := WideTextContains(SeparatorChars, tmpString);
if j > 1 then
begin
with FItems.Add do
@@ -644,7 +656,7 @@
ASection := Copy(tmpTrimString, 2, Length(tmpTrimString) - 2)
else
begin
- j := WideTextPos(SeparatorChar, tmpString);
+ j := WideTextContains(SeparatorChars, tmpString);
if j > 1 then
begin
k := FItems.IndexOf(ASection, Copy(tmpString, 1, j - 1));
@@ -711,7 +723,8 @@
end;
if not NewSection then
FixAndAddComments(S, Items[i].OrigComments);
- S.Add(Items[i].Name + SeparatorChar + Items[i].Original);
+
+ S.Add(Items[i].Name + Copy(SeparatorChars,1,1) + Items[i].Original);
end;
if Footer <> '' then
S.Add(trim(Footer));
@@ -760,7 +773,7 @@
end;
if not NewSection then
FixAndAddComments(S, Items[i].TransComments);
- S.Add(Items[i].Name + SeparatorChar + Items[i].Translation);
+ S.Add(Items[i].Name + TCommonUtils.StrDefault(Copy(SeparatorChars,1,1),'=') + Items[i].Translation);
end;
if Footer <> '' then
S.Add(trim(Footer));
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
Thanks for helping keep SourceForge clean.
X