Class TLoadSave_Form (unit Form_Load_Save) |
Inherits from
TForm
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;
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;
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;
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;