programi-games.at.ua

Для создания калькулятора

$one = c("edit1")->text;

$two = c("edit2")->text;

c("edit3")->text = $one + $two;

Для создания часов

lobal $canvas, $x0, $y0, $clearColor, $r, $k, $arrow;

c("Form1")->doubleBuffered = true;

c("image1")->h = c("image1")->w;

$canvas = new TControlCanvas( c("image1") );

$canvas->brush->color = $clearColor = c("Form1")->color;

$canvas->clear();

$x0 = round( c("image1")->w / 2);

$y0 = round( c("image1")->h / 2);

$r = c("image1")->w/2-20;

$k = 16;

dial();

arrows();

function dial(){

global $x0, $y0, $r, $k;

$canvas = new TControlCanvas( c("image1") );

for($i=1; $i<=60; $i++){

$a = deg2rad( $i*6 - 90);

$x1 = $x0 + round( cos($a) * ($r-$k));

$y1 = $x0 + round( sin($a) * ($r-$k));

if( !fmod($i,5)){

$x2 = $x0 + round( cos($a) * ($r + (strlen($i/5)-1)*$canvas->textWidth($i/5)/$k));

$y2 = $x0 + round( sin($a) * ($r + (strlen($i/5)-1)*$canvas->textHeight($i/5)/$k));

$canvas->textOut($x2 - $canvas->textWidth($i/5)/2,$y2 - $canvas->textHeight($i/5)/2,$i/5);

$canvas->ellipse($x1-2,$y1-2,$x1+4,$y1+4);

}else{

$canvas->ellipse($x1-1,$y1-1,$x1+2,$y1+2);

}

}

}

function arrows(){

global $clearColor, $arrow;

arrow("H", 32, 3, $clearColor, $arrow[0]);

arrow("i", 16, 2, $clearColor, $arrow[1]);

arrow("s", 8, 1, $clearColor, $arrow[2]);

arrow("H", 32, 3, clBlack);

arrow("i", 16, 2, clBlack);

arrow("s", 8, 1, clRed);

c("Form1")->caption = "your name".date("H:i:s");

$arrow[0] = date("H"); $arrow[1] = date("i"); $arrow[2] = date("s");

}

function arrow($d="s", $t=0, $s=1, $c=clBlack, $n=0){

global $canvas, $x0, $y0, $r, $k;

if($n){$date = $n;}else{$date = date($d);}

$a = deg2rad($date*6 - 90);

$x1 = $x0 + round( cos($a) * ($r-$t-$k));

$y2 = $x0 + round( sin($a) * ($r-$t-$k));

$canvas->pen->color = $c;

$canvas->pen->width = $s;

$canvas->moveTo($x0, $y0);

$canvas->lineTo($x1, $y2);

}

Для веб браузера

Кнопка назад: c("browser1")->Goback();

Кнопка перезагрузить: c("browser1")->refresh();

Кнопка стоп: c("browser1")->stop();

Кнопка поиск: c("browser1")->url = c("edit1")->text;

Для проигрывателя со списком и в 6 окон

Кнопка открыть 

$result = c("openDlg1")->execute();

if ($result)

{

$arr = c("openDlg1")->files;

foreach ($arr as $i=>$file)

$arr[$i] = basename($file);

c("listBox1")->items->setArray($arr);

}

Кнопка плеер 

$music = c("listBox1")->items->selected;

c("sqPlayer1")->fileName = $music;

c("sqPlayer1")->play();

Кнопка пауза

c("sqPlayer1")->pause();

Кнопка стоп 

c("sqPlayer1")->stop();

Список 

$music = c("listBox1")->items->selected;

c("sqPlayer1")->fileName = $music;

c("sqPlayer1")->play();

Для простого плеера

Для Кнопки Открыть: 

c("openDlg1")->execute();

Для кнопки пуск 

c("sqPlayer1")->open(

c("openDlg1")->fileName);

c("sqPlayer1")->play();

Для Кнопки Пауза 

c("sqPlayer1")->pause();

Для Кнопки Стоп 

c("sqPlayer1")->stop();