Subversion Repositories DevTools

Rev

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

Rev 5296 Rev 5306
Line 165... Line 165...
165
165
166 
	' -- Set button spacer
 166 
	' -- Set button spacer
167 
	objControl.ButtonSpacer = 10
 167 
	objControl.ButtonSpacer = 10
168 
End Sub
 168 
End Sub
169 
'-----------------------------------------------------------------------------------------------------------------------------
 169 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 170 
Function iif(bFlag, sTrueStr, sFalseStr)
- 
 
 171 
  if bFlag then
- 
 
 172 
    iif = sTrueStr
- 
 
 173 
  else
- 
 
 174 
    iif = sFalseStr
- 
 
 175 
  end if
- 
 
 176 
End Function
- 
 
 177 
'-----------------------------------------------------------------------------------------------------------------------------
170 
%>
 178 
%>
171 

            179