mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-03-22 15:05:03 +01:00
74 lines
1.8 KiB
C++
74 lines
1.8 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);
|
|
}
|
|
};
|