Главная страница
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.111 c
15-1172073834
Andy BitOff
2007-02-21 19:03
2007.03.18
Вышла Delphi 2007 for Win32


15-1172077975
Илья84
2007-02-21 20:12
2007.03.18
Перенос Delphi на другой ПК


15-1172143121
Rouse_
2007-02-22 14:18
2007.03.18
Директор, это ерунда. Депутаты - круче :)


9-1145273507
Creep1
2006-04-17 15:31
2007.03.18
Glut в Delphi


2-1172660999
МегаПупс
2007-02-28 14:09
2007.03.18
Курсор