ナレッジベース

[Visual Basic]
Imports GrapeCity.Win.Components
Imports GrapeCity.Win.Editors

Public Class InputManComboBoxResizePolicy
　　Inherits ResizePolicy

　　Public Overrides ReadOnly Property TargetType() As Type
　　　　Get
　　　　　　Return GetType(GcComboBox)
　　　　End Get
　　End Property

　　Public Overrides Sub ResizeLayout(control As Control, infos As ResizeLayoutInfo)
　　　　Try
　　　　　　Dim comboBox As GcComboBox = TryCast(control, GcComboBox)
　　　　　　If comboBox IsNot Nothing AndAlso comboBox.ListColumns IsNot Nothing Then
　　　　　　　　' change all columns' width.
　　　　　　　　For Each column As ListColumn In comboBox.ListColumns
　　　　　　　　　　Dim oldWidth As Integer = column.Width
　　　　　　　　　　column.Width = infos.ScaleX(oldWidth)
　　　　　　　　Next
　　　　　　End If
　　　　Catch
　　　　End Try
　　　　MyBase.ResizeLayout(control, infos)
　　End Sub
End Class

[C#]
using GrapeCity.Win.Components;
using GrapeCity.Win.Editors;

public class InputManComboBoxResizePolicy : ResizePolicy
{
　　public override Type TargetType
　　{
　　　　get { return typeof(GcComboBox); }
　　}

　　public override void ResizeLayout(Control control, ResizeLayoutInfo infos)
　　{
　　　　try
　　　　{
　　　　　　GcComboBox comboBox = control as GcComboBox;
　　　　　　if (comboBox != null && comboBox.ListColumns != null)
　　　　　　{
　　　　　　　　// change all columns' width.
　　　　　　　　foreach (ListColumn column in comboBox.ListColumns)
　　　　　　　　{
　　　　　　　　　　int oldWidth = column.Width;
　　　　　　　　　　column.Width = infos.ScaleX(oldWidth);
　　　　　　　　}
　　　　　　}
　　　　}
　　　　catch
　　　　{
　　　　}
　　　　base.ResizeLayout(control, infos);
　　}
}