Реализация выделения

[W0LF]

Здравствуйте, помогите советами как можно реализовать такое:


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

[Пепел Феникса]

можно в эту сторону глянуть.

[W0LF]

Как-то не очень помогло.

[lux16]

Я лично ничего не понял, если можно дай посмотреть в ЕХЕ

[W0LF]

Было бы в EXE - выложил бы, рисовал в Paint.Net. Нужно на форме (Image) нарисовать прямоугольник (как выделение в Windows файлов) и вокруг прямоугольника затемнение (в Windows 7, например, оно внутри выделения, а мне нужно, что бы не выделенная часть затемнялась (синий фон на скрине)) сделать.

[lux16]

То есть когда мышкой выделяешь, то чтобы все внутри белое, а снаружи полузатенным ?!

[W0LF]

Все правильно. Отрисовка самого прямоугольника - не проблема, на том же Canvas, но вот полупрозрачное затемнение вокруг....

[lux16]

http://forum.sources.ru/index.php?showtopic=46971
Копни здесь, а вообще зачем тебе это ?

[W0LF]

Вот нашел такого плана код:

procedure Alpha;
var
  bmp: TBitMap;
  Blend: TBlendFunction;
begin
  bmp := TBitMap.Create;
  bmp.Width := 150; //!!!
  bmp.Height := 150; //!!!
  bmp.Canvas.Brush.Color := clBlue;
  bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
  Image1.Picture.Bitmap.PixelFormat := pf32bit;
  bmp.PixelFormat := pf32bit;
  Blend.BlendOp := AC_SRC_OVER;
  Blend.BlendFlags := 0;
  Blend.SourceConstantAlpha := 100;
  Blend.AlphaFormat := AC_SRC_ALPHA;
  if Windows.AlphaBlend(Image1.Picture.Bitmap.Canvas.Handle, 0, 0, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height,
                        bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, Blend) then
    Image1.Canvas.Draw(0, 0, Image1.Picture.Bitmap)
  else ShowMessage(IntToStr(GetLastError));
  bmp.Free;
end;

Он рисует полупрозрачный bmp на Image1, вопрос в следующем: почему если bmp имеет размер 150х150, он красит синим весь Image1, а не только участок 150x150 на координате 0,0 ?

[xrob]

если не пугает небольшой интим с компонентом TPNGObject,
могу подробно рассказать как реализовать то что вам нужно