VS:SetMarkerValue/ja

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

Description

マーカポップアップの値を設定します。（VW2008より前のバージョンのマーカポップアップ手続きの代わりになります。）

PROCEDURE SetMarkerValue(
             dialogID    :LONGINT;
             itemID      :LONGINT;
             style       :INTEGER;
             angle       :INTEGER;
             length      :REAL;
             width       :REAL;
             basis       :INTEGER;
             thickness   :REAL);

def vs.SetMarkerValue(dialogID, itemID, style, angle, length, width, basis, thickness):
    return None

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:GetMarkerValue

関連関数: [[VS:GetMarkerValue]]