プロンプトウインドウでフルカラーを使う - abwiki @ ウィキ (ActiveBasic非公式wiki)

APIを用いプロンプトウインドウ(#N88BASIC,#prompt)画面で、32bitフルカラーを使う。

#prompt

Dim x As Integer
Dim y As Integer
Dim c As Long
Dim hdc As HDC

hdc=GetDC(_PromptSys_hWnd)

for y=0 to 480
for x=0 to 640
c=RGB(x,y,y/2)
SetPixel(hdc,x,y,c)
next x
next y

N88BASIC,プロンプトウインドウでは、abの内部処理で二つの画面バッファーが使われ,二つの画面
プレーンに対して描画される。
ウインドウの内容が消えないようにするには、前面のみ描画ではなく、
前面と後面の描画プレーンに対して二回描画する。

#prompt

Dim x As Integer
Dim y As Integer
Dim c As Long
Dim hdc As HDC

hdc=GetDC(_PromptSys_hWnd)

for y=0 to 480
for x=0 to 640
c=RGB(x,y,y/2)
SetPixel(hdc,x,y,c)
SetPixel(_PromptSys_hMemDC,x,y,c)
next x
next y