\r
' Properties\r
\r
-Public jsDir ' directory containing Rico's javascript files\r
-Public cssDir ' directory containing Rico's css files\r
-Public imgDir ' directory containing Rico's image files\r
-Public transDir\r
-Public ricoLib,ricoTheme,ricoLogging\r
+Public jsDir ' directory containing Rico's javascript files\r
+Public cssDir ' directory containing Rico's css files\r
+Public imgDir ' directory containing Rico's image files\r
+Public imgHeading ' background image for grid headings and window titles, used in grayedout theme\r
+Public transDir ' directory containing ricoLocale_xx files, set to jsDir/translations when jsDir is set\r
+Public ricoLib ' base library - prototype, jquery, etc\r
+Public ricoLogging ' enable console logging?\r
Public grid_striping ' apply row striping to LiveGrids?\r
Public LoadBaseLib ' load base Javascript library (prototype, jQuery, etc)?\r
-Public jQuery_theme_path\r
-Public SupportedLangs ' comma-separated list of 2-character codes, representing the files that can be found in js/translations directory\r
+Public jQuery_theme_path ' url to jqueryui themes\r
+Public SupportedLangs ' comma-separated list of 2-character codes, representing the files that can be found in js/translations directory. Defaults to ones delivered with Rico.\r
\r
' Constructor\r
\r
Private Sub Class_Initialize\r
ricoLib="proto_min" ' default base library\r
- ricoTheme="j-ui-lightness" ' jquery themes start with j-, rico themes start with r-\r
+ ricoTheme="j-ui-lightness"\r
ricoLogging=false\r
grid_striping = true\r
LoadBaseLib = true\r
End Sub\r
\r
\r
+' jquery themes start with j-, rico themes start with r-\r
+Private m_ricoTheme \r
+Public Property Get ricoTheme()\r
+ ricoTheme = m_ricoTheme\r
+End Property\r
+Public Property Let ricoTheme(theme)\r
+ Dim prefix\r
+ prefix=left(theme,2)\r
+ if prefix="r-" or prefix="j-" then\r
+ m_ricoTheme = theme\r
+ if theme="r-grayedout" then imgHeading="grayedout.gif"\r
+ end if\r
+End Property \r
+\r
+\r
Public Sub SetRicoClientPaths(ByVal jsPath, cssPath, imgPath)\r
jsDir = jsPath\r
cssDir= cssPath\r
Response.Write vbLf & "Rico_CONFIG = {"\r
if ricoLogging then Response.Write vbLf & "enableLogging: true,"\r
Response.Write vbLf & "jsDir: '" & jsDir & "',"\r
- Response.Write vbLf & "cssDir: '" & cssDir & "',"\r
- Response.Write vbLf & "imgDir: '" & imgDir & "'"\r
+ if not IsEmpty(imgHeading) then Response.Write vbLf & "imgHeading: '" & imgDir & imgHeading & "',"\r
+ Response.Write vbLf & "imgResize: '" & imgDir & "resize.gif',"\r
+ Response.Write vbLf & "imgIcons: '" & imgDir & "ricoIcons.gif'"\r
Response.Write vbLf & "};"\r
Response.Write vbLf & "</script>"\r
end sub\r