戻る

20．ビルボード・コントロール

　ビルボード・コントロールは、ビットマップ表示に使用するコントロールです。

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

　以下にマウスの右ボタンで表示されるポップアップメニューから指定できるデフォルトのスタイルを示します。
　　 　　　　ビットマップDLLのファイル名指定。 　　　　現在のDLLに含まれるビットマップの表示。 　　　　コントロールのカテゴリーを指定
Container
　コンテナ属性を指定。
　　　　ビットマップの表示形式の選択
Scale
　ビットマップのサイズを表示領域に合せる。
Replicate
　ビットマップをオリジナルのサイズでタイリングする。
Center
　ビットマップをオリジナルのサイズで領域の中央に配置する
　　　　ビットマップの移動速度の選択
Stopped
　停止。
Slow
　ゆっくり移動。
Medium
　中位の速度で移動。
Fast
　速く移動。
　　　　ビットマップの移動方向の選択
Left
　左方向に移動。ビットマップは右側にループする。
Right
　右方向に移動。ビットマップは左側にループする。
Up
　上方向に移動。ビットマップは下側にループする。
Down
　下方向に移動。ビットマップは上側にループする。
　　　　コントロールの基本スタイルを指定
Visible
　コントロールを作成と同時に可視状態に指定する。
Disabled
　コントロールを使用禁止状態に指定する。
Group
　現在のダイアログ内でグループを構成する。
Tabstop
　タブキーによる選択肢に含まれるようにする。

20-２．取得イベント

　ビルボード・コントロールでは、以下のイベントに対してコードを設定し、動作を決定します。
 
取得イベント
Init ダイアログオープン時にコントロールが初期化される際に発生
ShowMenu マウスの右ボタンによるメニューの表示要求で発生
Drop オブジェクトがドロップされる際に発生

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

　各々のコントロールには、そのコントロールを操作する為の専用のファンクションが用意されています。以下にビルボード・コントロールで使用可能なファンクションを示します。
Textコントロールの内容を取得/設定します。(ヘルプに記述無し。何故？)
oldIcon = Dialog.Control.Text( [newIcon] )
  • ビットマップ・ファイルを表示する場合
    CALL Text("Image.BMP")
Styleコントロールのスタイルマスクを取得/設定します。
oldStyle = Dialog.Control.Style( [newStyle] )
Fontテキストのフォントを取得/設定します。(ヘルプに記述無し。効果も無し？)
oldFont = Dialog.Control.Font( [newFont] )
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]
戻る