//---------------------------------------------------------------------------
void __fastcall TTScope::SBUpWClick(TObject *Sender)
{
int x = (m_CursorX - m_XOFF) * PaintBox->Width / m_XW;
if( m_XW < 512 ){
m_XW += 32;
AdjXoff(x);
PaintBoxPaint(NULL);
}
else if( m_XW <= (pScope->m_ScopeSize - 512) ){
m_XW += 512;
AdjXoff(x);
PaintBoxPaint(NULL);
}
UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBDownWClick(TObject *Sender)
{
int x = (m_CursorX - m_XOFF) * PaintBox->Width / m_XW;
if( m_XW >= 1024 ){
m_XW -= 512;
AdjXoff(x);
PaintBoxPaint(NULL);
}
else if( m_XW >= 64 ){
m_XW -= 32;
AdjXoff(x);
PaintBoxPaint(NULL);
}
UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Obraz=new Graphics::TBitmap();
Obraz->Width=PaintBox->Width;
Obraz->Height=PaintBox->Height;
updateedits(Sender);
PaintBoxPaint(Sender);
maycount = true;
}
//---------------------------------------------------------------------------
void __fastcall TTScope::TimerTimer(TObject *Sender)
{
if( pDem == NULL ) return;
if( pScope->GetFlag() ){
PaintBoxPaint(NULL);
if( SBTrig->Down ){
SBTrig->Down = FALSE;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxMouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
if(Przesuwany==true)
{
L[Nr].x=X-dx;
L[Nr].y=Y-dy;
PaintBoxPaint(Sender);
}
if(kreowany==true)
{
L[Nr].vx=(X-dx)*4.;
L[Nr].vy=(Y-dy)*4.;
PaintBoxPaint(Sender);
}
char buffer[64];
snprintf(buffer, sizeof(buffer), "X = %g", rx(X));
Label3->Caption = buffer;
snprintf(buffer, sizeof(buffer), "Y = %g", ry(Y));
Label4->Caption = buffer;
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBUpDownClick(TObject *Sender)
{
int x;
double d, peak;
peak = 0;
double *dp = &pScope[1].pScopeData[m_XOFF];
for( x = m_XOFF; x < (m_XOFF + m_XW); x++, dp++ ){
d = fabs(*dp);
if( peak < d ) peak = d;
}
if( peak ){
m_Gain = 16384.0 * 0.8 / peak;
}
PaintBoxPaint(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinIloscChange(TObject *Sender)
{
Ilosc = CSpinIlosc->Value;
updateedits(Sender);
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinNrChange(TObject *Sender)
{
Nr = CSpinNr->Value;
updateedits(Sender);
PaintBoxPaint(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
Obraz->Width=PaintBox->Width;
Obraz->Height=PaintBox->Height;
PaintBoxPaint(Sender);
}
void __fastcall TFormMain::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
TRect R = RectNormalize(&Selection);
unsigned tx = MAX(ListView->ItemIndex,0);
//ShowMessage(Key);
switch (Key)
{
case 221: {APPLY(cell->bot += 64) Key = 1; break;}
case 219: {APPLY(cell->bot -= 64) Key = 1; break;}
//case 36: {APPLY(cell->mid += 64) Key = 1; break;}
//case 35: {APPLY(cell->mid -= 64) Key = 1; break;}
case 'P': {APPLY(cell->top += 64) Key = 1; break;}
case 'O': {APPLY(cell->top -= 64) Key = 1; break;}
case 'L': {APPLY(cell->swi ^= CELL_SWI_LIGHT) Key = 1; break;}
case 45: {if(tc)tx=(tx-1)%YETI_TEXTURE_MAX;APPLY(cell->btx=tx);Key=1;break;}
case 46: {if(tc)tx=(tx+1)%YETI_TEXTURE_MAX;APPLY(cell->btx=tx);Key=1;break;}
case 36: {if(tc)tx=(tx-1)%YETI_TEXTURE_MAX;APPLY(cell->wtx=tx);Key=1;break;}
case 35: {if(tc)tx=(tx+1)%YETI_TEXTURE_MAX;APPLY(cell->wtx=tx);Key=1;break;}
case 33: {if(tc)tx=(tx-1)%YETI_TEXTURE_MAX;APPLY(cell->ttx=tx);Key=1;break;}
case 34: {if(tc)tx=(tx+1)%YETI_TEXTURE_MAX;APPLY(cell->ttx=tx);Key=1;break;}
case 'F': {APPLY(cell_block(cell, true )); Key = 1; break;}
case 'G': {APPLY(cell_block(cell, false)); Key = 1; break;}
case 'E':
{
String Value = yeti->cells[R.top][R.left].ent;
if (InputQuery("", "Enter Entity ID (0..255):", Value))
{
int ent = Value.ToIntDef(0);
APPLY(cell->ent = ent);
Key = 1;
}
break;
}
case VK_LEFT : {yeti->keyboard.left = true; Key = 0; break;}
case VK_UP : {yeti->keyboard.up = true; Key = 0; break;}
case VK_RIGHT : {yeti->keyboard.right = true; Key = 0; break;}
case VK_DOWN : {yeti->keyboard.down = true; Key = 0; break;}
case VK_CONTROL : {yeti->keyboard.a = true; Key = 0; break;}
case ' ' : {yeti->keyboard.b = true; Key = 0; break;}
case 'A' : {yeti->keyboard.l = true; Key = 0; break;}
case 'Z' : {yeti->keyboard.r = true; Key = 0; break;}
default:
{
//ShowMessage(Key);
}
}
if (Key == 1)
{
Key = 0;
yeti_default_lighting(yeti);
PaintBoxPaint(PaintBox);
FormPreview->TimerTimer(FormPreview->Timer);
Modified = true;
ListView->ItemIndex = tx;
ListView->Selected->MakeVisible(False);
tc = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TTScope::DownBtnClick(TObject *Sender)
{
m_Gain /= 1.2;
PaintBoxPaint(NULL);
}
