çizim yaparken...

[cortex]

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

-----------

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;
end;

-----------

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

Şimdi sorun şu ; video başladığında çizim yapıyorum ve hep beyaz oluyor ben ise içlerinin boş olmasını istiyorum nedir problem????

Yardımcı olursanız sevinirim

[derya]

viewtopic.php?t=3897&highlight=brush

sorup cevabına almıştın.

[cortex]

Soruyu sorduğumu unutmuşum kusurabakmayın lakin verilen cevapları zaten denedim ve olmadı..