Масштабирование графика

[OlyaV]

Добрый вечер!
Подскажите, пожалуйста, как в Delphi сделать так, чтобы выводимый график масштабировался, т.е. чтобы он рисовался одного размера.
Код :

procedure TForm2.Risovanie();
var q:integer;
begin
j:=0;
q:=6;
  image1.canvas.Pen.Color:=clBlack;
  image1.canvas.moveto(q,0);
  image1.canvas.lineto(q,Image1.Height-q);
  image1.canvas.lineto(Image1.Width,Image1.Height-q);
  image1.canvas.Pen.Color:=clBlue;
    image1.canvas.moveto(q,14);
  image1.canvas.lineto(Image1.Width,14);
  image1.canvas.Pen.Color:=clRed;
  image1.canvas.moveto(q,Image1.Height-q);
for j :=0 to Tmod - 1 do  begin
  image1.canvas.lineto(2*j+q,Image1.Height-Summa[j]-q);
  end;
  end;

есть еще процедура 

procedure TForm2.razmetka(Image1:TImage);
begin
Image1.Picture:=nil;
Image1.Width:=Tmod;
Image1.Height:=Nr+20;
step:=round(Image1.Width/(0.2*Tmod));
Image1.Canvas.Pen.Color:=clGray;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
image1.canvas.Brush.color:=clBlack;
end;

График рисуется по точкам, значения которых лежат в массиве Summa[j].
Значение элемента в массиве зависит от вводимого числа - переменная Nr. (Если ввели 100 - значит высота картинки Nr+20) и она вмещается в окно Image (его высота 200). Пример изображение 100. А вот если ввести 450, то график улетает- т.е. он рисуется, но появляется вертикальный скролл, и его можно просмотреть только прокруткой. Пример изображение 450.
как сделать так, чтобы всегда рисовалось окно одного размера - и график не надо было скроллить, а он выводился бы в нормальном виде, вне зависимости от того ввели мы 100 , 500 или 2000.
Примечание: массив Summa[j] - есть массив совпадений, например мы ввели Nr=100 , а массив получился Summa[ 98; 75; 56; 23; 0; 89 и тд.] т.е. в первом случае совпало 98, во втором 75 и тд. Если вводим 450 то массив будет примерно таким Summa[440; 360; 285 и тд.].

Надеюсь на Вашу помощь



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=204221