プログラム言語 FreeBasic |
RoundDraw
RoundDraw( x , y , width , height, [ColorPen=0] , [ColorBk=0] , [widthPen= 0], [StylePen=ps_solid],[Alpha= 255])
Function RoundDraw(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 実線の境界線。このスタイルが、GDI の描画関数で使用される場合、ペンの太さを考慮して、図のサイズは、長方形の範囲に入るように、圧縮されます。 これは幾何学的なペンにのみ適用されます。
Alpha - 透明度(0〜255)
Windows , Linux
例:
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
WindowStartDraw(hwnd) '描画を開始
RoundDraw(65,65,150,100,255,&hff0000,20) ' 楕円を描く
StopDraw '描画を終了
Do : Loop until WaitEvent= EventClose