Ластик для имиджа image1

Posted by obzor under Delphi, Архив

Есть вопросик относительно имиджа(image). На форме есть 2 имиджа:имидж1 и имидж2. Надо как-то сделать инструмент,который бы стирал имидж1(как в любимом фотошопе). Можете помочь? Есть еще одно,нужно чтобы была отмена,но это мне точно не под силу.

Карась

Я тут набросал немного деревенский способ…

var
  Form1: TForm1;
  OP : TOpenPictureDialog;
  Pic : TBitmap;

implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
OP.Execute;
Image1.Picture.LoadFromFile (OP.FileName);
OP.Free;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var k, i: integer;
begin
Image2.Picture := Image1.Picture;
Image1.Canvas.Ellipse(x - 10, y - 10, x + 10, y + 10);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Image1.Picture := Image2.Picture;
end;

end.

тема на форуме

Похожие статьи

• Генерация и синтез звуковых волн
• Взять кадр из видео без остановки видео потока (BASSVIDEO)
• Работа с графическим планшетом wacom stu-300 средствами Делфи
• Авто переключение с трека на трек при воспроизведении (TMediaPlayer)
• Быстрое отражение изображения в Делфи
• Сравнение изображений
• как обрезать изоображение в формате jpeg
• Громкость определенного момента времени
• Проигрывание видео, как сделать на весь экран?
• Как сделать плей лист для медиа плеера?