close

 

Arc1: TArc;

 Circle2: TCircle;

 

  Arc1.EndAngle := 360 / (100 / StrtoInt(edit1.Text)) ;
  Arc2.RotationAngle := Arc1.EndAngle;
  Arc2.EndAngle := 360 / (100 / StrtoInt(edit2.Text)) ;
  Arc3.RotationAngle := Arc1.EndAngle+Arc2.EndAngle;
  Arc3.EndAngle := 360 -Arc3.RotationAngle ;

 

稍微操作一下

arrow
arrow
    全站熱搜

    kuraki5336 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