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

[Marsik]

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

[Jeni]

Стирать имидж, т.е. очистить его полностью или какую-то часть?

[Карась]

Ластик мне преставляется как:
1. Окружность.
2. Цвет заливки окружности равен цвету фона.
3. А теперь всё это к курсору привяжем.

Отмена действий:
1. В обработчике нажатия кнопки мыши (до активизации ластика) сохраним куданибудь картинку.
2. Жмякаем кнопку "отменить изменения" -> загружаем сохранённый рисунок обратно.

[Marsik]

Я так и представлял.,но как привязать?Кстати отмена должна действовать тогда например когда в первый раз правильно стерли,второй раз тоже,а вот в третий немного скосили и тогда то нажимаешь отмена.В принципе можно после каждого стирания сохранять рисунок.Опять таки программно как реализовать?

[mutabor]

Сохранение рисунка делается при отпускании кнопки мыши. Отпустил кнопку - сохранилось. Можно три отмены сделать как в Пэинте, или динамический массив, будет как в Фотошопе.
Рисунки сохраняй в array of TBitmap
не забывай память очищать, а то фотошоп переплюнешь =)

По поводу привязки к курсору, помнишь я тебе давал код перетаскивания имиджа? Вот там как раз это и делается.

p.s. Вывод: либо ты ленивый и любишь чтобы все за тебя делали, либо уровня твоих знаний недостаточно чтобы понять код того что ты просишь. Если второе - начинай с чего-то попроще, и постепенно научишься.

[Marsik]

Не то и не другое...хотя...=).Вот что я хотел узнать:где читать про динамические массивы,и главное какие функции и процедуры отвечает за создание инстр.ластика?

[Карась]

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

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.

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

[mutabor]

Сообщение от Карась

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

А почему ты из отладчика ее не грохнул (Run > Program Reset)?
Что дельфи тоже зависла и ты ее тоже из диспетчера убил вместе со своей прогой? Тогда понятно почему проект нерабочим стал.
Возьми файлы со значком ~ и поубирай этот значок, перед этим удали (лучше скинь куда-то) файлы проекта с теми же именами но без этого значка, правда потеряешь последние изменения. И запусти Дельфи. Если не сработает, то придется из исходника новый проект делать.

[mutabor]

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

Не то и не другое...хотя...=).Вот что я хотел узнать:где читать про динамические массивы,и главное какие функции и процедуры отвечает за создание инстр.ластика?

Например функция Ellipse отвечает, или Rectangle 8)

Подумай сам что ты спросил. Дельфи по твоему что, конструктор для графических редакторов?
А где почитать про массивы это очень сложный вопрос, может в книге?

[Marsik]

Что в книге понятно,но вот в какой?Вездесущий гугль какие-то всегда глупости, не по запросу выдает!А насчет ластика ладно,сам разберусь!