Muchi

[Toster]

Osoby ktore nie bywaja na ircu traca wiele ciekawych rzeczy, np konkurs w 30 min po tytulem zrobic cos takiego jak na zalaczonym rysunku:
[code=Delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils,X[XX[^7G&2FGPDf&Ó6Ć72Df&D&EŃ (QQQ(
ŃĄMTObject);
procedure PaintBox1Paint(Sender: TObject);
YH[YU[Y[X
NYHZ[W6TfR6VćFW#D&ŚV7C6gCE6gE7FFS%Ń(AŃ
ąŹĄMQ=(rivate
{ Private declarations }
public
{ Public de][B^N[Y[X[6Ć70gg&Vdd&V((1integer;
fDist: real;
constructor CreateYH]JN[YNGW&RG&r67B3D6f2&6VGW&R6ĆĄQ
()(Q(ŃTList;
tmp: integer;
implementation

{$R *.dfm}

procYHLKPX]J[X
N[Y&VvFV&ĆT'VffW&VBŁG'VSFV2ŁDĆ7B7&VFSŃźź(ŃĄQ5A
Ń);

{ TMassPoint }

constructor TMassPoint.Create;
begin
fH[JLKY
NHH[JLKZY
N[&6VGW&RD75BG&r67B3D6f2f CŃ)(IĄ(IĄ( sh.Color := clWhite;
c.MoveTo(x,y);
for t := 0 to fL[Y[[YH[HBŁ#RBŁ#RBŁ#R2ĆćUF&VćBfGBŁB&VćB()()Q5AMąĄonst c: TCanvas);
var
x,y,t,tt: integer;
begin
x := Ro[

NHH[
JNH[

NY FVBŁbBfwCS\"FVBŁS#BŁS(A
ąIĄąą(A]Ń;
c.MoveTo(Round(flx),Round(fly));
c.LineTo(x, y);
endYHX[]JN[YNY[fŁgfŁggŁgf
gŁgf(MMŹMĄ(< 20 then fDist := Random(20)+1;
fax := fax + ((x - f
K
K^HH^H


HHJK
K^HfŁffŁf\"6FVQII(źźŹĄQII));
fax := fax + 0.2*Random;
fay := fay + 0.2*Random;
[H[

H
H
H
JJJNbdĆVFVdĆVŁbdĆVfwCFVdĆVŁ(Ąą1(Ąą1(c(tmp);
end;

procedure TForm1.PaintBox1Paint(Sender: TObjec
N[YY[Z[K[Ł6&Ć6łD&6f2fĆ&V7Bf&ÓD&6ĆŃI(źŃ(QŃĄ(for t := 0 to 300 do
TMassPoint(items[t]).SimpleDraĘZ[K[ĘN[[HY[HFD75BFV5EG&rD&6f2)()QQQĄMQ=)r
t: integer;
begin
for t := 0 to 300 do
TMassPo[
][JK]J^JNZ[KY[&6VGW&RDf&ÓD&W6TfR6VćFW#D&ŚV7C6gCQMĄŃMŃŃ`(d%Ń)((;
end;

procedure TForm1.PaintBox1Click(Sender: TObject);
be[YLKYHH[LKYH[HLKYŚVćCŚVćB [/code]
na formie potrzebny timer z intervalem 10 oraz PaintBox

[Iskar]

Efekt jest super
Toster źle opisałeś temat, powinno być "jak wygrać dwa browce w 30min"

[Toster]

bez znaczenia

[krajew4]

Hmmm, mi cos nie wychodzi, wstawiam timer z intervalem 10, paintbox, wklejam kod, odpalam i nic sie nie dzieje

[Toster]

a przypisales metody do komponentow ? anyway troche stuffu mozesz zaciagnac z http://toster.ps.pl/temp
ale bedzie tam tylko jakis czas

[KKKas]

Niezłe, niezłe ;-)

A co do irca... to nie ma czego żałować... kiedyś sporo siedziałem, straciłem kupę czasu (że aż do teraz muszę nadrabiać ;-D).

[Iskar]

[quote] A co do irca... to nie ma czego żałować... kiedyś sporo siedziałem, straciłem kupę czasu (że aż do teraz muszę nadrabiać ;-D). [/quote]

Heretyku :> przecież bez przerwy chyba nie programujesz, można i na ircu pogadać, a na pewno na #unit1

[krajew4]

OO teraz dziala, niezle to

[KKKas]

[quote] Heretyku :> przecież bez przerwy chyba nie programujesz, można i na ircu pogadać, a na pewno na #unit1 [/quote]
Dobra. Odkopię mirka, dodam do autostartu... zobaczymy co z tego wyjdzie. Jak mi zeżre za dużo czasu, to usunę z powrotem ;-)

[5corpio]

Ja bywam często a z czymś takim się nie spotkałem ;D

[TSr]

Ładnie można wyrzucić ten "rój" gdzieś daleko siłą odśrodkową

Lazarus nie wiedzieć czemu nie ma funkcji Rgb() więc musiałem sobie ją na szybko dopisać. Jak by ktoś jeszce potrzebował:

[delphi][/delphi]