t = 140, ширина. p align="justify">. Відразу після слова implementation в модулі вікна оголошуємо глобальні змінні, які будуть доступні з будь-якої процедури в цьому модулі. Var stop: boolean;// ознака малювання x: Integer;// координата осі X
. У обробнику події OnClick для кнопки Button1 (В«СтартВ») напишемо наступне:
procedure TForm1.Button1Click (Sender: TObject); Var y: Integer;// вісь Ybeginif x = 0 then// якщо точка на початку координат, то: beginPaintBox1.Canvas.Brush.Color: = clWhite;// колір фону белийPaintBox1.Canvas.FillRect (ClientRect);// заливка всієї робочої областіend; stop: = false;// прапор старту процесу рісованіяWhile not stop do// нескінченний цикл, поки прапор зупинки не піднято: beginif (RadioButton1 . Checked) or (CheckBox1.Checked) then// якщо встановлений "Sin" або "Всі", то: beginy: = Round (Sin (pi * x/100) * 50) +70;// обчислення положення сінусоідиPaintBox1 . Canvas.Pixels [x, y]: = clBlack;// намалювати чорну точкуend; if (RadioButton2.Checked) or (CheckBox1.Checked) then// якщо встановлений "Cos" або "Всі", то: beginy: = Round (Cos (pi * x/100) * 50) +70;// обчислення положення косінусоідиPaintBox1.Canvas.Pixels [x, y]: = clBlack;// намалювати чорну точкуend; inc (x);// збільшити значення X на едіціну. Аналог X: = X +1 if x> 500 then// якщо X вийшов за межі PaintBox1, то: beginx: = 0;// встановити X на початок коордінатPaintBox1.Canvas.Brush.Color: = clWhite;// Колір фону белийPaintBox1. Canvas.FillRect (ClientRect);// Очищення робочої області PaintBox1end; Sleep (TrackBar1.Position);// Процедура "засинає" на заданий час в миллисекундахApplication.ProcessMessages;// Обробка всієї черги сообщенійend; end;
Коротко розповімо роботу цієї процедури. Як тільки натиснута кнопка "Старт" Компонент PaintBox1 очищається і починається нескінченний цикл While, вийти з якого можна тільки, поки змінна Stop не прийме значення true. Це можна зробити кнопкою Button2, відповідна процедура якої обробиться під час Application.ProcessMessages. За допомогою бігунка TrackBar1 можна міняти швидкість малювання кривої. Цей параметр передається в команду Sleep. p align="justify"> 10. Процедура натискання на кнопку зупинки Button2:
procedure TForm1.Button2Click (Sender: TObject);
begin: = true;// встановити прапор зупинки процесу малювання;
. Процедура створення вікна Form1OnCreate:
procedure TForm1.FormCreate (Sender: TObject);
begin
x: = 0;// початкове значення X
end;
. Якщо натиснута кнопка "Вихід", то реакція на цю подію буде таким:
procedure TForm1.Button3Click (Sender: TObject); begin Close;// закрити вікно end;
13. І реакція перед закриттям вікна OnClose. Без цієї процедури, якщо малювання включе...
