Прозрачный компонент Panel с границей

[Toxa]

а зачем брать картинку из шейпа, он будет пуст. надо получить координаты шейпа, и относительно их рассчитать координаты нужной области на имедже

[Lorden]

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

а зачем брать картинку из шейпа, он будет пуст. надо получить координаты шейпа, и относительно их рассчитать координаты нужной области на имедже

Можете посоветовать код который поможет решит данную задачу? Либо что нужно почитать?

[zvygin1964]

http://programmersforum.ru/showthread.php?t=275375

[Lorden]

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

http://programmersforum.ru/showthread.php?t=275375

Спасибо что дали ссылку, но на данный момент компонент Shape для меня наиболее оптимальный вариант, единственное что не получается это сделать скриншот по координатам Shape, если кто решал данную задачу наведите пожалуйста на путь истинный=)

Нашел код с помощью которого можно сделать скриншот своей программы, но как сделать скриншот области программы в районе компонента Shape?

var
rcSrc:Trect;
hSrcWnd:HWND;
hDC1:HDC;
hSrcDC:HDC;
hBmp:HBITMAP ;
Bmp:TBitmap;
begin
  bmp:=TBitmap.Create;

  hSrcWnd := FindWindow(nil, PChAR('MyProg'));
  GetWindowRect(hSrcWnd, rcSrc);
  if (rcSrc.Right - rcSrc.Left < 170) and (rcSrc.Bottom - rcSrc.Top < 40) then
    begin
      ShowWindow(hSrcWnd, SW_SHOWNORMAL);
      sleep(100);
      GetWindowRect(hSrcWnd, rcSrc);
    end;

   hDC1:= GetDC(hSrcWnd);
   hSrcDC:=CreateCompatibleDC(hDC1);
   hBmp := CreateCompatibleBitmap(hDC1, 150, 150);

   SelectObject(hSrcDC, hBmp);
   PrintWindow(hSrcWnd, hSrcDC, 0);
   BitBlt(
     hDC1,
     150,
     150,
     150,
     150,
     hSrcDC,
     120,
     120,
     SRCCOPY);

   bmp.Handle:=hbmp;
   bmp.SaveToFile('c:\000\daaaaa.bmp');

  DeleteObject(hBmp);
  DeleteDC(hSrcDC);
  ReleaseDC(hSrcWnd, hDC1);
  bmp.Free;

  if FileExists('c:\000\daaaaa.bmp') then // проверяем существует ли файл
    Image1.Picture.LoadFromFile('c:\000\daaaaa.bmp');

[Lorden]

Подскажите в данном коде возможно задать координаты компонента где нужно сделать снимок формы?

var
  DeskTop: TCanvas;
begin
  DeskTop := TCanvas.Create;
  try
    with DeskTop do
      Handle := GetWindowDC(FindWindow(nil, 'Form1'));
    with PaintBox1.Canvas do
      CopyRect(Rect(0, 0, 200, 200),
        DeskTop,
        Rect(0, 0, 200, 200))
  finally
    DeskTop.Free;
  end;

[min@y™]

а чо этот код делать-то должен?

[Lorden]

Сообщение от min@y™

а чо этот код делать-то должен?

У меня на форме есть Компонент Image1 в него загружается изображение, на компонент Image1 помещен прозрачный компонент Shape1 с красной границей. При нажатии на кнопку "Скриншот" мне нужно сделать скриншот области картинки (Image1) по координатам Shape1 и вывести его в Image2.
Буду очень благодарен если пнете меня в правильном направлении, ато уже 2 день с места сдвинуться не могу...

[min@y™]

пнете меня в правильном направлении

Canvas.CopyRect();

[zvygin1964]

http://docs.embarcadero.com/products..._CopyRect.html

Pascal
procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect);