Прозрачность Bitmap

[Mick_14]

помогите плиззз!!!!!
Рисуется в image rectangle;
Поверх него нужно нарисовать окружность, но так чтобы она на НЕ затирала его!!!! как сделать???

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}

Graphics::TBitmap*  gBm = new Graphics::TBitmap;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Canvas->Rectangle(250,250,200,200);
 gBm->Width=Image1->ClientWidth;
 gBm->Height=Image1->ClientWidth;
 gBm->Canvas->Brush->Style=bsClear;
 Image1->Canvas->Pen->Width=1;
 Image1->Canvas->Brush->Style=bsClear;
}

bool pict;
POINT t1,t2;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  t1.x=X;
  t1.y=Y;
  t2.x=X;
  t2.y=Y;
  pict=true;
}

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 pict=false;
 gBm->Canvas->Ellipse(t1.x,t1.y,t2.x,t2.y);
}


void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(pict==true)
{
 Image1->Canvas->Draw(0,0,gBm);
 Image1->Canvas->Pen->Color=clWhite;
 Image1->Canvas->Ellipse(t1.x,t1.y,t2.x,t2.y);
 t2.x=X;
 t2.y=Y;
 Image1->Canvas->Pen->Color=clGreen;
 Image1->Canvas->Ellipse(t1.x,t1.y,t2.x,t2.y);
 }
 }

Безымянный.jpg

[DomiNick]

М... Это билдер?

Поверх него нужно нарисовать окружность

Тогда рисовать его каждый раз перед рисованием окружности... Либо на битмапе его нарисовать...

[Гром]

Попробуйте перед выводом окружности написать

Image1 -> Canvas -> Brush -> Style = bsClear;

[Mick_14]

Да уже в Bimap все нарисовал))) а как отчистить канву после рисования, и оставить только одно из нарисованных изображений???

Heeeeellllppp!!!!
Как сделать так чтобы при нажатии кнопки, на Image оставалось только одно изображение, а все те которые были нарисованы в Bitmap и отображены в image стерлись???????7