Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.18;
Скачать: CL | DM;

Вниз

Дуга окружности   Найти похожие ветки 

 
San1   (2007-02-28 10:01) [0]

Подскажите пожалуйста, как нарисовать в Image дугу зная координаты ее центра, радиус, начальный и конецный угол.
Заранее спасибо


 
TUser ©   (2007-02-28 10:06) [1]

The Arc function draws an elliptical arc.

BOOL Arc(

   HDC hdc, // handle to device context
   int nLeftRect, // x-coordinate of bounding rectangle"s upper-left corner
   int nTopRect, // y-coordinate of bounding rectangle"s upper-left corner  
   int nRightRect, // x-coordinate of bounding rectangle"s lower-right corner  
   int nBottomRect, // y-coordinate of bounding rectangle"s lower-right corner    
   int nXStartArc, // first radial ending point
   int nYStartArc, // first radial ending point
   int nXEndArc, // second radial ending point
   int nYEndArc  // second radial ending point
  );


 
MBo ©   (2007-02-28 10:29) [2]

procedure DrawArc(ACanvas: TCanvas; XC, YC, R: Integer; StartAngle, SweepAngle:
 Double);
begin
 SetArcDirection(ACanvas.Handle, AD_CLOCKWISE);
 ACanvas.Arc(XC - R, YC - R, XC + R, YC + R,
   Round(XC + R * Cos(StartAngle)),
   Round(YC + R * Sin(StartAngle)),
   Round(XC + R * Cos(StartAngle - SweepAngle)),
   Round(YC + R * Sin(StartAngle - SweepAngle)));
end;



Страницы: 1 вся ветка

Текущий архив: 2007.03.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.076 c
15-1171660987
Ricks
2007-02-17 00:23
2007.03.18
Никола Тесла


5-1149955795
Alextp
2006-06-10 20:09
2007.03.18
Мерцание при обработке Resize


2-1172670740
Sinus
2007-02-28 16:52
2007.03.18
загрузить данные из тхт файла


15-1172092407
Gero
2007-02-22 00:13
2007.03.18
Креативные часы от Лебедева


2-1172162880
lowkey
2007-02-22 19:48
2007.03.18
ShowWindow