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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.