Bmp+Farbe mit "or" verknüpfen - kein Copymode vorhanden

[Muetze1]

Zitat:

Zitat von Khabarakh

Mir ist auch nicht ganz klar, wofür du das temporäre Bitmap benötigst.

BitBlt() weiss nichts vom TransparentColor etc und beachtet dies nicht. Draw() hingegen von Delphi macht dies entsprechend. (Was logisch ist, da Delphi intern gehandelte Eigenschaft)

[Khabarakh]

Ob das wirklich schneller ist als das Blending direkt in die Schleife zu packen?

[Muetze1]

Zitat:

Zitat von Khabarakh

Ob das wirklich schneller ist als das Blending direkt in die Schleife zu packen?

Stimmt schon. Direkt in der Schleife die Pixeldaten berechnen, das Ergebnis mit dem TransparentColor Wert vergleichen und nur bei Ungleichheit direkt in das Ausgabebild zuweisen. Durch das lineare Durchlaufen könnte man sogar recht bequem mit den Einzel-Pointern arbeiten (PRGBQuad).

/EDIT: Naja, aber dann müsste ja noch Dest von der Farbtiefe her angepasst werden. Ich habe dies einfach mal in Quellcode gefasst und gemacht. Ob es schneller ist, kA - müsste man(n) ausprobieren...

Delphi-Quellcode:

// kopiert "Src or Color" an die Position (AX, AY) des Dest-Bitmaps
Procedure DrawOr(Const Dest: TBitmap; Const AX, AY: Integer; Const Src: TBitmap; Const Color: TColor);
Var
  lBuffer: TBitmap;
  DstP, SrcP: PRGBQuad;
  X, Y: Integer;
  lTransColor,
  lNewColor: TRGBQuad;
  lColor: TRGBTriple;
Begin
    // Ok, Src könnte ja ein DDB sein und darf vllt. nicht verändert werden. Daher bleib ich mal bei der Kopie
  lBuffer := TBitmap.Create;
  Try
    lBuffer.SetSize(Src.Width, Src.Height); // D5 und D7 kennen es nicht ...
    BitBlt(lBuffer.Canvas.Handle, 0, 0, lBuffer.Width, lBuffer.Height, Src.Canvas.Handle, 0, 0, SRCCOPY);
    lBuffer.PixelFormat := pf32Bit;
    Dest.PixelFormat := pf32Bit; // diese Veränderung noch an Dest

    With lTransColor Do
    Begin
      rgbRed      := GetRValue(ColorToRGB(Src.TransparentColor));
      rgbGreen    := GetGValue(ColorToRGB(Src.TransparentColor));
      rgbBlue     := GetBValue(ColorToRGB(Src.TransparentColor));
      rgbReserved := 0;
    End;
    With lColor Do
    Begin
      rgbtRed   := GetRValue(ColorToRGB(Color));
      rgbtGreen := GetGValue(ColorToRGB(Color));
      rgbtBlue  := GetBValue(ColorToRGB(Color));
    End;

    For Y := 0 To Pred(lBuffer.Height) Do
    Begin
       SrcP := lBuffer.ScanLine[Y];
       DstP := Dest.ScanLine[Y + AY];
       Inc(DstP, AX);

       For X := 0 To Pred(lBuffer.Width) Do
       Begin
         lNewColor.rgbRed      := SrcP^.rgbRed   Or lColor.rgbtRed;
         lNewColor.rgbGreen    := SrcP^.rgbGreen Or lColor.rgbtGreen;
         lNewColor.rgbBlue     := SrcP^.rgbBlue  Or lColor.rgbtBlue;
         lNewColor.rgbReserved := 0;

         If Not ( Src.Transparent And CompareMem(@lNewColor, @lTransColor, SizeOf(TRGBQuad)) ) Then
         Begin
           //lNewColor.rgbReserved := SrcP^.rgbReserved; // ??? Alpha Wert Original belassen? 
           DstP^ := lNewColor;
         End; 

         Inc(SrcP);
         Inc(DstP);
       End;
    End;
  Finally
    lBuffer.Free;
  End;
End;

Nur geschrieben - nicht getestet!

[Hawkeye219]

Hi!

Zitat:

Zitat von Cöster

Es gibt ja jede Menge verschiedene CopyModes (SRCCOPY, ...), aber ich habe keinen gefunden, der das Source-Bitmap mittels "or" mit einer Farbe (z.B. Brush.Color des Dest-Images) verknüpft.

cmSrcPaint sollte helfen, wenn man die Ziel-Bitmap geeignet vorbereitet:

Delphi-Quellcode:

procedure DrawOr (const Dest: TBitmap; AX, AY: Integer; const Src: TBitmap; Color: TColor);
begin
  with Dest.Canvas do
    begin
      Brush.Style := bsSolid;
      Brush.Color := Color;
      FillRect (Rect(AX, AY, AX + Src.Width, AY + Src.Height));
      CopyMode := cmSrcPaint;
      Draw (AX, AY, Src);
      CopyMode := cmSrcCopy;
    end;  
end;

Gruß Hawkeye

[Cöster]

@ Hawkeye: So ließe sich allerdings keine Transparenz realisieren.

[Muetze1]

Zitat:

Zitat von Cöster

@ Hawkeye: So ließe sich allerdings keine Transparenz realisieren.

Darum ging es ihm auch nicht. Du hattest keinen COPYMODE mit OR gefunden, den hat er dir genannt (also bei dir die Schleife). Das was du nach der Schleife machst, also Transparenz setzen und mit Draw übertragen, dass ist dann doch weiterhin möglich. Hawkeye hat hier nicht behauptet deine komplette Routine damit zu erschlagen sondern nur den von dir vermissten CopyMode mit OR.

[Cöster]

Dass es keine Copy-Modes mit Or gibt, hab ich nicht behauptet (MergePaint, NotSrcErase, PatPaint, SrcPaint). Ich meinte nur, dass es keinen CopyMode gibt, der ein Bmp mit or mit einer Farbe kombiniert (wie das andere CopyModes mit der Brush.Color tun, allerdings mit anderen Operatoren bzw. verknüpft direkt danach nochmal mit dem Dest-Bmp).

Ich denke für "Color or Transparent-Bitmap" guck ich mir deinen Beispielcode nochmal an (ließe sich allerdings auch noch optimieren, z.B. wird immer wieder auf Transparent geprüft. Außerdem könnte es eine Zugriffsverletzung geben, wenn das Src-Bmp nicht vollständig ins Dest-Bmp passt).

[Muetze1]

Zitat:

Zitat von Cöster

Dass es keine Copy-Modes mit Or gibt, hab ich nicht behauptet (MergePaint, NotSrcErase, PatPaint, SrcPaint). Ich meinte nur, dass es keinen CopyMode gibt, der ein Bmp mit or mit einer Farbe kombiniert (wie das andere CopyModes mit der Brush.Color tun, allerdings mit anderen Operatoren bzw. verknüpft direkt danach nochmal mit dem Dest-Bmp).

Was dir Hawkeye nun geliefert hat.

Zitat:

Zitat von Cöster

Ich denke für "Color or Transparent-Bitmap" guck ich mir deinen Beispielcode nochmal an (ließe sich allerdings auch noch optimieren, z.B. wird immer wieder auf Transparent geprüft. Außerdem könnte es eine Zugriffsverletzung geben, wenn das Src-Bmp nicht vollständig ins Dest-Bmp passt).

Zugriffsverletzung: glaube ich nicht. Die Bitmap Daten liegen im Anwendungsbereich und würden entweder die vorhergehenden Scanlines überschreiben bzw. anderen belegten Speicher, aber zu einer AV müsste man schon Glück haben - aber eine Überprüfung sollte sonst vorher geschehen.

Die Überprüfung auf Transparent sollte nicht viel ausmachen - ob da eine lokale Variable noch was rausholt ist fraglich. Grundlegend ging es nur darum die Ideen zusammen zu fassen und nicht fertigen Code zu präsentieren - wie geschrieben: ungetestet!