Помогите с масштабированием

[sabbatazh]

Мне не доходит как сделать масштабирование при изменении размеров проекта.

Проэкт прилагаеться... фсе почти сделал но от только одно не могу сделать... (с геометрией проблемы в школе были )

И гляньте, плиз, есть ошибки?!!! (с меня причетается)

Спасибо !!!!

[sabbatazh]

фсем пасибо сделал....

Но возник другой вопрос....

как правильно отбразить линию подкурсором чтобы она соответствовали углу наклона?!!
Пробывал, шот не выходит может чегото не хватает....

procedure TForm1.laPM(xM,yM: Integer; r1,r2: Integer; x0: Integer; y0: Integer; i1: TImage);
var
   x,y: Integer;
   i, k, ang,h: Real;
   x1,y1: Extended;
   //dx: Integer;
begin
  //dx:= 10;

    with i1.Canvas do begin
         Pen.Style:= psSolid;
         Pen.Color := clBlack;
         Pen.Width := 1;
    end;

  //if xM > yM then
   //k:= ArcSin(xM/(2*r1))
  //else
   k:= ArcTan2(yM-y0,xM-x0);
 //repeat
  //i:= 2*pi- (pi*k)/180;

    ang:= {360 -} -1*((180*k)/pi);//k->i

   if (ang < 90) and (ang > -90) then begin

           SinCos(k, y1, x1);//k->i

       x := x0 + Round(r1 * x1);
       y := y0 + Round(r2 * y1);

    //if i1.Width > i1.Height then
       x:= x*2- x0;
    //else
      // y:= y*2 -y0;

     if k = 0 then begin
        ang:= 0;
        i1.Canvas.Pen.Width := 2;
     end else
        i1.Canvas.Pen.Width := 1;

     i1.Canvas.MoveTo(x0,y0);
     i1.Canvas.LineTo(x,y);
     i1.Canvas.TextOut(x,y-13,FloatToStr(ang));

  i:= Round(xM- _hag);  // проблема!!!!!!!
      i1.Canvas.Arc(_x1+i,_y1+i,_x2-i,_y2-i,_x3,_y3,_x4,_y4);


   //     k := k+ dx;
 //until (k >= 10*dx);
   end
end;

[sabbatazh]

ХЕЛП!!! Горит ПРОГА!!!! СРОЧНА НАДА, ПОМОГИТЕ!!!!

[sabbatazh]

основная проблема отрисовки полукруга под координатоми мыши!!!

[sabbatazh]

от последняя версия процедуры отрисовки угла и растояния на сетке для прекрепленного файла к теме:

var
  Form1: TForm1;

    _xM, _yM, _hag : Integer;
    _x0,_x1,_x2,_x3,_x4: Integer;
    _y0,_y1,_y2,_y3,_y4: Integer;
  radx, rady : Integer;
  b: Boolean;
...
procedure TForm1.laPM(xM,yM: Integer; r1,r2: Integer; x0: Integer; y0: Integer; i1: TImage);
var
   x,y,i: Integer;
   k, ang,h: Real;
   x1,y1: Extended;
begin

    with i1.Canvas do begin
         Pen.Style:= psSolid;
         Pen.Color := clBlack;
         Pen.Width := 1;
    end;

   k:= ArcTan2(yM-y0,xM-x0);

    ang:= -1*((180*k)/pi);//k->i

   if (ang < 90) and (ang > -90) then begin

           SinCos(k, y1, x1);//k->i

       x := x0 + Round(r1 * x1);
       y := y0 + Round(r2 * y1);


       x:= x*2- x0;

     i1.Canvas.MoveTo(x0,y0);
     i1.Canvas.LineTo(x,y);
     i1.Canvas.TextOut(x,y-13,FloatToStr(ang));
//------------------------------------------------------------------------------
  x1:= 2*r1 + _hag;
  y1:= 2*r2 + _hag;


     if xM <= (x1/2)+ _hag then begin
      if yM <= (r2 + _hag) then
          i:= Round(yM- _hag +k)
      else
          i:= Round(y1 - yM - k);
     end else
          i:= Round( x1 - xM );


     if (_x2-i < x1) and (i <= y1) then begin
      i1.Canvas.Arc(_x1+i,_y1+i,_x2-i,_y2-i,_x3,_y3,_x4,_y4);

        Caption:= 'Mod = '+ IntToStr(r2-i) +'; Arg = '+ FloatToStr(ang);
     end;

   end
end;

здесь дето ошибка я не могу найти где, ПОМОГИТЕ найти!!!!

р.с. мммда перевод декартовых в полярные координаты у меня чет храмает........

[sabbatazh]

"ПАСИБО, ПРОФЕСИОНАЛЫ"!!!!!!!!!!!!!(((

[sabbatazh]

фсе вопрос решен.... ну.... и как закрыть тему.... чет я ничего не вижу....

[Viteef]

У студентов не работает принтер, приходят, просят посмотреть. Мне влом идти, думаю может забудут. Совесть включается на 20й минуте, прихожу - они его уже настроили и всё печатает.
Через полгода студенты сами настраивают сеть, ставят винду, настраивают 1С...

off - top

[sabbatazh]

ну ваще.... представляешь, тоже есть студенты.....

[sabbatazh]

и для знатаков, делфи для меня ново...