Class TZonewindow (unit Form_Main) |
Inherits from
TForm
mine
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);
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
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);
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