Выделение картинки

[SergGhost]

Товарищи помогите! В программе есть несколько картинок, при клике на картинку она должна обводиться в рамку например красного цвета. При повторном нажатии рамочка должна исчезать.
Пожалуйста помогите!!!

[mutabor]

1. Обработка событий мыши, в частности нажатие кнопки.
2. Рисование прямоугольника на канве.
3. Массив с флагами (boolean, обведена / не обведена картинка)

Что именно не ясно?

[SergGhost]

На сколько я понимаю надо обработать событие
TForm1.Image2Click(Sender: TObject) Так?
т.е. при нажатии на кнопку происходит выделение картинки. Вот с этим кодом у меня и проблема. Можно ли привести пример?

[Serge_Bliznykov]

SergGhost, тёзка, перечитайте ЕЩЁ раз пост #2
внимательно!
и ответьте (прежде всего себе самому) - что именно из перечисленного у Вас не получается?

p.s. вот, например, нарисовать залитый прямоугольник на месте Image можно, например, так:

procedure TForm1.Image1Click(Sender: TObject);
var
  d : TImage;
begin
  d := TImage(Sender);
  Canvas.Brush.Style := bsClear;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(d.Left-2, d.Top-2, d.Left+d.Width+2, d.Top+d.Height+2);
  d.Repaint;
end;

хотя, конечно, лучше рисовать линиями!!!
этот пример просто для демонстрации сделан!

[SERG1980]

implementation

{$R *.dfm}
var flag:boolean;
procedure TForm1.Image1Click(Sender: TObject);
begin
 if flag then
 begin
  image1.Canvas.Brush.Color:=clwhite;
  image1.Canvas.FrameRect(image1.Canvas.ClipRect);
  flag:=false;
 end
 else
 begin
  image1.Canvas.Brush.Color:=clred;
  image1.Canvas.FrameRect(image1.Canvas.ClipRect);
  flag:=true;
 end;
end;

[SergGhost]

Спасибо всем кто откликнулся, особенно SERG1980 это то, что надо!
Извиняюсь за непонятность, постараюсь что бы такого больше небыло!

Но у меня всплыл еще один вопрос. В программе есть еще одна картинка, на ней изображены культурные памятники. Мне надо памятники "спрятать",
что бы памятник, до определенных действий пользователя, небыла видно. Например до клика мыши.
Подскажите какой объект лутше использовать?

[SERG1980]

т.е чтобы на картинке фон остался а памятники исчезли или просто не было видно картинку?

[SergGhost]

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

т.е чтобы на картинке фон остался а памятники исчезли или просто не было видно картинку?

чтобы фон остался а памятники исчезли. Это что - то типа теста на соотнесение.

[Kostia]

Ответ прост: Photoshop

[SERG1980]

программно тяжело это будет сделать (если только компонент спицательный не найдёте). Если только схитрить, т.е убрать памятник в каком нибудь редакторе и сохранить этот рисунок, а в программе подгружать взависимости от условия тот или иной рисунок.