Class TZonewindow (unit Form_Main)

Inherits from

TForm

mine

Constructors



Functions

procedure Change_timer_event(Sender: TObject);


procedure FormClick(Sender:TObject);

///////////////////////////////////////////////////////////////////////////// Main bit .

procedure FormDestroy(Sender:TObject);


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

only needed when debugging in a sizeable window if Zone_instance<>nil then Zone_instance.

procedure FormMouseMove(Sender:TObject; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender:TObject);


procedure FormResize(Sender:TObject);


procedure FormShow(Sender:TObject);

----------------------------------------------------------------------- } { Form routines } { -----------------------------------------------------------------------

function are_settings_different(CheckStrings:TStringList) : boolean;


procedure Error_timer_event;


procedure Frame_timer_event;


function GetPalette : hPalette;


Procedure NewSetting(pick_random:boolean);


procedure setup_cycling_change;


procedure WM_SysCommand(var message:TWMSysCommand);


Properties

Events

Variables

Change_timer : TTimer;


Frame_timer : THiResTimer;


calculated : boolean;

if error message needed.

dx : integer;


dy : integer;


ex : integer;


ey : integer;


paused : boolean;

variables for speed control.

ready : boolean;


textrect : TRect;


Zone_instance : Zonerings;

Public declarations } // objects we'll need


Constructors


Functions


procedure Change_timer_event(Sender: TObject);


procedure FormClick(Sender:TObject);

///////////////////////////////////////////////////////////////////////////// Main bit .............. // /////////////////////////////////////////////////////////////////////////////


procedure FormDestroy(Sender:TObject);


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

only needed when debugging in a sizeable window if Zone_instance<>nil then Zone_instance.Window_Changed(handle);


procedure FormMouseMove(Sender:TObject; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender:TObject);


procedure FormResize(Sender:TObject);


procedure FormShow(Sender:TObject);

----------------------------------------------------------------------- } { Form routines } { -----------------------------------------------------------------------


function are_settings_different(CheckStrings:TStringList) : boolean;


procedure Error_timer_event;


procedure Frame_timer_event;


function GetPalette : hPalette;


Procedure NewSetting(pick_random:boolean);


procedure setup_cycling_change;


procedure WM_SysCommand(var message:TWMSysCommand);


Properties


Events


Variables


Change_timer : TTimer;


Frame_timer : THiResTimer;


calculated : boolean;

if error message needed...


dx : integer;


dy : integer;


ex : integer;


ey : integer;


paused : boolean;

variables for speed control...


ready : boolean;


textrect : TRect;


Zone_instance : Zonerings;

Public declarations } // objects we'll need