Розробка засобами Delphi дидактичного ілюстративного матеріалу для розвязання задачі з аналітичної Логарифмічна спіраль (стр. 8 из 8)

ImageButton1: TImageButton;

procedure FormPaint(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure ImageButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

formHelp: TformHelp;

implementation

{$R *.dfm}

//Фоновый рисунок

procedure TformHelp.FormPaint(Sender: TObject);

var

x,y: integer;

pic: TGraphic;

begin

pic:=TBitmap.Create;

pic.LoadFromFile('background_h.bmp');

x:=0; y:=0;

while y < Height do

begin

while x < Width do

begin

Canvas.Draw(x,y,pic);

x:=x+pic.Width;

end;

x:=0;

y:=y+pic.Height;

end;

pic.Free;

end;

procedure TformHelp.FormShow(Sender: TObject);

begin

formHelp.Image1.Picture.LoadFromFile('Help_1.bmp');

formHelp.Image2.Picture.LoadFromFile('Help_2.bmp');

end;

procedure TformHelp.ImageButton1Click(Sender: TObject);

begin

formHelp.Close;

end;

end.

Код проекту:

program Project_LSpir;

uses

Forms,

LSpir in 'LSpir.pas' {formMain},

LSpir_zas in 'LSpir_zas.pas' {formVignette},

LSpir_math in 'LSpir_math.pas' {formMath_1},

LSpir_math_2 in 'LSpir_math_2.pas' {formMath_2},

LSpir_about in 'LSpir_about.pas' {formAbout},

LSpir_help in 'LSpir_help.pas' {formHelp};

{$R *.res}

begin

Application.Initialize;

formVignette:=TformVignette.Create(Application);

formVignette.Show;

formVignette.Update;

delay(5000);

Application.CreateForm(TformMain, formMain);

Application.CreateForm(TformMath_1, formMath_1);

Application.CreateForm(TformMath_2, formMath_2);

Application.CreateForm(TformAbout, formAbout);

Application.CreateForm(TformHelp, formHelp);

formVignette.Hide;

formVignette.Free;

Application.Run;

end.

Алгоритми процедур

Блок-схема алгоритму процедури побудови координатної площини та спіралі наній: