canvas kullandım fakat bir sorun var

[cortex]

Merhabalar kod aşağıda ki gibi

procedure TForm1.DSVideoWindowEx21MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if(basili) then
Begin
if(RadioButton1.Checked) then
DSVideoWindowEx21.Canvas.Ellipse(x1,y1,X,Y);
if(RadioButton2.Checked) then
DSVideoWindowEx21.Canvas.LineTo(X,Y);
if(RadioButton3.Checked) then
DSVideoWindowEx21.Canvas.Rectangle(x1,y1,X,Y);
if(RadioButton4.Checked) then
DSVideoWindowEx21.Canvas.RoundRect(x1,y1,X,Y,25,25);
End;

-----------

procedure TForm1.DSVideoWindowEx21MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(Button=mbleft) then
Begin
DSVideoWindowEx21.Canvas.MoveTo(X,Y);
x1:=x;
y1:=y;
basili:=true;
End
end;

-------------

procedure TForm1.DSVideoWindowEx21MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
basili:=false;
end;

Radio buton ile çizdiriyorum fakat, renkleri beyaz çıkıyor ben içlerinin boş olmasını istiyorum yani elips ve kare ve oval kare yaptırıyorum fakat içleri hep beyaz video üzerine yaptığım için çizimi beyaz olması olmuyor. Brush color falan denedim ama beceremedim, bir de radio buton yerine normal buton nasıl kullanabilirim? Radio buton örneğini bir kaynaktan almıştım.. Butona basıp sonra çizmek nasıl bilemiyorum

Yardımcı olursanız sevinirim hoşçakalın...

[Query]

Kod: Tümünü seç

canvas.Brush.Style := bsClear; // içini boş çizer
canvas.Brush.Style := bsSolid; // içini dolu çizer

kolay gelsin

[cortex]

DSVideoWindowEx21.canvas.Brush.Style := bsClear; olarak girdim fakat görüntü içi boş olmuyor yani içi çizgi çizgi oluyor ve normalde free çizim aracıda daire çizmeye başlıyor ?

Nedir acaba sorun?

[muskut]

canvas.Pen.Style := psClear;

özelliğinide bir kullanarak dene.

Hem brush için hemde pen için özelliklerini doğru belirle.