Brush.Style & Color

[Moony]

Hallo zusammen,

habe das Problem, daß ich über ein TImage wie folgt versuche ein Rechteck auf eine Fläche zu zeichnen:

Delphi-Quellcode:

  Image.Canvas.Brush.Color := clWhite;
Image.Canvas.Brush.Style := bsFDiagonal;
Image.Canvas.FillRect(rect(0,0,ImageMag.Width,ImageMag.Height));

Leider wird der Hintergrund schwarz und die Diagonalen weiß gezeichnet. Gibt es eine Möglichkeit den umgekehrten Fall zu erzielen, also Hintergrund weiß bzw. transparent und die Diagonalen schwarz?

Ich habe es schon mit Image.Pen.Mode := pmXor; davor versucht, leider ohne Erfolg. Scheinbr hat die Funktion keine Einwirkung auf das Farbverhalten.

Ich hoffe mir kann da jemand weiterhelfen. Thanks im Vorraus.

gruß, moony

[himitsu]

pmXor hat ein Farbverhalten, nur fällt das bei Schwarz/Weiß nicht so ganz auf.

Delphi-Quellcode:

Image.Canvas.Brush.Color := clWhite;
Image.Canvas.Brush.Style := bsSolid;
Image.Canvas.FillRect(rect(0,0,ImageMag.Width,ImageMag.Height));
Image.Canvas.Brush.Color := clBlack;
Image.Canvas.Brush.Style := bsFDiagonal;
Image.Canvas.FillRect(rect(0,0,ImageMag.Width,ImageMag.Height));

Der Hintergrund wird nicht Schwarz gezeichnet, der ist standardmäßig schwarz.
Es werden nur die Diagonalen gezeichnet, für welche du ja clWhite gewählt hast.

Also vorher alles Weiß machen und dann noch die schwarzen Linien drauf

[Moony]

Hallo, habe das ganze ausprobiert, aber die Fläche wird dennoch komplett schwarz gezeichnet.

Vielleicht ein einen anderen Vorschlag?

gruß, moony

[Moony]

Weiß denn keiner eine Lösung für dieses Problem???

[Flocke]

Auszug aus der MSDN:

Zitat:

Although lbColor controls the foreground color of a hatch brush, the SetBkMode and SetBkColor functions control the background color.

Du solltest SetBkMode(Canvas.Handle, TRANSPARENT) und/oder SetBkColor(Canvas.Handle, clWhite) benutzen, um die Hintergrundfarbe deines Pinsels zu setzen.

[Moony]

Super!Danke, das hat endlich funktioniert!!!



Aber was den Wert TRANSPARENT betrifft, nimmt er ihn im Gegensatz zu OPAQUE nicht an!

gruß, moony

[turboPASCAL]

Hast Du es mal so versucht:

Code:

SetBkMode(ImageX.Canvas.Handle, [color=#ff0000]Ord([/color]TRANSPARENT[color=#ff0000])[/color]);

[Moony]

Ja danke, und es geht. Wobei ich das nicht ganz nachvollziehen kann warum der eine Wert als Integer angenommen wird und der andere nicht, obwohl beide gleichwertig von der Funktion unterstützt werden.

Wobei ich die Funktion SetBkMode() auch weglassen könnte, da diese den Hintergrund sowieso nicht transparent macht. Aber mal schauen. Nochmal vielen Dank für die Hilfe.

gruß, moony