canvas.rectangle transparent?

[Blup]

Da die Pixel des Textes an den Ecken und Schrägen z.T. halbtransparent gezeichnet sind, scheint dort der Hintergrund durch.
Das erschwert die Sache etwas. Ist der Text schwarz gezeichnet, kann man diesen Umstand nutzen.

In diesem Beispiel wird nur die Helligkeit des Ausgangsbildes übernommen.
Die graue Bereiche werden eingefärbt.
Weiße oder schwarze Flächen bleiben unverändert.

Delphi-Quellcode:

// Pixelformat   pf24Bit
// NewHue        0..100
// NewSaturation 0..100

var
  NewHue, NewSaturation, Hue, Luminance, Saturation: Word;
  p: ^TBGR;
  c: TColor;
  x, y: Integer;
begin

{...}
    for y := 0 to Height - 1 do
    begin
      p := ScanLine[y];
      for x := 0 to Width - 1 do
      begin
        c := RGB(p^.R, p^.G, p^.B);
        ColorRGBToHLS(c, Hue, Luminance, Saturation);
        c := ColorHLSToRGB(NewHue, Luminance, NewSaturation);
        p^.B := GetBValue(c);
        p^.G := GetGValue(c);
        p^.R := GetRValue(c);
        Inc(p);
      end;
    end;
{...}

Alternativ könnte man z.B. die Helligkeit anheben (z.B. Luminance := Round(Luminance * 0.2) ).

[Mattze]

Vielen Dank für die Antwort.

Ich glaube, ich muss betonen, dass ich mit Delphi 7 pro arbeite.

Also: Was ist TBGR und woher kriege ich ein Scanline ohne bitmap?
(TBGR gibt's in meiner Hilfe nicht und Scanline kennt er nur als Methode einer Bitmap.)

Das Problem dürfte sein, wie ich da eine neue Farbe reinkriege.

Gruß
Mattze

[Aviator]

Zitat von Mattze:

(TBGR gibt's in meiner Hilfe nicht und Scanline kennt er nur als Methode einer Bitmap.)

Ohne das ich das jetzt kenne, aber schonmal mit TRGB probiert? Farben werden normalerweise mit RGB angegeben. Kann natürlich sein, dass ich mich jetzt im Bezug auf diese Funktion vertue.

[Mattze]

Das ist mir natürlich auch aufgefallen und selbstverständlich habe ich das auch probiert.
Ich hab's nur nicht explizit geschrieben, weil es ein BGR wohl manchmal auch gibt.

Es sei denn, dort, wo ich es gelesen habe, hat man sich verschrieben.

Wobei das Scanline-Problem so oder so bleibt!

Interessant ist, dass zu diesem Problem kaum jemand etwas sagen kann (oder will).
Schade!

Gruß
Mattze

[Medium]

Ich habe mich anfangs zurück gehalten, weil ich glaubte das Problem nicht richtig verstanden zu haben. Aber okay: Für mich hört sich das so an, als willst du doch bloß einfach ein Rechteck auf deinen Canvas malen oder? Also einfach Canvas.Pen und .Brush auf das gewünschte einstellen, und mit Canvas.Rectangle() den Bereich übermalen. Wo da jetzt genau Transparenz mit rein spielt ist mir nicht wirklich klar. Bzw. bin ich nicht sicher wirklich das Problem erkannt zu haben, weil die genannte Lösung hört sich für mich zu einfach an, als dass du da nicht drauf gekommen wärst

[Mattze]

Richtig, ganz so einfach ist es eben nicht.

Ganz allgemein, vielleicht verständlicher, auf eine ganzen Canvas bezogen:
Auf dem Canvas steht ein Text (oder sonsteirgendwas), den ich nicht kenne und auch nicht habe.
Ich kenne nur die Koordinaten eines Rechtecks, in dem das irgendwie drin steht.
(Rechtsbündig, linksbündig, mittig...)
Ich weiß jedoch, das der Text extrem wichtig ist.
Also möchte ich das Rechteck, in dem der Text steht, farblich hervorheben -sprich:
die "Hintergrundfarbe" in diesem Rechteck ändern.
"Hintergrundfarbe" deshalb, weil der Text natürlich lesbar bleiben soll.
Z. Bsp. steht da auf weißem Grund "Alarm!". (Den genauen Text kenne ich aber nicht, nur das es etwas mit "Alarm!" zu tun hat.)
Ich hätte da aber gerne dann eine hellroten Hintergrund.
Dann steht da "Alarm!" auf hellrotem Hintergrund.

Es geht also nicht ums ÜBERmalen!

Alles klaro?

Gruß
Mattze

[Neutral General]

Prinzipiell kannst du mit Canvas.Rectangle und BrushStyle = bsClear ein Rechteck um den Text ziehen und dann per FloodFill den Hintergrund des Rechtecks einfärben ohne den im Rechteck enthaltenen Text zu übermalen. ABER wie Blup in seinem Post schon gesagt hat wird es aufgrund der halbtransparenten Pixel (bzw. Grauabstufungen am Rand der Buchstaben) wahrscheinlich etwas pixelig aussehen.

Mit Blups Code wirst du evtl ein besseres Ergebnis erzielen. Sein Algorithmus geht theoretisch auch mit Canvas.Pixels statt mit ScanLine, aber das ist sehr langsam.
Du könntest dir alternativ ein temporäres Bitmap in der Größe des Bereichs erstellen und mit Canvas.CopyRect oder BitBlt den Ursprungsbereich in ein Bitmap kopieren, dann mit Blups Algorithmus deine Änderung vornehmen und das Ergebnis in das Ursprungscanvas zurückkopieren.