Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

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

Author otto_noll
Full name Otto Noll
Date 2009-01-09 03:58:36 PST
Message Author: otto_noll
Date: 2009-01-09 03:58:35-0800
New Revision: 43

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

Log:
Added ReloadAllProjectfiles 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​=43&r1=42&r2​=43
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-09 03:58:35-0800
@@ -45,6 +45,7 @@
     procedure CreatePopupMenu;
     procedure CheckOn_Popup( sender: TObject );
     function SaveForegroundEditor​File():Boolean;
+ procedure ReloadAllProjectfiles;
 public
     constructor Create;
     destructor Destroy; override;
@@ -96,6 +97,18 @@
         end;
       end;
 end;
+procedure TTortoiseSVN.ReloadA​llProjectfiles;
+var
+ ModServices: IOTAModuleServices;
+ Module: IOTAModule;
+ i : integer;
+begin
+ ModServices := BorlandIDEServices as IOTAModuleServices;
+ Module:= ModServices.CurrentModule;
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile((ModServi​ces.GetActiveProject​).FileName);
+ for i:= 0 to (ModServices.GetActi​veProject).GetModule​Count-1 do
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile((ModServi​ces.GetActiveProject​).GetModule(i).FileN​ame);
+ end;
 
 //Refactor procedure to function
 //Now the function can be use as a variable in other functions
Messages per page: