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

[Cöster]

Hi!

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.

Deswegen hab ich mir dafür selber nen Code geschrieben:

Delphi-Quellcode:

// kopiert "Src or Color" an die Position (AX, AY) des Dest-Bitmaps 
procedure DrawOr(const Dest: TBitmap; AX, AY: Integer; const Src: TBitmap; Color: TColor);
type
   TPixArray = array[0..2] of Byte;
var
   Buffer: TBitmap;
   SrcP: ^TPixArray;
   X, Y: Integer;
begin
   Buffer := TBitmap.Create;
   try
      Buffer.SetSize(Src.Width, Src.Height);
      BitBlt(Buffer.Canvas.Handle, 0, 0, Buffer.Width, Buffer.Height,
         Src.Canvas.Handle, 0, 0, SRCCOPY);
      Buffer.PixelFormat := pf24Bit;
      for Y := 0 to Buffer.Height - 1 do
      begin
         SrcP := Buffer.ScanLine[Y];
         for X := 0 to Buffer.Width - 1 do
         begin
            SrcP^[3 * X] := SrcP^[3 * X] or ((Color shr 16) and $FF);
            SrcP^[3 * X + 1] := SrcP^[3 * X + 1] or ((Color shr 8)  and $FF);
            SrcP^[3 * X + 2] := SrcP^[3 * X + 2] or  (Color         and $FF);
         end;
      end;
      Buffer.Transparent := Src.Transparent;
      Buffer.TransparentColor := Src.TransparentColor;
      Dest.Canvas.Draw(AX, AY, Buffer);
   finally
      Buffer.Free;
   end;
end;

Lässt sich dieser Code optimieren? Hab ich ihn umsonst geschrieben, weil es schon irgendwo eine (bessere) Alternative gibt?

[edit]Wertparameter der Objektreferenzen in Konstantenparameter umgewandelt[/edit]

[Flare]

Habe es nicht getestet und auch sonst nix weiter zu sagen, nur ist in deinem Header ein Fehler drin, es sollte

Delphi-Quellcode:

procedure DrawOr(var Dest: TBitmap; AX, AY: Integer; Src: TBitmap; Color: TColor);

heißen, da du sonst Dest ja nicht wieder zurückgeben kannst.


Flare

[Muetze1]

Zitat:

Zitat von Flare

Habe es nicht getestet und auch sonst nix weiter zu sagen, nur ist in deinem Header ein Fehler drin, es sollte

Delphi-Quellcode:

procedure DrawOr(var Dest: TBitmap; AX, AY: Integer; Src: TBitmap; Color: TColor);

heißen, da du sonst Dest ja nicht wieder zurückgeben kannst.

Nein, damit gibst du ihm nur die Möglichkeit die Instanz zu verändern - also er könnte nun hier die übergebene Instanz freigeben und eine neue erzeugen, aber zurückgeben kann er die Daten trotzdem, da es ein Instanzenzeiger ist.

Er könnte sogar Const nehmen und der Code würde immernoch funktionieren. Mit Const würde er nur dafür sorgen, dass die Methode die Instanz nicht verändern darf, ihre Eigenschafte und Werte aber schon.

[Cöster]

Zitat:

Zitat von Muetze1

Er könnte sogar Const nehmen

Sollte ich auch? :stupid: D.h. bringt das optimierungstechnisch was? In der Hilfe steht ja, dass das bei Strings und strukturierten Typen den Code optimiert. Strukturierte Typen sind so definiert:

Zitat:

Zu den strukturierten Typen gehören Mengen-, Array-, Record- und Datei-, Klassen-, Klassenreferenz- und Interface-Typen.

Was genau versteht man unter Klassenreferenztypen? Ist eine Instanz ein Klassenreferenztyp? Denn dann würde sich ein const ja lohnen.

[cruiser]

Dest ist eine Referenz auf ein TBitmap, oder ;)

[Cöster]

Zitat:

Zitat von cruiser

Dest ist eine Referenz auf ein TBitmap, oder ;)

Hm, TBitmap ist eine Klasse, aber ein TBitmap ist ein Objekt einer Klasse, also nicht eine Klasse :gruebel: oder doch?

[cruiser]

So oder so aber, dass es wirklich spürbar performanter wird kann ich mir nich vorstellen :)

ausser du machst das ... uhm ... sehr oft und schnell hintereinander

[Khabarakh]

Zitat:

Zitat von Cöster

Zitat:

Zitat von cruiser

Dest ist eine Referenz auf ein TBitmap, oder ;)

Hm, TBitmap ist eine Klasse, aber ein TBitmap ist ein Objekt einer Klasse, also nicht eine Klasse :gruebel: oder doch?

Objektreferenz und Klassenreferenz kannst du als synonym betrachten ;) .

[Cöster]

Zitat:

Zitat von Khabarakh

Objektreferenz und Klassenreferenz kannst du als synonym betrachten ;) .

Ah gut, also const, ich editier es mal im ersten Beitrag. Gibt es sonst noch Optimierungsmöglichkeiten?

[Khabarakh]

Soweit ich weiß, sollte ein 32-Bit-Bild schneller zu bearbeiten sein, vor Allem kannst du dann das gesamte Pixel auf einmal mit der Farbe verrechnen und musst nicht jeden Kanal einzeln behandeln. Mir ist auch nicht ganz klar, wofür du das temporäre Bitmap benötigst.