initranslator-checkins Mailing List for IniTranslator

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Update of /cvsroot/initranslator/translator/src
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv10407/src

Modified Files:
	MainFrm.pas TransIntf.pas TranslateFile.pas translator.res 
Log Message:
- New folder structure due to SVN activation
- Updated FB build script with new folder structure
- Merged ITranslationItem, ITranslationItem2, ITranslationItem3 into ITranslationItem
- Merged ITranslationItem, ITranslationItem2 into ITranslationItems
- Added PreData and PostData to ITranslationItem
- Added Modified to ITranslationItems
- Added TMXParser and PolyGlotParser to the package group

Index: MainFrm.pas
===================================================================
RCS file: /cvsroot/initranslator/translator/src/MainFrm.pas,v
retrieving revision 1.103
retrieving revision 1.104
diff -C2 -d -r1.103 -r1.104
*** MainFrm.pas	9 Jul 2006 16:31:42 -0000	1.103
--- MainFrm.pas	10 Jul 2006 12:56:15 -0000	1.104
***************
*** 1077,1081 ****
    begin
      for i := 0 to FTranslateFile.Items.Count - 1 do
!       ITranslationItem3(FTranslateFile.Items[i]).Modified := false;
      lvTranslateStrings.Update;
    end;
--- 1077,1081 ----
    begin
      for i := 0 to FTranslateFile.Items.Count - 1 do
!       FTranslateFile.Items[i].Modified := false;
      lvTranslateStrings.Update;
    end;
***************
*** 1639,1643 ****
      if FBookmarks[Result] = Index then
        Exit;
!   if ITranslationItem3(FTranslateFile.Items[Index]).Modified then
      Result := High(FBookmarks) + 1
    else
--- 1639,1643 ----
      if FBookmarks[Result] = Index then
        Exit;
!   if FTranslateFile.Items[Index].Modified then
      Result := High(FBookmarks) + 1
    else
***************
*** 2219,2223 ****
    begin
      i := lvTranslateStrings.Selected.Index;
!     with FTranslateFile.Items[i] as ITranslationItem2 do
      begin
        ClearTranslation := MyWideQuotedStr(RemoveQuotes(trimCRLFRight(reTranslation.Text)), TransQuote);
--- 2219,2223 ----
    begin
      i := lvTranslateStrings.Selected.Index;
!     with FTranslateFile.Items[i] do
      begin
        ClearTranslation := MyWideQuotedStr(RemoveQuotes(trimCRLFRight(reTranslation.Text)), TransQuote);
***************
*** 3610,3621 ****
      ToItem.Section := FromItem.Section;
      ToItem.Name := FromItem.Name;
!     (ToItem as ITranslationItem2).ClearOriginal := (FromItem as ITranslationItem2).ClearOriginal;
!     (ToItem as ITranslationItem2).ClearTranslation := (FromItem as ITranslationItem2).ClearTranslation;
!     (ToItem as ITranslationItem3).PrivateStorage := (FromItem as ITranslationItem3).PrivateStorage;
    end;
  begin
    Index := lvTranslateStrings.Selected.Index;
    AOldItem := FTranslateFile.Items[Index];
!   AItem := (FTranslateFile.Items as ITranslationItems2).CreateItem;
    CopyItem(AOldItem, AItem);
    ASections := TTntStringlist.Create;
--- 3610,3621 ----
      ToItem.Section := FromItem.Section;
      ToItem.Name := FromItem.Name;
!     ToItem.ClearOriginal := FromItem.ClearOriginal;
!     ToItem.ClearTranslation := FromItem.ClearTranslation;
!     ToItem.PrivateStorage := FromItem.PrivateStorage;
    end;
  begin
    Index := lvTranslateStrings.Selected.Index;
    AOldItem := FTranslateFile.Items[Index];
!   AItem := FTranslateFile.Items.CreateItem;
    CopyItem(AOldItem, AItem);
    ASections := TTntStringlist.Create;
***************
*** 3652,3656 ****
    i, AIndex: integer;
  begin
!   AItem := (FTranslateFile.Items as ITranslationItems2).CreateItem;
    with lvTranslateStrings do
      if ItemIndex > -1 then
--- 3652,3656 ----
    i, AIndex: integer;
  begin
!   AItem := FTranslateFile.Items.CreateItem;
    with lvTranslateStrings do
      if ItemIndex > -1 then
***************
*** 3676,3680 ****
            // insert the new item at the correct location
            FTranslateFile.Items.Sort := stIndex;
!           AIndex := (FTranslateFile.Items as ITranslationItems2).Add(AItem);
            i := 0;
            while i <= AIndex do
--- 3676,3680 ----
            // insert the new item at the correct location
            FTranslateFile.Items.Sort := stIndex;
!           AIndex := FTranslateFile.Items.Add(AItem);
            i := 0;
            while i <= AIndex do

