Inherits from
TForm
procedure Draw(var f : realarray);
procedure FormCreate(Sender: TObject);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
function index(x: integer): integer;
r := (sqr(fr[i]) + sqr(fi[i]));} {if i mod modus = 0 then
procedure ScrollBar1Change(Sender: TObject);
Image1 : TImage;
Label1 : TLabel;
ScrollBar1 : TScrollBar;
mx : integer;
my : integer;
offset : integer;
ti : realarray;
tr : realarray;
xslut : integer;
xstart : integer;
Private declarations
procedure Draw(var f : realarray);
procedure FormCreate(Sender: TObject);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
function index(x: integer): integer;
r := (sqr(fr[i]) + sqr(fi[i]));} {if i mod modus = 0 then
procedure ScrollBar1Change(Sender: TObject);
Image1 : TImage;
Label1 : TLabel;
ScrollBar1 : TScrollBar;
mx : integer;
my : integer;
offset : integer;
ti : realarray;
tr : realarray;
xslut : integer;
xstart : integer;
Private declarations