面積スタンプ のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• 面積スタンプ へ行く。
  • 1 (2011-12-07 (水) 19:38:11)
  • 2 (2011-12-08 (木) 01:40:52)

Procedure ShowArea;
VAR
	x,y:REAL;
	polyH:HANDLE;
Begin
	polyH:=FSActLayer;
	IF polyH<>NIL THEN
	Begin
		GetPt(x,y);
		TextOrigin(x,y);
		BeginText;
			Concat(Num2StrF(HArea(polyH)/1000000),' ㎡≒',Num2StrF(HArea(polyH)/1000000*0.3025),' T')
		EndText;
	End;
End;
RUN(ShowArea);