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


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0210
smanフォントが変わる?4未解決


sman

リンク

2019/2/10(Sun) 22:17:46|NO.86542

インターネットを検索したりrssを表示したりするソフトを作っています。
そのなかでウィンドウサイズを可変にしたところ、サイズ変更の際にフォントサイズが変わってしまいます。
どのようにすればいいでしょうか。(以下スクリプト)

#include "obj.as" #include "user32.as" var = "" #include "hspinet.as" searchlist = "検索サイトを選択してください\nショッピングサイト横断検索\namazon\nbanggood\nrakuten_shopping\nyahoo!shopping\nnetprice\nwowma\nyoutube\nniconico\nsoundcloud\nbing\ngoogle\ngoo\nwikipedia" #include "mod_rss.as" url="https://news.yahoo.co.jp/pickup/rss.xml" rssload desc, link, url, 6 #define WM_RESIZE 0x5 //ウインドウのリサイズ txt = "" screen , ginfo(20), ginfo(21) GetWindowLong hwnd, -16 SetWindowLong hwnd, -16, stat | $10000 | $40000 width 400,90 oncmd gosub *resize, WM_RESIZE //リサイズされたら割り込み title "search" buffer 1 picload "rss_512.png" gsel pos 200,0 redraw 0 objsize 200, 30, 0 //サイズ1 pos 0, 5 //ポジション3 combox select, 3, searchlist //コンボボックス1 pos 0, 30 //ポジション1 input var, 130, 24, -1 //入力ボックス1 pos 130, 30 //ポジション2 objsize 70, 24, 0 //サイズ2 button "検索", *search //ボタン1 pos 0,55 button "終了", *kill pos 205,5 gcopy 1,0,0,20,20 color 0,0,0 font "MS ゴシック", 17, 1 pos 225,5 mes "news" pos 205,25 objsize 190,17 button desc(1), *link1 button desc(2), *link2 button desc(3), *link3 pos 275,5 objsize 40,17 button "yahoo",*yahoo pos 292,5 redraw 1 stop *search if select=1 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://www.amazon.co.jp/s/ref=nb_sb_noss_2?__mk_ja_JP=カタカナ&url=search-alias%3Daps&field-keywords="+url,16 exec "https://www.banggood.com/ja/search/"+url+".html",16 exec "https://search.rakuten.co.jp/search/mall/"+url+"/",16 exec "https://shopping.yahoo.co.jp/search?first=1&tab_ex=commerce&fr=shp-prop&oq=&aq=&mcr=795c3ebb361ae98315c3b93b9ad45699&ts=1549234282&p="+url,16 exec "http://www.netprice.co.jp/search/seek_sg/?opt=&col=sp&site=netprice&service=netprice&pageType=sg&qt="+url,16 exec "https://www.wowma.jp/itemlist?e_scope=O&at=FP&non_gr=ex&spe_id=c_act_sc01&e=tsrc_topa_v&ipp=40&keyword="+url2,16 } if select=2 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://www.amazon.co.jp/s/ref=nb_sb_noss_2?__mk_ja_JP=カタカナ&url=search-alias%3Daps&field-keywords="+url,16 } if select=3 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://www.banggood.com/ja/search/"+url+".html",16 } if select=4 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://search.rakuten.co.jp/search/mall/"+url+"/",16 } if select=5 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://shopping.yahoo.co.jp/search?first=1&tab_ex=commerce&fr=shp-prop&oq=&aq=&mcr=795c3ebb361ae98315c3b93b9ad45699&ts=1549234282&p="+url,16 } if select=6 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "http://www.netprice.co.jp/search/seek_sg/?opt=&col=sp&site=netprice&service=netprice&pageType=sg&qt="+url,16 } if select=7 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://www.wowma.jp/itemlist?e_scope=O&at=FP&non_gr=ex&spe_id=c_act_sc01&e=tsrc_topa_v&ipp=40&keyword="+url2,16 } if select=8 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://youtube.com/results?search_query="+url,16 } if select=9 { exec "https://www.nicovideo.jp/search/"+var+"?track=nicouni_search_keyword",16 } if select=10 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://soundcloud.com/search?q="+var+"&query_urn=soundcloud%3Asearch-autocomplete%3A537b7159e2684aa1bc096fc0dfc77cf2",16 } if select=11 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://www.bing.com/search?q="+var,16 } if select=12 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://google.com/search?q="+var,16 } if select=13 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://search.goo.ne.jp/web.jsp?MT="+var,16 } if select=14 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var exec "https://ja.wikipedia.org/w/index.php?search="+var,16 } if select=11 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var } if select=11 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var } if select=11 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var } if select=11 { nkfcnv var2, var, "wS" urlencode url,var2 urlencode url2,var } stop *kill end:stop *link1 exec link(1),16 stop *link2 exec link(2),16 stop *link3 exec link(3),16 stop *yahoo exec "https://yahoo.co.jp",16 stop *resize redraw 0 clrobj color 255,255,255 boxf 0,0,ginfo_winx,ginfo_winy color 0,0,0 font "MS ゴシック", 17, 1 objmode 1, objsize 200, 30, 0 //サイズ1 pos 0, 5 //ポジション3 combox select, 3, searchlist //コンボボックス1 pos 0, 30 //ポジション1 input var, 130, 24, -1 //入力ボックス1 pos 130, 30 //ポジション2 objsize 70, 24, 0 //サイズ2 button "検索", *search //ボタン1 pos 0,55 button "終了", *kill pos 205,5 gcopy 1,0,0,20,20 color 0,0,0 pos 225,5 mes "news" pos 205,25 objsize 190,17 button desc(1), *link1 button desc(2), *link2 button desc(3), *link3 pos 275,5 objsize 40,17 button "yahoo",*yahoo pos 292,5 redraw 1 return



この記事に返信する


MillkeyStars

リンク

2019/2/11(Mon) 03:39:33|NO.86543

*resize で、オブジェクトを消す意味あります?

あと、文字のサイズが大きくなってしまうのって、リサイズ中だけなのかな。
(こちらの環境でテストした結果、リサイズ動作中のみ文字が大きくなったけど、これは clrobj の正常な動作と認識している)



sman

リンク

2019/2/11(Mon) 08:06:53|NO.86544

あ、正常な動きなんですか。redrawで消しているのはオブジェクトの位置を変えようとているからです。
それならいいです。



sman

リンク

2019/2/11(Mon) 08:07:48|NO.86545

それ以外にウィンドウサイズ変更時にオブジェクトの位置を変えることってできますか?



MillkeyStars

リンク

2019/2/11(Mon) 13:29:37|NO.86549

obj.as の resizeobj で、オブジェクトの位置及びサイズを変更できるよ。
resizeobj の説明は、F1 キーで説明が出てきます。



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