Анімація в Delphi 7

ShowHint:True

У властивостях форми виставлено:

Caption:Animate

Constraints.MaxHeigth:380

Constraints.MaxWidth:536

Constraints.MinHeigth:380

Constraints.MinWidth:536

Останні чотири властивості забезпечують неможливість зміни розмірів форми.

Для того, щоб при запуску програми форма з’являлася в центрі екрану в її властивості Position виставлено значення poDesktopCenter.

Довідкова система

В програмі є дві підказки, які вказують на те, які функції виконують дві кнопки, які знаходяться на формі.

Проектування програмного забезпечення

В програмі використовуються змінні x,y,z,k,s,n і u типу integer.

За рух зображення відповідають змінні x,y,s і n, а змінні z,k i u є допоміжними. Змінні х і у відповідають за махаючі рухи «рук» і «ніг» «чоловічка», змінна s за переміщення його вздовж, а змінна т за його „підстрибування”.Процедурами програми є процедури Timer1Timer, FormActivate, SpeedButton1Click, SpeedButton2Click і Titanic.

Основна робота виконується процедурами Timer1Timer, FormActivate та процедурою Titanic. Процедура Titanic виконує малювання зображення, використовуючи графічну підсистему Delphi, Timer1Timer забезпечує рух і зміну зображення, а в процедурі FormActivate встановлюються початкові параметри.

Процедури SpeedButton1Click і SpeedButton2Click зв’язані з двома кнопками і призначені: SpeedButton1Click – для закриття програми, а SpeedButton2Click для зупинки зображення задопомогою зміни властивості interval компонента Timer1.

Головна форма програми

Тексти модулів програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Buttons, StdCtrls;