Як зробити графічний редактор (подоба 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" наступні розширення:
(.jpg-.jpg-.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 графічний редактор з невеликою кількістю функцій!







» » Як зробити графічний редактор (подоба painta, але з меншою кількістю функцій) за допомогою delphi?