Class TSettings_Form (unit Form_Settings) |
Inherits from
TForm
Mine
procedure About_btnClick(Sender:TObject);
procedure btn_fClick(Sender: TObject);
procedure Can_btnClick(Sender:TObject);
procedure fix_speedClick(Sender:TObject);
procedure FormCreate(Sender:TObject);
----------------------------------------------------------------------- } { Event handlers } { -----------------------------------------------------------------------
procedure FormKeyDown(Sender:TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender:TObject);
procedure Help_btnClick(Sender:TObject);
procedure Kill_btnClick(Sender:TObject);
procedure Load_btnClick(Sender:TObject);
procedure max_rot_speedScroll(Sender:TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure OK_btnClick(Sender:TObject);
do it now before main window closes (looks nicer
procedure Options_BtnClick(Sender:TObject);
just in case user created a new palette
procedure PDF_zeroClick(Sender:TObject);
procedure rot_zeroClick(Sender:TObject);
scrollbars are wrong way round !
procedure Save_btnClick(Sender:TObject);
procedure scrollbar_lock(Sender:TObject);
procedure Set_speedClick(Sender:TObject);
procedure speed_scrollChange(Sender:TObject);
procedure UsePaletteClick(Sender:TObject);
procedure ZeroAspBtnClick(Sender:TObject);
procedure ZeroPalBtnClick(Sender:TObject);
function GetPalette : hPalette;
procedure ReadText (source:TStringList);
procedure WriteText(var dest:TStringList; aname:string);
----------------------------------------------------------------------- } { Load/Save settings } { -----------------------------------------------------------------------
About_btn : TButton;
ampl : TScrollBar;
aspect_a_x : TScrollBar;
aspect_a_y : TScrollBar;
aspect_f_x : TScrollBar;
aspect_f_y : TScrollBar;
aspect_sync : TBorCheck;
Aspect control
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
Bevel7 : TBevel;
Bevel8 : TBevel;
btn_f : TButton;
btn_r : TButton;
Button1 : TButton;
Button2 : TButton;
colour_step : TScrollBar;
control_points : TScrollBar;
d1 : TLabel;
density1 : TScrollBar;
density control
density10 : TScrollBar;
density2 : TScrollBar;
density3 : TScrollBar;
density4 : TScrollBar;
density5 : TScrollBar;
density6 : TScrollBar;
density7 : TScrollBar;
density8 : TScrollBar;
density9 : TScrollBar;
designed_speed : TLabel;
draw_solid : TBorRadio;
draw style
draw_vertices : TBorRadio;
eccentricity : TScrollBar;
fix_speed : TBorCheck;
freq : TScrollBar;
f_speed : TLabel;
Gamma : TScrollBar;
Help_btn : TButton;
hide_cursor : TBorCheck;
in_out : TBorCheck;
Kill_btn : TButton;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label18 : TLabel;
Label19 : TLabel;
Label2 : TLabel;
Label20 : TLabel;
Label21 : TLabel;
Label22 : TLabel;
Label23 : TLabel;
Label24 : TLabel;
Label25 : TLabel;
Label26 : TLabel;
Label27 : TLabel;
Label28 : TLabel;
Label29 : TLabel;
Label3 : TLabel;
Label30 : TLabel;
Label31 : TLabel;
Label32 : TLabel;
Label33 : TLabel;
Label34 : TLabel;
Label35 : TLabel;
Label36 : TLabel;
Label37 : TLabel;
Label38 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Load_btn : TButton;
lock_xy_aspect : TBorCheck;
lock_xy_motion : TBorCheck;
L_ampx : TLabel;
L_ampy : TLabel;
L_aspect : TLabel;
L_freqx : TLabel;
L_freqy : TLabel;
L_mag : TLabel;
L_maxsp : TLabel;
L_maxZ : TLabel;
L_minsp : TLabel;
L_persp : TLabel;
L_prob_dens : TLabel;
L_rcrfreq : TLabel;
L_vanish : TLabel;
magnification : TScrollBar;
max_polygons : TScrollBar;
general control
max_rot_speed : TScrollBar;
min_rot_speed : TScrollBar;
mot_b_damping : TScrollBar;
mot_par_a : TScrollBar;
mot_par_b : TScrollBar;
mot_par_c : TScrollBar;
mot_par_d : TScrollBar;
mot_par_e : TScrollBar;
mot_par_f : TScrollBar;
mot_ran_freq : TScrollBar;
mouse_motion : TBorRadio;
no_motion : TBorRadio;
motion control
no_rotation : TBorRadio;
rotation control
Options_Btn : TButton;
palette_inc : TScrollBar;
palette control
palette_list : TListBox;
Pal_panel : TPanel;
Panel_00 : TPanel;
Panel_01 : TPanel;
Panel_02 : TPanel;
Panel_10 : TPanel;
Panel_11 : TPanel;
Panel_12 : TPanel;
Panel_13 : TPanel;
Panel_20 : TPanel;
Panel_21 : TPanel;
Panel_22 : TPanel;
Panel_23 : TPanel;
par_motion : TBorRadio;
pause_continue : TBorRadio;
pause_freeze : TBorRadio;
PDF_max : TButton;
PDF_zero : TButton;
perspective : TScrollBar;
precess : TScrollBar;
ran_fluid_motion : TBorRadio;
ran_gaussian : TBorRadio;
ran_jump_motion : TBorRadio;
ran_rotation : TBorRadio;
ran_uniform : TBorRadio;
RGBwalk : TBorRadio;
rot_ran_freq : TScrollBar;
rot_ran_per : TBorRadio;
rot_ran_ran : TBorRadio;
rot_zero : TButton;
rub_out : TBorCheck;
Save_btn : TButton;
Screensaver : TBorCheck;
Set_speed : TButton;
shape_freq : TScrollBar;
shape_per : TBorRadio;
shape control
shape_ran : TBorRadio;
sin_rotation : TBorRadio;
speed_scroll : TScrollBar;
UsePalette : TBorRadio;
vanishing : TScrollBar;
ZeroAspBtn : TButton;
ZeroPalBtn : TButton;
Z_icon : TImage;
just_loaded : boolean;
Public declarations
procedure About_btnClick(Sender:TObject);
procedure btn_fClick(Sender: TObject);
procedure Can_btnClick(Sender:TObject);
procedure fix_speedClick(Sender:TObject);
procedure FormCreate(Sender:TObject);
----------------------------------------------------------------------- } { Event handlers } { -----------------------------------------------------------------------
procedure FormKeyDown(Sender:TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender:TObject);
procedure Help_btnClick(Sender:TObject);
procedure Kill_btnClick(Sender:TObject);
procedure Load_btnClick(Sender:TObject);
procedure max_rot_speedScroll(Sender:TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure OK_btnClick(Sender:TObject);
do it now before main window closes (looks nicer
procedure Options_BtnClick(Sender:TObject);
just in case user created a new palette
procedure PDF_zeroClick(Sender:TObject);
procedure rot_zeroClick(Sender:TObject);
scrollbars are wrong way round !
procedure Save_btnClick(Sender:TObject);
procedure scrollbar_lock(Sender:TObject);
procedure Set_speedClick(Sender:TObject);
procedure speed_scrollChange(Sender:TObject);
procedure UsePaletteClick(Sender:TObject);
procedure ZeroAspBtnClick(Sender:TObject);
procedure ZeroPalBtnClick(Sender:TObject);
function GetPalette : hPalette;
procedure ReadText (source:TStringList);
procedure WriteText(var dest:TStringList; aname:string);
----------------------------------------------------------------------- } { Load/Save settings } { -----------------------------------------------------------------------
About_btn : TButton;
ampl : TScrollBar;
aspect_a_x : TScrollBar;
aspect_a_y : TScrollBar;
aspect_f_x : TScrollBar;
aspect_f_y : TScrollBar;
aspect_sync : TBorCheck;
Aspect control
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
Bevel7 : TBevel;
Bevel8 : TBevel;
btn_f : TButton;
btn_r : TButton;
Button1 : TButton;
Button2 : TButton;
colour_step : TScrollBar;
control_points : TScrollBar;
d1 : TLabel;
density1 : TScrollBar;
density control
density10 : TScrollBar;
density2 : TScrollBar;
density3 : TScrollBar;
density4 : TScrollBar;
density5 : TScrollBar;
density6 : TScrollBar;
density7 : TScrollBar;
density8 : TScrollBar;
density9 : TScrollBar;
designed_speed : TLabel;
draw_solid : TBorRadio;
draw style
draw_vertices : TBorRadio;
eccentricity : TScrollBar;
fix_speed : TBorCheck;
freq : TScrollBar;
f_speed : TLabel;
Gamma : TScrollBar;
Help_btn : TButton;
hide_cursor : TBorCheck;
in_out : TBorCheck;
Kill_btn : TButton;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label18 : TLabel;
Label19 : TLabel;
Label2 : TLabel;
Label20 : TLabel;
Label21 : TLabel;
Label22 : TLabel;
Label23 : TLabel;
Label24 : TLabel;
Label25 : TLabel;
Label26 : TLabel;
Label27 : TLabel;
Label28 : TLabel;
Label29 : TLabel;
Label3 : TLabel;
Label30 : TLabel;
Label31 : TLabel;
Label32 : TLabel;
Label33 : TLabel;
Label34 : TLabel;
Label35 : TLabel;
Label36 : TLabel;
Label37 : TLabel;
Label38 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Load_btn : TButton;
lock_xy_aspect : TBorCheck;
lock_xy_motion : TBorCheck;
L_ampx : TLabel;
L_ampy : TLabel;
L_aspect : TLabel;
L_freqx : TLabel;
L_freqy : TLabel;
L_mag : TLabel;
L_maxsp : TLabel;
L_maxZ : TLabel;
L_minsp : TLabel;
L_persp : TLabel;
L_prob_dens : TLabel;
L_rcrfreq : TLabel;
L_vanish : TLabel;
magnification : TScrollBar;
max_polygons : TScrollBar;
general control
max_rot_speed : TScrollBar;
min_rot_speed : TScrollBar;
mot_b_damping : TScrollBar;
mot_par_a : TScrollBar;
mot_par_b : TScrollBar;
mot_par_c : TScrollBar;
mot_par_d : TScrollBar;
mot_par_e : TScrollBar;
mot_par_f : TScrollBar;
mot_ran_freq : TScrollBar;
mouse_motion : TBorRadio;
no_motion : TBorRadio;
motion control
no_rotation : TBorRadio;
rotation control
Options_Btn : TButton;
palette_inc : TScrollBar;
palette control
palette_list : TListBox;
Pal_panel : TPanel;
Panel_00 : TPanel;
Panel_01 : TPanel;
Panel_02 : TPanel;
Panel_10 : TPanel;
Panel_11 : TPanel;
Panel_12 : TPanel;
Panel_13 : TPanel;
Panel_20 : TPanel;
Panel_21 : TPanel;
Panel_22 : TPanel;
Panel_23 : TPanel;
par_motion : TBorRadio;
pause_continue : TBorRadio;
pause_freeze : TBorRadio;
PDF_max : TButton;
PDF_zero : TButton;
perspective : TScrollBar;
precess : TScrollBar;
ran_fluid_motion : TBorRadio;
ran_gaussian : TBorRadio;
ran_jump_motion : TBorRadio;
ran_rotation : TBorRadio;
ran_uniform : TBorRadio;
RGBwalk : TBorRadio;
rot_ran_freq : TScrollBar;
rot_ran_per : TBorRadio;
rot_ran_ran : TBorRadio;
rot_zero : TButton;
rub_out : TBorCheck;
Save_btn : TButton;
Screensaver : TBorCheck;
Set_speed : TButton;
shape_freq : TScrollBar;
shape_per : TBorRadio;
shape control
shape_ran : TBorRadio;
sin_rotation : TBorRadio;
speed_scroll : TScrollBar;
UsePalette : TBorRadio;
vanishing : TScrollBar;
ZeroAspBtn : TButton;
ZeroPalBtn : TButton;
Z_icon : TImage;
just_loaded : boolean;
Public declarations