or
<
telerik:RadFormDecorator
ID
=
"RadFormDecorator1"
Runat
=
"server"
DecoratedControls
=
"All"
DecorationZoneID
=
"UploadDashboardWindow"
Skin
=
"Web20"
/>
<
telerik:RadWindowManager
ID
=
"RadWindowManager1"
Runat
=
"Server"
Skin
=
"Web20"
Modal
=
"True"
KeepInScreenBounds
=
"True"
EnableShadow
=
"True"
Behaviors
=
"Close, Move"
VisibleStatusbar
=
"False"
ReloadOnShow
=
"True"
ShowContentDuringLoad
=
"False"
Behavior
=
"Close, Move"
Title
=
"Confirm Action"
IconUrl
=
"~/Content/Dashboard/Icons/radwindow_confirmdelete.png"
>
<
Windows
>
<
telerik:RadWindow
ID
=
"HistoricalLocalSettingsWindow"
Runat
=
"Server"
NavigateUrl
=
"~/Dashboard/Dialog/Windows/HistoricalLocalSettings.aspx"
OnClientShow
=
"OnLocalSettingsShow"
OnClientClose
=
"OnHistoricalLocalSettingsClose"
OnClientAutoSizeEnd
=
"OnClientAutoSizeEnd"
IconUrl
=
"~/Content/Dashboard/Icons/radwindow_settings.png"
Title
=
"Settings"
Width
=
"450px"
AutoSize
=
"True"
AutoSizeBehaviors
=
"Height"
/>
<
telerik:RadWindow
ID
=
"DashboardGlobalSettingsWindow"
Runat
=
"Server"
NavigateUrl
=
"~/Dashboard/Dialog/Windows/DashboardGlobalSettings.aspx"
OnClientShow
=
"OnDashboardGlobalSettingsShow"
OnClientClose
=
"OnDashboardGlobalSettingsClose"
IconUrl
=
"~/Content/Dashboard/Icons/radwindow_settings.png"
OnClientAutoSizeEnd
=
"OnClientAutoSizeEnd"
Title
=
"Global Settings"
MinHeight
=
"337px"
Height
=
"337px"
Width
=
"450px"
/>
<
telerik:RadWindow
ID
=
"CustomLocalSettingsWindow"
Runat
=
"Server"
NavigateUrl
=
"~/Dashboard/Dialog/Windows/CustomLocalSettings.aspx"
OnClientShow
=
"OnLocalSettingsShow"
OnClientClose
=
"OnCustomLocalSettingsClose"
IconUrl
=
"~/Content/Dashboard/Icons/radwindow_settings.png"
OnClientAutoSizeEnd
=
"OnClientAutoSizeEnd"
Title
=
"Settings"
Width
=
"450px"
Height
=
"215px"
/>
<
telerik:RadWindow
ID
=
"ReportWindow"
Runat
=
"Server"
Title
=
"CableSolve Report Viewer"
Width
=
"600"
Height
=
"500"
OnClientClose
=
"OnReportWindowClose"
/>
<
telerik:RadWindow
ID
=
"UploadDashboardWindow"
Runat
=
"Server"
IconUrl
=
"~/Content/Dashboard/Icons/drive-upload.png"
OnClientClose
=
"OnUploadDashboardClose"
OnClientAutoSizeEnd
=
"OnClientAutoSizeEnd"
Title
=
"Upload Dashboard"
Height
=
"150"
>
<
ContentTemplate
>
<
fieldset
id
=
"Upload Dashboard"
>
<
legend
>Upload Dashboard</
legend
>
<
telerik:RadUpload
ID
=
"RadUpload1"
Runat
=
"server"
AllowedFileExtensions
=
".xml"
Skin
=
"Web20"
MaxFileInputsCount
=
"1"
ControlObjectsVisibility
=
"None"
Height
=
"40px"
Width
=
"230px"
BorderWidth
=
"0px"
>
</
telerik:RadUpload
>
<
div
class
=
"BottomButton"
>
<
telerik:RadButton
ID
=
"RadButton1"
Runat
=
"server"
Skin
=
"Web20"
Text
=
"Upload"
/>
</
div
>
</
fieldset
>
</
ContentTemplate
>
</
telerik:RadWindow
>
</
Windows
>
</
telerik:RadWindowManager
>
protected override void LoadPage()
{
// make youtube channel
channel = new YouTubeChannel(PMSettings.GetPortalSetting("channel"),
PMSettings.GetPortalSetting("devkey"),
PMSettings.GetModuleSetting("pagesize", 6));
if (!IsPostBack)
{
// request video feed
feed = channel.Search("", 1);
// configure list view
ListViewVideos.PageSize = feed.PageSize;
ListViewVideos.VirtualItemCount = feed.TotalResults;
// data bind
ListViewVideos.DataSource = feed.Entries;
ListViewVideos.DataBind();
}
}
protected void ListViewVideos_PageIndexChanged(object sender, Telerik.Web.UI.RadListViewPageChangedEventArgs e)
{
// request video feed
feed = channel.Search("", e.NewPageIndex + 1);
// configure list view
ListViewVideos.PageSize = feed.PageSize;
ListViewVideos.VirtualItemCount = feed.TotalResults;
// data bind
ListViewVideos.DataSource = feed.Entries;
ListViewVideos.DataBind();
}
<
telerik:RadRotator
ID
=
"dtMessage"
runat
=
"server"
PauseOnMouseOver
=
"false"
FrameDuration
=
"1"
Height
=
"55px"
ItemHeight
=
"55px"
Width
=
"737px"
ItemWidth
=
"737px"
>
<
ItemTemplate
>
<
table
border
=
"0"
cellpadding
=
"0"
cellspacing
=
"0"
width
=
"100%"
height
=
"100%"
>
<
tr
><
td
align
=
"center"
valign
=
"middle"
><
asp:Label
ID
=
"lblMsg"
runat
=
"server"
></
asp:Label
></
td
></
tr
>
<
tr
><
td
align
=
"center"
valign
=
"middle"
><
asp:Label
ID
=
"lblMsg2"
runat
=
"server"
></
asp:Label
></
td
></
tr
>
</
table
>
<
asp:HiddenField
ID
=
"hldMsg1"
Value ='<%# Eval("Msg1") %>' runat="server" />
<
asp:HiddenField
ID
=
"hldMsg2"
Value ='<%# Eval("Msg2") %>' runat="server" />
<
asp:HiddenField
ID
=
"hldFontFace"
Value ='<%# Eval("FontFace") %>' runat="server" />
<
asp:HiddenField
ID
=
"hldFontSize"
Value ='<%# Eval("FontSize") %>' runat="server" />
<
asp:HiddenField
ID
=
"hldFontColor"
Value ='<%# Eval("FontColor") %>' runat="server" />
<
asp:HiddenField
ID
=
"hldDirection"
Value ='<%# Eval("MessageDirection") %>' runat="server" />
</
ItemTemplate
>
</
telerik:RadRotator
>
dtMessage.DataSource = objDS.Tables(5)
dtMessage.DataBind()
Dim strColor As String = objDS.Tables(5).Rows(0)("FontColor").ToString
Dim strDirection As String = objDS.Tables(5).Rows(0)("MessageDirection").ToString
Dim intMsgSpeed As Integer = objDS.Tables(5).Rows(0)("MessageSpeed").ToString
If strDirection = "Down" Then
dtMessage.ScrollDirection = RotatorScrollDirection.Down
ElseIf strDirection = "Up" Then
dtMessage.ScrollDirection = RotatorScrollDirection.Up
ElseIf strDirection = "Left" Then
dtMessage.ScrollDirection = RotatorScrollDirection.Left
Else
dtMessage.ScrollDirection = RotatorScrollDirection.Right
End If
If strDirection = "Up" Or strDirection = "Down" Then
dtMessage.ScrollDuration = intMsgSpeed * 1000
Else
dtMessage.ScrollDuration = intMsgSpeed * 10000
End If