Графика в Delphi

У многих объектов есть свойство Canvas: на нём рисуют фигуры. Для рисования удобно использовать объект Image с вкладки Additional, потому что нарисованная на нём фигура не теряется, когда окно закрывают и снова показывают (фигура, нарисованная прямо на Form1.Canvas, может исчезнуть, если окно закрыто другим). Координаты отсчитываются от левого верхнего угла холста: x – вправо, y – вниз. Rectangle(x1, y1, x2, y2) рисует прямоугольник, а Ellipse(x1, y1, x2, y2) – эллипс, вписанный в этот прямоугольник; эллипс в квадрате – это круг. MoveTo(x, y) перемещает перо в точку, а LineTo(x, y) проводит отрезок от текущей точки до заданной. Pen (Color, Width, Style) рисует линии, а Brush (Color, Style) заливает внутреннюю область. Цвет задают названиями cl (clRed, clBlue, clYellow) или функцией RGB(red, green, blue), в которой каждое значение от 0 до 255, поэтому всего 256·256·256 = 16777216 цветов. Одну точку можно закрасить так: Canvas.Pixels[x, y] := RGB(255, 0, 0); В Lazarus вместо RGB используйте RGBToColor(r, g, b).