First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,28 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports DevExpress.ExpressApp.Win.Editors
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.ExpressApp.Editors
+
+<PropertyEditor(GetType([String]), False)> _
+Public Class ExcelPropertyEditor
+    Inherits WinPropertyEditor
+    Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
+        MyBase.New(objectType, info)
+        ControlBindingProperty = "ExcelInfo"
+    End Sub
+    Private ExcelUserControlCore As ExcelUserControl = Nothing
+    Public ReadOnly Property ExcelUserControl() As ExcelUserControl
+        Get
+            Return ExcelUserControlCore
+        End Get
+    End Property
+    Protected Overrides Function CreateControlCore() As Object
+        ExcelUserControlCore = New ExcelUserControl()
+        Return ExcelUserControlCore
+    End Function
+    Protected Overrides Sub OnAllowEditChanged()
+        MyBase.OnAllowEditChanged()
+
+    End Sub
+End Class
@@ -0,0 +1,406 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class ExcelUserControl
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.SP = New FarPoint.Win.Spread.FpSpread()
+        Me.SP_Sheet1 = New FarPoint.Win.Spread.SheetView()
+        Me.FormulaProvider1 = New FarPoint.Win.Spread.FormulaProvider()
+        Me.SPFormula = New FarPoint.Win.Spread.FormulaTextBox()
+        Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
+        Me.Bar2 = New DevExpress.XtraBars.Bar()
+        Me.BarSubItem2 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarSubItem5 = New DevExpress.XtraBars.BarSubItem()
+        Me.ImportXLS = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem6 = New DevExpress.XtraBars.BarSubItem()
+        Me.ExportXLS = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem3 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem7 = New DevExpress.XtraBars.BarSubItem()
+        Me.TrimColumns = New DevExpress.XtraBars.BarButtonItem()
+        Me.TrimRows = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
+        Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarSubItem4 = New DevExpress.XtraBars.BarSubItem()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.FontDialog1 = New System.Windows.Forms.FontDialog()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ShowHideGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FontToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BackColorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.CellTypeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.SP, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SP_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.FormulaProvider1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SP
+        '
+        Me.SP.AccessibleDescription = ""
+        Me.SP.AllowColumnMove = True
+        Me.SP.EditModeReplace = True
+        Me.SP.Location = New System.Drawing.Point(0, 58)
+        Me.SP.Name = "SP"
+        Me.SP.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.SP_Sheet1})
+        Me.SP.Size = New System.Drawing.Size(798, 446)
+        Me.SP.TabIndex = 0
+        '
+        'SP_Sheet1
+        '
+        Me.SP_Sheet1.Reset()
+        SP_Sheet1.SheetName = "Sheet1"
+        'Formulas and custom names must be loaded with R1C1 reference style
+        Me.SP_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
+        SP_Sheet1.ColumnCount = 1
+        SP_Sheet1.RowCount = 1
+        Me.SP_Sheet1.HorizontalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None)
+        Me.SP_Sheet1.RowHeader.Columns.Default.Resizable = False
+        Me.SP_Sheet1.VerticalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None)
+        Me.SP_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
+        '
+        'SPFormula
+        '
+        Me.SPFormula.Location = New System.Drawing.Point(0, 30)
+        Me.SPFormula.Multiline = False
+        Me.SPFormula.Name = "SPFormula"
+        Me.SPFormula.Size = New System.Drawing.Size(801, 22)
+        Me.SPFormula.TabIndex = 1
+        'Attach SPFormula to SP
+        Me.SPFormula.Attach(Me.SP)
+        '
+        'BarManager1
+        '
+        Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar2})
+        Me.BarManager1.DockControls.Add(Me.barDockControlTop)
+        Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
+        Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
+        Me.BarManager1.DockControls.Add(Me.barDockControlRight)
+        Me.BarManager1.Form = Me
+        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.ExportXLS, Me.ImportXLS, Me.TrimColumns, Me.TrimRows, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarSubItem1, Me.BarSubItem2, Me.BarSubItem3, Me.BarSubItem4, Me.BarSubItem5, Me.BarSubItem6, Me.BarSubItem7, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12})
+        Me.BarManager1.MainMenu = Me.Bar2
+        Me.BarManager1.MaxItemId = 22
+        '
+        'Bar2
+        '
+        Me.Bar2.BarName = "Main menu"
+        Me.Bar2.DockCol = 0
+        Me.Bar2.DockRow = 0
+        Me.Bar2.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
+        Me.Bar2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem3)})
+        Me.Bar2.OptionsBar.MultiLine = True
+        Me.Bar2.OptionsBar.UseWholeRow = True
+        Me.Bar2.Text = "Main menu"
+        '
+        'BarSubItem2
+        '
+        Me.BarSubItem2.Caption = "File"
+        Me.BarSubItem2.Id = 12
+        Me.BarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem6), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem11)})
+        Me.BarSubItem2.Name = "BarSubItem2"
+        '
+        'BarSubItem5
+        '
+        Me.BarSubItem5.Caption = "Import"
+        Me.BarSubItem5.Id = 15
+        Me.BarSubItem5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ImportXLS), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6)})
+        Me.BarSubItem5.Name = "BarSubItem5"
+        '
+        'ImportXLS
+        '
+        Me.ImportXLS.Caption = "... from XLS"
+        Me.ImportXLS.Id = 4
+        Me.ImportXLS.Name = "ImportXLS"
+        '
+        'BarButtonItem6
+        '
+        Me.BarButtonItem6.Caption = "... from XML"
+        Me.BarButtonItem6.Id = 8
+        Me.BarButtonItem6.Name = "BarButtonItem6"
+        '
+        'BarSubItem6
+        '
+        Me.BarSubItem6.Caption = "Export"
+        Me.BarSubItem6.Id = 16
+        Me.BarSubItem6.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportXLS), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem12)})
+        Me.BarSubItem6.Name = "BarSubItem6"
+        '
+        'ExportXLS
+        '
+        Me.ExportXLS.Caption = "... to XLS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.ExportXLS.Id = 3
+        Me.ExportXLS.Name = "ExportXLS"
+        '
+        'BarButtonItem7
+        '
+        Me.BarButtonItem7.Caption = "... to XML"
+        Me.BarButtonItem7.Id = 9
+        Me.BarButtonItem7.Name = "BarButtonItem7"
+        '
+        'BarButtonItem12
+        '
+        Me.BarButtonItem12.Caption = "... to PDF"
+        Me.BarButtonItem12.Id = 21
+        Me.BarButtonItem12.Name = "BarButtonItem12"
+        '
+        'BarButtonItem8
+        '
+        Me.BarButtonItem8.Caption = "Print..."
+        Me.BarButtonItem8.Id = 10
+        Me.BarButtonItem8.Name = "BarButtonItem8"
+        '
+        'BarButtonItem11
+        '
+        Me.BarButtonItem11.Caption = "Print preview..."
+        Me.BarButtonItem11.Id = 20
+        Me.BarButtonItem11.Name = "BarButtonItem11"
+        '
+        'BarSubItem3
+        '
+        Me.BarSubItem3.Caption = "Edit"
+        Me.BarSubItem3.Id = 13
+        Me.BarSubItem3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem10)})
+        Me.BarSubItem3.Name = "BarSubItem3"
+        '
+        'BarButtonItem5
+        '
+        Me.BarButtonItem5.Caption = "Show/Hide grid line"
+        Me.BarButtonItem5.Id = 7
+        Me.BarButtonItem5.Name = "BarButtonItem5"
+        '
+        'BarSubItem7
+        '
+        Me.BarSubItem7.Caption = "Trim"
+        Me.BarSubItem7.Id = 17
+        Me.BarSubItem7.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.TrimColumns), New DevExpress.XtraBars.LinkPersistInfo(Me.TrimRows)})
+        Me.BarSubItem7.Name = "BarSubItem7"
+        '
+        'TrimColumns
+        '
+        Me.TrimColumns.Caption = "... columns"
+        Me.TrimColumns.Id = 5
+        Me.TrimColumns.Name = "TrimColumns"
+        '
+        'TrimRows
+        '
+        Me.TrimRows.Caption = "... rows"
+        Me.TrimRows.Id = 6
+        Me.TrimRows.Name = "TrimRows"
+        '
+        'BarButtonItem9
+        '
+        Me.BarButtonItem9.Caption = "Font..."
+        Me.BarButtonItem9.Id = 18
+        Me.BarButtonItem9.Name = "BarButtonItem9"
+        '
+        'BarButtonItem10
+        '
+        Me.BarButtonItem10.Caption = "Color..."
+        Me.BarButtonItem10.Id = 19
+        Me.BarButtonItem10.Name = "BarButtonItem10"
+        '
+        'barDockControlTop
+        '
+        Me.barDockControlTop.CausesValidation = False
+        Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
+        Me.barDockControlTop.Size = New System.Drawing.Size(801, 24)
+        '
+        'barDockControlBottom
+        '
+        Me.barDockControlBottom.CausesValidation = False
+        Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 558)
+        Me.barDockControlBottom.Size = New System.Drawing.Size(801, 0)
+        '
+        'barDockControlLeft
+        '
+        Me.barDockControlLeft.CausesValidation = False
+        Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
+        Me.barDockControlLeft.Location = New System.Drawing.Point(0, 24)
+        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 534)
+        '
+        'barDockControlRight
+        '
+        Me.barDockControlRight.CausesValidation = False
+        Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
+        Me.barDockControlRight.Location = New System.Drawing.Point(801, 24)
+        Me.barDockControlRight.Size = New System.Drawing.Size(0, 534)
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "BarButtonItem1"
+        Me.BarButtonItem1.Id = 0
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "FileOpen"
+        Me.BarButtonItem2.Id = 1
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "FileSave"
+        Me.BarButtonItem3.Id = 2
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        '
+        'BarSubItem1
+        '
+        Me.BarSubItem1.Caption = "FIle"
+        Me.BarSubItem1.Id = 11
+        Me.BarSubItem1.Name = "BarSubItem1"
+        '
+        'BarSubItem4
+        '
+        Me.BarSubItem4.Caption = "BarSubItem4"
+        Me.BarSubItem4.Id = 14
+        Me.BarSubItem4.Name = "BarSubItem4"
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "Trim columns"
+        Me.BarButtonItem4.Id = 5
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShowHideGridToolStripMenuItem, Me.FontToolStripMenuItem, Me.BackColorToolStripMenuItem, Me.BorderToolStripMenuItem, Me.CellTypeToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 114)
+        '
+        'ShowHideGridToolStripMenuItem
+        '
+        Me.ShowHideGridToolStripMenuItem.Name = "ShowHideGridToolStripMenuItem"
+        Me.ShowHideGridToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.ShowHideGridToolStripMenuItem.Text = "Show/Hide grid"
+        '
+        'FontToolStripMenuItem
+        '
+        Me.FontToolStripMenuItem.Name = "FontToolStripMenuItem"
+        Me.FontToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.FontToolStripMenuItem.Text = "Font..."
+        '
+        'BackColorToolStripMenuItem
+        '
+        Me.BackColorToolStripMenuItem.Name = "BackColorToolStripMenuItem"
+        Me.BackColorToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.BackColorToolStripMenuItem.Text = "Back color..."
+        '
+        'BorderToolStripMenuItem
+        '
+        Me.BorderToolStripMenuItem.Name = "BorderToolStripMenuItem"
+        Me.BorderToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.BorderToolStripMenuItem.Text = "Border ..."
+        '
+        'CellTypeToolStripMenuItem
+        '
+        Me.CellTypeToolStripMenuItem.Name = "CellTypeToolStripMenuItem"
+        Me.CellTypeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.CellTypeToolStripMenuItem.Text = "Cell type ..."
+        '
+        'ExcelUserControl
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.SPFormula)
+        Me.Controls.Add(Me.SP)
+        Me.Controls.Add(Me.barDockControlLeft)
+        Me.Controls.Add(Me.barDockControlRight)
+        Me.Controls.Add(Me.barDockControlBottom)
+        Me.Controls.Add(Me.barDockControlTop)
+        Me.Name = "ExcelUserControl"
+        Me.Size = New System.Drawing.Size(801, 558)
+        CType(Me.SP, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SP_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.FormulaProvider1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents SP As FarPoint.Win.Spread.FpSpread
+    Friend WithEvents SP_Sheet1 As FarPoint.Win.Spread.SheetView
+    Friend WithEvents FormulaProvider1 As FarPoint.Win.Spread.FormulaProvider
+    Friend WithEvents SPFormula As FarPoint.Win.Spread.FormulaTextBox
+    Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
+    Friend WithEvents Bar2 As DevExpress.XtraBars.Bar
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ExportXLS As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ImportXLS As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
+    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
+    Friend WithEvents TrimColumns As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents TrimRows As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarSubItem2 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarSubItem3 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarSubItem5 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarSubItem6 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarSubItem4 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarSubItem7 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
+    Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents FontToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BorderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ShowHideGridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BackColorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents CellTypeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem
+
+End Class
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SP_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="FormulaProvider1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>124, 17</value>
+  </metadata>
+  <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>272, 17</value>
+  </metadata>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>534, 17</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>397, 17</value>
+  </metadata>
+  <metadata name="FontDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>676, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>794, 17</value>
+  </metadata>
+</root>
@@ -0,0 +1,211 @@
+Imports System.IO
+Imports System.Text
+Imports FarPoint.Win.Spread
+Imports FarPoint.Win.Spread.Design
+Imports System.Windows.Forms
+
+Public Class ExcelUserControl
+    Private _ExcelInfo As String
+    Private _FileName As String = ""
+    Private _EnterMoveNextControl As Boolean
+    Public Sub New()
+        InitializeComponent()
+    End Sub
+    Public ReadOnly Property FpSpreadControl() As FpSpread
+        Get
+            Return Me.SP
+        End Get
+    End Property
+    ReadOnly Property FileName As String
+        Get
+            Return _FileName
+        End Get
+    End Property
+    Public Property ExcelInfo As String
+        Get
+            Return _ExcelInfo
+        End Get
+        Set(ByVal value As String)
+            _ExcelInfo = value
+        End Set
+    End Property
+    Public Property EnterMoveNextControl As Boolean
+        Get
+            Return _EnterMoveNextControl
+        End Get
+        Set(value As Boolean)
+            _EnterMoveNextControl = value
+        End Set
+    End Property
+
+    Private Sub ExcelUserControl_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
+        SP.Width = Me.Width
+        SPFormula.Width = Me.Width
+        SP.Height = Me.Height - SPFormula.Height - 35
+    End Sub
+    Private Sub ImportXLS_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles ImportXLS.ItemClick
+        Me.OpenFileDialog1.Filter = "Excel (*.xls) |*.xls;*.xlsx"
+        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            Me.SP.OpenExcel(Me.OpenFileDialog1.FileName)
+            _FileName = Me.OpenFileDialog1.FileName
+        End If
+    End Sub
+    Private Sub ExportXLS_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles ExportXLS.ItemClick
+        'Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.SaveFileDialog1.Filter = "Excel (*.xls) |*.xls;*.xlsx"
+        If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            Me.SP.SaveExcel(Me.SaveFileDialog1.FileName)
+        End If
+    End Sub
+    Private Sub TrimColumns_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles TrimColumns.ItemClick
+        Me.SP.ActiveSheet.ColumnCount = Me.SP.ActiveSheet.ActiveColumnIndex + 1
+    End Sub
+    Private Sub TrimRows_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles TrimRows.ItemClick
+        Me.SP.ActiveSheet.RowCount = Me.SP.ActiveSheet.ActiveRowIndex + 1
+    End Sub
+    Private Sub BarButtonItem5_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+        SetGridLine()
+    End Sub
+    Private Sub BarButtonItem6_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
+        Me.OpenFileDialog1.Filter = "Spread (*.xml) |*.xml"
+        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            Me.SP.Open(Me.OpenFileDialog1.FileName)
+            _FileName = Me.OpenFileDialog1.FileName
+        End If
+    End Sub
+    Private Sub BarButtonItem7_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
+        Me.SaveFileDialog1.Filter = "Spread (*.xml) |*.xml"
+        If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            Me.SP.Save(Me.SaveFileDialog1.FileName, False)
+        End If
+    End Sub
+    Private Sub BarButtonItem8_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
+        Dim printset As New FarPoint.Win.Spread.PrintInfo()
+        printset.ShowGrid = False
+        printset.UseMax = True
+        printset.ShowPrintDialog = True
+        SP.ActiveSheet.PrintInfo = printset
+
+        SP.PrintSheet(SP.ActiveSheet)
+    End Sub
+    Private Sub BarButtonItem9_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
+        SetFont()
+    End Sub
+    Private Sub BarButtonItem10_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
+        SetColor("Any")
+    End Sub
+    Private Sub FontToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FontToolStripMenuItem.Click
+        SetFont()
+    End Sub
+    Private Sub SetFont()
+        FontDialog1.ShowColor = True
+        If (FontDialog1.ShowDialog() = DialogResult.OK) Then
+            Dim _range As FarPoint.Win.Spread.Model.CellRange() = SP.ActiveSheet.GetSelections
+            For Each _CellRange As FarPoint.Win.Spread.Model.CellRange In _range
+                For ik = _CellRange.Column To _CellRange.Column + _CellRange.ColumnCount - 1
+                    For jk = _CellRange.Row To _CellRange.Row + _CellRange.RowCount - 1
+                        Dim _ActCell As FarPoint.Win.Spread.Cell = SP.ActiveSheet.Cells(jk, ik)
+                        _ActCell.Font = FontDialog1.Font
+                        _ActCell.ForeColor = FontDialog1.Color
+                    Next
+                Next
+            Next
+        End If
+    End Sub
+    Private Sub SetColor(_Object As String)
+        Dim _ColorDialog As New Windows.Forms.ColorDialog
+        Select Case _Object
+            Case "CellBackColor"
+                If (_ColorDialog.ShowDialog() = DialogResult.OK) Then
+                    Dim _range As FarPoint.Win.Spread.Model.CellRange() = SP.ActiveSheet.GetSelections
+                    For Each _CellRange As FarPoint.Win.Spread.Model.CellRange In _range
+                        For ik = _CellRange.Column To _CellRange.Column + _CellRange.ColumnCount - 1
+                            For jk = _CellRange.Row To _CellRange.Row + _CellRange.RowCount - 1
+                                Dim _ActCell As FarPoint.Win.Spread.Cell = SP.ActiveSheet.Cells(jk, ik)
+                                _ActCell.BackColor = _ColorDialog.Color
+                            Next
+                        Next
+                    Next
+                End If
+
+            Case "BorderColor"
+                If (_ColorDialog.ShowDialog() = DialogResult.OK) Then
+
+                End If
+
+        End Select
+    End Sub
+    Private Sub SP_CellClick(sender As System.Object, e As FarPoint.Win.Spread.CellClickEventArgs) Handles SP.CellClick
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            Cursor = New Cursor(Cursor.Current.Handle)
+            ContextMenuStrip1.Show(New System.Drawing.Point(Cursor.Position))
+        End If
+    End Sub
+    Private Sub ShowHideGridToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ShowHideGridToolStripMenuItem.Click
+        SetGridLine()
+    End Sub
+    Private Sub SetGridLine()
+        Dim HGridLine As FarPoint.Win.Spread.GridLine
+        Dim VGridLine As FarPoint.Win.Spread.GridLine
+        If Me.SP.ActiveSheet.HorizontalGridLine.Type = GridLineType.None Then
+            HGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Flat, System.Drawing.Color.LightGray)
+            VGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Flat, System.Drawing.Color.LightGray)
+        Else
+            HGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None, System.Drawing.Color.Transparent)
+            VGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None, System.Drawing.Color.Transparent)
+        End If
+
+        Me.SP.ActiveSheet.HorizontalGridLine = HGridLine
+        Me.SP.ActiveSheet.VerticalGridLine = VGridLine
+    End Sub
+    Private Sub BackColorToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BackColorToolStripMenuItem.Click
+        SetColor("CellBackColor")
+    End Sub
+    Private Sub BorderToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BorderToolStripMenuItem.Click
+        FarPoint.Win.Spread.Design.ExternalDialogs.BorderEditor(SP)
+    End Sub
+    Private Sub BarButtonItem11_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
+        Dim printset As New FarPoint.Win.Spread.PrintInfo()
+        printset.ShowGrid = False
+        printset.UseMax = True
+        'printset.ShowPrintDialog = True
+        printset.Preview = True
+        SP.ActiveSheet.PrintInfo = printset
+
+        SP.PrintSheet(SP.ActiveSheet)
+
+
+    End Sub
+    Private Sub CellTypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CellTypeToolStripMenuItem.Click
+        FarPoint.Win.Spread.Design.ExternalDialogs.CellTypeEditor(SP)
+    End Sub
+    Private Sub BarButtonItem12_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
+        Dim _FpPdf As FarPoint.Win.Spread.PrintInfo = New FarPoint.Win.Spread.PrintInfo
+        Dim _SaveDialog As New SaveFileDialog
+        _SaveDialog.Filter = "PDF (*.pdf) |*.pdf"
+        _SaveDialog.DefaultExt = ".pdf"
+        _SaveDialog.FileName = "Munkalap"
+
+        If (_SaveDialog.ShowDialog() = DialogResult.OK) Then
+
+
+            SP.ActiveSheet.ColumnHeader.Visible = False
+            SP.ActiveSheet.RowHeader.Visible = False
+
+            _FpPdf.PdfFileName = _SaveDialog.FileName
+            '_FpPdf.PdfWriteMode = PdfWriteMode.New
+            '_FpPdf.PdfWriteTo = PdfWriteTo.File
+            _FpPdf.PrintToPdf = True
+            '_FpPdf.PaperSize = New System.Drawing.Printing.PaperSize("A4", 8, 11)
+            '_FpPdf.Centering = Centering.Both
+            _FpPdf.Preview = False
+
+            SP.ActiveSheet.PrintInfo = _FpPdf
+            SP.PrintSheet(SP.ActiveSheet)
+            'SP.SafePrint(SP, 0)
+
+            SP.ActiveSheet.ColumnHeader.Visible = True
+            SP.ActiveSheet.RowHeader.Visible = True
+        End If
+    End Sub
+End Class