VS:GetScreen/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

モニタ画面の左上と右下の座標を返します。

PROCEDURE GetScreen(
           VAR x1   :INTEGER;
           VAR y1   :INTEGER;
           VAR x2   :INTEGER;
           VAR y2   :INTEGER);

def vs.GetScreen():
    return (x1, y1, x2, y2)

Parameters

x1		INTEGER		画面の左上のX座標
y1		INTEGER		画面の左上のY座標
x2		INTEGER		画面の右下のX座標
y2		INTEGER		画面の右下のY座標

Example

PROCEDURE Example;
VAR 
	x1, y1, x2, y2 :INTEGER;
BEGIN
	GetScreen(x1, y1, x2, y2);
	Message(x1,' ',y1,' ',x2,' ',y2);
END;
RUN(Example);

Version

利用可能バージョン: MiniCAD