VS:GetMarkerValue/ja
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
選択されているマーカポップアップの値を返します。(VW2008より前のバージョンのマーカポップアップ手続きの代わりになります。)
PROCEDURE GetMarkerValue(
dialogID :LONGINT;
itemID :LONGINT;
VAR style :INTEGER;
VAR angle :INTEGER;
VAR length :REAL;
VAR width :REAL;
VAR basis :INTEGER;
VAR thickness :REAL);
def vs.GetMarkerValue(dialogID, itemID): return (style, angle, length, width, basis, thickness)
Parameters
dialogID LONGINT ダイアログ番号 itemID LONGINT マーカポップアップ番号 style INTEGER タイプ angle INTEGER 角度(度数) length REAL 長さ(インチ) width REAL 幅(インチ) basis INTEGER 太さ thickness REAL カスタム設定の太さ
Example
PROCEDURE Example; VAR int, dialogID :INTEGER; style, angle, thicknessBasis :INTEGER; width, length, thickness :REAL; PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT); BEGIN CASE item OF SetupDialogC: BEGIN style := 130; angle := 0; width := .125; length := .125; thickness := 0; thicknessBasis := 0; SetMarkerValue(dialogID, 4, style, angle, width, length, thicknessBasis, thickness); END; 5: BEGIN GetMarkerValue(dialogID, 4, style, angle, width, length, thicknessBasis, thickness); AlrtDialog(Concat( 'style: ', style, Chr(13), 'angle: ', angle, Chr(13), 'width: ', width,Chr(13), 'length: ', length, Chr(13), 'thickness: ', thickness, Chr(13), 'thicknessBasis: ', thicknessBasis)); END; END; END; BEGIN dialogID := CreateLayout('Test', False, 'OK', ''); CreateMarkerPopup(dialogID, 4); CreatePushButton(dialogID, 5, ' Display Values '); SetFirstLayoutItem(dialogID, 4); SetBelowItem(dialogID, 4, 5, 0, 2); int := RunLayoutDialog(dialogID, Dialog_Handler); END; RUN(Example);
Version
See Also
関連関数:
関連関数:
[[VS:SetmarkerValue]]