Klasa W06A
Informatyka
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Klasa W06A Strona Główna
->
Ważne informacje...
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Jakaś kategoria
----------------
Ważne informacje...
Hyde Park
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>dsfds</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:16, 06 Kwi 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">//--------------------------------------------------------------------------- <br /> <br />#include <vcl.h> <br />#pragma hdrstop <br /> <br />#include "Unit1.h" <br />//--------------------------------------------------------------------------- <br />#pragma package(smart_init) <br />#pragma resource "*.dfm" <br />TForm1 *Form1; <br />//--------------------------------------------------------------------------- <br />__fastcall TForm1::TForm1(TComponent* Owner) <br /> : TForm(Owner) <br />{ <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::mysz(TObject *Sender, TMouseButton Button, <br /> TShiftState Shift, int X, int Y) <br />{ <br />Label1->Caption=X; <br />Label2->Caption=Y; <br />int rozmiar; <br />rozmiar=ScrollBar1->Position; <br />Canvas->Ellipse(X-rozmiar,Y-rozmiar,X+rozmiar,Y+rozmiar); <br /> <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::bbb(TObject *Sender, TMouseButton Button, <br /> TShiftState Shift, int X, int Y) <br />{ <br />Label1->Caption=X; <br />Label2->Caption=Y; <br />if ((X<27)&&(Y<33)) Canvas->Brush->Color=clWhite; <br />if ((X<55)&&(X>31)&&(Y<33)) Canvas->Brush->Color=clYellow; <br />if ((X>59)&&(Y<33)) Canvas->Brush->Color=clRed; <br />if ((X<27)&&(Y<67)&&(Y>37)) Canvas->Brush->Color=clLime; <br />if ((X<55)&&(X>31)&&(Y<67)&&(Y>37)) Canvas->Brush->Color=clInactiveCaption; <br />if ((X>59)&&(Y<67)&&(Y>37)) Canvas->Brush->Color=clBlue; <br />if ((X<27)&&(Y>71)) Canvas->Brush->Color=clPurple; <br />if ((X<55)&&(X>31)&&(Y>71)) Canvas->Brush->Color=clMaroon; <br />if ((X>59)&&(Y>71)) Canvas->Brush->Color=clBlack; <br />} <br />//---------------------------------------------------------------------------</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>dioboł11</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:58, 06 Kwi 2008<span class="gen"> </span> Temat postu: program</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Program który po wybraniu koloru rusuje koła o róznej wielkości i kolorze <br />#include <vcl.h> <br />#pragma hdrstop <br /> <br />#include "Unit1.h" <br />//--------------------------------------------------------------------------- <br />#pragma package(smart_init) <br />#pragma link "CGRID" <br />#pragma resource "*.dfm" <br />TForm1 *Form1; <br />//--------------------------------------------------------------------------- <br />__fastcall TForm1::TForm1(TComponent* Owner) <br /> : TForm(Owner) <br />{ <br />} <br />//--------------------------------------------------------------------------- <br /> <br /> <br />void __fastcall TForm1::kolor(TObject *Sender, TMouseButton Button, <br /> TShiftState Shift, int X, int Y) <br />{ <br /> if ((X<101)&&(Y<124)) Canvas->Brush->Color=clRed; <br /> if ((X>100)&&(Y<124)) Canvas->Brush->Color=clGreen; <br /> <br />} <br />//--------------------------------------------------------------------------- <br />void __fastcall TForm1::myszka(TObject *Sender, TMouseButton Button, <br /> TShiftState Shift, int X, int Y) <br />{ <br />int rozmiar; <br />rozmiar=ScrollBar1->Position; <br />Canvas->Ellipse(X-rozmiar,Y-rozmiar,X+rozmiar,Y+rozmiar); <br />} <br />//-----------------------------------------------------------------------</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Goś2</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:03, 06 Kwi 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Rysowanie koł ( zmiana kolorow ) <br /> <br /> <br />//--------------------------------------------------------------------------- <br /> <br />#include <vcl.h> <br />#pragma hdrstop <br /> <br />#include "Mysz.h" <br />//--------------------------------------------------------------------------- <br />#pragma package(smart_init) <br />#pragma resource "*.dfm" <br />TForm1 *Form1; <br />//--------------------------------------------------------------------------- <br />__fastcall TForm1::TForm1(TComponent* Owner) <br /> : TForm(Owner) <br />{ <br />} <br />//--------------------------------------------------------------------------- <br />void __fastcall TForm1::Mysz(TObject *Sender, TShiftState Shift, int X, <br /> int Y) <br />{ <br />Label1->Caption=X; <br />Label2->Caption=Y; <br /> <br />Canvas->Brush->Color=clWhite; <br />Canvas->Ellipse (X+10,Y+10,X+40,Y+40); <br />} <br />//--------------------------------------------------------------------------- <br /> <br /> <br />void __fastcall TForm1::RadioButton1Click(TObject *Sender) <br />{ <br />Canvas->Pen->Color=clRed; <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::RadioButton2Click(TObject *Sender) <br />{ <br /> Canvas->Pen->Color=clYellow; <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::RadioButton3Click(TObject *Sender) <br />{ <br />Canvas->Pen->Color=clBlue; <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::FormCreate(TObject *Sender) <br />{ <br /> <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::Label1Click(TObject *Sender) <br />{ <br /> <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::Label2Click(TObject *Sender) <br />{ <br /> <br />} <br />//---------------------------------------------------------------------------</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Gość1</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 10:33, 06 Kwi 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">objects inspector w Events zmieniamy OnMouseMove .... mysz <br /> <br /> <br />Label1->Caption=X; <br />Label2->Caption=Y; <br /> <br />Canvas->Brush->Color=random(500000)-250000; <br />Canvas->Ellipse (X+10,Y+10,X+40,Y+40);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:56, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Rysowanie koł w czasie ruchu myszka: <br /> <br />int x,y; <br />poz=mouse1->CursorPos; <br />Label1->Caption=poz.x; <br />Label2->Caption=poz.x; <br />x=poz.x; <br />y=poz.y; <br />Canvas->Pen->Color=clRed; <br />Canvas->Brush->Color=random(500000)-250000; <br />Canvas->Ellipse (x+10,y+10,x+20,y+20);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:43, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">{ <br />poz=mouse1->CursorPos; <br />Label1->Caption=poz.x; <br />Label2->Caption=poz.y; <br />}</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Tesla</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 12:52, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Generator figur <br /> <br /> <br />{ <br />int x,y,z,w,a,b; <br /> x=StrToInt(Edit1->Text); <br /> y=StrToInt(Edit2->Text); <br /> z=StrToInt(Edit3->Text); <br /> w=StrToInt(Edit4->Text); <br /> a=StrToInt(Edit5->Text); <br /> b=StrToInt(Edit6->Text); <br /> <br /> <br />if (RadioButton1->Checked) <br /> Canvas->Ellipse (x,y,z,w); <br /> <br />if (RadioButton2->Checked) <br /> Canvas->Rectangle (x,y,z,w); <br /> <br />if (RadioButton3->Checked) <br />{ <br /> Canvas->MoveTo (x,y); <br /> Canvas->LineTo (z,y); <br /> Canvas->LineTo (z,w); <br /> Canvas->LineTo (x,y); <br />} <br /> <br />if (RadioButton4->Checked) <br />{ <br /> Canvas->MoveTo (x,y); <br /> Canvas->LineTo (z,y); <br /> Canvas->LineTo (a,w); <br /> Canvas->LineTo (b,w); <br /> Canvas->LineTo (x,y); <br />} <br /> <br /> <br />if (RadioButton5->Checked) <br /> { <br /> Canvas->Brush->Color=clRed; <br /> Canvas->Pen->Width=5; <br /> Canvas->Pen->Color=clRed; <br /> } <br />if (RadioButton6->Checked) <br /> { <br /> Canvas->Brush->Color=clBlue; <br /> Canvas->Pen->Width=5; <br /> Canvas->Pen->Color=clBlue; <br /> } <br />if (RadioButton7->Checked) <br /> { <br /> Canvas->Brush->Color=clGreen; <br /> Canvas->Pen->Width=5; <br /> Canvas->Pen->Color=clGreen; <br /> } <br />if (RadioButton8->Checked) <br /> { <br /> Canvas->Brush->Color=clBlack; <br /> Canvas->Pen->Width=5; <br /> Canvas->Pen->Color=clBlack; <br /> } <br />if (RadioButton9->Checked) <br /> { <br /> Canvas->Brush->Color=clWhite; <br /> Canvas->Pen->Width=5; <br /> Canvas->Pen->Color=clWhite; <br /> } <br />if (RadioButton10->Checked) <br /> { <br /> Canvas->Brush->Color=clLime; <br /> Canvas->Pen->Width=5; <br /> Canvas->Pen->Color=clLime; <br /> } <br />}</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:05, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">To co wyżej tylko z KWADRATEM <br /> <br /> <br /> <br /> <br />//--------------------------------------------------------------------------- <br />__fastcall TForm1::TForm1(TComponent* Owner) <br /> : TForm(Owner) <br />{ <br />} <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::Button1Click(TObject *Sender) <br />{ <br />int x,y; <br />x=0; <br />y=0; <br />while(x<700) <br />{ <br />y=0; <br /> while(y<1000) <br /> { <br /> Canvas->Pen->Color=clRed; <br /> Canvas->MoveTo (x,0); <br /> Canvas->LineTo (x,900); <br /> Canvas->MoveTo (0,y); <br /> Canvas->LineTo (700,y); <br /> Canvas->Pen->Color=random(500000)-250000; <br /> Canvas->Brush->Color=random(500000)-250000; <br /> Canvas->Rectangle (x,90+y,x+90,0+y); <br /> y+=40; <br /> } <br /> x+=50; <br /> } <br />}</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>tesla</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:04, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">int x,y; <br />for(x=0;x<700;x+=90) <br />for(y=0;y<1000;y+=40) <br />{ <br />Canvas->Pen->Color=clRed; <br />Canvas->MoveTo (x,0); <br />Canvas->LineTo (x,900); <br />Canvas->MoveTo (0,y); <br />Canvas->LineTo (700,y); <br />Canvas->Pen->Color=random(500000)-250000; <br />Canvas->Brush->Color=random(500000)-250000; <br />Canvas->Rectangle (x,90+y,x+90,0+y);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 10:50, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Komenda WHILE <br /> <br /> <br /> <br />//--------------------------------------------------------------------------- <br /> <br />void __fastcall TForm1::Button1Click(TObject *Sender) <br />{ <br />int x,y; <br />x=0; <br />y=0; <br />while(x<700) <br />{ <br />y=0; <br /> while(y<1000) <br /> { <br /> Canvas->Pen->Color=clRed; <br /> Canvas->MoveTo (x,0); <br /> Canvas->LineTo (x,900); <br /> Canvas->MoveTo (0,x); <br /> Canvas->LineTo (700,x); <br /> Canvas->Pen->Color=random(500000)-250000; <br /> Canvas->Brush->Color=random(500000)-250000; <br /> Canvas->Ellipse (x,90+y,x+90,0+y); <br /> y+=90; <br /> } <br /> x+=90; <br /> } <br />} <br />//---------------------------------------------------------------------------</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 10:19, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">L++ -> L=l+1 <br />L-- -> lL=l-1 <br />L+=3 -> L=l+3 <br /> <br /> <br />pętla: <br /> <br />licznik=0; <br />while(licznik<10) <br />{ <br />licznik++; <br />. <br />. <br />. <br />} <br /> <br /> <br />pętla 2: <br /> <br />licznik=0; <br />while(licznik++<10) <br />{ <br />. <br />. <br />. <br />}</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>tesla</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 9:49, 16 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">int x,y; <br />for(x=0;x<700;x+=90) <br />for(y=0;y<1000;y+=90) <br />{ <br />Canvas->Pen->Color=clRed; <br />Canvas->MoveTo (x,0); <br />Canvas->LineTo (x,900); <br />Canvas->MoveTo (0,x); <br />Canvas->LineTo (700,x); <br />Canvas->Pen->Color=random(500000)-250000; <br />Canvas->Brush->Color=random(500000)-250000; <br />Canvas->Ellipse (x,90+y,x+90,0+y);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 14:17, 02 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">kratka z kolami i kolorami <br /> <br /> <br /> <br />int x,y; <br />for(x=0;x<700;x+=45) <br />{ <br />Canvas->Pen->Color=clRed; <br />Canvas->MoveTo (x,0); <br />Canvas->LineTo (x,450); <br />Canvas->MoveTo (0,x); <br />Canvas->LineTo (700,x); <br />Canvas->Pen->Color=random(500000)-250000; <br />Canvas->Brush->Color=random(500000)-250000; <br />Canvas->Ellipse (x,0,x+45,45); <br /> <br />}</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:55, 02 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">domek <br /> <br />{ <br />Canvas->Pen->Color=clRed; <br />Canvas->MoveTo (200,200); <br />Canvas->LineTo (200,400); <br />Canvas->LineTo (400,400); <br />Canvas->LineTo (400,200); <br />Canvas->LineTo (200,200); <br />Canvas->LineTo (100,200); <br />Canvas->LineTo (300,50); <br />Canvas->LineTo (500,200); <br />Canvas->LineTo (400,200); <br /> <br />Canvas->Pen->Color=clGreen; <br />Canvas->MoveTo (250,250); <br />Canvas->LineTo (250,280); <br />Canvas->LineTo (280,280); <br />Canvas->LineTo (280,250); <br />Canvas->LineTo (250,250); <br /> <br />Canvas->Pen->Color=clGreen; <br />Canvas->MoveTo (320,250); <br />Canvas->LineTo (320,280); <br />Canvas->LineTo (350,280); <br />Canvas->LineTo (350,250); <br />Canvas->LineTo (320,250); <br /> <br />Canvas->Pen->Color=clYellow; <br />Canvas->Brush->Color=clYellow; <br />Canvas->Ellipse (0,0,100,100); <br /> <br />Canvas->Brush->Color=clBlack; <br />Canvas->Ellipse (30,20,40,30); <br /> <br />Canvas->Brush->Color=clBlack; <br />Canvas->Ellipse (60,20,70,30); <br /> <br />Canvas->Pen->Color=clYellow; <br />Canvas->Pen->Width=5; <br />Canvas->MoveTo (0,0); <br />Canvas->LineTo (100,100); <br /> <br />Canvas->Pen->Color=clYellow; <br />Canvas->Pen->Width=5; <br />Canvas->MoveTo (50,0); <br />Canvas->LineTo (50,120); <br /> <br />Canvas->Pen->Color=clYellow; <br />Canvas->Pen->Width=5; <br />Canvas->MoveTo (100,0); <br />Canvas->LineTo (0,100); <br /> <br />Canvas->Pen->Color=clYellow; <br />Canvas->Pen->Width=5; <br />Canvas->MoveTo (0,50); <br />Canvas->LineTo (130,50);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Gość</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:50, 02 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Koła olimpijskie: <br /> <br /> <br />Canvas->Pen->Color=clBlue ; <br />Canvas->Brush->Style=bsClear; <br />Canvas->Pen->Width=5; <br />Canvas->Ellipse(465,60,525,120); <br />Canvas->Pen->Color=clBlack ; <br />Canvas->Brush->Style=bsClear; <br />Canvas->Pen->Width=5; <br />Canvas->Ellipse(530,60,590,120); <br />Canvas->Pen->Color=clRed ; <br />Canvas->Brush->Style=bsClear; <br />Canvas->Pen->Width=5; <br />Canvas->Ellipse(595,60,655,120); <br />Canvas->Pen->Color=clYellow ; <br />Canvas->Brush->Style=bsClear; <br />Canvas->Pen->Width=5; <br />Canvas->Ellipse(498,90,558,150); <br />Canvas->Pen->Color=clGreen ; <br />Canvas->Pen->Width=5; <br />Canvas->Brush->Style=bsClear; <br />Canvas->Ellipse(562,90,622,150);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj