Subversion Repositories DevTools

Rev

Rev 5184 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5184 Rev 5190
Line 728... Line 728...
728
                  objBtnControl.ButtonSpacer = 0
728
                  objBtnControl.ButtonSpacer = 0
729
                  objBtnControl.ImageHspace = 2
729
                  objBtnControl.ImageHspace = 2
730
 
730
 
731
                  ' Access Control
731
                  ' Access Control
732
                  If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
732
                  If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
733
                  If NOT canActionControlInProject("DestroyRelease") Then Call objBtnControl.Active ( "btnDestroyRelease", "N" )
-
 
734
                  If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
733
                  If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
735
 
734
 
736
                  ' -- Render Buttons
735
                  ' -- Render Buttons
737
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
736
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
738
                  %>
737
                  %>