[Initranslator-svncheckins] SF.net SVN: initranslator: [127] translator/trunk

[<pe...@us...>]

Revision: 127
          http://svn.sourceforge.net/initranslator/?rev=127&view=rev
Author:   peter3
Date:     2006-11-18 02:48:21 -0800 (Sat, 18 Nov 2006)

Log Message:
-----------
- For some strange reason, some parameters where declared as string when they should have been WideString. This messed up the display in the menu/toolbar control

Modified Paths:
--------------
    translator/trunk/Changelog.txt
    translator/trunk/src/ApplicationServices.pas
    translator/trunk/src/Dictionary.pas
    translator/trunk/src/MainFrm.pas
    translator/trunk/src/MsgTranslate.pas
    translator/trunk/src/OptionsFrm.dfm
    translator/trunk/src/TransIntf.pas

Modified: translator/trunk/Changelog.txt
===================================================================
--- translator/trunk/Changelog.txt	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/Changelog.txt	2006-11-18 10:48:21 UTC (rev 127)
@@ -1,5 +1,8 @@
 Ini Translator Changelog
 ========================
+2006-11-18:
+- For some strange reason, some parameters where declared as string when they should have been WideString. This messed up the display in the menu/toolbar control
+
 2006-11-15:
 - Renamed string constants for consistency
 - Orphaned items can now be saved to a file and merged into the main items
@@ -22,7 +25,7 @@
   1. Opening original, cancel on trans - > new MRU (new orig, old trans)
   1b. if not FileExists(old trans) -> new empty trans
   2. Open orig + trans - > new MRU(new orig, new trans)
-  3. Open trans -> mew MRU(old orig, new trans)
+  3. Open trans -> new MRU(old orig, new trans)
   if MRU item already exists, nothing is added
 
 - ExtTools: Tnt ListBox doesn't work consistently in virtual mode, change to virtual+ownerdraw fixed it

Modified: translator/trunk/src/ApplicationServices.pas
===================================================================
--- translator/trunk/src/ApplicationServices.pas	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/ApplicationServices.pas	2006-11-18 10:48:21 UTC (rev 127)
@@ -26,8 +26,7 @@
       const Name: WideString; const Value: WideString); safecall;
     procedure SetFooter(const Value: WideString);
     procedure SetHeader(const Value: WideString);
-    function Translate(const Section: string; const Name: string;
-      const Value: string): WideString; safecall;
+    function Translate(const Section, Name, Value: WideString): WideString; safecall;
     procedure UnRegisterNotify(const ANotify: INotify); safecall;
 
     function _Release: Integer; stdcall;
@@ -117,8 +116,7 @@
   FForm.SetHeader(Value);
 end;
 
-function TApplicationServices.Translate(const Section, Name,
-  Value: string): WideString;
+function TApplicationServices.Translate(const Section, Name, Value: WideString): WideString; safecall;
 begin
   Result := FForm.Translate(Section, Name, Value);
 end;

Modified: translator/trunk/src/Dictionary.pas
===================================================================
--- translator/trunk/src/Dictionary.pas	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/Dictionary.pas	2006-11-18 10:48:21 UTC (rev 127)
@@ -43,7 +43,7 @@
   public
     constructor Create;
     destructor Destroy; override;
-    function DefaultTranslation: string;
+    function DefaultTranslation: WideString;
     property Original: WideString read GetOriginal write SetOriginal;
     property Translations: TTntStrings read FTranslations write SetTranslations;
     property DefaultIndex: integer read FDefaultIndex write FDefaultIndex;
@@ -143,7 +143,7 @@
   TTntStringlist(FTranslations).Sorted := true;
 end;
 
-function TDictionaryItem.DefaultTranslation: string;
+function TDictionaryItem.DefaultTranslation: WideString;
 begin
   if (DefaultIndex >= 0) and (DefaultIndex < Translations.Count) then
     Result := Translations[DefaultIndex]

Modified: translator/trunk/src/MainFrm.pas
===================================================================
--- translator/trunk/src/MainFrm.pas	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/MainFrm.pas	2006-11-18 10:48:21 UTC (rev 127)
@@ -334,7 +334,7 @@
     TBXItem16: TSpTBXItem;
     TBXSeparatorItem8: TSpTBXSeparatorItem;
     mnuPlugins: TSpTBXSubmenuItem;
-    pbTranslated: TTntProgressBar;
+    pbTranslated: TTntProgressBar;                 
     mnuThemes: TSpTBXSubmenuItem;
     mnuThemesGroup: TSpTBXThemeGroupItem;
     acMakeConsistent: TTntAction;
@@ -579,7 +579,7 @@
     procedure UnRegisterNotify(const ANotify: INotify); safecall;
     function BeginUpdate: Integer; safecall;
     function EndUpdate: Integer; safecall;
-    function Translate(const Section, Name, Value: string): WideString; safecall;
+    function Translate(const Section, Name, Value: WideString): WideString; 
 {
     property Items:ITranslationItems read GetItems;
     property Orphans:ITranslationItems read GetOrphans;
@@ -4340,7 +4340,7 @@
     end;
 end;
 
-function TfrmMain.Translate(const Section, Name, Value: string): WideString;
+function TfrmMain.Translate(const Section, Name, Value: WideString): WideString;
 begin
   Result := GlobalLanguageFile.Translate(Section, Name, Value);
 end;

Modified: translator/trunk/src/MsgTranslate.pas
===================================================================
--- translator/trunk/src/MsgTranslate.pas	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/MsgTranslate.pas	2006-11-18 10:48:21 UTC (rev 127)
@@ -53,7 +53,7 @@
     procedure DoReadObject(AnObject: TObject; const PropName, Section: WideString; var AValue: WideString); dynamic;
     procedure DoWriteObject(AnObject: TObject; const PropName: WideString; var ASection, AName, AValue: WideString); dynamic;
   public
-    function Translate(const Section, Name, Value: string): WideString;
+    function Translate(const Section, Name, Value: WideString): WideString;
 
     constructor Create(const Filename: WideString = '');
     destructor Destroy; override;
@@ -485,7 +485,7 @@
       TranslateObject(TComponent(AnObject).Components[i], Section);
 end;
 
-function TAppLanguage.Translate(const Section, Name, Value: string): WideString;
+function TAppLanguage.Translate(const Section, Name, Value: WideString): WideString;
 begin
   if FLangFile <> nil then
   begin

Modified: translator/trunk/src/OptionsFrm.dfm
===================================================================
--- translator/trunk/src/OptionsFrm.dfm	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/OptionsFrm.dfm	2006-11-18 10:48:21 UTC (rev 127)
@@ -1,7 +1,7 @@
 object frmOptions: TfrmOptions
   Left = 316
   Top = 175
-  ActiveControl = chkShowQuotes
+  ActiveControl = chkGlobalPath
   BorderStyle = bsDialog
   Caption = 'Preferences'
   ClientHeight = 449
@@ -65,7 +65,7 @@
     Top = 2
     Width = 477
     Height = 387
-    ActivePage = tsGeneral
+    ActivePage = tsAdvanced
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 3
     object tsGeneral: TTntTabSheet
@@ -331,7 +331,7 @@
       end
       object TntLabel3: TTntLabel
         Left = 238
-        Top = 210
+        Top = 208
         Width = 36
         Height = 13
         Caption = '&Footer:'
@@ -437,7 +437,7 @@
         Left = 7
         Top = 224
         Width = 218
-        Height = 127
+        Height = 125
         BevelKind = bkFlat
         BorderStyle = bsNone
         PlainText = True
@@ -450,7 +450,7 @@
         Left = 238
         Top = 224
         Width = 218
-        Height = 127
+        Height = 125
         BevelKind = bkFlat
         BorderStyle = bsNone
         PlainText = True

Modified: translator/trunk/src/TransIntf.pas
===================================================================
--- translator/trunk/src/TransIntf.pas	2006-11-14 23:30:01 UTC (rev 126)
+++ translator/trunk/src/TransIntf.pas	2006-11-18 10:48:21 UTC (rev 127)
@@ -242,7 +242,7 @@
     function EndUpdate: Integer; safecall;
     procedure RegisterNotify(const ANotify: INotify); safecall;
     procedure UnRegisterNotify(const ANotify: INotify); safecall;
-    function Translate(const Section, Name, Value: string): WideString; safecall;
+    function Translate(const Section, Name, Value: WideString): WideString; safecall;
 
     property Items: ITranslationItems read GetItems;
     property Orphans: ITranslationItems read GetOrphans;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.