Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,81 @@
+Imports System
+Imports System.Data
+Imports System.Configuration
+Imports System.Collections
+Imports System.IO
+Imports System.Web
+Imports System.Web.Security
+Imports System.Web.UI
+Imports System.Web.UI.WebControls
+Imports System.Web.UI.WebControls.WebParts
+Imports System.Web.UI.HtmlControls
+Imports DevExpress.Web.ASPxHtmlEditor
+Imports DevExpress.Web.ASPxHtmlEditor.Localization
+Imports DevExpress.Web
+
+Partial Public Class InsertImageForm
+    Inherits HtmlEditorUserControl
+
+    Protected Overrides Sub PrepareChildControls()
+        ckbSaveToServer.ClientVisible = HtmlEditor.Settings.AllowInsertDirectImageUrls AndAlso Not String.IsNullOrEmpty(HtmlEditor.SettingsImageUpload.UploadImageFolder)
+        rblFromThisComputer.ClientEnabled = Not String.IsNullOrEmpty(HtmlEditor.SettingsImageUpload.UploadImageFolder)
+        uplImage.UploadMode = If(HtmlEditor.SettingsImageUpload.UseAdvancedUploadMode, UploadControlUploadMode.Advanced, UploadControlUploadMode.Standard)
+        Localize()
+
+        MyBase.PrepareChildControls()
+
+        Dim imageSelectorEnabled As Boolean = HtmlEditor.SettingsImageSelector.Enabled
+        txbInsertImageUrl.Buttons(0).Visible = imageSelectorEnabled
+        BrowsePopup.Visible = imageSelectorEnabled
+    End Sub
+    Private Sub Localize()
+        rblFromTheWeb.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_FromWeb)
+        rblFromThisComputer.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_FromLocal)
+        lblImageUrl.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_EnterUrl) & ":"
+        txbInsertImageUrl.ValidationSettings.RequiredField.ErrorText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError)
+        ckbSaveToServer.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_SaveToServer)
+        lblBrowse.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_UploadInstructions) & ":"
+        ckbMoreImageOptions.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_MoreOptions)
+        btnInsertImage.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonInsert)
+        btnChangeImage.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonChange)
+        btnInsertImageCancel.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonCancel)
+        BrowsePopup.HeaderText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.SelectImage)
+        txbInsertImageUrl.Buttons(0).ToolTip = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_SelectImage)
+        dxHiddenField.Add("RequiredFieldError", ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError))
+    End Sub
+    Protected Overrides Function GetChildDxEdits() As ASPxEditBase()
+        Return New ASPxEditBase() {rblFromTheWeb, rblFromThisComputer, txbInsertImageUrl, ckbSaveToServer, ckbMoreImageOptions}
+    End Function
+    Protected Overrides Function GetChildDxButtons() As ASPxButton()
+        Return New ASPxButton() {btnInsertImage, btnChangeImage, btnInsertImage, btnInsertImageCancel}
+    End Function
+    Protected Overrides Function GetChildDxHtmlEditorRoundPanel() As ASPxHtmlEditorRoundPanel
+        Return rpInsertImage
+    End Function
+
+    Protected Function SaveUploadFile() As String
+        Dim fileName As String = ""
+        If HasFile() Then
+            Dim uploadFolder As String = HtmlEditor.SettingsImageUpload.UploadImageFolder
+            fileName = MapPath(uploadFolder) + uplImage.UploadedFiles(0).FileName
+            Try
+                uplImage.UploadedFiles(0).SaveAs(fileName, False)
+            Catch e1 As IOException
+                fileName = MapPath(uploadFolder) + uplImage.GetRandomFileName()
+                uplImage.UploadedFiles(0).SaveAs(fileName)
+            End Try
+        End If
+        Return Path.GetFileName(fileName)
+    End Function
+    Protected Function HasFile() As Boolean
+        Return uplImage.UploadedFiles IsNot Nothing AndAlso uplImage.UploadedFiles.Length > 0 AndAlso uplImage.UploadedFiles(0).FileName <> ""
+    End Function
+    Protected Sub uplImage_FileUploadComplete(ByVal sender As Object, ByVal args As DevExpress.Web.FileUploadCompleteEventArgs)
+        Try
+            args.CallbackData = SaveUploadFile()
+        Catch e As Exception
+            args.IsValid = False
+            args.ErrorText = e.Message
+        End Try
+    End Sub
+End Class