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                       ; ③追　加
  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                       ; ③追　加
  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