Opaciy Problem in Firemonkey

[ht47]

Hallo,

ich experimentiere derzeitig ein wenig mit Delphi XE7 und Firemonkey. Ich habe aber ein Problem mit Drawline und der Opacity Einstellung.

Ich benutze eine Form mit einem Button und einer Paintbox. Im OnClick des Buttons nutze ich folgenden Code:

begin
PaintBox1.Canvas.BeginScene;
PaintBox1.Canvas.DrawLine(PointF(10,10),PointF(110 ,10),1);
PaintBox1.Canvas.DrawLine(PointF(110,10),PointF(11 0,110),1);
PaintBox1.Canvas.DrawLine(PointF(110,110),PointF(1 0,110),1);
PaintBox1.Canvas.DrawLine(PointF(10,110),PointF(10 ,10),1);
PaintBox1.EndScene;
end;

Das Zeichnen funktioniert eigentlich problemlos. Nur werden die Linie nicht in vollem schwarz gezeichnet, sondern höchstens in 50 % Deckung. Woran kann das liegen ?

Grüße

Holger