РОБОТА З ГРАФІКОЮ

1. РОБОТА З ГРАФІКОЮ Пашко Анатолій Олексійович Кафедра інформаційних систем і технологій Європейського університету zav_ist@kyiv.e-u.in.ua

2. Графіка комп'ютерна • Векторна • MoveTo(X,Y) • LineTo(X,Y) • Растрова • Pixels[x][y] • -Фрактальна • математичні перетворення

3. Загальний вигляд

4. Події Image

6. void __fastcall TSDIAppForm::Image1MouseDown (TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (Button == mbLeft) { Image1->Canvas->Pen->Color=clRed; Image1->Canvas->Ellipse(X-2,Y-2,X+2,Y+2) ; } }

7. Побудова точок

10. TColor a,b; a= clRed; b=clBlue;

11. TColor a; A=0x00 FF 00 00

14. void __fastcall TSDIAppForm::N7Click(TObject *Sender) { ColorDialog1->Execute(); a=ColorDialog1->Color; }

15. void __fastcall TSDIAppForm::Button1Click(TObject *Sender) { Image1->Canvas->Pen->Color=a; Image1->Canvas->Pen->Style=k; Image1->Canvas->MoveTo(x[0].x,x[0].y) ; Image1->Canvas->LineTo(x[1].x,x[1].y); }

16. Побудова ліній різного стилю

17. Побудова ліній різної товщини

18. Робота таймера

19. void __fastcall TSDIAppForm::Timer1Timer(TObject *Sender) { Image1->Canvas->Pen->Color=Image1->Canvas->Pen->Color+rand()%1000000000; Image1->Canvas->Ellipse(s1-10,s2-10,s1+10,s2+10) ; s1=s1+3*i1; s2=s2+6*i2; if (s1>Image1->Width-10) i1=i1*(-1); if(s2>Image1->Height-10) i2=i2*(-1); if (s1<10) i1=i1*(-1); if(s2<10) i2=i2*(-1); }

20. Відображення руху

21. void __fastcall TSDIAppForm::Timer1Timer(TObject *Sender) { Image1->Canvas->Pen->Color=clWhite; Image1->Canvas->Ellipse(s1-10,s2-10,s1+10,s2+10) ; s1=s1+3*i1; s2=s2+6*i2; if (s1>Image1->Width-10) i1=i1*(-1); if(s2>Image1->Height-10) i2=i2*(-1); if (s1<10) i1=i1*(-1); if(s2<10) i2=i2*(-1); Image1->Canvas->Pen->Color=rand()%4000000000; Image1->Canvas->Ellipse(s1-10,s2-10,s1+10,s2+10) ; }