unit Schedule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, DBGrids, Buttons,
  StdCtrls, DBCtrls;

type
  TScheduleForm=class(TForm)
    Image1: TImage;
    ScriptGrid: TDBGrid;
    CloseBtn: TBitBtn;
    RunButton: TBitBtn;
    ScheduleGroup: TGroupBox;
    HostLabel: TLabel;
    TimeLabel: TLabel;
    ActiveLabel: TLabel;
    HostLookup: TDBLookupComboBox;
    TimeEdit: TDBEdit;
    ActiveCombo: TDBComboBox;
    ScheduleNav: TDBNavigator;
    AbortErrorBox: TDBCheckBox;
    ScheduleTimer: TTimer;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RunButtonClick(Sender: TObject);
    procedure ScheduleTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ScheduleForm: TScheduleForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TScheduleForm.CloseBtnClick(Sender: TObject);
begin
{
004C4B20   55                     push    ebp
004C4B21   8BEC                   mov     ebp, esp
004C4B23   83C4F8                 add     esp, -$08
004C4B26   8955F8                 mov     [ebp-$08], edx
004C4B29   8945FC                 mov     [ebp-$04], eax
004C4B2C   8B45FC                 mov     eax, [ebp-$04]
004C4B2F   E80C000000             call    004C4B40
004C4B34   8B45FC                 mov     eax, [ebp-$04]
004C4B37   E85C66F8FF             call    0044B198
004C4B3C   59                     pop     ecx
004C4B3D   59                     pop     ecx
004C4B3E   5D                     pop     ebp
004C4B3F   C3                     ret


}
 end ; 

procedure TScheduleForm.FormCreate(Sender: TObject);
begin
{
004C5024   55                     push    ebp
004C5025   8BEC                   mov     ebp, esp
004C5027   83C4F8                 add     esp, -$08
004C502A   8955F8                 mov     [ebp-$08], edx
004C502D   8945FC                 mov     [ebp-$04], eax
004C5030   B201                   mov     dl, $01
004C5032   A164064900             mov     eax, dword ptr [$490664]
004C5037   E8BCB6FCFF             call    004906F8
004C503C   8B55FC                 mov     edx, [ebp-$04]
004C503F   8982FC020000           mov     [edx+$02FC], eax
004C5045   33C9                   xor     ecx, ecx
004C5047   B201                   mov     dl, $01
004C5049   A14C864800             mov     eax, dword ptr [$48864C]
004C504E   E80934FCFF             call    0048845C
004C5053   8B55FC                 mov     edx, [ebp-$04]
004C5056   898200030000           mov     [edx+$0300], eax
004C505C   8B45FC                 mov     eax, [ebp-$04]
004C505F   8B9000030000           mov     edx, [eax+$0300]
004C5065   8B45FC                 mov     eax, [ebp-$04]
004C5068   8B80FC020000           mov     eax, [eax+$02FC]
004C506E   E8B1B8FCFF             call    00490924
004C5073   8B45FC                 mov     eax, [ebp-$04]
004C5076   8B80CC020000           mov     eax, [eax+$02CC]
004C507C   E8FFC7FAFF             call    00471880
004C5081   8BC8                   mov     ecx, eax
004C5083   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004C5088   8B00                   mov     eax, [eax]
004C508A   8B80B4030000           mov     eax, [eax+$03B4]
004C5090   BA40000000             mov     edx, $00000040
004C5095   E8E688F7FF             call    0043D980
004C509A   59                     pop     ecx
004C509B   59                     pop     ecx
004C509C   5D                     pop     ebp
004C509D   C3                     ret


}
 end ; 

procedure TScheduleForm.FormDestroy(Sender: TObject);
begin
{
004C50A0   55                     push    ebp
004C50A1   8BEC                   mov     ebp, esp
004C50A3   83C4F8                 add     esp, -$08
004C50A6   8955F8                 mov     [ebp-$08], edx
004C50A9   8945FC                 mov     [ebp-$04], eax
004C50AC   8B45FC                 mov     eax, [ebp-$04]
004C50AF   8B8000030000           mov     eax, [eax+$0300]
004C50B5   E832DFF3FF             call    00402FEC
004C50BA   8B45FC                 mov     eax, [ebp-$04]
004C50BD   8B80FC020000           mov     eax, [eax+$02FC]
004C50C3   E824DFF3FF             call    00402FEC
004C50C8   59                     pop     ecx
004C50C9   59                     pop     ecx
004C50CA   5D                     pop     ebp
004C50CB   C3                     ret


}
 end ; 

procedure TScheduleForm.FormShow(Sender: TObject);
begin
{
004C50F0   55                     push    ebp
004C50F1   8BEC                   mov     ebp, esp
004C50F3   83C4F8                 add     esp, -$08
004C50F6   8955F8                 mov     [ebp-$08], edx
004C50F9   8945FC                 mov     [ebp-$04], eax
004C50FC   33D2                   xor     edx, edx
004C50FE   8B45FC                 mov     eax, [ebp-$04]
004C5101   8B80F4020000           mov     eax, [eax+$02F4]
004C5107   E8C8D6F8FF             call    004527D4
004C510C   59                     pop     ecx
004C510D   59                     pop     ecx
004C510E   5D                     pop     ebp
004C510F   C3                     ret


}
 end ; 

procedure TScheduleForm.RunButtonClick(Sender: TObject);
begin
{
004C5110   55                     push    ebp
004C5111   8BEC                   mov     ebp, esp
004C5113   83C4F8                 add     esp, -$08
004C5116   8955F8                 mov     [ebp-$08], edx
004C5119   8945FC                 mov     [ebp-$04], eax
004C511C   33D2                   xor     edx, edx
004C511E   8B45FC                 mov     eax, [ebp-$04]
004C5121   E89AFCFFFF             call    004C4DC0
004C5126   59                     pop     ecx
004C5127   59                     pop     ecx
004C5128   5D                     pop     ebp
004C5129   C3                     ret


}
 end ; 

procedure TScheduleForm.ScheduleTimerTimer(Sender: TObject);
begin
{
004C50CC   55                     push    ebp
004C50CD   8BEC                   mov     ebp, esp
004C50CF   83C4F8                 add     esp, -$08
004C50D2   8955F8                 mov     [ebp-$08], edx
004C50D5   8945FC                 mov     [ebp-$04], eax
004C50D8   8B45FC                 mov     eax, [ebp-$04]
004C50DB   E860FAFFFF             call    004C4B40
004C50E0   84C0                   test    al, al
004C50E2   7408                   jz      004C50EC
004C50E4   8B45FC                 mov     eax, [ebp-$04]
004C50E7   E890FBFFFF             call    004C4C7C
004C50EC   59                     pop     ecx
004C50ED   59                     pop     ecx
004C50EE   5D                     pop     ebp
004C50EF   C3                     ret


}
 end ; 

end.
