[delphi] Kolor wypełnienia elipsy.

0

Gdy narysuję np. elipsę za pomocą klasy TCanvas na formularzu i wypełnię ją wzorem np. bsCross, to linie, które tworzą ten wzór znajdują się na przeźroczystym tle, wskutek czego kolor tła wypełnienia tożsamy jest z kolorem tła formularza. Potrzebuję jednak, aby kolor wypełnienia był zielony. Opcja ustawienia koloru tła formularza na zielony odpada, gdyż znajduje się na jego powierzchni bitmapa. Z góry dziękuje za odpowiedź.
Oto fragment kodu, który należy poprawić, zmieniając kolor wypełnienia na zielony:

Canvas.Brush.Color := clYellow;
Canvas.Brush.Style := bsCross;
//teraz przydałoby się ustawiś kolor wypełnienia
Canvas.Ellipse(30, 30, 300, 300);
0

np.

Canvas.Brush.Color:=clGreen;
Canvas.Brush.Style:=bsSolid;
Canvas.Ellipse(RECT(0,0,100,100));
Canvas.Brush.Color:=clYellow;
Canvas.Brush.Style:=bsCross;
Canvas.Ellipse(RECT(0,0,100,100));

1 użytkowników online, w tym zalogowanych: 0, gości: 1