mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-03-22 15:05:03 +01:00
71 lines
1.6 KiB
C++
71 lines
1.6 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include "system.hpp"
|
|
#include "classes.hpp"
|
|
#pragma hdrstop
|
|
|
|
#include "Button.h"
|
|
#include "Console.h"
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
#pragma package(smart_init)
|
|
|
|
__fastcall TButton::TButton()
|
|
{
|
|
iFeedbackBit=0;
|
|
Clear();
|
|
};
|
|
|
|
__fastcall TButton::~TButton()
|
|
{
|
|
};
|
|
|
|
void __fastcall TButton::Clear(int i)
|
|
{
|
|
pModelOn=NULL;
|
|
pModelOff=NULL;
|
|
bOn=false;
|
|
if (i>=0) FeedbackBitSet(i);
|
|
Update(); //kasowanie bitu Feedback, o ile jakiœ ustawiony
|
|
};
|
|
|
|
void __fastcall TButton::Init(AnsiString asName,TModel3d *pModel,bool bNewOn)
|
|
{
|
|
if (!pModel) return; //nie ma w czym szukaæ
|
|
pModelOn=pModel->GetFromName(AnsiString(asName+"_on").c_str());
|
|
pModelOff=pModel->GetFromName(AnsiString(asName+"_off").c_str());
|
|
bOn=bNewOn;
|
|
Update();
|
|
};
|
|
|
|
void __fastcall TButton::Load(TQueryParserComp *Parser,TModel3d *pModel1,TModel3d *pModel2)
|
|
{
|
|
AnsiString str=Parser->GetNextSymbol().LowerCase();
|
|
if (pModel1)
|
|
{//poszukiwanie submodeli w modelu
|
|
Init(str,pModel1,false);
|
|
if (pModel2)
|
|
if (!pModelOn&&!pModelOff)
|
|
Init(str,pModel2,false); //mo¿e w drugim bêdzie (jak nie w kabinie, to w zewnêtrznym)
|
|
}
|
|
else
|
|
{
|
|
pModelOn=NULL;
|
|
pModelOff=NULL;
|
|
}
|
|
};
|
|
|
|
void __fastcall TButton::Update()
|
|
{
|
|
if (pModelOn) pModelOn->iVisible=bOn;
|
|
if (pModelOff) pModelOff->iVisible=!bOn;
|
|
if (iFeedbackBit) //je¿eli generuje informacjê zwrotn¹
|
|
{if (bOn) //zapalenie
|
|
Console::BitsSet(iFeedbackBit);
|
|
else
|
|
Console::BitsClear(iFeedbackBit);
|
|
}
|
|
};
|
|
|