|]
"РЛ" - НАЧИНАЮЩИМ
и
„ ----------------------------------------------------------------------------------------------------------------------Ф
^include <vcl.h>
#pragma hdrstop
#include “Unitl .h”
#pragma package(smartjnit)
#pragma resource “*.dfm”
TForml *Form1;
//---------------------------------------------------------------------------------------------------------
fastcall TForml::TForm1 (TComponent* Owner)
: TForm(Owner)
}
//-----------------------------------------------------
----------------------------------------------------
void
fastcall TForm1::PanellClick(TObject *Sender)
{
Panel1->Color=clBlack; // при нажатии на панель1, меняем цвет панели
}
//---------------------------------------------------------------------------------------------------------
void__fastcall TForml ::Panel2Click(TObject ‘ Sender)
{
Panel2->Color=clBlack; // при нажатии на панель2, меняем цвет панели
//--------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------(так для всех 49 панелей)
//--------------------------------------------------------------------------------------------------------------------
.
.
void
fastcall TForml::Panel48Click(TObject ‘ Sender)
{
Panel48->Color=clBlack;/ / при нажатии на панель48, меняем цвет панели
}
//---------------------------------------------------------------------------------------------------------------------
void__fastcall TForml::Panel49Click(TObject ‘ Sender)
{
Panel49->Color=clBlack; // при нажатии на панель49, меняем цвет панели
■,}
'
.
'
- "
//------------------------------------------------------:-------------:-------------------------------------------------'-"А
г
void
fastcall TForml::Button 1 Click(TObject ‘ Sender)// при нажатии на кнопку меняем цвет всех панелей
на белый.
{
V,.
.
.
_
Panel1->Color=clWhite;//меняем цвет панель1 на белый
'
Panel2->Color=clWhite;
■Panel3->Coior=clWhite;
..................................
//и так для всех 49 панелей
Panel47->Color=clWhite;
Panel48->Color=clWhite;
Panel49->Color=clWhite;
34
U Радиолюбитель - 1 2 /2 0 0 7
предыдущая страница 34 Радиолюбитель 2007-12 читать онлайн следующая страница 36 Радиолюбитель 2007-12 читать онлайн Домой Выключить/включить текст