ForEachObjectInLayer のバックアップ(No.3)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• ForEachObjectInLayer へ行く。
  • 1 (2011-11-18 (金) 18:53:29)
  • 2 (2011-11-18 (金) 21:27:16)
  • 3 (2011-11-19 (土) 16:24:31)
  • 4 (2011-11-22 (火) 11:23:25)

ForEachObjectInLayer

Declaration:

   PROCEDURE   ForEachObjectInLayer    ( actionFunc 	:PROCEDURE;
     	  				objOptions 	:INTEGER;
     	  				travOptions 	:INTEGER;
     	  				layerOptions 	:INTEGER
  					 ) ;

Description:

   Traverses through all objects according to specified search options
and applies the specified action to each object.
The 'actionFunc' procedure should return false to continue with next object,
or return true to stop the traversal.

Table - ForEachObjectInLayer Selectors

Object Options

Traversal
Options

Layer Options

説明

   指定した条件に合致した図形を、指定した手続きで処理します。

Parameters:

   actionFunc 	Subroutine which performs operation on found objects. 	関数型サブルーチンの名前
   objOptions 	Object selection option index. 	図形選択オプション番号
   travOptions 	Search options index. 	検索オプション番号
   layerOptions 	Layer selection option index. 	レイヤ選択オプション番号

Example:

   PROCEDURE Example;

   FUNCTION MakeItRed(h :HANDLE) :BOOLEAN;
   VAR
   	r, g, b :LONGINT;
   BEGIN
   	ColorIndexToRGB(7, r, g, b);
   	SetFillBack(h, r, g, b);
   END;
   	
   BEGIN
   	ForEachObjectInLayer(MakeItRed, 2, 0, 4);
   END;
   RUN(Example);