プログラム言語 FreeBasic |
BoxDraw
BoxDraw( x , y , width , height, [ColorPen=0] , [ColorBk=0] , [widthPen= 0], [StylePen=ps_solid],[Alpha= 255])
Function BoxDraw(ByVal x As Long,ByVal y As Long,ByVal w As Long,ByVal h As Long,ByVal ColorPen As Long=0,ByVal ColorBk As Long=0,ByVal widthPen As Long=0,ByVal StylePen As Long=PS_SOLID, ByVal AlPHAPARAM As Long=255) As Integer
四角形を描画するために使います
x - X 軸方向の位置
y - Y 軸方向の位置
width - 長方形の幅
height - 長方形の高さ
ColorPen - 長方形の境界線の色
色の順番はBGR(青、緑、赤)、&hff0000:青、&h00ff00:緑、&h0000ff:赤
ColorBk - 長方形を塗りつぶす色 (値が-1の場合は透明色)
widthPen - 境界線の太さ
StylePen - 境界線の様式。以下のいずれかを指定できます:
PS_SOLID 実線の境界線
PS_DASH 破線の境界線。このスタイルは、ペンの幅が、装置の単位(ピクセル)で、境界線の太さと等しいか、細い場合にのみ、有効です。
PS_DOT 点線の境界線。このスタイルは、ペンの幅が、装置の単位(ピクセル)で、境界線の太さと等しいか、細い場合にのみ、有効です。
PS_DASHDOT 破線と点線を交互に描く境界線。このスタイルは、ペンの幅が、装置の単位(ピクセル)で、境界線の太さと等しいか、細い場合にのみ、有効です。
PS_DASHDOTDOT 破線と二重点が交互になる境界線。このスタイルは、ペンの幅が、装置の単位(ピクセル)で、境界線の太さと等しいか、細い場合にのみ、有効です。
PS_NULL 境界線が見えなくなります。
PS_INSIDEFRAME (Windowsのみ)実線の境界線。GDI(Graphics Device Interface)の描画関数でこのスタイルを使うと、ペンの太さを考慮して、図のサイズは、長方形の範囲に入るように、圧縮されます。 これは幾何学的ペンにのみ適用されます。
Alpha - 透明度(0〜255)
例1:
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
WindowStartDraw(hwnd) '描画を開始
BoxDraw(40,40,200,200,255,255) ' 長方形を描画
BoxDraw(65,65,150,150,50000,50000) ' 長方形2を描画
StopDraw '描画を終了
Do : Loop until WaitEvent= EventClose
例2:
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
WindowStartDraw(hwnd) '描画を開始
'BoxDraw(0,0,300,300,&hffffff,&hffffff) ' 背景を白にする
FillRectDraw(0,0,&hffffff) ' 背景を白にする
BoxDraw(40,40,200,200,255,255) ' 外側長方形を描画:赤
BoxDraw(65,65,150,150,50000,50000) ' 内側長方形2 を描画:草緑 十進50000→16進c350
BoxDraw(90,90,100,100,&hff0000,&hff0000) ' 最内側長方形3 を描画:青 色の順番はBGR(青、緑、赤)
'BoxDraw(90,90,100,100,&h00ff00,&h00ff00) ' 最内側長方形3 を描画:緑 色の順番はBGR(青、緑、赤)
'BoxDraw(90,90,100,100,&h0000ff,&h0000ff) ' 最内側長方形3 を描画:赤 色の順番はBGR(青、緑、赤)
StopDraw '描画を終了
Do : Loop until WaitEvent= EventClose