Set dp branch as trunk

Button.cpp

@@ -0,0 +1,70 @@
+//---------------------------------------------------------------------------
+
+#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);
+ }
+};
+