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


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0808
猫目スクロールバーの付け方を教えてください!2未解決


猫目

リンク

2021/8/8(Sun) 10:27:00|NO.93516

下記のような表示で、下に切れてしまうのを最後まで見えるようにスクロールバーを付けたいのですが、どのようにしたらよいでしょうか?
Googleでソースを探してやってみても、スクロールバー自体は付くものの画面の表示は動きませんでした…

screen 0,300,1000
repeat 1000
pos 0,cnt*30
mes "aiueo"+cnt
loop



この記事に返信する


わたしです

リンク

2021/8/8(Sun) 10:43:32|NO.93517

下記、動作しますが如何でしょう?
http://hsp.tv/play/pforum.php?mode=pastwch&num=31812



沢渡

リンク

2021/8/9(Mon) 09:25:26|NO.93524

スクロールバーの実装は過去にやったことがありますが、パッと見簡単そうな割に
その実けっこう面倒だったと記憶しています。
(スクロールバーに対するアクションそれぞれについて記述しなければならない、
 スクロールもバーの位置変更も自分で行わなければならない、等)
ついでにマウスホイールやキーボードでの操作にも対応してみました。

#include "user32.as" dim scrinfo,7 //SCROLLINFO構造体 win_th=30000 //ウィンドウ全体の高さ win_vh=800 //ウィンドウのうち表示される高さ scr_line=100 //行単位スクロールした時のスクロール量 scr_page=600 //ページ単位スクロールした時のスクロール量 GetSystemMetrics 2 //SM_CXVSCROLL=2 縦スクロールバーの横幅を取得 screen 0,300+stat,win_th,,,,300+stat,win_vh //スクロールバーの幅の分だけ横幅を余分に確保 GetWindowLong hwnd,-16 SetWindowLong hwnd,-16,stat|0x00200000 //WS_VSCROLL=0x00200000 縦スクロールバーを追加 //画面描画 repeat 1000 pos 0,cnt*30 mes "aiueo"+cnt loop scr_pos=0 //スクロール位置 gosub *set_scr //↓これをやらないとスクロールバーが表示されない SetWindowPos hwnd,0,0,0,0,0,0x37 //SWP_NOMOVE|SWP_NOSIZE|SWP_NOZORDER|SWP_NOACTIVATE|SWP_FRAMECHANGED=0x37 oncmd gosub *scr,0x115 //WM_VSCROLL 縦スクロールバーを操作したときの割り込み wheel_pos=0 //マウスホイールスクロール量の累積 oncmd gosub *wheel,0x20A //WM_MOUSEWHEEL マウスホイールによるスクロールが不要の場合は削除してください onkey gosub *key //キー入力 キーボードによるスクロールが不要の場合は削除してください stop *set_scr //scr_posの値に合わせて画面をスクロールさせ、スクロールバーに反映させる groll 0,scr_pos scrinfo=28,0x1F,0,win_th,win_vh,scr_pos,0 //SIF_ALL|SIF_DISABLENOSCROLL=0x1F SetScrollInfo hwnd,1,varptr(scrinfo),1 //SB_VERT=1 return *scr //スクロールバーを操作 scr_pos0=scr_pos hi=(wparam>>16)&0xFFFF : lo=wparam&0xFFFF switch lo case 0 //SB_LINEUP(1行上へ) scr_pos-=scr_line : swbreak case 1 //SB_LINEDOWN(1行下へ) scr_pos+=scr_line : swbreak case 2 //SB_PAGEUP(1ページ上へ) scr_pos-=scr_page : swbreak case 3 //SB_PAGEDOWN(1ページ下へ) scr_pos+=scr_page : swbreak case 5 //SB_THUMBTRACK(スクロールバーをドラッグ) scr_pos=hi : swbreak case 6 //SB_TOP(一番上へ) scr_pos=0 : swbreak case 7 //SB_BOTTOM(一番下へ) scr_pos=win_th-win_vh : swbreak swend scr_pos=limit(scr_pos,0,win_th-win_vh) if scr_pos!=scr_pos0 : gosub *set_scr return *wheel //マウスホイールによるスクロールが不要の場合はreturnまで削除してください scr_pos0=scr_pos wheel_pos+=wparam>>16 //上位ワードは符号付き16ビット整数なので、そのまま算術シフト repeat if wheel_pos>=120 : scr_pos-=scr_line : wheel_pos-=120 : continue //ホイールを上に回した場合 if wheel_pos<=-120 : scr_pos+=scr_line : wheel_pos+=120 : continue //ホイールを下に回した場合 break loop scr_pos=limit(scr_pos,0,win_th-win_vh) if scr_pos!=scr_pos0 : gosub *set_scr return *key //キーボードによるスクロールが不要の場合はreturnまで削除してください scr_pos0=scr_pos switch wparam case 33 //PageUp scr_pos-=scr_page : swbreak case 34 //PageDown scr_pos+=scr_page : swbreak case 35 //End scr_pos=win_th-win_vh : swbreak case 36 //Home scr_pos=0 : swbreak case 38 //↑ scr_pos-=scr_line : swbreak case 40 //↓ scr_pos+=scr_line : swbreak swend scr_pos=limit(scr_pos,0,win_th-win_vh) if scr_pos!=scr_pos0 : gosub *set_scr return



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.93516への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

解決したら質問者本人がここをチェックしてください。

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

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