Subversion Repositories ExamClock

unit mainunit;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,

  LCLType, StdCtrls, ExtCtrls, ComCtrls, EditBtn, Buttons, unit1, unit2;

type

  { TMainForm }

  TMainForm = class(TForm)

    StartButton: TBitBtn;

    CurrentTimeLabel: TLabel;

    AdvancedLabel: TLabel;

    AdvancedTimeLabel: TLabel;

    Label1: TLabel;

    FoundationLabel: TLabel;

    FoundationTimeLabel: TLabel;

    IntermediateLabel: TLabel;

    IntermediateTimeLabel: TLabel;

    MainMenu: TMainMenu;

    FileMenu: TMenuItem;

    FileExit: TMenuItem;

    HelpMenu: TMenuItem;

    HelpAbout: TMenuItem;

    CurrentTimePanel: TPanel;

    FoundationPanel: TPanel;

    IntermediatePanel: TPanel;

    AdvancedPanel: TPanel;

    FileExams: TMenuItem;

    FileSeperator1: TMenuItem;

    StatusBar: TStatusBar;

    Timer1: TTimer;

    procedure FileExamsClick(Sender: TObject);

    procedure FileExitClick(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);

    procedure FormCreate(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure HelpAboutClick(Sender: TObject);

    procedure StartButtonClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { private declarations }

    ClockRunning: Boolean;

    FoundationDuration, FoundationHalfTime: TDateTime;

    IntermediateDuration, IntermediateHalfTime: TDateTime;

    AdvancedDuration, AdvancedHalfTime: TDateTime;

    Sec, TenMins, ZeroHour: TDateTime;

    FoundationCaption, IntermediateCaption, AdvancedCaption: String;

  public

    { public declarations }

  end;

var

  MainForm: TMainForm;

implementation

{$R *.lfm}

{ TMainForm }

procedure TMainForm.FileExitClick(Sender: TObject);

begin

  Close;

end;

procedure TMainForm.FileExamsClick(Sender: TObject);

begin

  if Form2.ShowModal = ID_OK then

  begin

    FoundationPanel.Enabled := Form2.FoundationCheckBox.Checked;

    FoundationLabel.Visible := Form2.FoundationCheckBox.Checked;

    FoundationTimeLabel.Visible := Form2.FoundationCheckBox.Checked;

    IntermediatePanel.Enabled := Form2.IntermediateCheckBox.Checked;

    IntermediateLabel.Visible := Form2.IntermediateCheckBox.Checked;

    IntermediateTimeLabel.Visible := Form2.IntermediateCheckBox.Checked;

    AdvancedPanel.Enabled := Form2.AdvancedCheckBox.Checked;

    AdvancedLabel.Visible := Form2.AdvancedCheckBox.Checked;

    AdvancedTimeLabel.Visible := Form2.AdvancedCheckBox.Checked;

  end;

end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);

begin

  CanClose := Application.MessageBox('Confirm application exit?',

           'Confirm Exit', MB_ICONQUESTION+MB_YESNO) = IDYES;

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

  // Initalise variables

  ClockRunning := False;

  { Values for testing }

{  FoundationDuration := StrToTime('00:01:00');

  FoundationHalfTime := StrToTime('00:00:30');

  IntermediateDuration := StrToTime('00:02:00');

  IntermediateHalfTime := StrToTime('00:01:00');

  AdvancedDuration := StrToTime('00:03:00');

  AdvancedHalfTime := StrToTime('00:01:30');

  TenMins := StrToTime('00:00:10');}

  { Live values }

  FoundationDuration := StrToTime('01:00:00');

  FoundationHalfTime := StrToTime('00:30:00');

  IntermediateDuration := StrToTime('01:30:00');

  IntermediateHalfTime := StrToTime('00:45:00');

  AdvancedDuration := StrToTime('02:00:00');

  AdvancedHalfTime := StrToTime('01:00:00');

  TenMins := StrToTime('00:10:00');

  Sec := StrToTime('00:00:01');

  ZeroHour := StrToTime('00:00:00');

end;

procedure TMainForm.FormResize(Sender: TObject);

var

  h: Integer;

begin

  // set panel heights to fit screen

  h := (Height - 2 * StatusBar.Height) div 4;

  CurrentTimePanel.Height := h;

  FoundationPanel.Height := h;

  IntermediatePanel.Height := h;

  AdvancedPanel.Height := h;

  Label1.Caption := 'Time Now:';

  FoundationLabel.Caption := FoundationCaption;

  IntermediateLabel.Caption := IntermediateCaption;

  AdvancedLabel.Caption := AdvancedCaption;

  Application.ProcessMessages;

end;

procedure TMainForm.FormShow(Sender: TObject);

var

  h: Integer;

begin

  // set panel heights to fit screen

  h := (Height - 2 * StatusBar.Height) div 4;

  CurrentTimePanel.Height := h;

  FoundationPanel.Height := h;

  IntermediatePanel.Height := h;

  AdvancedPanel.Height := h;

  CurrentTimeLabel.Caption := TimeToStr(Time);

  StatusBar.Panels[0].Text := DateToStr(Date);

  FoundationCaption := 'Foundation:';

  FoundationCaption := FoundationCaption + sLineBreak + 'Duration: ' +

                    TimeToStr(FoundationDuration);

  FoundationCaption := FoundationCaption + sLineBreak + 'Half Time: ' +

                    TimeToStr(FoundationHalfTime);

  FoundationLabel.Caption := FoundationCaption;

  FoundationTimeLabel.Caption := TimeToStr(FoundationDuration);

  IntermediateCaption := 'Intermediate:';

  IntermediateCaption := IntermediateCaption + sLineBreak + 'Duration: ' +

                      TimeToStr(IntermediateDuration);

  IntermediateCaption := IntermediateCaption + sLineBreak + 'Half Time: ' +

                      TimeToStr(IntermediateHalfTime);

  IntermediateLabel.Caption := IntermediateCaption;

  IntermediateTimeLabel.Caption := TimeToStr(IntermediateDuration);

  AdvancedCaption := 'Advanced:';

  AdvancedCaption := AdvancedCaption + sLineBreak + 'Duration: ' +

                  TimeToStr(AdvancedDuration);

  AdvancedCaption := AdvancedCaption + sLineBreak + 'Half Time: ' +

                  TimeToStr(AdvancedHalfTime);

  AdvancedLabel.Caption := AdvancedCaption;

  AdvancedTimeLabel.Caption := TimeToStr(AdvancedDuration);

end;

procedure TMainForm.HelpAboutClick(Sender: TObject);

begin

  Form1.ShowModal;

end;

procedure TMainForm.StartButtonClick(Sender: TObject);

var

  start: TDateTime;

begin

  start := Time;

  FoundationCaption := 'Foundation:';

  FoundationCaption := FoundationCaption + sLineBreak + 'Duration: ' +

                    TimeToStr(FoundationDuration);

  FoundationCaption := FoundationCaption + sLineBreak + 'Half Time: ' +

                    TimeToStr(start + FoundationHalfTime);

  FoundationCaption := FoundationCaption + sLineBreak + 'End Time: ' +

                    TimeToStr(start + FoundationDuration);

  FoundationLabel.Caption := FoundationCaption;

  IntermediateCaption := 'Intermediate:';

  IntermediateCaption := IntermediateCaption + sLineBreak + 'Duration: ' +

                      TimeToStr(IntermediateDuration);

  IntermediateCaption := IntermediateCaption + sLineBreak + 'Half Time: ' +

                      TimeToStr(start + IntermediateHalfTime);

  IntermediateCaption := IntermediateCaption + sLineBreak + 'End Time: ' +

                      TimeToStr(start + IntermediateDuration);

  IntermediateLabel.Caption := IntermediateCaption;

  AdvancedCaption := 'Advanced:';

  AdvancedCaption := AdvancedCaption + sLineBreak + 'Duration: ' +

                  TimeToStr(AdvancedDuration);

  AdvancedCaption := AdvancedCaption + sLineBreak + 'Half Time: ' +

                  TimeToStr(start + AdvancedHalfTime);

  AdvancedCaption := AdvancedCaption + sLineBreak + 'End Time: '+

                  TimeToStr(start + AdvancedDuration);

  AdvancedLabel.Caption := AdvancedCaption;

  // start the clock

  ClockRunning := True;

  StartButton.Enabled := False;

end;

procedure TMainForm.Timer1Timer(Sender: TObject);

begin

  CurrentTimeLabel.Caption := TimeToStr(Time);

  StatusBar.Panels[0].Text := DateToStr(Date);

  if ClockRunning then

  begin

    { update the display

      first the Foundation display }

    if FoundationDuration > ZeroHour then

    begin

      FoundationDuration := FoundationDuration - Sec;

      if FoundationDuration <= TenMins then

           FoundationTimeLabel.Color := clFuchsia

      else

      begin

        if FoundationDuration <= FoundationHalfTime then

          FoundationTimeLabel.Color := clYellow;

      end;

    end

    else

    begin

      FoundationDuration := ZeroHour;

      FoundationTimeLabel.Color := clRed;

      FoundationPanel.Enabled := False;

    end;

    FoundationTimeLabel.Caption := TimeToStr(FoundationDuration);

    { update the Intermediate display }

    if IntermediateDuration > ZeroHour then

    begin

      IntermediateDuration := IntermediateDuration - Sec;

      if IntermediateDuration <= TenMins then

           IntermediateTimeLabel.Color := clFuchsia

      else

      begin

        if IntermediateDuration <= IntermediateHalfTime then

          IntermediateTimeLabel.Color := clYellow;

      end;

    end

    else

    begin

      IntermediateDuration := ZeroHour;

      IntermediateTimeLabel.Color := clRed;

      IntermediatePanel.Enabled := False;

    end;

    IntermediateTimeLabel.Caption := TimeToStr(IntermediateDuration);

    { update the Advanced display }

    if AdvancedDuration > ZeroHour then

    begin

      AdvancedDuration := AdvancedDuration - Sec;

      if AdvancedDuration <= TenMins then

        AdvancedTimeLabel.Color := clFuchsia

      else

      begin

        if AdvancedDuration <= AdvancedHalfTime then

          AdvancedTimeLabel.Color := clYellow;

      end;

    end

    else

    begin

      AdvancedDuration := ZeroHour;

      AdvancedTimeLabel.Color := clRed;

      AdvancedPanel.Enabled := False;

    end;

    AdvancedTimeLabel.Caption := TimeToStr(AdvancedDuration);

  end;

  Label1.Caption := 'Time Now:';

  FoundationLabel.Caption := FoundationCaption;

  IntermediateLabel.Caption := IntermediateCaption;

  AdvancedLabel.Caption := AdvancedCaption;

  Application.ProcessMessages;

end;

end.