Показать сообщение отдельно
  #15  
Старый 13.06.2010, 16:03
Aksanka2004 Aksanka2004 вне форума
Прохожий
 
Регистрация: 31.05.2010
Сообщения: 16
Репутация: 10
По умолчанию

Цитата:
Сообщение от SerginhoLD
масштабируй по размеру формы
Код:
px,py,qx,qy:double; // масшабные множетели
...

    x1; // минимальный X
    y1; // максимальный Y
    x2; // максимальный X
    y2; // минимальный Y

    left:=0; top:=0; right:=myForm.ClientWidth; bottom:=myForm.ClientHeight; // твоя форма
    px:=(right-left)/(x2-x1); qx:=left-px*x1;
    py:=(bottom-top)/(y2-y1); qy:=top-y1*py  // здесь вычисляем масштабные множетели

...

function xs(x:double):integer;
begin                                // вычисляем экранные координаты
  result:=round(px*x+qx);
end;
function ys(y:double):integer;
begin
  result:=round(py*y+qy);
end;

...

//рисуем:
LineTo(xs(твой x),ys(твой y);

Уффф))) Щас будем разбираться))) а мин.х и мин.у я лапками прописываю? Я ж типа не знаю какой эдит будет минимальным, а какой максимальным! Таким образом не очень понятен кусок:
Код:
x1; // минимальный X
    y1; // максимальный Y
    x2; // максимальный X
    y2; // минимальный Y
Ответить с цитированием