Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

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

Author otto_noll
Full name Otto Noll
Date 2009-01-15 05:27:32 PST
Message Author: otto_noll
Date: 2009-01-15 05:27:32-0800
New Revision: 71

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

Log:
Error Correction: when CreatePopupMenu is called the menu entry of rename is disabled if the file has the ending .dpr or .dproj

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​=71&r1=70&r2​=71
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-15 05:27:32-0800
@@ -297,7 +297,7 @@
   files: TStringList;
   currentfilename:String;
 begin
- currentfilename := (BorlandIDEServices as IOTAModuleServices).​CurrentModule.ShowFi​lename;
+ currentfilename := (BorlandIDEServices as IOTAModuleServices).​CurrentModule.FileNa​me;
     popup:= sender as TPopupMenu;
     submenu := popup.FindComponent(​'TortoiseSVN_popmenu​') as TMenuItem;
     files:= TStringList.create;
@@ -320,6 +320,7 @@
     (submenu.FindCompone​nt('ESVNFeature_'+in​ttostr(ord(SVN_UNLOC​K))) as TMenuItem).Enabled := false;
     (submenu.FindCompone​nt('ESVNFeature_'+in​ttostr(ord(SVN_UPDAT​E))) as TMenuItem).Enabled := false;
     (submenu.FindCompone​nt('ESVNFeature_'+in​ttostr(ord(SVN_UPDAT​E_TO))) as TMenuItem).Enabled := false;
+ (submenu.FindCompone​nt('ESVNFeature_'+in​ttostr(ord(SVN_RENAM​E))) as TMenuItem).Enabled := false;
     GetCurrentModuleFile​List(files);
     if files.Count > 0 then
     begin
Messages per page: