Class TAbout_Form (unit Form_About)

Inherits from

TForm

Mine

Constructors



Functions

procedure BntStabilizeClick(Sender: TObject);

Buttons

procedure control_change(Sender: TObject);

Scrollbar events

procedure cred_paramsClick(Sender:TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Create an RGB cube object and initialize

procedure FormHide(Sender: TObject);


procedure FormPaint(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure OK_btnClick(Sender: TObject);

///////////////////////////////////////////////////////////////////////////// Button response routines // /////////////////////////////////////////////////////////////////////////////

procedure Pause_btnClick(Sender: TObject);


procedure RGB_paramsClick(Sender: TObject);


procedure save_pal_btnClick(Sender: TObject);


procedure swap_btnClick(Sender: TObject);


procedure Setup(dir:string; cols:integer);


procedure Timer_callback(Sender: TObject);


procedure update_pause;


function GetPalette : hPalette;

Private declarations

Properties

Events

Variables

about_speed : TPanel;


BntStabilize : TButton;


credits : TPanel;


credits_panel : TPanel;


cycle_speed : TScrollBar;


DIBpanel : TPanel;


eccentricity : TScrollBar;


fps : TScrollBar;


Gamma : TScrollBar;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label15 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


morph_sc : TScrollBar;


OK_btn : TButton;


palette_info : TPanel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel9 : TPanel;


Pause_btn : TButton;


pause_sc : TScrollBar;


RGB_panel : TPanel;


RGB_params : TRadioGroup;


SaveDialog1 : TSaveDialog;


save_pal_btn : TButton;


swap_btn : TButton;


thank_label : TLabel;


x_rot : TScrollBar;


y_rot : TScrollBar;


z_off : TScrollBar;


z_rot : TScrollBar;


directory : string;

we need this to load data

lthanks : integer;


morphing_credits : animated_credits;

the two possible views

old_idle : TIdleEvent;

and store the idle event handler

RGB_Cube : animated_colour_cube;


thankdelay : integer;


thankloop : integer;


visible_animation : animation__3D;

Public declarations } // The display we're looking at


Constructors


Functions


procedure BntStabilizeClick(Sender: TObject);

Buttons


procedure control_change(Sender: TObject);

Scrollbar events


procedure cred_paramsClick(Sender:TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Create an RGB cube object and initialize


procedure FormHide(Sender: TObject);


procedure FormPaint(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure OK_btnClick(Sender: TObject);

///////////////////////////////////////////////////////////////////////////// Button response routines // /////////////////////////////////////////////////////////////////////////////


procedure Pause_btnClick(Sender: TObject);


procedure RGB_paramsClick(Sender: TObject);


procedure save_pal_btnClick(Sender: TObject);


procedure swap_btnClick(Sender: TObject);


procedure Setup(dir:string; cols:integer);


procedure Timer_callback(Sender: TObject);


procedure update_pause;


function GetPalette : hPalette;

Private declarations


Properties


Events


Variables


about_speed : TPanel;


BntStabilize : TButton;


credits : TPanel;


credits_panel : TPanel;


cycle_speed : TScrollBar;


DIBpanel : TPanel;


eccentricity : TScrollBar;


fps : TScrollBar;


Gamma : TScrollBar;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label15 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


morph_sc : TScrollBar;


OK_btn : TButton;


palette_info : TPanel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel9 : TPanel;


Pause_btn : TButton;


pause_sc : TScrollBar;


RGB_panel : TPanel;


RGB_params : TRadioGroup;


SaveDialog1 : TSaveDialog;


save_pal_btn : TButton;


swap_btn : TButton;


thank_label : TLabel;


x_rot : TScrollBar;


y_rot : TScrollBar;


z_off : TScrollBar;


z_rot : TScrollBar;


directory : string;

we need this to load data


lthanks : integer;


morphing_credits : animated_credits;

the two possible views


old_idle : TIdleEvent;

and store the idle event handler


RGB_Cube : animated_colour_cube;


thankdelay : integer;


thankloop : integer;


visible_animation : animation__3D;

Public declarations } // The display we're looking at