図形の整列 のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• 図形の整列 へ行く。
  • 1 (2011-11-18 (金) 18:13:10)
  • 2 (2011-11-21 (月) 17:54:49)
  • 3 (2011-11-26 (土) 15:57:52)
  • 4 (2011-11-26 (土) 17:02:15)
  • 5 (2011-11-27 (日) 03:59:21)
  • 6 (2011-12-04 (日) 11:32:29)
  • 7 (2011-12-04 (日) 15:21:57)
  • 8 (2011-12-04 (日) 17:52:20)

Procedure ajustObjectTop;

	var
		gBotAxis: real;
		gCount:integer;
		p1X, p1Y, p2X, p2Y:REAL;

	function	getBotAxis( pObj:Handle ):boolean;			
		begin
			gCount := gCount +1;
			GetBBox( pObj,  p1X, p1Y, p2X, p2Y );
			if gBotAxis > p2Y then
				gBotAxis := p2Y;
		end;

	function	doMove( pObj:Handle ):boolean;			
		begin
			GetBBox( pObj,  p1X, p1Y, p2X, p2Y );
			HMove(pObj, 0, gBotAxis - p2Y);
		end;

{main}

	begin
		gCount := 0;		
		gBotAxis := 10000000000.0;
		ForEachObjectInLayer(getBotAxis ,  2, 0,  4 );
		if gCount > 1 then			
			ForEachObjectInLayer(doMove ,  2, 0,  4 );
	end;

run ( ajustObjectTop );