26．ビットマップ・コントロール

　ビットマップ・コントロールは、ビットマップを表示するコントロールです。

　注意：このコントロールは、使い方が？

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

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

Basic Styles

　ビットマップ・コントロールの基本スタイルを指定
Visible
　コントロールを作成と同時に可視状態に指定する。
Disabled
　コントロールを使用禁止状態に指定する。
Group
　現在のダイアログ内でグループを構成する。
Tabstop
　タブキーによる選択肢に含まれるようにする。

26-２．取得イベント

　ビットマップ・コントロールでは、以下のイベントに対してコードを設定し、動作を決定します。

取得イベント
Init ダイアログオープン時にコントロールが初期化される際に発生

Drop オブジェクトがドロップされる際に発生

**取得イベント**
Init	ダイアログオープン時にコントロールが初期化される際に発生
Drop	オブジェクトがドロップされる際に発生

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

　各々のコントロールには、そのコントロールを操作する為の専用のファンクションが用意されています。以下にビットマップ・コントロールで使用可能なファンクションを示します。

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]

戻る

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]