Entwickler-Ecke :: Thema anzeigen - Zeichnen einer Schneeflocke

Marco D. - Fr 28.07.06 17:34
Titel: Zeichnen einer Schneeflocke

Hatte Langeweile und habe ein wenig mit Image1.Canvas rumgespielt und dabei ungewollt einen Algorithmus zum Zeichnen einer Schneeflocke geschrieben. :mrgreen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure Schneeflocke (ACanvas: TCanvas; PenWidth,X,Y: integer; AColor: TColor);
var i: integer;
begin
  with Acanvas do
  begin
    for i := 1 to PenWidth do
    begin
      Pixels[X-i,Y-i] := AColor;
      Pixels[X,Y-i] := AColor;
      Pixels[X+i,Y-i] := AColor;

      Pixels[X-i,Y] := AColor;
      Pixels[X,Y] := AColor;
      Pixels[X+i,Y] := AColor;

      Pixels[X-i,Y+i] := AColor;
      Pixels[X,Y+i] := AColor;
      Pixels[X+i,Y+i] := AColor;
     end;
     ACanvas.Pixels[X,Y] := AColor
   end;
end;

Ab PenWidth=5 sieht man es deutlich. ;)
Ok, das brauch eigentlich keiner...

Marco D. - Fr 28.07.06 23:56

Blackheart666 hat folgendes geschrieben:

Wie kann man denn die Procedur aufrufen, wenn man keine Ahnung hat ?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

private
  procedure Schneeflocke (ACanvas: TCanvas; PenWidth,X,Y: integer; AColor: TColor);

...

implementation

// eventuell anderen Prozeduren
procedure TForm1.Schneeflocke (ACanvas: TCanvas; PenWidth,X,Y: integer; AColor: TColor);
var i: integer;
begin
  with Acanvas do
  begin
    for i := 1 to PenWidth do
    begin
      Pixels[X-i,Y-i] := AColor;
      Pixels[X,Y-i] := AColor;
      Pixels[X+i,Y-i] := AColor;

      Pixels[X-i,Y] := AColor;
      Pixels[X,Y] := AColor;
      Pixels[X+i,Y] := AColor;

      Pixels[X-i,Y+i] := AColor;
      Pixels[X,Y+i] := AColor;
      Pixels[X+i,Y+i] := AColor;
     end;
     ACanvas.Pixels[X,Y] := AColor
   end;
end;

//Aufruf aus einer Methode heraus
Schneeflocke(Form1.Canvas,8,100,100,clGreen);

//am besten macht sich
Form1.Color := clNavy;
Schneeflocke(Form1.Canvas,8,100,100,clWhite);

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!