Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#9

Re: Durchsichtiges Fenster (nicht Alpha Blend)

  Alt 24. Mär 2009, 17:42
willst du einen Screenshot machen und diesen anzeigen in einem Form, welches wie ein Bilderrahmen aussieht, oder willst du nur dass ein Rahmen draufgemalt wird, um es bisschen aufgepepter zu speichern.

ersteres geht mit Regions, siehe Himitsu's post
letzteres kannst per Canvas des Bitmap-Objektes machen.

den screenshot selbst kann man z.b. so:

Delphi-Quellcode:
procedure TAlarmDataList.GetScreenBitmap(r:TRect;bmp:TBitmap);
var FHdc:HDC;
begin
  FHdc:=GetDC(0);
  bmp.width:=r.right-r.left;
  bmp.height:=r.Bottom-r.top;
  bmp.pixelformat:=pf24Bit;
  bitblt(bmp.canvas.handle,0,0,bmp.width,bmp.height,FHdc,r.left,r.top,srcCopy);
end;
HTH Frank
  Mit Zitat antworten Zitat