Forum: Multimedia
Delphi
by SirThornberry,
26. Dez 2005
so sollte es funktionieren:
LDC: TCanvas;
begin
LDC := TCanvas.Create;
LDC.Handle := GetDC(0);
LDC.Draw(0, 0, LImage);
ReleaseDC(0, LDC.Handle);
LDC.Handle := 0;
LDC.Free;
Forum: Multimedia
Delphi
by SirThornberry,
26. Dez 2005
Welches TPNGImage verwendest du? Also woher hast du es? Dann könnte man wenigstens selbst mal schauen was es da so für methoden gibt wenn man weiß welches du verwendest.
Forum: Multimedia
Delphi
by SirThornberry,
26. Dez 2005
ich kenne TPNGImage nicht. Prinzipiell muss es da aber ein Byte pro Pixel für den Alphakanal geben. Und das musst du beim ausgeben mit einbeziehen. Wie gibst du das TPNGImage sonst aus so das der Alphakanal beibehalten wird?
Forum: Multimedia
Delphi
by SirThornberry,
26. Dez 2005
du kannst das ganze auf ein TBitmap assignen und dann auf die DesktopDC zeischnen.
var LDC: HDC;
begin
LDC := GetDC(0);
BitBlt(LDC, XPos, YPos, DeinBitmap.Width, DeinBitmap.Height, DeinBitmap.Canvas.Handle, 0, 0, SRCCOPY);
ReleaseDC(0, LDC);
end;