| Class TLoadSave_Form (unit Form_Load_Save) |
TForm
| Constructors |
| Functions |
procedure Can_btnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure index_panelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Name_editorKeyPress(Sender: TObject; var Key: Char);
procedure Ok_btnClick(Sender: TObject);
procedure Preview_timerTimer;
procedure settings_listDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
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);
procedure ViewButtonClick(Sender: TObject);
procedure Activate_Editor;///////////////////////////////////////////////////////////////////////////// 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 stuff /////////////////////////////////////////////////////////////////////////////
function GetPalette : hPalette;
function isModified : boolean;
function Load_setting : integer;
procedure New_file_name(name:string);
procedure Open_file(name:string);
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 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;
preview_index : integer;
Preview_instance : Zonerings;
ready : boolean;
rightmargin : integer;
Settings_File : Zone_settings_file;
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;