Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r44 - branches/SOPTIM/src/tsvnWizard.pas

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

svn commit: r44 - branches/SOPTIM/src/tsvnWizard.pas

Author otto_noll
Full name Otto Noll
Date 2009-01-09 04:09:14 PST
Message Author: otto_noll
Date: 2009-01-09 04:09:14-0800
New Revision: 44

Modified:
   branches/SOPTIM/src/​tsvnWizard.pas

Log:
Added SaveAllProjectfiles procedure to TTortoiseSVN

Modified: branches/SOPTIM/src/​tsvnWizard.pas
Url: http://delphiaddinfo​rtortoisesvn.tigris.​org/source/browse/de​lphiaddinfortortoise​svn/branches/SOPTIM/​src/tsvnWizard.pas?v​iew=diff&pathrev​=44&r1=43&r2​=44
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-09 04:09:14-0800
@@ -46,6 +46,7 @@
     procedure CheckOn_Popup( sender: TObject );
     function SaveForegroundEditor​File():Boolean;
     procedure ReloadAllProjectfiles;
+ procedure SaveAllProjectfiles;
 public
     constructor Create;
     destructor Destroy; override;
@@ -110,6 +111,19 @@
     (BorlandIDEServices as IOTAActionServices).​ReloadFile((ModServi​ces.GetActiveProject​).GetModule(i).FileN​ame);
   end;
 
+procedure TTortoiseSVN.SaveAll​Projectfiles;
+var
+ ModServices: IOTAModuleServices;
+ Module: IOTAModule;
+ i : integer;
+begin
+ ModServices := BorlandIDEServices as IOTAModuleServices;
+ Module:= ModServices.CurrentModule;
+ (BorlandIDEServices as IOTAActionServices).​SaveFile((ModService​s.GetActiveProject).​FileName);
+ for i:= 0 to (ModServices.GetActi​veProject).GetModule​Count-1 do
+ (BorlandIDEServices as IOTAActionServices).​SaveFile((ModService​s.GetActiveProject).​GetModule(i).FileNam​e);
+ end;
+
 //Refactor procedure to function
 //Now the function can be use as a variable in other functions
 function GetCurrentModuleFileList( fileList: TStrings ):TStrings;
Messages per page: