VS:CreateEditTextBox/ja: Difference between revisions
Jump to navigation
Jump to search
m (1 revision) |
m (1 revision) |
(No difference)
|
Latest revision as of 14:25, 12 August 2013
.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