【厨房満開】HSP初質51【ビラビラ満開】

1 名前：デフォルトの名無しさん [2006/03/17(金) 02:11:59 ] ■とりあえずこれを嫁。  　　www.geocities.jp/hsp_summary/law.html  　■ 前スレ  　　【オフィシャル発売】HSP初質P50【コンテスト選考】  　　pc8.2ch.net/test/read.cgi/tech/1132612819/  　■HSPの入手はここから（HSP2.61、HSP3.0公開中。）  　　□Hot Soup Processor Page  　　　　www.onionsoft.net/hsp/  　■HSPの各種情報  　　□HSP Wiki  　　　　quasiquote.org/hspwiki/  　　　　quasiquote.org/hspwiki/2%a4%c1%a4%e3%a4%f3%a4%cd%a4%eb%a4%ce%a5%b9%a5%ec%a5%c3%a5%c9  　■HSPLetの入手はここから（ブラウザ上でHSPを動かす）  　　□HSP BIGINNER'S CLUB  　　　　www.rinku.zaq.ne.jp/ultimate/  　　□HSPLet3.0 　　　　www.group-finity.com/HSP/HSPLet/  　■HSPスレまとめページ  　　□Hot Soup Processor@2ch  　　　　hsp2ch.hp.infoseek.co.jp/  　　　　www.geocities.jp/hsp_summary/  359 名前：350 mailto:sage [2007/04/15(日) 05:28:21 ] どうやら２ｃｈがgzipを展開しないと読み取れない仕様のようです APIについて勉強してきます 360 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 05:36:15 ] 見てたらで良いけど ・APIより先にHTTPを少し勉強したほうが良い ヘッダとレスポンスの形式ぐらいでいいから ・gzipの展開はzlibを使う zlib.net/ 361 名前：350 mailto:sage [2007/04/15(日) 06:26:20 ] >>360 英語読めないんで・・・ hp.vector.co.jp/authors/VA015266/software/lhsp/ これとかじゃ駄目ですかね・・・ プログラムより英語に問題ありです・・・ 362 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 07:04:11 ] >>361 結論だけ言えば駄目 具体的な説明は凄く難しいんで以下は読まなくても可 HTTPレスポンスがgzip圧縮されている状態ってのは subject.txtの"内容だけ"が圧縮されている状態 一方、一般的言われる圧縮ファイル（ZIPとかRARとかLZH）ってのは ファイルの取りまとめるヘッダ（これはファイルが1個でも付いてる）＋ 圧縮されたファイル×ｎ から構成されている 統合アーカイバプロジェクトのDLLは後者の形式しか扱えないから駄目 363 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 07:15:11 ] >>361 英語なんかよりCとかJavaが理解できないと無理 日本語訳なんか探せば沢山ある （ZLIBの使い方＋仕様書の日本語訳） dencha.ojaru.jp/programs/pg_filer_04_extra_01.html 364 名前：350 mailto:sage [2007/04/15(日) 07:16:27 ] >>362 ありがとうございます zlibについて時間はかかると思いますが勉強してみます 365 名前：350 mailto:sage [2007/04/15(日) 07:16:58 ] >>363 これはまたありがとうございます 感謝感謝です 366 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 11:18:07 ] >>362 嘘付くなよｗ www.csdinc.co.jp/archiver/lib/tar32.html#sources 概略：対応形式は下記の通りです。 * .gz (gzip format) （以下略） 367 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 12:32:26 ] >>366 HTTPで送られてくるgzipはヘッダが無いからgzファイルとは別って話でしょ 俺は詳しいこと知らんけど 368 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 12:36:54 ] ？ gzは単ファイル圧縮だと思ってたが違うのかな？ UNIXはgzが圧縮でtarがアーカイブだったと思うけど… 369 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 19:30:09 ] >>368 yes ja.wikipedia.org/wiki/Gzip 370 名前：デフォルトの名無しさん [2007/04/18(水) 01:56:06 ] 自己解決で保守！ 371 名前：デフォルトの名無しさん [2007/04/20(金) 02:50:45 ] 自己解決’ＴＵＲＢＯ 372 名前：デフォルトの名無しさん mailto:sage [2007/04/21(土) 07:57:04 ] 3.1b9。エディタのアイコンが変わってる。これ鍋？ ちょっとわかりにくい。 373 名前：デフォルトの名無しさん mailto:sage [2007/04/21(土) 23:22:41 ] >>372 ONIPADのアイコンだよね。 スープボウルの中に、HSPヨのマスコットキャラが入ってるようです。 374 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 00:10:46 ] hsped3.exeは、アイコン変えるより他に やるべきことがあると思うんだが 375 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 08:20:51 ] >>373 へぇ、スープボウルってのがあるんだ。 >>374 おれはTeraPadのパクリでいいから外部ツールインターフェイスを 充実させてほしい。まあアイコンは別の人が作ったんだろうけど。 376 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 11:02:42 ] おにたまさんも遊びたいお年頃なんでしょｗ 趣味なんだし許してあげよう　（´・ω・｀） 377 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 11:59:12 ] >>376 うん。許す。 378 名前：350 mailto:sage [2007/04/22(日) 23:15:47 ] #include "z.as" #define DATASIZE 20 sdim rdata, DATASIZE URL = "pc11.2ch.net/tech/subject.txt" zOpen hGz, URL, Z_READ zRead rdata, buf, DATASIZE zClose hGz print rdata hp.vector.co.jp/authors/VA015883/plugin/arc/z.txt やっと勉強する時間ができたのでちょこっとやってみました これを使っても読めないって事はHSPじゃ無理ってことですかね？ やっぱりC言語にしたほうがいいですか？ 379 名前：デフォルトの名無しさん [2007/04/23(月) 00:13:47 ] 久々に本家が荒れてんぞ 380 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 04:02:54 ] >>378 その理解力では、C言語使っても無理だと思うぞ。 381 名前：デフォルトの名無しさん [2007/04/23(月) 06:09:38 ] >>378 sockopen 0,"pc11.2ch.net",80 if stat { dialog "ERROR\nSTAT="+stat :sockclose:stop} sockput "GET /tech/subject.txt HTTP/1.0\n",0 sockput "Host: pc11.2ch.net\n\n",0 subject.txt に圧縮どうこうが関係あるのか？ hspsocknaなんて今日始めて触ったけど、検索して 2,3サイト見たらsubject.txt 開けたぞ・・・ 382 名前：350 mailto:sage [2007/04/23(月) 06:13:20 BE:188187293-PLT(35954)] >>380 どこが間違ってるか教えてくださいお願いします 383 名前：350 mailto:sage [2007/04/23(月) 06:14:18 BE:209097465-PLT(35954)] >>381 普通にいけるんですか・・・ ありがとうございます・・・ 384 名前：デフォルトの名無しさん [2007/04/23(月) 06:25:31 ] 381のはサンプルHTTP.hspの sockopen 0,url,80 if stat : dialog "ERROR\nSTAT="+stat : goto *sdover sockput "GET "+rdir+" HTTP/1.0\nHost:???\nUser-Agent: HSP ver3.0\n\n" この部分を置き換え 後は if sz>30000 : dialog "受信サイズがオーバーしました。" : goto *sdok このサイズの指定を増やさないと全部は読み込めない 385 名前：350 mailto:sage [2007/04/23(月) 06:40:28 BE:83639726-PLT(35954)] >>384 いけました 本当にありがとうございます 386 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 17:31:40 ] >>379 本家ってこっちのことか。久しぶりの爆発だな。 www.onionsoft.net/hsp/bbs/hspbbs.cgi? 387 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 19:04:07 ] あはははは、垂れ餡の発作ね…。 388 名前：デフォルトの名無しさん [2007/04/23(月) 23:28:34 ] >>386 うむ。「旧」を付け忘れた。旧本家。 しかし、「騙りか？」と思わんばかりの元気さ。 変わらないなぁ。あの人。 389 名前：デフォルトの名無しさん [2007/04/23(月) 23:47:45 ] Ａ・Ｌ大戦か。 いつかは始まると思っていたが。 390 名前：デフォルトの名無しさん [2007/04/24(火) 23:56:07 ] 隗より始めよｫｵｵｫｫｵｫｫｵｫｵｵｫｫｵｫｯｯ！！ 391 名前：デフォルトの名無しさん [2007/04/25(水) 03:47:29 ] 今日入れたんだけど、ベータ版も入れたほうがいいの？ 392 名前：デフォルトの名無しさん mailto:sage [2007/04/25(水) 07:19:12 ] 追加・変更点をみて自分で判断すればよい。 393 名前：デフォルトの名無しさん [2007/04/25(水) 10:16:57 ] 入れたばっかなのでわかんない 394 名前：デフォルトの名無しさん [2007/04/25(水) 23:24:23 ] >>393 隗より始めよ！ 395 名前：デフォルトの名無しさん mailto:sage [2007/04/26(木) 04:55:12 ] HSPTVっちゅうのがおもしろいね。 単体だったら絶対ダウンロードしないようなゴミソフトがいっぱい遊べて。 ソース見るボタンとかがついてたらまだ有用なんだろうけど。 396 名前：デフォルトの名無しさん mailto:sage [2007/04/26(木) 04:56:26 ] 395が主に作っている物=ゴミソフト 397 名前：デフォルトの名無しさん [2007/04/26(木) 13:32:36 ] 今日入れたって奴だろ？ だから主に作ってるも何ないんじゃねーのｗ >>395 あれは画像データとか外部ファイルを一切使用禁止で ファイルサイズを4k以内に収めないといけないって縛りがある だからショボイように見えても手はかかってる物もある 398 名前：デフォルトの名無しさん mailto:sage [2007/04/26(木) 23:17:37 ] じゃ 「395がこれから作る物=全部ゴミ」 に変更するか。 399 名前：デフォルトの名無しさん mailto:sage [2007/04/26(木) 23:56:59 ] ゴミソフトと蔑んでいるのに ソースを見たがる点に、矛盾を感じる ゴミだと言うなら、ソースを含め、見るべき所はなかろう？ 400 名前：デフォルトの名無しさん [2007/04/27(金) 00:07:29 ] Ａ・Ｌ大戦、進展しないな。 401 名前：デフォルトの名無しさん [2007/04/27(金) 03:26:50 ] そろそろ「釣れた！」発言の頃か 402 名前：デフォルトの名無しさん [2007/04/27(金) 09:40:53 ] >>399 「ファイルサイズを4k以内に収めないといけないって縛りがある」ならなおさら、 ゴミの中身をのぞいたり、 いじってちっとはマシなものにしたりしていくことが初心者の勉強になるんじゃん。 ただ使うだけなら、こんな縛りで作ったソフトより、 縛りのないソフトのほうがいいに決まってるし、 なにより、ソフトを作成言語でカテゴライズされても意味がない。 403 名前：デフォルトの名無しさん mailto:sage [2007/04/27(金) 19:06:21 ] 　　　　　　　　　　　　　　　　 ﾊ_ﾊ 　　　　　　　　　　　　　　　('(ﾟ∀ﾟ∩　カテゴライズ！ 　　　　　　　　　　　　　　　　ヽ　　〈 　　　　　　　　　　　　　　　　　ヽヽ_) 404 名前：デフォルトの名無しさん mailto:sage [2007/04/27(金) 23:16:04 ] まぁ、何を見たって395はゴミしか作れないけどナ！ 405 名前：デフォルトの名無しさん mailto:sage [2007/04/27(金) 23:35:23 ] コンソールとGUI画面を同時に仕様する方法ってあるでしょうか？ コンソールを動作ログ垂れ流しに使いたいのですが。 コンパイルしないと再現しないバグとかがなぜかあるもので・・・。 406 名前：デフォルトの名無しさん [2007/04/27(金) 23:59:12 ] 「隗より始めよ」で止まっﾁｬﾀｰﾖ 407 名前：デフォルトの名無しさん mailto:sage [2007/04/28(土) 15:33:55 ] >>405 gui用にスクリプト書いて、apiでコンソールを操作するってのは？ hspでできるかは知らない。 408 名前：デフォルトの名無しさん mailto:sage [2007/04/28(土) 17:54:13 ] >>407 ｔｈｘ！APIで出せるのか。 とりあえずAllocConsole使って窓出すまでは出来た。 あとは文字の出力だが、これから調べてみる。 409 名前：405 mailto:sage [2007/04/28(土) 19:37:01 ] AllocConsole、GetStdHandle、WriteConsole、SetConsoleScreenBufferSize をつこうてサンプルコードできた。実装は今度にしようっと。 410 名前：デフォルトの名無しさん [2007/04/29(日) 02:58:37 ] 独り言は、ほどぼとに 411 名前：not 405 mailto:sage [2007/04/29(日) 08:44:28 ] こんなスレでそんなこと言われてもw それにちゃんとアドバイスに対する報告になってるじゃん。 412 名前：デフォルトの名無しさん [2007/04/29(日) 23:13:54 ] 独り言は、ほどぼとに 413 名前：デフォルトの名無しさん mailto:sage [2007/04/30(月) 08:41:18 ] 「ほどぼと」ってなんだよw 414 名前：デフォルトの名無しさん [2007/04/30(月) 18:14:34 ] <丶｀∀´> や〜〜い 馬鹿ﾁｮｯﾊﾟﾘw 釣れたﾆﾀﾞ 415 名前：デフォルトの名無しさん [2007/04/30(月) 23:15:20 ] じゃ、ほどほどに 416 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 01:06:20 ] mes "A"+"A"+"A"+"A"+"A" と同じ動作を ・mes "A" ・ループ処理おｋ ・posは使わない の条件で簡単にできないでしょうか？ BASICだったら FOR I=1 TO 5 PRINT "A"; NEXT I ですぐに出来るのですが、HSPでは「；」が効かないっつーかコメントアウト用なので・・・ 417 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 01:07:39 ] 416補正 ようするに、mes(print)実行後に自動改行させずに続けて表示させる方法が posを使う以外にあるか？ってことです 418 名前：デフォルトの名無しさん [2007/05/01(火) 01:40:14 ] 何でpos以外なのか知らないが そんなもんねーよ 419 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 01:56:12 ] 意味も無く抜け道を探そうとするのは初心者にありがちなことだから 420 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 02:50:26 ] 419=初心者 421 名前：sage [2007/05/01(火) 02:58:36 ] >>416 sdim b repeat 5 b = b+"A" loop mes b ;-------------- a= "A" : sdim c repeat 5 c = c+a loop mes c 422 名前：421 mailto:sage [2007/05/01(火) 03:10:13 ] すまんsage間違った。 それと第一条件の ・mes "A" これを使用してないな……。 っていうかloopの中にmesを組み込むのも条件？ 423 名前：デフォルトの名無しさん [2007/05/01(火) 03:10:21 ] 俺もそれは考えたけど mes "A" これを使うって言ってるからダメなんじゃね？ はっきり言って何でこれを使いたいのか分からないが・・・ なんでposを使えないのか理由がないから答えても無駄に終わるかもよ 424 名前：デフォルトの名無しさん [2007/05/01(火) 03:13:26 ] 川°A°) 425 名前：421 mailto:sage [2007/05/01(火) 03:33:06 ] >>423 俺の予想では repeat〜loopで"A"を横一列で連続表示したいよ。 でも(loopの中で)mesを使うと改行されちゃうよ。 だから(loopの中で)posで一文字ずつ場所指定して横一列にしなきゃらないないの？　 面倒くさいよ〜誰かタスケテ！！ といった所だと思う。 文字列の足し算が出来るっていうのを知らないんじゃない？ 426 名前：デフォルトの名無しさん [2007/05/01(火) 03:52:49 ] >>425 俺は改行されないmesは無いの？ って聞いてると思ったから無いと答えた x=100 y=100 repeat 5 pos x,y mes "A" x+ginfo(14) loop これを使えない理由が思いつかないし・・・ コンテストのショート部門とかなら分かるが・・・ 427 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 05:52:11 ] >>426 彼は自分の書いたBASICのソースに縛られて「repeat中にmesで表示して並べていく」から脱却できていないと思う。 だから「mes "A"」ていう条件が出てきたと思う。（文字列変数を足して、後で一発表示という方法を思いつかない） その上でシステム変数の存在知らなきゃrepeat中に改行した文字をposで一列に並べなおすのは面倒くさいだろうから「posは使わない」って条件が出てきたような気がする。 っていうか　ginfo(14)　こんなシステム変数をあったのね。 428 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 07:22:00 ] まぁ、そういう命令があっても良い気はする。 429 名前：デフォルトの名無しさん [2007/05/01(火) 09:23:11 ] 自演も大変だねぇ 何時までも糞HSPにへばりつくウジムシどもWww 430 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 09:59:32 ] /* ">417は推敲が不十分な文章である"と仮定し、「posを使う以外に」の部分は無視して、 「mesするたびに、自前で表示開始位置を管理するのが面倒くさいよママン」 というのが、彼の言いたいことであると修正解釈した。 */ #module #deffunc bprint str _bpString _bpStr = _bpString: _bpRight = strlen(_bpStr)-1 _bpSX = ginfo_cx: _bpSY = ginfo_cy if ( peek(_bpStr,_bpRight)=';' ) { poke _bpStr,_bpRight,$00: mes _bpStr pos _bpSX + ginfo_mesx , _bpSY: return } mes _bpStr: pos 0 , _bpSY + ginfo_mesy: return #global ;--テスト-- repeat 2 mes "テスト"+(cnt+1) repeat 5: bprint "あ;": loop //文字列末尾が;の場合、「改行しない」風味の動作 repeat 5: bprint "い" : loop //末尾が;でない場合、表示ごとに左端へ戻る pos 320,240 loop /* 複数行文字列とか、全角コードによっては不都合は出ると思いますが。 前述の仮定条件が違う（->posは絶対に使用禁止）というのなら、知らん。*/ 431 名前：デフォルトの名無しさん [2007/05/01(火) 16:57:48 ] 何それwww 使えねぇウジモジュール書いてんじゃねーよ 432 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 18:47:13 ] そうすると、 糞呼ばわりしている代物の関連スレに張り付いて 煽りレスを入れている人間は、フンコロガシって所か？ 433 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 19:46:18 ] ここの住人って正規3.0と3.1β、どっち使ってる人が多いんだろ？ 434 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 20:53:12 ] 俺的には未だに2.61から離れられない 435 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 21:07:47 ] 俺はVC++に逃げたよ。 436 名前：デフォルトの名無しさん [2007/05/01(火) 21:27:43 ] #module #undef mes #deffunc mes str a,int b mes@hsp a if b {pos ginfo(22)+ginfo(14),ginfo(23)-ginfo(15)} return #global x=100 y=100 pos x,y repeat 5 mes "A" loop repeat 5 mes "A",1 loop モジュール作るならこうやるかな・・・ 437 名前：デフォルトの名無しさん [2007/05/01(火) 22:58:09 ] 正の整数値を「16進数の文字列」に変換する時の 一番スマートな表記方法を教えてください 438 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 23:05:01 ] strf("%X",整数値) 439 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 23:34:21 ] >>434 ＝ 垂餡 440 名前：デフォルトの名無しさん [2007/05/01(火) 23:54:49 ] >>434 隗より始めよ 441 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 00:37:26 ] >>437 www.google.co.jp/search?hl=ja&client=firefox&rls=org.mozilla%3Aja%3Aofficial&hs=EBu&q=hsp+10%E9%80%B2%E6%95%B0+16%E9%80%B2%E6%95%B0&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja 442 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 02:37:00 ] >>437 a=65535 hex="$"+strf("%X",a) 443 名前：デフォルトの名無しさん [2007/05/02(水) 02:50:29 ] a=65535 mes strf("%X",a) mes strf("$%X",a) mes strf("$%08X",a) mes strf("$%x",a) mes strf("$%08x",a) mes strf("0X%08X",a) 444 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 02:50:46 ] あまり虐めてやるなよｗ 445 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 02:56:55 ] 縦スクロールバー付きのメッセージボックスを２つ用意して、 シンクロスクロールさせるのって可能？ 446 名前：442 mailto:sage [2007/05/02(水) 02:58:06 ] >>443 勉強になった 447 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 03:14:02 ] >>445 できるけどWM_VSCROLL捕まえないと無理 448 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 04:10:52 ] >>447 WM_VSCROLLか、ヒント�dｸｽ WinAPI方面は苦手だけど頑張ってみる(｀･ω･´) 449 名前：デフォルトの名無しさん [2007/05/02(水) 14:19:44 ] <丶｀∀´> 呼んだﾆｶ ﾎﾙﾎﾙ 450 名前：デフォルトの名無しさん [2007/05/02(水) 16:54:58 ] >>448 標準命令だけやってみた a="" repeat 50:a+str(cnt)+"\n":loop mesbox a,64,64:idA=stat:mesboxhwnd(idA)=objinfo(idA,2):_lparam=mesboxhwnd(idA) pos 64,0:mesbox a,64,64,0:idB=stat:mesboxhwnd(idB)=objinfo(idB,2) dim len,idB+1:dim lin_old,idB+1 oncmd gosub *WM_COMMAND,$111 repeat repeat 2,idA:lin_old(cnt)=len(cnt):sendmsg mesboxhwnd(cnt),$CE,0,0:len(cnt)=stat if lin_old(cnt) not len(cnt) {_lparam=mesboxhwnd(cnt)}:loop gosub *EM_LINESCROLL await 10:loop *WM_COMMAND if iparam!$111 or $602!(wparam>>16) {return} _lparam=lparam:_wparam=wparam sendmsg mesboxhwnd(idA),$CE,0,0:len(idA)=stat sendmsg mesboxhwnd(idB),$CE,0,0:len(idB)=stat *EM_LINESCROLL if len(idA) not len(idB){ if _lparam=mesboxhwnd(idA) {sendmsg mesboxhwnd(idB),$B6,0,len(idA)-len(idB):len(idB)=len(idA) }else{sendmsg mesboxhwnd(idA),$B6,0,len(idB)-len(idA):len(idA)=len(idB)}} return /* 俺に出来るのはここまでだ・・・ 451 名前：デフォルトの名無しさん [2007/05/05(土) 23:30:34 ] じっ　じっ　自己解決ゥ！　アーイェー！　チェケラ！ 452 名前：448 mailto:sage [2007/05/06(日) 23:19:05 ] >>450 �d っていうかすげー！まさに自分がやりたかった効果！ あとは、右のスクロールバーのドラッグ中は反映されない部分を直せるよう 頑張ってみるです 453 名前：448 mailto:sage [2007/05/06(日) 23:20:10 ] ×　右のスクロールバーのドラッグ中は反映されない ○　縦のスクロールバーのドラッグ中はシンクロ反映されない 454 名前：デフォルトの名無しさん [2007/05/07(月) 02:27:27 ] >>453 それが実装出来なくて >俺に出来るのはここまでだ・・・ と言う最後の言葉になったのは秘密だｗ User32.dllのGetScrollPosもやってみたけどドラッグ中の位置は収得できなかった・・・ 455 名前：デフォルトの名無しさん mailto:sage [2007/05/07(月) 03:50:31 ] ドラッグ中もなんらかの動作をさせたいなら、 このへんが参考になるかと。 yokohama.cool.ne.jp/chokuto/advanced/usertimer.html >450のスクリプトのoncmdを利用したメッセージ処理（スクロールバー監視？）は 無効にしても動くみたいだから、バーの監視を、メインループでやってる方にまかせて、 代わりに、oncmdはタイマーメッセージの処理に使うようにしてー以下略 456 名前：デフォルトの名無しさん mailto:sage [2007/05/07(月) 21:57:11 ] >>452 無理だろ。HSPじゃ。 その辺がこの糞ツールの仕様だからな。 457 名前：デフォルトの名無しさん mailto:sage [2007/05/07(月) 23:46:50 ] >456 いや、できるぞ。というかオレはできたぞ。 糞ツールとあなどって思考停止してる人には無理なのかもしれんが。 458 名前：デフォルトの名無しさん mailto:sage [2007/05/07(月) 23:50:22 ] 精神的に向上心の無い者はばかだ 459 名前：454 [2007/05/08(火) 06:54:30 ] >>455 ほうほう #include "User32.as" WM_TIMER=$113:EM_LINESCROLL=$B6 goto *@f #deffunc Quit onexit KillTimer hwnd,1:return *@ font "ＭＳ 明朝",20,1:objmode 2:a="":repeat 30:a+str(cnt)+" ABCDEFGHIJKLMNOPQRSTUVWXYZ"+"\n":loop:mbsizx=96:mbsizy=128 repeat 2:pos cnt*mbsizx,0:mesbox a,mbsizx,mbsizy,(cnt^1)+4:mbid(cnt)=stat:V(cnt)=0:V_old(cnt)=0:H(cnt)=0:H_old(cnt)=0:loop wait 1:SCIF=28,1|2|4|8|$10,0,0,0,0,0 :gosub *GSR temp=" ":mesbox temp,1,1,4:t=stat:wait 1:sendmsg objinfo(tempstat,2),EM_LINESCROLL,1:GetScrollPos objinfo(tempstat,2),0 scrsizex=stat:clrobj t,t:oncmd gosub *timersub,WM_TIMER:SetTimer hwnd,1,50,0:stop *timersub vscrolf=0:hscrolf=0:sendmsg objinfo(mbid(0),2),0x00B8,0,0 if stat {objprm mbid(1),a:gosub *GSR:H_old(1)=0:H(1)=0: V_old(1)=0:V(1)=0:sendmsg objinfo(mbid(0),2),0x00B9,0,0:hmbno=0:hscrolf=1:vmbno=0:vscrolf=1} repeat 2:V_old(cnt)=V(cnt):GetScrollPos objinfo(mbid(cnt),2),1:V(cnt)=stat:if V_old(cnt) not V(cnt) {vmbno=cnt:vscrolf=1} H_old(cnt)=H(cnt):GetScrollPos objinfo(mbid(cnt),2),0:H(cnt)=stat:if H_old(cnt) not H(cnt) {hmbno=cnt:hscrolf=1}:loop if vscrolf {sendmsg objinfo(mbid(vmbno^1),2),EM_LINESCROLL,0,V(vmbno)-V(vmbno^1):V(vmbno^1)=V(vmbno)} if hscrolf { sendmsg objinfo(mbid(hmbno^1),2),EM_LINESCROLL,(H(hmbno)-H(hmbno^1))/scrsizex-(H(hmbno)=0)+(H(hmbno)>smaxsizx) GetScrollPos objinfo(mbid(hmbno^1),2),0:H(hmbno^1)=stat} title "id0h("+(H(0))+ ") id1h("+(H(1))+") id1v("+(V(0))+") id1v("+(V(1))+") 水平スクロール最大("+smaxsizx+") 水平スクロール1ブロック("+scrsizex+")" return *GSR:GetScrollInfo objinfo(mbid(0),2),0,varptr(SCIF):smaxsizx=(SCIF(3)-SCIF(2)-SCIF(4)):return

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef