Разработка графического редактора в Delphi

Программный код графического редактора.

procedure TForm1.ScrollBar3Change(Sender: TObject);

begin

cvet:=rgb(scrollbar1.Position, scrollbar2.Position, scrollbar3.Position);

edit3.Text:=inttostr(scrollbar3.Position);

end;

Получившийся цвет необходимо показать пользователю:

procedure TForm1.Button1Click(Sender: TObject);

begin

edit4.Color:=cvet;

end;

Толщину линии можно задать так:

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

image1.Canvas.Pen.Width:=spinedit1.value;

end;

При движении мыши с нажатой левой клавишей должен оставаться след:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

Устанавливаем цвет карандаша и кисти таким, каким он получится при изменении составляющих RGB – палитры:

image1.Canvas.Pen.Color:=cvet;

image1.Canvas.brush.Color:=cvet;

if ssleft in shift then image1.canvas.lineto(x,y);

end;

После отпускания мыши и перемещения курсора в новое место след оставаться не должен.

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

b

procedure TForm1.Button3Click(Sender: TObject);

with image1.canvas do

case button of

mbleft:moveto(x,y);

mbright:floodfill(x,y,cvet,fsborder);

end;

end;

Сохранение рисунка в файле:

procedure TForm1.Button2Click(Sender: TObject);

begin

with savepicturedialog1 do if execute then image1.Picture.SaveToFile(filename); end;

Веденеева Александра Олеговна

Учитель информатики МОУ № 43 г.Борзи Забайкальского края

Тема: Разработка графического редактора.

С помощью данного проекта можно создавать простейшие графические изображения (левой кнопкой мыши), закрашивать замкнутые области (правой кнопкой мыши), изменять цвет и толщину линии, сохранять рисунок в файле.

На форме расположим компонент Image, на котором будем рисовать, три полосы прокрутки для изменения составляющих цвета RGB-палитры, три метки с названиями красный, зеленый, синий, три компонента Edit для вывода числовых значений, показывающий коды цветовой палитры, компонент Edit для демонстрации полученного цвета, компонент SpinEdit для изменения толщины линии (вкладка Samples), который является невизуальным, компонент SavePictureDialog (с. Dialogs) для сохранения рисунка в графическом файле, три командные кнопки: для установки цвета, сохранения рисунка в файле и для выхода из приложения.

Для каждой из трех полос прокрутки установить минимальное значение – 0, максимальное – 255. Для каждой полосы прокрутки пишем процедуры, формирующие новый цвет и выводящие числовые значения составляющих цветовой палитры в окна ввода. Задаем толщину линии (обработчик событий SpinEdit1Change). При движении мыши с нажатой левой клавишей должен оставаться след. После отпускания мыши и перемещения курсора в новое место след оставаться не должен. Поэтому нужно написать две процедуры: для рисования (обработчик событий OnMouseMove) и для перемещения курсора без рисования (OnMouseDown).