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

Інструкція

Рівень складності: Непросто

Приблизно так і розташуйте всі компоненти

Створіть нову форму, закиньте на форму наступні компоненти: Image, ColorBox (Вкладка Additional), OpenPictureDialog, SaveDialog (Вкладка Dialogs), чотири 'Button'a і Edit (Вкладка Standard). Перейменуйте кнопки відразу в "Зберегти", "Відкрити", "Очистити", "Заливка фону".

На цьому кроці впишіть в кнопку "Зберегти" наступний програмний код:
if SaveDialog1.Execute then
Image1.Picture.Bitmap.SaveToFile (SaveDialog1.FileName);

На третьому кроці впишіть в кнопку "Відкрити" наступний програмний код:
var
bmp: TBitmap;
begin
bmp: = TBitmap.Create;
if OpenPictureDialog1.Execute then
begin
bmp.LoadFromFile (OpenPictureDialog1.FileName);
Image1.Canvas.Draw (10,10, bmp);
end;
end;

Саме в цю область і потрібно додати цей шматочок програмного коду

Додайте наступне в основний Var у форми:
var
Form1: TForm1;
gg: boolean;

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

Створіть обробники 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;

Створіть обробники MouseUp у компонента Image і впишіть туди наступне:
gg: = false;

Обговорення

В принципі непогана інструкція. Для початківців корисно. Але є кілька недоробок: кнопки зафарбовування фону і очищення є, але дій немає. Вибирать товщину лінії edit'ом - незручно, тим більше там з іменами проблема EditSize -?
Якщо можна - поправ, єто же не складно.

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

EditSize - властивість name у edit, просто зі стандартного перейменоване.

запросити інструкцію

Чи не знайшли потрібну покрокову інструкцію?
Можливо, що хтось із відвідувачів сайту зможе допомогти. Залиште запит прямо зараз, якщо Ви впевнені, що ця тема ще не освітлена на нашому проекті!