[link]


He writes his own songs and plays the guitar.
There is simply no more to say.
Just listen to it.

----

If interested in downloads message me


SIMON FREUE DICH:

---------------

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm3 = class(TForm)
procedure FormClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}
CONST
breite=80;
hoehe=50;


procedure TForm3.FormClick(Sender: TObject);
begin
with canvas do
begin
brush.Color:= clBtnFace;
Rectangle(0,0,ClientWidth,ClientHeight);
brush.Color:= clLime;
MoveTo(0, 0);
//Rectangle(0,0,breite,hoehe);
repeat
repeat
if Brush.Color = clLime
then
Brush.Color := clYellow
else
Brush.Color := clLime;

rectangle(PenPos.X, PenPos.Y, PenPos.X + breite, PenPos.Y + hoehe);
MoveTo(PenPos.X + breite, PenPos.Y)
until (PenPos.X+breite>clientwidth);

if PenPos.Y - PenPos.Y div (hoehe * 2) * (hoehe * 2) > 0
then
MoveTo (0, PenPos.Y + hoehe)
else
MoveTo (breite div 2, PenPos.Y + hoehe);


until PenPos.Y + hoehe > clientHeight ;



end;
end;

end.