PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
10328 00/02/17 13:32:36 RE(6):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By さい
10317 00/02/17 09:58:32 RE(5):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By Potato
10316 00/02/17 09:47:53 RE(4):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By さい
10315 00/02/17 09:33:13 RE(3):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By Potato
10303 00/02/16 18:02:32 RE(2):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By てとらぽっと
10301 00/02/16 17:52:18 RE(1):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By こてちゅ
10299 00/02/16 17:31:47 PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい By さい

カテゴリ:スクリプトの記述
日付:2000年02月16日 17:52 発信者:こてちゅ
題名:RE(1):PB6.5: 画面の解像度の影響を受けずに、ウインドウのポジションを画面の中心に設定したい

さいさん、こんにちは。

当方では、同じようなことを
Environmentオブジェクトを使用して行っていますが、
問題なく画面中央に表示されます。

こんな感じ・・・(因みに継承もとのWindowオブジェクトのウィンドウ関数となっております。)

/* 変数宣言 */
Environment env //Environment(環境)オブジェクト
Integer rtn //リターンコード
Integer wx //ウィンドウの幅
Integer wy //ウィンドウの高さ
Long sx //スクリーンの幅
Long sy //スクリーンの高さ

/* ウィンドウの幅と高さを取得(ピクセル単位に変換) */
wx = UnitsToPixels(This.Width,XUnitsToPixels!) //幅
wy = UnitsToPixels(This.Height,YUnitsToPixels!) //高さ

/* 環境に関する情報を入手 */
rtn = GetEnvironment(env)
If rtn <> 1 Then Return

//スクリーンからの位置を取得(PowerBuilder単位に変換)
sx = PixelsToUnits((env.ScreenWidth - wx) / 2,XPixelsToUnits!) //左端からの距離
sy = PixelsToUnits((env.ScreenHeight - wy) / 2,YPixelsToUnits!) //上端からの距離

//ウィンドウを移動
This.Move(sx,sy)


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows95
DBMS (記載なし)
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

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