Преобразования на плоскости
21

       M[7].x=35/1.5;    M[7].y=45/1.5;

       M[8].x=10/1.5;    M[8].y=65/1.5;

       M[9].x=40/1.5;    M[9].y=65/1.5;

 

 

// Первоначальный Рисунок

 Canvas->MoveTo(x0+M[0].x,y0-M[0].y);

Canvas->LineTo(x0+M[1].x,y0-M[1].y);

Canvas->LineTo(x0+M[2].x,y0-M[2].y);

Canvas->LineTo(x0+M[3].x,y0-M[3].y);

Canvas->LineTo(x0+M[4].x,y0-M[4].y);

Canvas->LineTo(x0+M[5].x,y0-M[5].y);

Canvas->LineTo(x0+M[6].x,y0-M[6].y);

Canvas->LineTo(x0+M[7].x,y0-M[7].y);

Canvas->LineTo(x0+M[8].x,y0-M[8].y);

Canvas->LineTo(x0+M[9].x,y0-M[9].y);

Canvas->LineTo(x0+M[0].x,y0-M[0].y);

 }

 

 

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

 

 

 

 

Уменьшение.jpg

 

 

//Горячие клавиши

 

void __fastcall TForm1::FormCreate(TObject *Sender)

{

   RegisterHotKey(Handle,1,0,VK_LEFT);