ナレッジベース

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

Public Class InputManListBoxResizePolicy
　　Inherits ResizePolicy

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

　　Public Overrides Sub ResizeLayout(control As Control, infos As ResizeLayoutInfo)
　　　　Try
　　　　　　Dim listBox As GcListBox = TryCast(control, GcListBox)
　　　　　　If listBox IsNot Nothing AndAlso listBox.Columns IsNot Nothing Then
　　　　　　　　' change all columns' width.
　　　　　　　　For Each column As ListColumn In listBox.Columns
　　　　　　　　　　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 InputManListBoxResizePolicy : ResizePolicy
{
　　public override Type TargetType
　　{
　　　　get { return typeof(GcListBox); }
　　}

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