Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

void __fastcall TForm1::drawing(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{ if(start==5) {x0=X;y0=Y;Canvas->Pixels[X][Y]=kraska;

Zaliv();

}

if((Button==mbLeft)&&(start!=5))

{

Canvas->Pen->Color = bcolor; // выбрать цвет контура

// Brush->Color = clYellow; // выбрать цвет заливки if(metka==1) Canvas->LineTo(X,Y); metka=1;

// нарисовать эллипс xtmp=X; ytmp=Y;

Canvas->MoveTo(X,Y); if(start==0) {x0=X,y0=Y;start=1;}

// randomize();

//Canvas->Brush->Color = (Graphics::TColor) $(00FF0000);

}

if (Button==mbRight)

{

Canvas->Pen->Color = bcolor;

Canvas->LineTo(x0,y0); metka=0; start=0;

}

}

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

------

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

------ void __fastcall TForm1::movexy(TObject *Sender, TShiftState Shift, int

X, int Y)

Рекомендуем скачать другие рефераты по теме: реферат по социологии, отцы и дети сочинение.





Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата