FarPoint.Win.Spread アセンブリ > FarPoint.Win.Spread 名前空間 > SpreadActions クラス : DecreaseShapeHeight フィールド |
FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape(); arrow.Parent = fpSpread1; arrow.SetBounds(10, 10, 50, 50); fpSpread1.ActiveSheet.AddShape(arrow); FarPoint.Win.Spread.DrawingSpace.ArrowShape crv = new FarPoint.Win.Spread.DrawingSpace.CurvedArrowShape(); crv.Parent = fpSpread1; crv.SetBounds(10, 10, 50, 50); fpSpread1.ActiveSheet.AddShape(crv); FarPoint.Win.Spread.InputMap im; im = fpSpread1.GetInputMapWhenShapeHasFocus(); FarPoint.Win.Spread.Keystroke k = new FarPoint.Win.Spread.Keystroke(Keys.D, Keys.None); im.Put(k, FarPoint.Win.Spread.SpreadActions.DecreaseShapeHeight); fpSpread1.SetInputMapWhenShapeHasFocus(im);
Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow.Parent = FpSpread1 arrow.SetBounds(10, 10, 50, 50) FpSpread1.ActiveSheet.AddShape(arrow) Dim crv As New FarPoint.Win.Spread.DrawingSpace.CurvedArrowShape crv.Parent = FpSpread1 crv.SetBounds(70, 10, 50, 50) FpSpread1.ActiveSheet.AddShape(crv) Dim im As FarPoint.Win.Spread.InputMap im = FpSpread1.GetInputMapWhenShapeHasFocus() Dim k As New FarPoint.Win.Spread.Keystroke(Keys.D, Keys.None) im.Put(k, FarPoint.Win.Spread.SpreadActions.DecreaseShapeHeight) FpSpread1.SetInputMapWhenShapeHasFocus(im)
このアクションは、シェイプにフォーカスがあるときに、シェイプのサイズを上に縮小してシェイプの高さを小さくします。
シェイプにフォーカスがあるときにデフォルトでこのアクションに割り当てられているキーの組み合わせは、[Ctrl]+上矢印キーです。
独自の入力マップまたはアクションマップを定義することにより、このアクションをカスタムのキーの組み合わせに対応付けることができます。マップの詳細については、「キーボード操作」を参照してください。