[РЕШЕНО]Как отучить эллипс заливать?

[vada]

Что-то нигде не нашел решение проблемы.
Рисую проекцию фигуры... ну.. пусть будет шар. Точнее сечения этой фигуры.
Рисуется где-то так:

Код: Выделить всё


Image3.Canvas.Brush.Color := clNone; // clWhite;
Image3.Canvas.Pen.Color := clRed;

for I:=1 to N do
begin
  R := Rect(X1[I], Y1[I], X2[I], Y2[I]);
  Image3.Canvas.Ellipse(R);
end;



Эллипсы все разного размера. Ну вот фигня какая - эллипс заливает своё нутро. И все что было нарисовано ранее...
В общем, помогите кто чем может.

Добавлено спустя 1 час 27 минут 45 секунд:
Победил!!!
Вот так получается.

Код: Выделить всё

var
  S: TBrushStyle;
  .....
begin
  .....
Image3.Canvas.Brush.Color := clNone; // clWhite;
Image3.Canvas.Pen.Color := clRed;

for I:=1 to N do
begin
  R := Rect(X1[I], Y1[I], X2[I], Y2[I]);

  S := Image3.Canvas.Brush.Style;
  Image3.Canvas.Brush.Style := bsClear;
  Image3.Canvas.Ellipse(R);
  Image3.Canvas.Brush.Style := S;
end;
  .....
end;


Может и коряво, но работает.

Всем спасибо кто задумался!

[Vadim]

Код: Выделить всё

Canvas.Brush.Style:=bsClear

Это именно то, что Вам нужно.