Как доделать?

@Фарадэй · Регистрация: 31.12.2010

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x0,y0,m: integer;
 x,y:real;
 
begin
x0:=400;
y0:=300;
m:=100;
 x:=-x0;
 with Form1.Canvas do
 begin
  pen.Color:= clRed;
  moveto (x0,30);   lineto (x0, 500);
  moveto (30,y0);   lineto (770, y0);
 repeat
    y:= sin(x);
    Pixels [x0+trunc(x*m), y0-trunc(y*m)]:=clred;
 
    y:=  sqr(x);
    Pixels [x0+Trunc(x*m), y0-Trunc(y*m)]:=clgreen;
 
    x:=x+0.01 ;
 
 until  (x>=x0);
  end;
end;

вот кусок кода по построению графика функции, подскажите как убрать баг из -за которого график не всегда сразу прорисовываеться( несколько раз нужно на кнопку жать) и еще как программно пронумеровать правильно систему координат? чтоб как в тетрадке было
буду благоарен за помощь

@chum · 23.01.2011, 04:08

Сообщение от Фарадэй

[DELPHI] подскажите как убрать баг из -за которого график не всегда сразу прорисовываеться

при работе цикла никаких действий с элементами интерфейса не выполняется. Они как бы накапливаются и затем выполняются все сразу. Чтобы даже в цикле производилась перерисовка графика, достаточно в теле цикла записать команду Application.ProcessMessages.

Добавлено через 15 минут
А перед Application.ProcessMessages поставить в цикл расчета функции команду задержки Sleep(100), останавливающую программу на 100мс

@chum 111 / 51 / 5 Регистрация: 19.01.2010 Сообщений: 139
	23.01.2011, 04:08	2
	Сообщение от Фарадэй [DELPHI] подскажите как убрать баг из -за которого график не всегда сразу прорисовываеться при работе цикла никаких действий с элементами интерфейса не выполняется. Они как бы накапливаются и затем выполняются все сразу. Чтобы даже в цикле производилась перерисовка графика, достаточно в теле цикла записать команду Application.ProcessMessages. Добавлено через 15 минут А перед Application.ProcessMessages поставить в цикл расчета функции команду задержки Sleep(100), останавливающую программу на 100мс 0