Программирование в Delphi

22 А-ЛЯ-PAINT Приложение задумывалось не столько для использования в качестве рабочего приложения, сколько показа возможности среды программирования Delphi. Было интересно реализовать не только стандартные функции приложения Paint, такие как: рисование мышью линии, толщину которой можно задавать с формы, выбирать цвет из палитры цветов, заливку выделенной области цветом, выбранным из палитры цветов. Реализована функция стирательной резинки, рисования рандомным цветом, сохранение полученной картинки в файл, получение из графического файла рисунка с возможностью дальнейшего его редактирования. Прочие функции приложения можно будет реализовать в дальнейшем. Для реализации приложения были созданы две формы, главная открывается сразу при запуске программы на исполнение, вторая открывается соответствующей кнопкой (первая форма приведена на рисунке 28, вторая – на рисунке 29). Для выбора цветов линий и заливки на форму помещен компонент ColorDialog, для сохранения созданного изображения в графический файл – невизуальный компонент SavePictureDialog, для открытия рисунка из графического файла с возможностью его редактирования – невизуальный компонент OpenPictureDialog. Рисование происходит в компонентах Image, Shape. Два переключателя RadioButton нужны для записи изображения в файл и открытия графического файла: procedure TForm1.RadioButton1Click(Sender: TObject); begin if savepicturedialog1.Execute then savepicturedialog1.FileName; image1.Picture.SaveToFile(savepicturedialog1.FileName); end; procedure TForm1.RadioButton2Click(Sender: TObject); begin if openpicturedialog1.Execute then openpicturedialog1.FileName; image1.Picture.LoadFromFile(openpicturedialog1.FileName); end; Контекстное меню PopupMenu реализует закрашивание рандомными цветами круг (фигура Shape) и контур этого круга: procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: T...