таймер. откоментируйте код, плиз

[Dimarik]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}      int s,m;//этого не было, сам добавил, чтоб заработало
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
              //щелчок на кнопке Старт
        Timer1->Enabled=!Timer1->Enabled;//пустить таймер
        Button2->Enabled=true;
        Label2->Visible=true;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   //таймер генерирует событие каждые 0.5 с
   Label2->Visible=!Label2->Visible;    //это значит, что 05. с мы видим число, а 0.5 не видим

   if (!Label2->Visible) // это значит если Label2->Visible=false???
        return;//что делает эта функция?
   if (s==59)//s определена в в классе таймера?
   {
   m++; //аналогичный вопрос
   Label1->Caption=IntToStr(m);
   s=0;
   }
   else
   s++;
   //отобразить секунды
   if (s<10)
        Label2->Caption="0"+IntToStr(s);
        else
        Label2->Caption=IntToStr(s);
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
s=0;
m=0;
Label1->Caption="00";
Label2->Caption="00";
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------

[Sazary]

   if (!Label2->Visible) // это значит если Label2->Visible=false???

Да.

return;//что делает эта функция?

Просто выход из функции. В данном случае из TForm1::Timer1Timer(TObject *Sender).

 if (s==59)//s определена в в классе таймера?
   {
   m++; //аналогичный вопрос

Скорее всего они должны были быть объявлены в Unit1.h.

[profi]

По моему это задачи из книги Культина. Если да. То почему вы не читаете пояснения к ним.

[Dimarik]

profi: оттуда. почему не читаю? читаю. Но те вопросы, которые я задаю или там не рассмотрены или криво объяснены.
Sazary:
if (!Label2->Visible)
return;//что делает эта функция?
не return, а ВСЁ условие

[Sazary]

if (!Label2->Visible)
return;//что делает эта функция?
не return, а ВСЁ условие

Если Label2 невидим, то выходим из функции.

[Dimarik]

ОФФТОП.
я хочу в этой программе использовать ControlBar, да так, чтобы он был красиво закрашен. в Культине написано, что за это отвечают свойства DrawingStyle, GradientDirection, но в билдере в свойстваъ этого элемента я не нашёл.. может так они назывались в другой версии, а в этой иначе??
P.S. у меня 6ой билдер

[psycho-coder]

Чуток расширю.

if (!Label2->Visible) // Если Lable2 невидим...
        return;// выход из функции
   if (s==59)//(s - это глобальная переменная)
   {
   m++; // (тоже глобальная переменная) Это значит увеличить m на 1
   Label1->Caption=IntToStr(m); // вывод в Label1 значение m
   s=0; // обнуление
   }
   else // Если s не равна 59 то ...
   s++; // увеличим на 1

[Dimarik]

Сообщение от Sazary

Если Label2 невидим, то выходим из функции.

выходим, ничего не делая, а если видим, то вообще не входим в эту функцию. результат один и тот же, то есть это совершенно ненужная функция?

[psycho-coder]

Сообщение от Dimarik

выходим, ничего не делая, а если видим, то вообще не входим в эту функцию. результат один и тот же, то есть это совершенно ненужная функция?

А если видим то выполняется вот это

if (s==59)//(s - это глобальная переменная)
   {
   m++; // (тоже глобальная переменная) Это значит увеличить m на 1
   Label1->Caption=IntToStr(m); // вывод в Label1 значение m
   s=0; // обнуление
   }
   else // Если s не равна 59 то ...
   s++; // увеличим на 1

[Sazary]

Сообщение от Dimarik

а если видим, то вообще не входим в эту функцию.

С чего вы это взяли? Если видим, то выполняется все, что ниже.