<?php
require_once("rpcl/rpcl.inc.php");
//Includes
use_unit("forms.inc.php");
use_unit("extctrls.inc.php");
use_unit("stdctrls.inc.php");

//Class definition
class Page1 extends Page
{
    public $lblTimeTaken = null;
    public $btnRun = null;
    public $Edit1 = null;
    public $Memo1 = null;
    public $Label1 = null;
    public $Label2 = null;
    public $Button1 = null;
    public $cbAction = null;
    public $lblNoelEakin = null;
    function Button1Click($sender, $params)
    {
     $this->Memo1->AddLine($this->Edit1->Text);
    }

    function btnRunClick($sender, $params)
    {
      $time_start = microtime(true);
      // 10 million loop
      for ($i = 0; $i <= 10000000; $i++);

      $time_end = microtime(true);
      $time = $time_end - $time_start;

      $this->lblTimeTaken->Visible = True;
      $this->lblTimeTaken->Caption = sprintf('Time taken: %f seconds', $time);
    }
}

global $application;

global $Page1;

//Creates the form
$Page1=new Page1($application);

//Read from resource file
$Page1->loadResource(__FILE__);

//Shows the form
$Page1->show();

?>