Class TSettings_Form (unit Form_Settings)

Inherits from

TForm

Mine

Constructors



Functions

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 } { -----------------------------------------------------------------------

Properties

Events

Variables

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


Constructors


Functions


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 } { -----------------------------------------------------------------------


Properties


Events


Variables


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