Графический редактор. Delphi

[ali23210275]

это код графического редактора...но там есть небольшой косячок..например, нарисовали рисунок и хотим залить фон..и когда он заливает фон нарисованная картинка как бы остается под ним и пропадает..что нужно сделать чтоб нормально заливалось как в Paint. За заливание отвечает компонент Button3.

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ExtDlgs;

type
TForm4 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
EditSize: TEdit;
ColorBox1: TColorBox;
Button3: TButton;
Button4: TButton;
OpenPictureDialog1: TOpenPictureDialog;
procedure FormShow(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;
gg:Boolean;
implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Image1.Picture.Bitmap.SaveToFile (SaveDialog1.FileName);
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
Image1.Canvas.FillRect(ClientRect);
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=ColorBox1.Selected;
Image1.Canvas.FillRect(ClientRect);

end;

procedure TForm4.Button4Click(Sender: TObject);
Var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
if OpenPictureDialog1.Execute then
begin
bmp.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Canvas.Draw(10,10,bmp);
end;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
Image1.Canvas.FillRect(ClientRect); //для очищения Image при открытии формы
end;

procedure TForm4.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
gg:=True;
Image1.Canvas.MoveTo(x,y);
end;

procedure TForm4.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if gg then
begin
Image1.Canvas.Pen.Color:=ColorBox1.Selected;
Image1.Canvas.Pen.Width:=strToInt(EditSize.Text);
Image1.Canvas.LineTo(x,y);
end;
end;

procedure TForm4.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
gg:=False;
end;

end.

[Antua]

Жалко, что никто не откликнулся. У меня та же проблема.
Может подскажите рабочий код простенького графического редактора на Delphi...
Спасибо.

[was3110]

http://orenstudent.ru/upragDlp.htm#Graphic
Совсем не дорого...

[ZX Spectrum-128]

В комплекте идет с дельфи. В папке examples (samples).

[was3110]

Сообщение от was3110

Совсем не дорого...

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