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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.