Лабы / С++Builder / Laba5 / task3 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
SuperShape *shp;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Delete(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if (SpeedButton1->Down) delete Sender;
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
shp=new SuperShape(Form1);
shp->Left=random(Form1->Width-shp->Width-30);
shp->Top=random(Form1->Height-shp->Height-30);
shp->Brush->Color=random(16777216);
shp->Shape=random(6);

shp->OnMouseUp=Delete;
shp->Parent=Form1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Shape1ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
ShowMessage("");        
}
//---------------------------------------------------------------------------