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


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0612
Dangerous scripts枠なしウィンドウのメニューバー2解決


Dangerous scripts

リンク

2012/6/12(Tue) 07:37:56|NO.47228

メニューバーが枠なしウィンドウの上に来てしまいます。
黒の線の下に持って行きたいのですが移動方法が分かりませんでした。
メニューバーを動かす方法教えてください。


#include "user32.as" #define ctype LOWORD(%1) (%1 & $FFFF) ; 項目ID #enum IDM_KOUMOKU1 #enum IDM_KOUMOKU2 ; WM_COMMANDメッセージ oncmd gosub *Menu_bar, $111 CreatePopupMenu hMenu.1=stat AppendMenu hMenu.1,0,IDM_EXIT,"終了" ; <メインのメニューバー> CreateMenu hMenu.0=stat AppendMenu hMenu.0,$10,hMenu.1,"メニュー" bgscr 0,320,240:cls 2 color:boxf 0,0,320,20 onclick gosub *move SetMenu hwnd,hMenu.0 DrawMenuBar hwnd stop *move if mousey <20:if wparam=1:sendmsg hwnd,$00A1,2,0 return *Menu_bar end



この記事に返信する


fortunehill

リンク

2012/6/12(Tue) 16:30:14|NO.47232

/*Bgscrをコンテナにしてもう一つのBgscrの子にするとか*/

#include "user32.as" #define ctype LOWORD(%1) (%1 & $FFFF) ; 項目ID #enum IDM_KOUMOKU1 #enum IDM_KOUMOKU2 ; WM_COMMANDメッセージ oncmd gosub *Menu_bar, $111 CreatePopupMenu hMenu.1=stat AppendMenu hMenu.1,0,IDM_EXIT,"終了" ; <メインのメニューバー> CreateMenu hMenu.0=stat AppendMenu hMenu.0,$10,hMenu.1,"メニュー" GetSystemMetrics 15 :hh = stat ; …鼻_ bgscr 0,320,hh,,0,0 :cls 2 ; ∧僉々 ww =hwnd ; D鼻_ SetMenu hwnd,hMenu.0 ; す坩榮 DrawMenuBar hwnd ; ス坩榮 bgscr 1,320,240 ; δ鼻_ Setparent ww,hwnd ; 追 加 color:boxf 0,hh,320,hh+20 ; 変 更 onclick gosub *move stop *move if mousey <hh+20:if wparam=1:sendmsg hwnd,$00A1,2,0 return *Menu_bar end



Dangerous scripts

リンク

2012/6/12(Tue) 18:55:35|NO.47234

fortunehillさんありがとうございました。
頂いたソースですが、少しいじらせて、いただきました。

#include "user32.as" #define ctype LOWORD(%1) (%1 & $FFFF) ; 項目ID #enum IDM_KOUMOKU1 #enum IDM_KOUMOKU2 ; WM_COMMANDメッセージ oncmd gosub *Menu_bar, $111 CreatePopupMenu hMenu.1=stat AppendMenu hMenu.1,0,IDM_EXIT,"終了" ; <メインのメニューバー> CreateMenu hMenu.0=stat AppendMenu hMenu.0,$10,hMenu.1,"メニュー" GetSystemMetrics 15 :hh = stat ; …鼻_ bgscr 0,320,hh,,0,20 ; ∧僉々 ww =hwnd ; D鼻_ SetMenu hwnd,hMenu.0 ; す坩榮 DrawMenuBar hwnd ; ス坩榮 bgscr 1,320,240:cls 2 ; δ鼻_ Setparent ww,hwnd ; 追 加 color:boxf 0,hh-20,320,hh ; 変 更 onclick gosub *move stop *move if mousey <hh+20:if wparam=1:sendmsg hwnd,$00A1,2,0 return *Menu_bar end



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