Hallo,

ich weiß, das Thema gibt es oft, aber irgendwie finde ich nichts passendes und mit einer transparenten Bitmap scheint es mir sehr, "mit Kanonen auf Spatzen schießen" zu sein.

Mein Problem:
Auf einem Canvas wurde ein Text ausgegeben. Ich kenne diesen Text nicht.
Ich weiß lediglich das Rechteck, in dem er steht. (Allerdings weiß ich auch nicht, wie er da drin steht.)
Dieses Rechteck würde ich gerne mit einer anderen Farbe füllen, so, dass der Text lesbar bleibt.
Sozusagen würde ich also den Text gerne mit einem eingefärbten Hintergrund hervorheben.

Wie kann man das am besten schnell und effizient machen?

Gruß
Mattze

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.

zusammenfalten · markieren

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) ).

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

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.

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

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