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

利用可能バージョン: VectorWorks 2008

See Also

関連関数:

関連関数: [[VS:SetmarkerValue]]