PF-Shift-Panel (値 4)

ウィンドウを移動したり、そのサイズを変更したりします。

パラメーター:

PPB-First-Visible-Col pic 9(4) comp-x
PPB-First-Visible-Row pic 9(4) comp-x
PPB-Panel-ID pic 9(4) comp-x
PPB-Panel-Start-Column pic 9(4) comp-x
PPB-Panel-Start-Row pic 9(4) comp-x
PPB-Visible-Height pic 9(4) comp-x
PPB-Visible-Width pic 9(4) comp-x

入力パラメーター:

PPB-First-Visible-Col パネル内のウィンドウの新しい水平位置。値 0 は、ウィンドウの左端がパネルの左端に位置することを示します。
PPB-First-Visible-Row パネル内のウィンドウの新しい垂直位置。値 0 は、ウィンドウの上端がパネルの上端に位置することを示します。
PPB-Panel-ID 外観を変更したいパネルの識別ハンドル。この値は、PF-Create-Panel 呼び出しで返されます。
PPB-Panel-Start-Column 画面上のパネルの新しい水平位置。値 0 は、パネルの左端が画面の左端に位置することを示します。
PPB-Panel-Start-Row 画面上のパネルの新しい垂直位置。値 0 は、パネルの上端が画面の上端に位置することを示します。
PPB-Visible-Height 表示するウィンドウの新しいテキスト行数。
PPB-Visible-Width 表示するウィンドウの新しいテキスト列数。

出力パラメーター:

なし

説明:

PPB-Panel-Height および PPB-Panel-Width を除くすべてのフィールドは、この機能で変更できます。パネルのサイズは、一度定義すると、変更できません。PPB-Panel-Height および PPB-Panel-Width に値を指定しても無視されます。

ウィンドウに割り当てられた値を変更しない場合は、PF-Get-Panel-Info を使用して、ウィンドウの現在のサイズおよび位置を取得し、再設定できます。

ウィンドウのサイズや位置の変更は、そのウィンドウに関連付けられたパネルを使用可能にした場合にのみ表示されます。ただし、パネルが使用不能でも、ウィンドウは変更できます。その変更は、次に PF-Enable-Panel を使用してパネルを使用可能にすると表示されます。

例:

この例は、80 文字の幅で 20 行の高さのパネルを仮定しています。このパネルは、画面上の 1 行目、1 列目から始まります。パネルのウィンドウは、現在 80 列の幅、5 行の高さで、パネルの最初の位置 (左上隅) から始まります。パネルのハンドルは、データ項目 ws-save-panel-id に保存されています。

この例は、ウィンドウの表示する部分を 5 行から 10 行に増加させて、パネル表示を広げます。すべての他のパラメーターは同じままです。

* Window starts in screen line 1, column 1. Remember that 
* when the location of the window on the screen is defined, 
* it is relative to 0 (that is line 0, row 0 is the top 
* left hand corner of the screen).
       move 0 to ppb-panel-start-column.
       move 0 to ppb-panel-start-row.
* The window into the panel is 20 columns wide by 10 rows 
* deep.
       move 20 to ppb-visible-width.
       move 10 to ppb-visible-height.
* The window starts at line 1, col 1 of the screen (where 
* 0,0 is the top left-hand corner of the screen).
       move 0 to ppb-first-visible-col.
       move 0 to ppb-first-visible-row.
* When the panel was first created, the returned panel ID 
* was saved in a Working-Storage variable ws-save-panel-id. 
* Now Panels needs to know which panel the call applies to.
       move ws-save-panel-id to ppb-panel-id.
* Move the window.
       move pf-shift-panel to ppb-function.
       call "PANELS" using panels-parameter-block.
       if ppb-status not = zero
*          (code to abort)