Class TLoadSave_Form (unit Form_Load_Save)

Inherits from

TForm

Constructors



Functions

procedure Can_btnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

///////////////////////////////////////////////////////////////////////////// Load_Save form file routines /////////////////////////////////////////////////////////////////////////////

procedure FormDestroy(Sender: TObject);

adjust titles

procedure FormHide(Sender: TObject);

setup current mode

procedure FormShow(Sender: TObject);


procedure index_panelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

If the Listbox is disabled, clicks come here.

procedure Name_editorKeyPress(Sender: TObject; var Key: Char);


procedure Ok_btnClick(Sender: TObject);

Buttons

procedure Preview_timerTimer;


procedure settings_listDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

Listbox events

procedure settings_listKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure Settings_listMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure settings_listMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

this stops the image from being colour matched to the cycling colours

procedure ViewButtonClick(Sender: TObject);

MouseClick went into Scrollbar

procedure Activate_Editor;

Name editing stuff

///////////////////////////////////////////////////////////////////////////// Name editing stuff /////////////////////////////////////////////////////////////////////////////


procedure Add_current_setting(name:string);


procedure Close_file;


function confirm_overwrite : boolean;


procedure DeActivate_Editor;


procedure draw_rect(acanvas:TCanvas; State:TOwnerDrawState; r:TRect);

Listbox draw

///////////////////////////////////////////////////////////////////////////// Listbox stuff /////////////////////////////////////////////////////////////////////////////


function GetPalette : hPalette;


function isModified : boolean;


function Load_setting : integer;

///////////////////////////////////////////////////////////////////////////// Load_Save form GUI stuff /////////////////////////////////////////////////////////////////////////////

procedure New_file_name(name:string);


procedure Open_file(name:string);

Access to settings stuff

function overwrite_Setting : boolean;


procedure SaveToNewFile(name:string);


procedure Save_file;


procedure Save_setting;


function select_random_setting(just_tagged:boolean) : integer;


procedure setModified(val:boolean);


procedure setup_load_mode;


procedure setup_mustsave_mode;


procedure setup_save_mode;


procedure setup_view_mode;


procedure Start_Preview(index:integer);

Preview

///////////////////////////////////////////////////////////////////////////// Preview stuff /////////////////////////////////////////////////////////////////////////////


procedure Stop_Preview;


procedure Update_list;


Properties

Events

Variables

Can_btn : TButton;


Container : TPanel;


index_panel : TPanel;


Info_label : TLabel;


Name_editor : TEdit;


OK_btn : TButton;


Panel2 : TPanel;


Preview : TPanel;


Preview_timer : THiResTimer;


Screensaver_pic : TImage;


settings_list : TListBox;


TextView : TMemo;


Titles : THeaderControl;


ViewButton : TButton;


editor_active : boolean;


invisible_settings : TSettings_Form;


Mode : load_save_mode;


oldcaption : string;

For editing names etc

preview_index : integer;


Preview_instance : Zonerings;

Preview

ready : boolean;


rightmargin : integer;

for drawing items

Settings_File : Zone_settings_file;

Public declarations } // main stuff

stored_index : integer;


undo_modified : boolean;



Constructors


Functions


procedure Can_btnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

///////////////////////////////////////////////////////////////////////////// Load_Save form file routines /////////////////////////////////////////////////////////////////////////////


procedure FormDestroy(Sender: TObject);

adjust titles


procedure FormHide(Sender: TObject);

setup current mode


procedure FormShow(Sender: TObject);


procedure index_panelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

If the Listbox is disabled, clicks come here....


procedure Name_editorKeyPress(Sender: TObject; var Key: Char);


procedure Ok_btnClick(Sender: TObject);

Buttons


procedure Preview_timerTimer;


procedure settings_listDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

Listbox events


procedure settings_listKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure Settings_listMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure settings_listMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

this stops the image from being colour matched to the cycling colours


procedure ViewButtonClick(Sender: TObject);

MouseClick went into Scrollbar


procedure Activate_Editor;

Name editing stuff

///////////////////////////////////////////////////////////////////////////// Name editing stuff /////////////////////////////////////////////////////////////////////////////


procedure Add_current_setting(name:string);


procedure Close_file;


function confirm_overwrite : boolean;


procedure DeActivate_Editor;


procedure draw_rect(acanvas:TCanvas; State:TOwnerDrawState; r:TRect);

Listbox draw

///////////////////////////////////////////////////////////////////////////// Listbox stuff /////////////////////////////////////////////////////////////////////////////


function GetPalette : hPalette;


function isModified : boolean;


function Load_setting : integer;

///////////////////////////////////////////////////////////////////////////// Load_Save form GUI stuff /////////////////////////////////////////////////////////////////////////////


procedure New_file_name(name:string);


procedure Open_file(name:string);

Access to settings stuff


function overwrite_Setting : boolean;


procedure SaveToNewFile(name:string);


procedure Save_file;


procedure Save_setting;


function select_random_setting(just_tagged:boolean) : integer;


procedure setModified(val:boolean);


procedure setup_load_mode;


procedure setup_mustsave_mode;


procedure setup_save_mode;


procedure setup_view_mode;


procedure Start_Preview(index:integer);

Preview

///////////////////////////////////////////////////////////////////////////// Preview stuff /////////////////////////////////////////////////////////////////////////////


procedure Stop_Preview;


procedure Update_list;


Properties


Events


Variables


Can_btn : TButton;


Container : TPanel;


index_panel : TPanel;


Info_label : TLabel;


Name_editor : TEdit;


OK_btn : TButton;


Panel2 : TPanel;


Preview : TPanel;


Preview_timer : THiResTimer;


Screensaver_pic : TImage;


settings_list : TListBox;


TextView : TMemo;


Titles : THeaderControl;


ViewButton : TButton;


editor_active : boolean;


invisible_settings : TSettings_Form;


Mode : load_save_mode;


oldcaption : string;

For editing names etc


preview_index : integer;


Preview_instance : Zonerings;

Preview


ready : boolean;


rightmargin : integer;

for drawing items


Settings_File : Zone_settings_file;

Public declarations } // main stuff


stored_index : integer;


undo_modified : boolean;