「プロンプトウインドウでフルカラーを使う」の編集履歴(バックアップ)一覧はこちら
追加された行は緑色になります。
削除された行は赤色になります。
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
}