VS:CreateEditTextBox/ja

From Vectorworks Developer
Jump to: navigation, search

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


Description

スクロールすることで複数行を編集可能なフィールドを作成します。
PROCEDURE CreateEditTextBox(
dialogID  :LONGINT;
itemID  :LONGINT;
defaultText  :STRING;
widthInCharacters  :LONGINT;
heightInLines  :LONGINT);
def vs.CreateEditTextBox(dialogID, itemID, defaultText, widthInCharacters, heightInLines):
    return None

Parameters

dialogID LONGINT ダイアログ番号
itemID LONGINT アイテム番号
defaultText STRING 初期値
widthInCharacters LONGINT 幅(文字数指定)
heightInLines LONGINT 高さ(文字数指定)

Example

PROCEDURE Example;
VAR
	dialog1 :INTEGER;
	result  :INTEGER;
PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT);
BEGIN
END;
BEGIN
	dialog1 := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel');
	CreateEditTextBox(dialog1, 4, 'default text', 24, 16);
	SetFirstLayoutItem(dialog1, 4);
	result := RunLayoutDialog(dialog1, Dialog_Handler);
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks10.0
Personal tools
NamespacesFFFF

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox
In other languages