BitBlt und Transparenz

[EWeiss]

Ich erstelle ein Spectrogram

Delphi-Quellcode:

procedure TSpectrogram.DrawSpectrogram;
var
  i, k, m: Integer;
  MagLn: Byte;
  x: PByteArray;
  OffsetX: Integer;
  FFTData: TFFTData;
begin

  if BassDataAvailable then
    FFTData := BassChannelGetFFTData;
  begin
    OffsetX := 2;
    for i := 0 to pred(Height) do
    begin
      MagLn := round(Sqrt(FFTData[i + 1]) * 3 * Width);
      k := Height - i - 1;

      x := BuffBMP.ScanLine[k];

      if bRTLScroll then
      begin
        //copy original scanline
        Move(x[OffsetX], x[0], (Width - OffsetX));

        //draw new pixels
        for m := 0 to pred(OffsetX) do
          x[Width - OffsetX + m] := MagLn;
      end
      else
      //Left to right
      begin
        //copy original scanline
        Move(x[0], x[OffsetX], (Width - OffsetX));

        //draw new pixels
        for m := 0 to pred(OffsetX) do
          x[m] := MagLn;
      end;
    end;
  end;

  BitBlt(PaintDC, 0, 0, Width, Height, BuffBMP.Canvas.Handle, 0, 0, SRCCOPY);

  bMonitoring := True;

end;

Das Problem ist nun wenn ich BitBlt verwende und mein Window Transparent ist wird mein
Child-Window auf dem ich das Bitmap kopiere auch Transparent.

Wie kann ich die Daten ohne BitBlt direkt auf mein Child-Window kopieren?
DiBits geht auch nicht falls jemand auf die Idee kommen sollte.


gruss

[Blup]

BitBlt macht das schon richtig, besser bekommt man das auch selbst nicht hin.

Das Parent-Window darf an der Stelle, an der das Spektogramm darstellt wird, einfach nicht transparent sein.
Wie wurde den der Transparent-Effekt hergestellt?
Handelt es sich wirklich um ein Child-Window (Nachkomme von TWinControl)?

[EWeiss]

Zitat von Blup:

BitBlt macht das schon richtig, besser bekommt man das auch selbst nicht hin.
Das Parent-Window darf an der Stelle, an der das Spektogramm darstellt wird, einfach nicht transparent sein.

Ach Nein?
Oh seltsam ist nur das dass gleiche Window wenn ich ein Oscilloscope darauf zeichne nicht Transparent wird.
Es macht also schon einen Unterschied ob ich ein komplettes Bild Blite oder Pixelweise auf das Window zeichne.

Zitat:

Handelt es sich wirklich um ein Child-Window (Nachkomme von TWinControl)?

Nö..
API-Window (WS_CHILD)

Zitat:

Wie wurde den der Transparent-Effekt hergestellt?

DWMBlur..

Im Anhang kann man sehen was ich meine.

grus

[Memnarch]

Was heißt Pixelweise Zeichnen? Im Sinne von selber? Da wird sowieso standartmässig immer ein Alphawert von 255 verwendet.
BitBlt wird mit SRCCOPY benutzt, was die PerPixel-Werte überträgt. Ein Rendertarget in Windows ist IIRC standartmässig 32Bit.
Du könntest (wenn du unbedingt von Fenster zu fenster kopieren musst) auch MaskBlt mit einer komplett nicht transparenten Maske verwenden.

[EWeiss]

Zitat:

Was heißt Pixelweise Zeichnen? Im Sinne von selber?

Seht euch doch die Bilder an die sagen doch alles..
Transparent und mit

Delphi-Quellcode:

GDIP_DrawLine(Graphics, 0, n64 + 1, rc.Right, n64 + 1, 1, SKAERO_ColorARGB
  (255, RGB(255, 255, 0)));

kein Problem das Child Window bleibt undurchsichtig.

Mit Bitblt halt nicht.

Was ist da nicht zu verstehen.

gruss

[EWeiss]

Ich bin ja auch so was von bescheuert.
Rede selbst davon das ich die Pixel zeichnen will und verwende anstelle von Paint -> Copy

So funktioniert es jetzt.

Zitat:

Das Parent-Window darf an der Stelle, an der das Spektogramm darstellt wird, einfach nicht transparent sein.

Wurde also wiederlegt geht auch dann wenn das HauptFenster transparent ist.
War mir vorher schon klar, nur wie das war der Knackspunkt.

  BitBlt(PaintDC, 0, 0, Width, Height, BuffBMP.Canvas.Handle, 0, 0, SrcPaint);

Zitat:

BitBlt wird mit SRCCOPY benutzt, was die PerPixel-Werte überträgt.

NÖ es kopiert von einem Device Contex zum andern das komplette Bild.

Das trifft dann wohl eher für SRCPAINT zu.
Hier werden die PerPixel-Werte gezeichnet.

Zitat:

Ein Rendertarget in Windows ist IIRC standartmässig 32Bit.

Aber nicht mehr wenn ich es mit 8Bit austausche. (Was ich in dem Fall tue.)

gruss