Index: translator.res
===================================================================
RCS file: /cvsroot/initranslator/translator/src/translator.res,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
Binary files /tmp/cvsz3K9U1 and /tmp/cvsbnzwLm differ

Index: TransIntf.pas
===================================================================
RCS file: /cvsroot/initranslator/translator/src/TransIntf.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** TransIntf.pas	7 Jul 2006 10:18:38 -0000	1.12
--- TransIntf.pas	10 Jul 2006 12:56:16 -0000	1.13
***************
*** 78,85 ****
      property Name: WideString read GetName write SetName;
      property Owner: ITranslationItems read GetOwner write SetOwner;
-   end;
- 
-   ITranslationItem2 = interface(ITranslationItem)
-     ['{77326880-2729-475F-91D5-0347E954E87A}']
      // Works just as SetOriginal and SetTranslation in ITranslationItem, but
      // also sets OrigQuote/TransQuote to #0
--- 78,81 ----
***************
*** 89,96 ****
      property ClearOriginal: WideString read GetOriginal write SetClearOriginal;
      property ClearTranslation: WideString read GetTranslation write SetClearTranslation;
-   end;
  
-   ITranslationItem3 = interface(ITranslationItem2)
-     ['{B5B83720-A584-493B-8DF2-205602532099}']
      procedure SetModified(Value: WordBool);
      function GetModified: WordBool;
--- 85,89 ----
***************
*** 102,107 ****
--- 95,107 ----
      property PrivateStorage: WideString read GetPrivateStorage write SetPrivateStorage;
      property Modified: WordBool read GetModified write SetModified;
+     function GetPreData:WideString;
+     procedure SetPreData(const Value:WideString);
+     function GetPostData:WideString;
+     procedure SetPostData(const Value:WideString);
+     property PreData:WideString read GetPreData write SetPreData;
+     property PostData:WideString read GetPostData write SetPostData;
    end;
  
+ 
    ITranslationItems = interface(IInterface)
      ['{6ACD4934-9B26-4232-B11E-95FB18B60FCA}']
***************
*** 110,131 ****
      function GetSort: TTranslateSortType;
      procedure SetSort(const Value: TTranslateSortType);
  
!     function Add: ITranslationItem;
      procedure Delete(Index: integer);
      procedure Clear;
      function IndexOf(const Section, Name: WideString; CaseSense: WordBool = false): integer;
  
-     function GetItem(Index: integer): ITranslationItem;
-     function GetCount: integer;
      property Count: integer read GetCount;
      property Items[Index: integer]: ITranslationItem read GetItem; default;
      property TranslatedCount: integer read GetTranslatedCount write SetTranslatedCount;
      property Sort: TTranslateSortType read GetSort write SetSort;
!   end;
!   ITranslationItems2 = interface(ITranslationItems)
!     ['{4A9A03BE-F42E-4A27-AA02-99386B96CD89}']
!     // add existing item
!     function Add(const Item: ITranslationItem): integer; overload;
!     function CreateItem: ITranslationItem; // create an item that isn't added to the list
    end;
  
--- 110,130 ----
      function GetSort: TTranslateSortType;
      procedure SetSort(const Value: TTranslateSortType);
+     procedure SetModified(Value: WordBool);
+     function GetModified: WordBool;
+     function GetItem(Index: integer): ITranslationItem;
+     function GetCount: integer;
  
!     function Add: ITranslationItem;overload;
!     function Add(const Item: ITranslationItem): integer; overload;
!     function CreateItem: ITranslationItem; // create an item that isn't added to the list
      procedure Delete(Index: integer);
      procedure Clear;
      function IndexOf(const Section, Name: WideString; CaseSense: WordBool = false): integer;
  
      property Count: integer read GetCount;
      property Items[Index: integer]: ITranslationItem read GetItem; default;
      property TranslatedCount: integer read GetTranslatedCount write SetTranslatedCount;
      property Sort: TTranslateSortType read GetSort write SetSort;
!     property Modified:WordBool read GetModified write SetModified;
    end;
  

Index: TranslateFile.pas
===================================================================
RCS file: /cvsroot/initranslator/translator/src/TranslateFile.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** TranslateFile.pas	7 Jul 2006 10:18:38 -0000	1.29
--- TranslateFile.pas	10 Jul 2006 12:56:16 -0000	1.30
***************
*** 30,35 ****
    TTranslateFiles = class;
  
!   TTranslationItem = class(TInterfacedObject, IInterface, ITranslationItem,
!       ITranslationItem2, ITranslationItem3)
    private
      FOwner: ITranslationItems;
--- 30,34 ----
    TTranslateFiles = class;
  
!   TTranslationItem = class(TInterfacedObject, IInterface, ITranslationItem)
    private
      FOwner: ITranslationItems;
