Imports Telerik.Web.UI

Namespace PCSolution

    Public Class Localize

        Sub ColorPicker(control As RadColorPicker)

            control.Localization.ApplyButtonText = Resources.ColorPicker.Apply
            control.Localization.BlankColorText = Resources.ColorPicker.BlankColorText
            control.Localization.CancelButtonText = Resources.ColorPicker.CancelButtonText
            control.Localization.CurrentColorText = Resources.ColorPicker.CurrentColorText
            control.Localization.CustomColor = Resources.ColorPicker.CustomColor
            control.Localization.HexInputTitle = Resources.ColorPicker.HexInputTitle
            control.Localization.HSBTabText = Resources.ColorPicker.HSBTabText
            control.Localization.HSVTabText = Resources.ColorPicker.HSVTabText
            control.Localization.NoColorText = Resources.ColorPicker.NoColorText
            control.Localization.OkButtonText = Resources.ColorPicker.OkButtonText
            control.Localization.PickColorText = Resources.ColorPicker.PickColorText
            control.Localization.RecentColors = Resources.ColorPicker.RecentColors
            control.Localization.WebPaletteTabText = Resources.ColorPicker.WebPaletteTabText
            control.Localization.HSBSliderDragText = Resources.ColorPicker.HSBSliderDragText
            control.Localization.HSVSliderDragText = Resources.ColorPicker.HSVSliderDragText
            control.Localization.RGBSlidersDecreaseText = Resources.ColorPicker.RGBSlidersDecreaseText
            control.Localization.RGBSlidersDragText = Resources.ColorPicker.RGBSlidersDragText
            control.Localization.RGBSlidersIncreaseText = Resources.ColorPicker.RGBSlidersIncreaseText

        End Sub

        Sub ListBox(control As RadListBox)

            control.Localization.AllToBottom = Resources.ListBox.AllToBottom
            control.Localization.AllToLeft = Resources.ListBox.AllToLeft
            control.Localization.AllToRight = Resources.ListBox.AllToRight
            control.Localization.AllToTop = Resources.ListBox.AllToTop
            control.Localization.Delete = Resources.ListBox.Delete
            control.Localization.MoveDown = Resources.ListBox.MoveDown
            control.Localization.MoveUp = Resources.ListBox.MoveUp
            control.Localization.ToBottom = Resources.ListBox.ToBottom
            control.Localization.ToLeft = Resources.ListBox.ToLeft
            control.Localization.ToRight = Resources.ListBox.ToRight
            control.Localization.ToTop = Resources.ListBox.ToTop

        End Sub

        Sub DatePicker(control As RadDatePicker)

            control.ShowPopupOnFocus = True

            control.Calendar.FastNavigationSettings.EnableTodayButtonSelection = True
            control.Calendar.FastNavigationSettings.OkButtonCaption = Resources.RadDatePicker.OK
            control.Calendar.FastNavigationSettings.DateIsOutOfRangeMessage = Resources.RadDatePicker.DateIsOutOfRangeMessage
            control.Calendar.FastNavigationSettings.CancelButtonCaption = Resources.RadDatePicker.Storno
            control.Calendar.FastNavigationSettings.TodayButtonCaption = Resources.RadDatePicker.Today
            control.DatePopupButton.ToolTip = ""

        End Sub

        Sub RadTimePicker(s As RadTimePicker, iStartTime As TimeSpan, iEndTime As TimeSpan, iInterval As TimeSpan)

            s.ShowPopupOnFocus = True
            s.TimePopupButton.ToolTip = ""
            s.TimeView.HeaderText = ""
            s.TimeView.StartTime = iStartTime
            s.TimeView.EndTime = iEndTime
            s.TimeView.Interval = iInterval

        End Sub

        Sub Window(control As RadWindow)

            control.Localization.Cancel = Resources.Window.Cancel
            control.Localization.Close = Resources.Window.Close
            control.Localization.Maximize = Resources.Window.Maximize
            control.Localization.Minimize = Resources.Window.Minimize
            control.Localization.No = Resources.Window.No
            control.Localization.Yes = Resources.Window.Yes
            control.Localization.OK = Resources.Window.OK
            control.Localization.Reload = Resources.Window.Reload

        End Sub

        Sub ProgressArea(ByVal prg As RadProgressArea)

            prg.ProgressIndicators = Telerik.Web.UI.Upload.ProgressIndicators.RequestSize _
                Or Telerik.Web.UI.Upload.ProgressIndicators.TimeElapsed Or Telerik.Web.UI.Upload.ProgressIndicators.TimeEstimated Or _
                Telerik.Web.UI.Upload.ProgressIndicators.TotalProgress Or Telerik.Web.UI.Upload.ProgressIndicators.TotalProgressBar Or _
                Telerik.Web.UI.Upload.ProgressIndicators.TotalProgressPercent Or Telerik.Web.UI.Upload.ProgressIndicators.TransferSpeed

            prg.Localization.CurrentFileName = "Jméno souboru"
            prg.Localization.ElapsedTime = "Uplynulý čas"
            prg.Localization.EstimatedTime = "Odhadovaný čas"
            prg.Localization.Total = "Celkem"
            prg.Localization.TotalFiles = "Počet souborů"
            prg.Localization.TransferSpeed = "Přenosová rychlost"
            prg.Localization.Uploaded = "Přeneseno"
            prg.Localization.UploadedFiles = "Přeneseno souborů"

        End Sub

        Sub RadAsyncUpload(ByVal upload As RadAsyncUpload)

            upload.Localization.Cancel = "Ukončit"
            upload.Localization.Remove = "Odstranit"
            upload.Localization.Select = "Vybrat"

        End Sub

    End Class

End Namespace
