Pixel Schneefall :D

[hedie]

Hallo

Ich bin zufälligerweise über ein Programm gestossen, welches es auf dem Bildschirm schneien Lässt
(habe es im anhang)

Ich wollte fragen, wie sowas gemacht wird, und wie man es auch selbst nach coden kann?

Für die antworten danke ich bereits mal


grüsschen
Claudio

[Matze]

Hi,

ich sehe von dem Programm nur eine Access Violation. Falls du direkt auf dem Bildschirm etwas zeichnen möchtest, geht dies beispielsweise so (GetDC Canvas Desktop).

[hedie]

Also bei mir klappts herrvoragend

Habe mal einen Screenshot davon gemacht

(schneien tuts wirklich pixelgenau )

Man beachte die zugeschneiten Icons

[Matze]

Ah, lustige Idee. Darfst du die Anwendung rechtlich gesehen eigentlich anhängen?

Du benötigst auf jedenfall die Position der Desktop-Icons. Schaue dir hier Michaels Beitrag an.

[hedie]

Wegen dem Rechten, Ich gehe mal sehr stark davon aus, das die Personen, die dieses Programm geschrieben haben, nicht wollen, dass irgendjemand weiss wer sie sind.


Ok und wie kriege ich den Pixel schnee hin?

[Matze]

Zitat von hedie:

Wegen dem Rechten, Ich gehe mal sehr stark davon aus, das die Personen, die dieses Programm geschrieben haben, nicht wollen, dass irgendjemand weiss wer sie sind.

Ich verstehe nicht, was du meinst. Wenn das Programm nicht weitergegeben bzw. auf einem anderen Server (hier DP) zum Download angeboten werden darf, bzw du das nicht weißt, bitte ich dich, den ersten Anhang unverzüglich zu entfernen.

Zitat von hedie:

Ok und wie kriege ich den Pixel schnee hin?

Ich weiß nicht genau, wie das "live" ausschaut, aber ich vermute, du wirst das manuell auf das Canvas zeichnen müssen (siehe 2. Beitrag hier).

Edit: Da der Schnee, der an den Icons hängt, über die Fenster gezeichnet wird, müsste es so gehen.

[hedie]

Danke

Zurzeit ist es zu spät um was auzuprobieren aber ich werd es versuchen danke.

p.s. Habe das Attachment gelöscht. Es wird aber auch sonst zum freien Download angeboten

[toshiba]

hey jungs und mädels....

ich hab da so ein problem.

ich muss linien... also canvas.moveto();canvas.lineto() nach unten laufen lassen!
wie mache ich das am besten?????

Delphi-Quellcode:

     var x,x0,y0:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        x:=random(8)+3;
        x0:=random(1500)+20;
        y0:=random(1500)+20;

  canvas.Pen.color:=clwhite;
  canvas.moveto(x+x0,y0-x);
  canvas.LineTo(x0-x,y0+x);
  canvas.moveto(x0-x,y0-x);
  canvas.LineTo(x0+x,y0+x);
  canvas.moveto(x0,y0-x);
  canvas.LineTo(x0,y0+x);
  canvas.moveto(x0-x,y0);
  canvas.LineTo(x0+x,y0);
  
end;

bis jetzt bewegt isch noch gar nichtss... wer kann mir helfen???

[Sunlight7]

Hallo und willkommen in der DP!

Du mußt die Position/Größe jeder Schneeflocke speichern, zB in einem Array und die Y Position dann bei jedem Zyklus nach unten verschieben.

Vllt wirst Du hier fündig: Schneeflocke

Edit: Den hier finde ich besonders gelungen

[toshiba]

kannst du mir das mal erklären mit dem array