canvas.rectangle transparent?

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

[Medium]

Ahhhh! Der Text steht schon drin! Da war mein Denkfehler. Dann hast du eigentlich keine Chance "nur den Hintergrund" zu ändern, weil du ja überhaupt keine Infos darüber erhalten kannst, was jetzt genau Hintergrund und was Text ist. Da fallen mir fast nur Methoden wie Helligkeit und Kontrast in dem betreffenden Bereich so zu ändern, dass es die Lesbarkeit evtl. etwas verbessert. Aber sauber den "Hintergrund" zu ändern, da wäre wohl der noch einfachste Weg den Text via OCR erkennen, das Rechteck übermalen und den Text selbst wieder drauf schreiben. Aber wenn der Text schon für Menschen schlecht lesbar ist, dann wird ein OCR Algo auch seine Mühen damit haben.

Wenn der Text nicht zu dünn ist, und eine recht gut definierte Farbe hat, die im Hintergrund sonst nicht vorkommt, bliebe halt noch alles was nicht textfarbig ist anders einzufärben, via Pixels[] dann im Zweifelsfall. Und dann hoffen, dass der Text dabei nicht zu arg ausfranst. Je nach dem mit was der geschrieben wurde, und woher und in welchem Format das Bild generell kommt. (Ich denke da an Farbvariationen die durch Kompression eingeführt werden usw.)

Aber wirklich "hübsch und sauber" wird das leider nie werden.

[uligerhardt]

Vielleicht mit AlphaBlending? Etwa so:
constant-alpha.png
Hier ist ein Artikel dazu: https://parnassus.co/transparent-gra...re-gdi-part-1/
Ich hab mir "damals" das draus gebastelt:

Delphi-Quellcode:

// AlphaBlendRect: Zeichnet das Rechteck ARect alphageblendet in der Farbe AColor
// und der Intensität AIntensity (0 = durchsichtig, 255 = deckend) auf den übergebenen DC.
procedure AlphaBlendRect(DC: HDC; const ARect: TRect; AColor: TColor; AIntensity: Byte);
var
  Bitmap: TBitmap;
  BlendParams: TBlendFunction;
  rClip, rBlend: TRect;

  function GetBlendColor: TRGBQuad;

    function PreMult(b: Byte): Byte;
    begin
      Result := (b * AIntensity) div $FF;
    end;

  var
    cr: TColorRef;
  begin
    cr := ColorToRGB(AColor);
    Result.rgbBlue := PreMult(GetBValue(cr));
    Result.rgbGreen := PreMult(GetGValue(cr));
    Result.rgbRed := PreMult(GetRValue(cr));
    Result.rgbReserved := AIntensity;
  end;

begin
  GetClipBox(DC, rClip);
  //NormalizeRect(rClip); // Kannst du ignorieren
  rBlend := ARect;
  //NormalizeRect(rBlend); // Kannst du ignorieren

  if not Windows.IntersectRect(rBlend, rClip, rBlend) then
    Exit;

  Bitmap := TBitmap.Create;
  try
    Bitmap.PixelFormat := pf32bit;
    Bitmap.SetSize(1, 1);
    PRGBQuad(Bitmap.ScanLine[0])^ := GetBlendColor;

    BlendParams.BlendOp := AC_SRC_OVER;
    BlendParams.BlendFlags := 0;
    BlendParams.SourceConstantAlpha := $FF;
    BlendParams.AlphaFormat := AC_SRC_ALPHA;

    Windows.AlphaBlend(
      DC, rBlend.Left, rBlend.Top, RectWidth(rBlend), RectHeight(rBlend),
      Bitmap.Canvas.Handle, 0, 0, 1, 1,
      BlendParams);
  finally
    Bitmap.Free;
  end;
end;

[stahli]

Ich weiß nicht, ob AlphaBlend dafür tauglich ist. Das Verfahren kann ja auch nicht zwischen Vorder- und Hintergrund unterscheiden.

Evtl. bringt Dich die Helligkeit weiter.
http://www.delphipraxis.net/88775-fa...eraendern.html
Ggf. könntest Du Pixel, die x Helligkeitswerte unter oder über der Texthelligkeit liegen, durch eine neue Hintergrundfarbe ersetzen.

