戻る

13．バリューセット・コントロール

　バリューセット・コントロールは、縦横に格子上に配置されたアイテムの表の中から一つを選択するものです。

13-１．コントロール・スタイル

　以下にマウスの右ボタンで表示されるポップアップメニューから指定できるデフォルトのスタイルを示します。
　　

Outside Border
　セットの外側にボーダーを表示する。
Right to Left
　アイテムを右から左に配置する。
Item Border
　アイテム毎にボーダーを表示する。
Scale bitmaps
　ビットマップを自動的にセルのサイズに拡大する。
Bitmap
　アイテムをビットマップで表示する。
Text
　アイテムをテキストで表示する。
Color Index
　アイテムをカラー・テーブルで表示する。
Icon
　アイテムをアイコンで表示する。
RGB
　アイテムをRGBカラー値で表示する。
Rows
　セットの行数を指定する。
Columns
　セットの列数を指定する。
Visible
　コントロールを作成と同時に可視状態に指定する。
Disabled
　コントロールを使用禁止状態に指定する。
Group
　現在のダイアログ内でグループを構成する。
Tabstop
　タブキーによる選択肢に含まれるようにする。

13-２．取得イベント

　バリューセット・コントロールでは、以下のイベントに対してコードを設定し、動作を決定します。
取得イベント
Enter アイテム上でエンターキーかダブルクリックが入力された際に発生
Select アイテムが選択された際に発生
Init ダイアログオープン時にコントロールが初期化される際に発生
GetFocus コントロールが入力フォーカスを得る際に発生
LoseFocus コントロールが入力フォーカスを失う際に発生
Drop オブジェクトがドロップされる際に発生

13-３．ウィンドウ・ファンクション

　各々のコントロールには、そのコントロールを操作する為の専用のファンクションが用意されています。以下にバリューセット・コントロールで使用可能なファンクションを示します。
Rangeバリューセットの行列数を設定します。(ヘルプに記入無し？)
result = Dialog.Control.Range( rows, columns )
Itemアイテムの内容を取得/設定します。
oldValue = Dialog.Control.Item( [row, column] [, newValue] )
Selectコントロールの選択状態を取得/設定します。
rowCol = Dialog.Control.Select( [row, column] )
Styleコントロールのスタイルマスクを取得/設定します。
oldStyle = Dialog.Control.Style( [newStyle] )
Fontテキストのフォントを取得/設定します。
oldFont = Dialog.Control.Font( [newFont] )
Font("サイズ.名前"の形式で指定)
  • フォントを10ポイントのクーリエに設定する場合
    CALL Dialog.Control.Font("10.Courier")
Colorコントロールのカラー属性を設定/取得します。
oldColor = Dialog.Control.Color( [attribute [, newColor]] )
attribute(+:前景, -:背景, A:アクティブ, |:非アクティブ, H:ハイライト, D:ディセーブル, T:テキスト, M:メニュー, B:ボーダー)
Color("#index"か、"#red green blue"の形式が使用可能。RGBは0～255で指定)
  • アクティブ・テキストの前景色を黒にする場合
    oldColor = Dialog.Control.Color("AT+", "#0 0 0")
IDコントロールのウィンドウIDを取得します。
id = Dialog.Control.ID()
Positionコントロールの位置とサイズを取得/設定します。
result = Dialog.Control.Position( [x [, y [, dx [, dy] ] ] ] )
x:X座標, y:Y座標, dx:幅, dy:高さ
Dragコントロールのドラッグを可能/不可能にします。
oldDragData = Dialog.Control.Drag( [newDragData] )
DragData(type[,type,...,type][:format][=data])
typeは、OS/2の使用可能タイプ(ファイルの場合)か、任意のタイプ。
formatは、STRINGかFILEを指定。省略時はSTRING。
dataは、ドロップ先に渡したい文字列。
  • コントロールを"Custom"タイプとしてドラッグ可能に指定
    CALL Dialog.Control.Drag "Custom"
  • コントロールをドラッグ不可に指定
    CALL Dialog.Control.Drag ""
Dropコントロールへのドロップを可能/不可能にします。
oldDropData = Dialog.Control.Drop( [newDropData] )
DropData(type[,type,...,type][:format][=operation])
typeは、OS/2の使用可能タイプ(ファイルの場合)か、任意のタイプ、あるいはANY。
formatは、ドロップされるデータをSTRINGかFILE、ANYで指定。省略時はSTRING。
operationは、ファイルのドロップ時に受入れる動作を指定します。MOVE(移動)、COPY(コピー)、LINK(シャドウの作成)、あるいはANY(全て)です。
  • "Custom"タイプのコントロールのみドロップ可能に指定
    CALL Dialog.Control.Drop "Custom"
  • コントロールへのドロップを不可に指定
    CALL Dialog.Control.Drop ""
Visibleコントロールの可視属性を取得/設定します。
oldState = Dialog.Control.Visible( [newState] )
State(0:不可視,1:可視)
Enabledコントロールの活動状態を取得/設定します。
oldState = Dialog.Control.Enabled( [newState] )
State(0:Disabled,1:Enabled)
Hideコントロールを非表示状態にします。
CALL Dialog.Control.Hide ["Update" | "Noupdate"]
Update:直ちに非表示状態にします。(デフォルト)
Noupdate:非表示にはしませんが、Showコマンドが使われるまで更新を抑制します。
Showコントロールを表示状態にします。
CALL Dialog.Control.Show
Topコントロールを最前面に移動します。
CALL Dialog.Top
Bottomコントロールを最背面に移動します。
CALL Dialog.Bottom
Enableコントロールを活動状態にします。
CALL Dialog.Control.Enable
Disableコントロールを非活動状態にします。
CALL Dialog.Control.Disable
Focusコントロールに入力フォーカスを与えます。
CALL Dialog.Control.Focus
IsDefaultコントロールを現在のデフォルトにします。
CALL Dialog.Control.IsDefault ["Object" | "Say"]
Object:コントロールを現在のデフォルトにします。
Say:コントロールをSAYコマンドの出力先に指定します。
Dialoghint:コントロールをダイアログに定義されたヒントの出力先に指定します。
Controlhint:コントロールを各コントロールに定義されたヒントの出力先にします。
Controls全てのコントロールのリストを取得します。
CALL Dialog.Control.Controls [stem]
Classes全てのコントロール・クラスのリストを取得します。
CALL Dialog.Control.Classes [stem]

戻る