diff options
author | Erich Eckner <git@eckner.net> | 2022-01-18 22:31:22 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2022-01-18 22:31:22 +0100 |
commit | c187e6817f07151c6a074bbe68a0787c5024f323 (patch) | |
tree | a339307a8c927be51c373a4cf8942dea78bdd26a /unit1.pas | |
parent | af9720021680bf6a0f196b25c5d0511925e34a09 (diff) | |
download | Penrose-c187e6817f07151c6a074bbe68a0787c5024f323.tar.xz |
geht erst mal - Farben sind noch Quatsch
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 21 |
1 files changed, 19 insertions, 2 deletions
@@ -5,12 +5,19 @@ unit Unit1; interface uses - Classes, SysUtils, Forms, Controls, Graphics, Dialogs; + Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Spin, + Penroseunit; type + + { TForm1 } + TForm1 = class(TForm) + Image1: TImage; + SpinEdit1: TSpinEdit; + procedure SpinEdit1Change(Sender: TObject); private - + P: tPenrose; public end; @@ -22,5 +29,15 @@ implementation {$R *.lfm} +{ TForm1 } + +procedure TForm1.SpinEdit1Change(Sender: TObject); +begin + P:=TPenrose.create(SpinEdit1.Value); + P.Zeichnen(Image1.Width,Image1.Height,Image1.Canvas); + P.Free; + form1.caption:=floattostr(cos(90)); +end; + end. |