Скриншот в TShape

[Praud]

Есть TShape Style:=bsClear;
Есть кнопки с помощью которого передвигается этот квадрат, также можно передвигать его мышкой. Как реализовать скриншот содержимого этого TShape, например навожу его на что-то, потом *клац* и скрин отправляется в переменную типа TBitmap

[Человек_Борща]

С помощью BitBlt делаете скриншот.

[Praud]

bmp:=tbitmap.Create;
    bmp.transparent:=true;
    bmp.transparentcolor:=clwhite;
    bmp.Width:=Shape1.Width-15;
    bmp.Height:=Shape1.Height-30;
    BitBlt(bmp.Canvas.Handle,0,0,Shape1.Width,Shape1.Height,getdc(form1.handle),0,0,SRCCOPY);
    Form1.image5.Picture.Assign(bmp);

Есть вот такой код. Изначально он был для Form1, вместо Shape1, так вот может можно как-то преобразить его для данного ТЗ?

Преобразовал

bmp:=tbitmap.Create;
    bmp.transparent:=true;
    bmp.transparentcolor:=clwhite;
    bmp.Width:=Shape1.Width;
    bmp.Height:=Shape1.Height;
    BitBlt(bmp.Canvas.Handle,0,0,Shape1.Width,Shape1.Height,getdc(form2.handle),0,0,SRCCOPY);
    Form1.image5.Picture.Assign(bmp);

А вот теперь проблема которая меня долго преследует. Как сделать прозрачную форму? Нужны оптимальные решения. Поставил Color:=clGreen и Transperent Color:=clGreen. Визуально - это то что нужно, а на деле фоткает зеленые участки

Ищу готовые какие-то решения. Для моего тз, как вы понимаете форма должна быть "сквозной". Ну или может нужно использовать совершенно какой-то другой метод.
Повторюсь, нужно TShape навести на участок экрана и его заскринить.

[ZuBy]

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

Ищу готовые какие-то решения. Для моего тз, как вы понимаете форма должна быть "сквозной". Ну или может нужно использовать совершенно какой-то другой метод.
Повторюсь, нужно TShape навести на участок экрана и его заскринить.

AlphaBlend, не?

[Praud]

Нет, уже вроде разобрался.

Shape1.Pen.Style:=psClear;
   ScreenDC := GetDC(0);
  Canvas := TCanvas.Create;
  Canvas.Handle := ScreenDC;
  Image1.Canvas.CopyRect(Image1.Canvas.ClipRect, Canvas,
                         Rect(ClientToScreen(Shape1.BoundsRect.TopLeft),
                              ClientToScreen(Shape1.BoundsRect.BottomRight)));
  ReleaseDC(0, ScreenDC);
  Canvas.Free;
    Shape1.Pen.Style:=psSolid;

Вот код скриншота. Теперь другая проблема. в TShape стоит Pen.Style:=psSolid.
Так как я делаю скрин содержимого TShape перед скрином мне надо убирать Pen.Style - делать Pen.Style:=psClear; После скриншота возвращать его. Собственно как и написанно в коде выше. Проблема лишь в том что ничего не работает)) Рамка не исчезает. Как будто он эту строчку кода не видит

[Praud]

Проблема в том, что сначала делается скриншот, а потом меняется Pen.Style на psClear, Хотя в программе описано иначе, почему?

[Stilet]

почему?

Наверно потому что перерисоваться не успевает.
После смены стиля вызови ему repaint принудительно.

[Praud]

Shape1.Pen.Style:=psClear;
   ScreenDC := GetDC(0);
  Canvas := TCanvas.Create;
  Canvas.Handle := ScreenDC;
  Image1.Canvas.CopyRect(Image1.Canvas.ClipRect, Canvas,
                         Rect(ClientToScreen(Shape1.BoundsRect.TopLeft),
                              ClientToScreen(Shape1.BoundsRect.BottomRight)));
  ReleaseDC(0, ScreenDC);
  Canvas.Free;

ScreenDC := GetDC(0);
  Canvas := TCanvas.Create;
  Canvas.Handle := ScreenDC;
  Image1.Canvas.CopyRect(Image1.Canvas.ClipRect, Canvas,
                         Rect(ClientToScreen(Shape1.BoundsRect.TopLeft),
                              ClientToScreen(Shape1.BoundsRect.BottomRight)));
  ReleaseDC(0, ScreenDC);
  Canvas.Free;


    Shape1.Pen.Style:=psSolid;

Два раза рисовать? Я что-то не понял.

[Praud]

Самое интересное, если делаю вот так вот

Shape1.Pen.Style:=psClear;
   ScreenDC := GetDC(0);
  Canvas := TCanvas.Create;
  Canvas.Handle := ScreenDC;
  Image1.Canvas.CopyRect(Image1.Canvas.ClipRect, Canvas,
                         Rect(ClientToScreen(Shape1.BoundsRect.TopLeft),
                              ClientToScreen(Shape1.BoundsRect.BottomRight)));
  ReleaseDC(0, ScreenDC);
  Canvas.Free;
  //  Shape1.Pen.Style:=psSolid; ЗАКОМЕНЧЕННО

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