如何在devexpress gridcontrol组件中设置从右到左对齐？

Question

如何在devexpress gridcontrol组件中设置从右到左对齐？ （不使用wpf）

像这张照片一样：

Answer 1

在版本15.1中，DevExpress在以下控件中引入了从右到左（RTL）支持：

• 图表
• 网格控件（Grid，Treelist，Pivot Grid，Vertical Grid和Property Grid）
• 数据编辑和控制（范围控制，评级控制等）
• 功能区，菜单和相关控件（BackstageView，AppMenu，еtс。）
• 布局控件和布局容器（TabControl，GroupControl等）
• 导航控件（导航栏，平铺控件等）
• 应用程序UI控件（Docking，DocumentManager等）

因此，只需将GridControl.RightToLeft属性设置为RightToLeft.Yes即可获得RTL布局。

Answer 2

你可以使用ms技巧：

制作新组件并在代码视图中添加以下行：

Imports System.ComponentModel
Imports DevExpress.XtraGrid.Localization
Imports System.Windows.Forms
Imports System.Drawing

Public Class MirroredDevExpressGrid
   Private _Mirrored As Boolean
   Const WS_EX_LAYOUTRTL = &H400000

   Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
      Get
         Dim CP As System.Windows.Forms.CreateParams = _
               MyBase.CreateParams
         If Mirrored Then
            CP.ExStyle = CP.ExStyle Or WS_EX_LAYOUTRTL
            MyBase.Refresh()
         End If
         Return CP
      End Get
   End Property

   <Description("Change to the right-to-left layout."), _
  DefaultValue(False), Localizable(True), _
  Category("Appearance"), Browsable(True)> _
   Public Property Mirrored() As Boolean
      Get
         Return _Mirrored
      End Get
      Set(ByVal value As Boolean)
         If _Mirrored <> value Then
            _Mirrored = value
            MyBase.OnRightToLeftChanged(EventArgs.Empty)
         End If
      End Set
   End Property

   Private Sub InitializeComponent()
      Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView
      CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
      CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
      Me.SuspendLayout()
      Me.LookAndFeel.SetSkinStyle("Money Twins")
      Me.LookAndFeel.UseDefaultLookAndFeel = False
      Me.Mirrored = True
      '
      'GridView1
      '
      Me.GridView1.GridControl = Me
      Me.GridView1.Name = "GridView1"
      '
      'MirroredDevExpressGrid
      '
      Me.MainView = Me.GridView1
      Me.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
      CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
      Me.ResumeLayout(False)

   End Sub


   Private Sub MirroredDevExpressGrid_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove

      Invalidate()
   End Sub

End Class

and in designer class:

you can use ms trick:

make new component and in code view add the following lines:

Imports System.ComponentModel
Imports DevExpress.XtraGrid.Localization
Imports System.Windows.Forms
Imports System.Drawing

Public Class MirroredDevExpressGrid
   Private _Mirrored As Boolean
   Const WS_EX_LAYOUTRTL = &H400000

   Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
      Get
         Dim CP As System.Windows.Forms.CreateParams = _
               MyBase.CreateParams
         If Mirrored Then
            CP.ExStyle = CP.ExStyle Or WS_EX_LAYOUTRTL
            MyBase.Refresh()
         End If
         Return CP
      End Get
   End Property

   <Description("Change to the right-to-left layout."), _
  DefaultValue(False), Localizable(True), _
  Category("Appearance"), Browsable(True)> _
   Public Property Mirrored() As Boolean
      Get
         Return _Mirrored
      End Get
      Set(ByVal value As Boolean)
         If _Mirrored <> value Then
            _Mirrored = value
            MyBase.OnRightToLeftChanged(EventArgs.Empty)
         End If
      End Set
   End Property

   Private Sub InitializeComponent()
      Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView
      CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
      CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
      Me.SuspendLayout()
      Me.LookAndFeel.SetSkinStyle("Money Twins")
      Me.LookAndFeel.UseDefaultLookAndFeel = False
      Me.Mirrored = True
      '
      'GridView1
      '
      Me.GridView1.GridControl = Me
      Me.GridView1.Name = "GridView1"
      '
      'MirroredDevExpressGrid
      '
      Me.MainView = Me.GridView1
      Me.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
      CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
      Me.ResumeLayout(False)

   End Sub


   Private Sub MirroredDevExpressGrid_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove

      Invalidate()
   End Sub

End Class

and in designer class:

Partial Class MirroredDevExpressGrid
   Inherits DevExpress.XtraGrid.GridControl

   <System.Diagnostics.DebuggerNonUserCode()> _
 Protected Overrides Sub Dispose(ByVal disposing As Boolean)
      MyBase.Dispose(disposing)
   End Sub
   Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView

End Class