「プロンプトウインドウでフルカラーを使う」の編集履歴（バックアップ）一覧はこちら

プロンプトウインドウでフルカラーを使う - (2010/11/10 (水) 10:31:04) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

#asciiart(blockquote){
#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の内部処理で二つの画面バッファーが使われ,二つの画面
プレーンに対して描画される。
ウインドウの内容が消えないようにするには、前面のみ描画ではなく、
前面と後面の描画プレーンに対して二回描画する。

#asciiart(blockquote){
#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
}