[uligerhardt]

Zitat von stahli:

Ich weiß nicht, ob AlphaBlend dafür tauglich ist. Das Verfahren kann ja auch nicht zwischen Vorder- und Hintergrund unterscheiden.

Muss es ja auch nicht. Dem OP geht's darum, den Bereich um den Text hervorzuheben. Das ginge damit IMHO sehr gut.

[Neutral General]

Zitat von uligerhardt:

Zitat von stahli:

Ich weiß nicht, ob AlphaBlend dafür tauglich ist. Das Verfahren kann ja auch nicht zwischen Vorder- und Hintergrund unterscheiden.

Muss es ja auch nicht. Dem OP geht's darum, den Bereich um den Text hervorzuheben. Das ginge damit IMHO sehr gut.

Und wie soll das gehen? Wenn du über den ganzen Bereich transparent drüber zeichnest ist auch der Text betroffen und verfärbt sich.

[uligerhardt]

Zitat von Neutral General:

Ich weiß nicht, ob AlphaBlend dafür tauglich ist. Das Verfahren kann ja auch nicht zwischen Vorder- und Hintergrund unterscheiden.

Kommt wahrscheinlich auf die Farbgebung der Vorlage an. Im Explorer geht's ja z.B. Ich würde es einfach mal ausprobieren.
@stahli, kannst du mal ein Beispiel zeigen?

[Blup]

Hallo,

Ich glaube hier besteht noch Informationsbedarf, was den ein Canvas eigentlich ist.
Der Canvas repräsentiert ein reines Ausgabegerät, das mit Zeichenbefehlen gesteuert wird.
Das heißt das nachträgliche Lesen von dem was ausgegeben wurde, ist eigentlich nicht vorgesehen.
Ein Beispiel wäre ein Plotter, der jeden Zeichenbefehl sofort in Stiftbewegungen umsetzt.

Die Grafikkarte hat natürlich eigenen Speicher, in dem das Ergebnis der Zeichenbefehle vor der Ausgabe zwischengespeichert wird.
Aber dieser Speicher muss nicht direkt vom Hauptprozessor erreichbar sein. Die Zeichenbefehle können auch von Prozessoren auf der Grafikkarte ausgeführt werden.
Selbst wenn die Grafikkarte die Möglichkeit hat, Teile ihres Speichers in der Adressraum des Hauptprozessors einzublenden,
so sind das Adressbereiche auf die nur der Grafikkartentreiber zugreifen kann.

Um trotzdem die Möglichkeit zu haben auf den Grafikspeichers zuzugreifen, wurden geräteabhängige Bitmap geschaffen.
Mit der BitBlt-Funktion können Teile des Grafikspeichers in diese Bitmaps und von dort wieder zurück kopiert werden.

Allerdings liegen die Daten dort in einem Format vor, daß der Grafiktreiber bestimmt.
Für Zeichenbefehle auf diese Bitmaps kann ein gerätekompatiblen Speichercancvas erzeugt werden.

Um die Daten direkt im Speicher bearbeiten zu können, muss diese erst in ein geräteunabhängiges Standardformat überführt werden.
Für diese Formate ist genau definiert wie die Daten im Speicher abgelegt sind.

Im Format pf24Bit werden für jedes Pixel 3 Byte abgelegt, jedes Byte steht für einen Farbanteil in der Reihenfolge Blau, Grün, Rot.

Delphi-Quellcode:

type
  TBGR =
    B: Byte;
    G: Byte;
    R: Byte;
  end;

Im Gegensatz dazu können in TColor RGB-Werte gespeichert werden, das heißt Blau und Rot sind in der Reihenfolge getauscht.

Um auf das Problem zurück zu kommmen, mir scheint die beste Lösung zu sein:
- Bitmap der entsprechenden Größe erzeugen
- den Bildauschnitt kopieren
- Bitmap verändern
- Bitmap wieder auf den ursprüngliche Canvas zeichnen

Wie ich sehe ist das auch deine Lösung.