PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
4694 | 99/01/21 13:20:39 | RE(4):PB5.0.03: レスポンスウィンドウでリサイズしたい By にしやん |
4681 | 99/01/21 09:35:22 | RE(3):PB5.0.03: レスポンスウィンドウでリサイズしたい By masaru |
4676 | 99/01/20 18:27:29 | RE(2):PB5.0.03: レスポンスウィンドウでリサイズしたい By にしやん |
4671 | 99/01/20 17:39:00 | RE(1):PB5.0.03: レスポンスウィンドウでリサイズするより、他のウィンドウで戻り値を返す By てとらぽっと |
4668 | 99/01/20 17:14:11 | PB5.0.03: レスポンスウィンドウでリサイズしたい By masaru |
カテゴリ:データウィンドウ
日付:1999年01月20日 18:27 発信者:にしやん
題名:RE(2):PB5.0.03: レスポンスウィンドウでリサイズしたい
masaru さん、こんにちは。
>質問なのですが、
>レスポンスウィンドウって、リサイズできないんですか?
レスポンスウィンドウにコントロールメニューが付いていない場合は、
次のスクリプトを Open イベントの最後に追加することで、レスポンスウィンドウを
サイズ変更可能にできます。
this.Resizable = TRUE
SetRedraw(TRUE)
コントロールメニューがある場合は、コントロールメニューに [サイズ変更(S)]
を表示させなければなりません。
それには API を使う必要があります。
外部関数
FUNCTION Long GetSystemMenu(Long hWnd, Boolean bRevert) &
LIBRARY \"USER32.DLL\"
FUNCTION Boolean DeleteMenu(Long hMenu, UnsignedInteger uPosition, UnsignedInteger uFlags) &
LIBRARY \"USER32.DLL\"
スクリプト(レスポンスウィンドウの Open イベントに追加)
//定数宣言
CONSTANT UnsignedInteger SC_RESTORE = 61728
CONSTANT UnsignedInteger SC_MINIMIZE = 61472
CONSTANT UnsignedInteger SC_MAXIMIZE = 61488
CONSTANT UnsignedInteger MF_BYCOMMAND = 0
CONSTANT UnsignedInteger MF_BYPOSITION = 1024
//変数宣言
Long hMenu
GetSystemMenu(Handle(This),TRUE)
hMenu = GetSystemMenu(Handle(This),FALSE)
DeleteMenu(hMenu, 5, MF_BYPOSITION)
DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
this.Resizable = TRUE
SetRedraw(TRUE)
でも、レスポンスウィンドウをサイズ変更可能にするような使い方は、あまり好ましくないですね。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.