Как сделать графический редактор (подобие Painta, но с меньшим количеством функций) при помощи Delphi?

Как сделать графический редактор (подобие Painta, но с меньшим количеством  функций) при помощи Delphi?
Вот так вот будет выглядеть данный графический редактор

Многие начинающие программисты, да и любители тоже, сталкивались с объектно-ориентированным языком программирования Delphi. И наверняка некоторые из них пытались создать при помощи Delphi, что-то типа
’Paint’a? Так вот ниже представлена инструкция по созданию графического редактора на Delphi!

Инструкция

Уровень сложности: Непросто

1 шаг

Как сделать графический редактор (подобие Painta, но с меньшим количеством  функций) при помощи Delphi?
Приблизительно так и расположите все компоненты

Создайте новую форму, закиньте на форму следующие компоненты: Image, ColorBox (Вкладка Additional), OpenPictureDialog, SaveDialog (Вкладка Dialogs), четыре ’Button’a и Edit (Вкладка Standard). Переименуйте кнопки сразу в “Сохранить”, “Открыть”, “Очистить”, “Заливка фона”.

2 шаг

На этом шаге впишите в кнопку “Сохранить” следующий программный код:
if SaveDialog1.Execute then
Image1.Picture.Bitmap.SaveToFile(SaveDialog1.FileName);

3 шаг

На третьем шаге впишите в кнопку “Открыть” следующий программный код:
var
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
if OpenPictureDialog1.Execute then
begin
bmp.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Canvas.Draw(10,10,bmp);
end;
end;

И заодно добавьте в свойство “Filter” у “OpenDialog” следующие расширения:
(.gif;.png;.jpg;.jpeg;.bmp;.tif;.tiff;.ico;.emf;.wmf)

4 шаг

Как сделать графический редактор (подобие Painta, но с меньшим количеством  функций) при помощи Delphi?
Именно в эту область и нужно добавить этот кусочек программного кода

Добавьте следующее в основной Var у формы:
var
Form1: TForm1;
gg:boolean;

5 шаг

Создайте обработчики MouseDown у компонента Image и впишите туда следующее:
gg:=true;
image1.Canvas.MoveTo(x,y);

6 шаг

Создайте обработчики MouseMove у компонента Image и впишите туда следующее:
if gg then
begin
Image1.Canvas.Pen.Color:=ColorBox1.Selected;
Image1.Canvas.Pen.Width:=StrToInt(EditSize.Text);
Image1.Canvas.LineTo(x,y);
end;

7 шаг

Создайте обработчики MouseUp у компонента Image и впишите туда следующее:
gg:=false;

8 шаг

Как сделать графический редактор (подобие Painta, но с меньшим количеством  функций) при помощи Delphi?
Вот так вот в конце и будет выглядеть данный графический редактор!

Всё программа готова. Осталось только запустить её! Запустить вы её можете с помощью клавиши F 9 или же с помощью зелёненькой стрелочки на верху программы. Запустив программу – проверяете её на работоспособность! Вот так вот можно сделать с помощью Delphi графический редактор с небольшим количеством функций!

Обсуждение

Avatar_micro
Рейтинг
  1. +
  2. 0
a_krut (09:13 11.09.2014)

В принципе неплохая инструкция. Для начинающих полезно. Но есть несколько недоработок: кнопки закраски фона и очистки есть, но действий нет. Вибирать толщину линии edit’ом – неудобно, тем более там с именами неувязка EditSize -?
Если можно – поправь, єто же не сложно.

608_micro
Рейтинг
  1. +
  2. 0
Nablus (09:23 11.09.2014)

Ну да с "edit"om может и неудобно, просто чем же не вариант?)

608_micro
Рейтинг
  1. +
  2. 0
Nablus (09:24 11.09.2014)

EditSize – свойство name у edit, просто со стандартного переименованное.

Ваш комментарий

Запросить инструкцию

Не нашли нужную пошаговую инструкцию?
Возможно, что кто-то из посетителей сайта сможет помочь. Оставьте запрос прямо сейчас, если Вы уверены, что эта тема ещё не освещена на нашем проекте!

Рейтинг
  1. +
  2. 0
3
1