Class TDemoForm (unit AniForm)

Inherits from

TForm

Demostration of palettes and animation in a Delphi component. Copyright © 1998 Tempest Software, Inc. This program demonstrate some simple uses for a display palette in Windows, including palette animation. Palette animation works only with video adapters that use a system palette, so if the display does not use a palette, the animation start button is disabled. Most of the interesting stuff is in the Moving.pas file, which implements the TMovingGradient component. This is the main form, which creates the TMovingGradient component.

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure StartButtonClick(Sender: TObject);


procedure StopButtonClick(Sender: TObject);


Properties

Events

Variables

Gradient : TMovingGradient;


Panel1 : TPanel;


Panel2 : TPanel;


StartButton : TButton;


StopButton : TButton;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure StartButtonClick(Sender: TObject);


procedure StopButtonClick(Sender: TObject);


Properties


Events


Variables


Gradient : TMovingGradient;


Panel1 : TPanel;


Panel2 : TPanel;


StartButton : TButton;


StopButton : TButton;