2D_Draw ›› WindowStartDraw

WindowStartDraw

構文

WindowStartDraw(hwnd,[x=0],[y=0],[width=0],[height=0],[Alpha_FLAG=0],[ALPHA_VALUE=0])

Function WindowStartDraw(ByVal hWin As HWND,ByVal x As Long=0,ByVal y As Long=0,ByVal w As Long=0, ByVal h As Long=0,ByVal Alpha_FLAG As Long=0, ByVal Alpha_VALUE As ULong=0) As HDC

説明

Windows で描画を開始（初期化）するために使います。
StopDraw と対で動作します。
関数は HDCデバイスを返します。

オプション

hWin(hwnd) - 描画が実行されるウィンドウのハンドル。

x,y,w,h - 描画ウィンドウ内の制限された領域の位置とサイズ。 デフォルトは、ウィンドウ全体。

Alpha_FLAG - （Windows のみ）透明な背景で描画できるフラグ（デフォルトは 0 で不透明）。
1 の場合、Alpha_value 値は画像の透明色として使われます。

Alpha_VALUE - （Windows のみ）背景の透明度。デフォルトは 0（黒）です。
このオプションは、ALPHA_FLAG パラメータがゼロでない場合にだけ使われます。

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateInfoXserver()
WindowStartDraw(hwnd)
  BoxDraw(40,40,200,200,255,255)
  BoxDraw(65,65,150,150,50000,50000)
StopDraw
Do : Loop until WaitEvent= EventClose

結果

例２:

#Include "window9.bi"

WindowStartDraw(GetDesktopWindow) '描画を開始
CircleDraw(50,50,50,255,255) ' 円を描く
StopDraw '描画を終了

Do : Loop until GetAsyncKeyState(&h1B)<0 ' Esc キーで、ループは終了

例３:

#Include "window9.bi"

WindowStartDraw(GetDesktopWindow,,,,,1) '透明な背景で、描画を開始
CircleDraw(350,350,350,255,255) ' 円を描く
StopDraw '描画を終了

Do : Loop until GetAsyncKeyState(&h1B)<0 ' Esc キーで、ループは終了

http://mneniya.ucoz.ru/