HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0812
ヂオンgroll によるスクロールについて3解決


ヂオン

リンク

2012/8/12(Sun) 20:18:50|NO.48458

作成したBitMap オブジェクトを SelectObject 関数で
操作先ウィンドウに指定して使用しています。

下のスクリプトでは、「表示」「groll による、画面のスクロール」は可能なのですが
gmode 0 以外での、コピーの際にエラーが出るようです。どなたか解決策をご存じではないでしょうか?


#const 透明色を有効にする 0 #include "gdi32.as" #enum WID_MAIN = 0 #enum wid_box #const WNDSIZEX 640 #const WNDSIZEY 480 #const BITMAPSIZEX 5000 #const BITMAPSIZEY 5000 #const v 50 #const speed 3 screen wid_box,200,200 color 255:boxf color:mes "コピー元" screen WID_MAIN,WNDSIZEX,WNDSIZEY,,,,WNDSIZEX,WNDSIZEY CreateCompatibleBitmap hdc , BITMAPSIZEX , BITMAPSIZEY SelectObject hdc,stat DeleteObject stat mref bms,67 bms.1 = BITMAPSIZEX,BITMAPSIZEY // sx,sy // bms.33 = BITMAPSIZEX,BITMAPSIZEY // gx,gy color:boxf repeat BITMAPSIZEX/v : x=cnt repeat BITMAPSIZEY/v hsvcolor i,120,255 pos x*v,cnt*v mes strf("%d,%d",x,cnt) i+=5 loop loop *@ stick key,0b1111 if(key&0b0001):x-speed if(key&0b0010):y-speed if(key&0b0100):x+speed if(key&0b1000):y+speed redraw 0 groll x,y x=ginfo_vx y=ginfo_vy pos x-1,y #if 透明色を有効にする gmode 2,200,200 #endif gcopy wid_box,0,0,200,200 redraw await 30 goto*@b



この記事に返信する


pizza

リンク

2012/8/14(Tue) 23:58:21|NO.48529

あと、最低でもpBitとsx2は設定しないと動かないみたいですね。
bmpsize,pbi,dibとかも設定しといたほうが無難な気はします。



ヂオン

リンク

2012/8/15(Wed) 18:30:11|NO.48575

ありがとうございます
解決しました。



ヂオン

リンク

2012/8/15(Wed) 18:31:00|NO.48576

解決押し忘れ



ONION software Copyright 1997-2021(c) All rights reserved.