выделение image

[varelik]

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

[Stilet]

Хм...
Я бы скорее всего поступил так:
Каждую Image кинул на Panel. При клике на Image панель подсвечивал другим цветом, таким образом получая рамку вокруг Image, и соответственно в цикле возвращал стандартный цвет остальным панелям.

procedure TForm1.Image1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to Controlcount -1 do begin
  if Controls[i] is TPanel then TPanel(Controls[i]).Color:=clWindow;
 end;
 TPanel(TImage(sender).parent).Color:=clred;
end;

Это обработчик клика по image. Он для всех един.
Для Панелей выставь BorderWidth:=3 чтоб видно было.

А для печати просто ставь цвет панелей в цвет фона.

[varelik]

Ну всеже не совсем то что хотелось. У меня все image создаются динамически и мышью по форме таскаются.
Если вы говорите про то, чтоб для каждой имадж- своя панель- это не подойдет.

[raxp]

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

[varelik]

а как нибудь без ввода дополнительных форм и компонентов можно реализовать?
если цветом нельзя, то хотябы рамку сделать?
и при наведении на например второй имадж, на первом имадже она убираться должна

[mkile]

как вариант, поработать с изображением, которое в image лежит, может сделать его черно-белым, может на нем рамку нарисовать, может еще как-нибудь исхитриться

[raxp]

варианты еще...
1- рисуйте рамку прямо в канвасе image и сохраняйте во временный буфер или битмап то, что было на месте рамки каждый раз когда кликаете, а при печати восстанавливайте
2- если-уж динамически создаете image-ы, то никто не мешает динамически и подложку в виде панели, как уже указал Stilet
3- форму тоже динамически создать нетрудно
...тощо

[varelik]

А вот поподробней про 1. ?
как понимаю через canvas.framerect и canvas.brush.color надо делать (если речь о рамке). Но пока не выходит. Просто выделить по щелчку каждую картинку например clred я могу. А вот чтоб например если одну выделил, а на остальных выделение исчезло- пока никак.
Вобщем есть у меня mousedown, mousemove,mouseup, onclick процедуры.
2 и 3 варианты мне не подойдут точно.
И самое главное- при печати эта рамка остается- это уж совсем неприемлимо.

[raxp]

var num: integer; // временный номер
     buf : tbitmap; // временный буфер
     imagemas: array of timage;

procedure TForm1.ImagemasMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer); // общий обработчик для всех imagemas
begin
 with (sender as timage) do begin

  buf.Assign(picture.Bitmap);
  canvas.brush.color:= cllime;
  canvas.FrameRect(canvas.ClipRect);

  if button <> mbLeft then move:= false
   else begin
    move:= true;
    x0:= x;
    y0:= y;
    rec:= BoundsRect
   end;

  if tag <> num then imagemas[num].Picture.Bitmap.Assign(buf);
  num:= tag
 end
end;

смысл ясен?

[SERG1980]

или вот так