Class TAbout_Form (unit Form_About) |
Inherits from
TForm
Mine
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
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
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
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