Як зробити графічний редактор (подоба painta, але з меншою кількістю функцій) за допомогою delphi?
Ось так ось буде виглядати даний графічний редактор
Багато починаючі програмісти, та й любителі теж, стикалися з об'єктно-орієнтованою мовою програмування Delphi. І напевно деякі з них намагалися створити за допомогою Delphi, щось типу
'Paint'a? Так от нижче представлена інструкція по створенню графічного редактора на Delphi!
Інструкція
1 крок
Приблизно так і розташуйте всі компоненти
Створіть нову форму, закиньте на форму наступні компоненти: 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 крок
Саме в цю область і потрібно додати цей шматочок програмного коду
Додайте наступне в основний 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 крок
Ось так ось наприкінці і буде виглядати даний графічний редактор!
Все програма готова. Залишилося тільки запустити її! Запустити ви її можете за допомогою клавіші F 9 або ж за допомогою зелененький стрілочки на верху програми. Запустивши програму - перевіряєте її на працездатність! Ось так от можна зробити за допомогою Delphi графічний редактор з невеликою кількістю функцій!