Показать сообщение отдельно
  #14  
Старый 13.06.2010, 15:55
Аватар для SerginhoLD
SerginhoLD SerginhoLD вне форума
Новичок
 
Регистрация: 19.11.2009
Сообщения: 73
Репутация: 12
По умолчанию

масштабируй по размеру формы
Код:
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);
__________________
знаете почему внизу эскалатора бабка в будке сидит?
она там педальки крутит и лесенка едет!
Ответить с цитированием