***************
*** 41,45 ****
      FTransComments: WideString;
      FOrigComments: WideString;
!     FPrivateStorage: WideString;
      FTranslated, FModified: WordBool;
      FOrigQuote, FTransQuote: WideChar;
--- 40,44 ----
      FTransComments: WideString;
      FOrigComments: WideString;
!     FPrivateStorage, FPreData, FPostData: WideString;
      FTranslated, FModified: WordBool;
      FOrigQuote, FTransQuote: WideChar;
***************
*** 71,74 ****
--- 70,77 ----
      function GetModified: WordBool;
      procedure SetModified(Value: WordBool);
+     function GetPreData:WideString;
+     procedure SetPreData(const Value:WideString);
+     function GetPostData:WideString;
+     procedure SetPostData(const Value:WideString);
    private
      function GetQuote(const S: WideString): WideChar;
***************
*** 92,102 ****
      property Translated: WordBool read GetTranslated write SetTranslated;
      property Modified: WordBool read GetModified write SetModified;
    end;
  
!   TTranslationItems = class(TInterfacedObject, IInterface, ITranslationItems, ITranslationItems2)
    private
      FItems: TList;
      FSort: TTranslateSortType;
      FTranslatedCount: integer;
      function GetCount: integer;
      function GetItem(Index: integer): ITranslationItem;
--- 95,108 ----
      property Translated: WordBool read GetTranslated write SetTranslated;
      property Modified: WordBool read GetModified write SetModified;
+     property PreData:WideString read GetPreData write SetPreData;
+     property PostData:WideString read GetPostData write SetPostData;
    end;
  
!   TTranslationItems = class(TInterfacedObject, IInterface, ITranslationItems)
    private
      FItems: TList;
      FSort: TTranslateSortType;
      FTranslatedCount: integer;
+     FModified:WordBool;
      function GetCount: integer;
      function GetItem(Index: integer): ITranslationItem;
***************
*** 105,108 ****
--- 111,116 ----
      procedure SetTranslatedCount(const Value: integer);
      function GetSort: TTranslateSortType;
+     function GetModified: WordBool;
+     procedure SetModified(Value: WordBool);
    public
      function Add: ITranslationItem; overload;
***************
*** 120,123 ****
--- 128,132 ----
      property Items[Index: integer]: ITranslationItem read GetItem; default;
      property TranslatedCount: integer read GetTranslatedCount write SetTranslatedCount;
+     property Modified: WordBool read GetModified write SetModified;
    end;
  
***************
*** 349,352 ****
--- 358,374 ----
  end;
  
+ function TTranslationItems.GetModified: WordBool;
+ var i:integer;
+ begin
+   Result := FModified;
+   if not Result then
+     for i := 0 to Count - 1 do
+       if Items[i].Modified then
+       begin
+         Result := true;
+         Exit;
+       end;
+ end;
+ 
  function TTranslationItems.GetSort: TTranslateSortType;
  begin
***************
*** 411,414 ****
--- 433,448 ----
  end;
  
+ procedure TTranslationItems.SetModified(Value: WordBool);
+ var i:integer;
+ begin
+   if FModified <> Value then
+   begin
+     FModified := Value;
+     if not FModified then
+       for i := 0 to Count - 1 do
+         Items[i].Modified := false;
+   end;
+ end;
+ 
  procedure TTranslationItems.SetSort(const Value: TTranslateSortType);
  begin
***************
*** 701,704 ****
--- 735,748 ----
  end;
  
+ function TTranslationItem.GetPostData: WideString;
+ begin
+   Result := FPostData;
+ end;
+ 
+ function TTranslationItem.GetPreData: WideString;
+ begin
+   Result := FPreData;
+ end;
+ 
  function TTranslationItem.GetPrivateStorage: WideString;
  begin
***************
*** 785,788 ****
--- 829,842 ----
  end;
  
+ procedure TTranslationItem.SetPostData(const Value: WideString);
+ begin
+   FPostData := Value;
+ end;
+ 
+ procedure TTranslationItem.SetPreData(const Value: WideString);
+ begin
+   FPreData := Value;
+ end;
+ 
  procedure TTranslationItem.SetPrivateStorage(const Value: WideString);
  begin

2003	Jan	Feb	Mar	Apr (75)	May (43)	Jun (32)	Jul (17)	Aug	Sep (33)	Oct (90)	Nov (21)	Dec (29)
2004	Jan (2)	Feb	Mar	Apr	May (1)	Jun	Jul	Aug	Sep (39)	Oct (166)	Nov (43)	Dec (1)
2006	Jan	Feb	Mar	Apr	May (5)	Jun (12)	Jul (55)	Aug	Sep	Oct	Nov	Dec

initranslator-checkins Mailing List for IniTranslator

initranslator-checkins — CVS checkins list