informatyka, styczna

Nasza ocena:

5
Wyświetleń: 994
Komentarze: 0
Notatek.pl

Pobierz ten dokument za darmo

Podgląd dokumentu
informatyka, styczna - strona 1

Fragment notatki:


void __fastcall TForm1::Button1Click(TObject *Sender)
{ Form1-Close();}
Image1{TCanvas *pCanvas=Image1-Canvas;
pCanvas-Brush-Color=clWhite;
pCanvas-Brush-Style=psSolid;
pCanvas-FillRect(Rect(0,0,Image1-Width,Image1-Height));}
OnMouseDown
{ TCanvas *pCanvas=Image1-Canvas;
rysowanie=1;
pCanvas-MoveTo(X,Y);
lewyg_x=X;
lewyg_y=Y;}
OnMouseMove
{TCanvas *pCanvas=Image1-Canvas;
if (rysowanie==1)
{ a=pCanvas-Pen-Color;
pCanvas-Pen-Color=clWhite;
pCanvas-Pen-Style=psSolid;
pCanvas-Brush-Style=bsSolid;
pCanvas-Brush-Color=clWhite;
pCanvas-Ellipse(lewyg_x, lewyg_y, prawyg_x, prawyg_y);
pCanvas-Pen-Color=a;
pCanvas-Pen-Style=psDot;
pCanvas-Brush-Style=bsSolid;
pCanvas-Brush-Color=clWhite;
pCanvas-Ellipse(lewyg_x, lewyg_y, X,Y);
prawyg_x=X;
prawyg_y=Y; } }
OnMouseUp
{ TCanvas *pCanvas=Image1-Canvas;
rysowanie=0;
pCanvas-Pen-Style=psSolid;
pCanvas-Ellipse(lewyg_x,lewyg_y,X,Y);
a=pCanvas-Pen-Color;
pCanvas-Pen-Color=clWhite;
pCanvas-Pen-Style=psSolid;
pCanvas-MoveTo(prawyg_x,prawyg_y-prawyg_y/2-100);
pCanvas-LineTo(prawyg_x,prawyg_y-prawyg_y/200);
pCanvas-Pen-Style=psSolid;
pCanvas-Pen-Color=clBlack;
pCanvas-MoveTo(prawyg_x, prawyg_y-prawyg_y/2-100);
pCanvas-LineTo(prawyg_x,prawyg_y-prawyg_y/2+200);
prawyg_x=X;
prawyg_y=Y; }
... zobacz całą notatkę

Komentarze użytkowników (0)

Zaloguj się, aby dodać komentarz