Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Back to topic list

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

Author otto_noll
Full name Otto Noll
Date 2009-01-15 10:48:41 PST
Message Author: otto_noll
Date: 2009-01-15 10:48:40-0800
New Revision: 73

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

Log:
Edit SVN_COMMIT and SVN_ADD. Now if the module has more than one file the other files will be add to the add respectively to the commit action.

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​=73&r1=72&r2​=73
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-15 10:48:40-0800
@@ -820,36 +820,56 @@
         SVN_ADD:
             if project <> nil then
             begin
- if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before add. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
               begin
- if SaveForegroundEditorFile() then
+ filestringbuff:=' ';
+ for I := 0 to GetCurrentModuleFile​List(TStringList.cre​ate).Count -1 do
+ filestringbuff:=file​stringbuff+AnsiQuote​dStr(ExtractFileName​(GetCurrentModuleFil​eList(TStringList.cr​eate)[I]),'"')+',';
+ if MessageDlg( 'The files '+ filestringbuff +' will be saved before add. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
                 begin
- if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
- TSVNExec( '/command:add /notempfile /path:' + AnsiQuotedStr( ExtractFileName(GetC​urrentModuleFileList​(TStringList.create)​[0] ), '"' ) )
- else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
- TSVNExec( '/command:add /notempfile /path:' + AnsiQuotedStr(GetCur​rentModuleFileList(T​StringList.create)[0​], '"' ) );
+ filestringbuff:= '"';
+ for I := 0 to GetCurrentModuleFile​List(TStringList.cre​ate).Count -1 do
+ filestringbuff:=file​stringbuff+GetCurren​tModuleFileList(TStr​ingList.create)[I]+'​*';
+ filestringbuff[Lengt​h(filestringbuff)]:=​ '"';
+ TSVNExec( '/command:add /notempfile /path:' +filestringbuff );
+ for I := 0 to GetCurrentModuleFile​List(TStringList.cre​ate).Count -1 do
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[i]);​
                 end;
- end;
+ end
+ else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
+ if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before add. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ if SaveForegroundEditorFile() then
+ begin
+ TSVNExec( '/command:add /notempfile /path:' + AnsiQuotedStr(GetCur​rentModuleFileList(T​StringList.create)[0​], '"' ) );
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[0]);​
+ end;
             end;
         SVN_COMMIT:
             if project <> nil then
             begin
- if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before commit. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
               begin
- if SaveForegroundEditorFile() then
+ filestringbuff:=' ';
+ for I := 0 to GetCurrentModuleFile​List(TStringList.cre​ate).Count -1 do
+ filestringbuff:=file​stringbuff+AnsiQuote​dStr(ExtractFileName​(GetCurrentModuleFil​eList(TStringList.cr​eate)[I]),'"')+',';
+ if MessageDlg( 'The files '+ filestringbuff +' will be saved before commit. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
                 begin
- if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
- begin
- TSVNExec( '/command:commit /notempfile /path:' + AnsiQuotedStr( ExtractFileName(GetC​urrentModuleFileList​(TStringList.create)​[0] ), '"' ) );
- (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[0]);​
- end
- else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
- begin
+ filestringbuff:= '"';
+ for I := 0 to GetCurrentModuleFile​List(TStringList.cre​ate).Count -1 do
+ filestringbuff:=file​stringbuff+GetCurren​tModuleFileList(TStr​ingList.create)[I]+'​*';
+ filestringbuff[Lengt​h(filestringbuff)]:=​ '"';
+ TSVNExec( '/command:commit /notempfile /path:' +filestringbuff );
+ for I := 0 to GetCurrentModuleFile​List(TStringList.cre​ate).Count -1 do
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[i]);​
+ end;
+ end
+ else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
+ if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before commit. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ if SaveForegroundEditorFile() then
+ begin
                       TSVNExec( '/command:commit /notempfile /path:' + AnsiQuotedStr(GetCur​rentModuleFileList(T​StringList.create)[0​], '"' ) );
                       (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[0]);​
- end;
- end;
- end;
+ end;
             end;
         SVN_BRANCH:
             if project <> nil then

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r73 - branches/SOPTIM/src/tsvnWizard.pas otto_noll Otto Noll 2009-01-15 10:48:41 PST
Messages per page: