mirror of
https://github.com/n5ac/mmsstv.git
synced 2026-01-20 23:30:19 +01:00
288 lines
7.9 KiB
C++
288 lines
7.9 KiB
C++
//---------------------------------------------------------------------
|
||
#include <vcl.h>
|
||
#pragma hdrstop
|
||
|
||
#include "PerSpect.h"
|
||
//---------------------------------------------------------------------
|
||
#pragma resource "*.dfm"
|
||
//---------------------------------------------------------------------
|
||
__fastcall TPerSpectDlg::TPerSpectDlg(TComponent* AOwner)
|
||
: TForm(AOwner)
|
||
{
|
||
m_Loaded = 0;
|
||
m_DisEvent = 1;
|
||
if( MsgEng ){
|
||
Font->Name = "Arial";
|
||
Font->Charset = ANSI_CHARSET;
|
||
Caption = VER" - "TTL;
|
||
CancelBtn->Caption = "Cancel";
|
||
DefBtn->Caption = "Default";
|
||
L1->Caption = "Rot.X";
|
||
L2->Caption = "Rot.Y";
|
||
L3->Caption = "Rot.Z";
|
||
L4->Caption = "Move.Z";
|
||
L5->Caption = "Move.Y";
|
||
L6->Caption = "Move.X";
|
||
L7->Caption = "ViewP.";
|
||
L8->Caption = "Scale.X";
|
||
L9->Caption = "Scale.Y";
|
||
L10->Caption = "Rot";
|
||
RGSRC->Caption = "Source";
|
||
RGSRC->Items->Strings[0] = "History";
|
||
RGSRC->Items->Strings[1] = "Loaded image";
|
||
RGSRC->Items->Strings[2] = "Overlay";
|
||
PasteBtn->Caption = "Paste";
|
||
}
|
||
else {
|
||
Caption = VER" - "TTLJ;
|
||
}
|
||
pBitmap = NULL;
|
||
m_pObj = NULL;
|
||
m_XC = -1;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::FormDestroy(TObject *Sender)
|
||
{
|
||
if( pBitmap != NULL ) delete pBitmap;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
int __fastcall TPerSpectDlg::Execute(CObj *pObj)
|
||
{
|
||
m_pObj = pObj;
|
||
m_Obj.Copy(pObj);
|
||
m_Back = m_Obj.m_Back;
|
||
LPSPERSPECT psp = &m_Obj.m_sperspect;
|
||
|
||
TBAX->Position = psp->ax * 20.0;
|
||
TBAY->Position = psp->ay * 20.0;
|
||
TBPX->Position = psp->px * 40.0;
|
||
TBPY->Position = psp->py * 40.0;
|
||
TBPZ->Position = psp->pz * 40.0;
|
||
TBRX->Position = psp->rx;
|
||
TBRY->Position = psp->ry;
|
||
TBRZ->Position = psp->rz;
|
||
TBS->Position = psp->s * 10.0;
|
||
TBR->Position = psp->r;
|
||
RGSRC->ItemIndex = psp->flag;
|
||
|
||
UpdateBitmap();
|
||
UpdateBtn();
|
||
m_DisEvent = 0;
|
||
if( ShowModal() == IDOK ){
|
||
psp = &pObj->m_sperspect;
|
||
psp->ax = double(TBAX->Position)/20.0;
|
||
psp->ay = double(TBAY->Position)/20.0;
|
||
psp->px = double(TBPX->Position)/40.0;
|
||
psp->py = double(TBPY->Position)/40.0;
|
||
psp->pz = double(TBPZ->Position)/40.0;
|
||
psp->rx = TBRX->Position;
|
||
psp->ry = TBRY->Position;
|
||
psp->rz = TBRZ->Position;
|
||
psp->s = double(TBS->Position)/10.0;
|
||
psp->r = TBR->Position;
|
||
psp->flag = RGSRC->ItemIndex;
|
||
if( psp->flag && m_Loaded && (m_Obj.pBitmap != NULL) ){
|
||
pObj->CopySource(m_Obj.pBitmap);
|
||
}
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::UpdateBitmap(void)
|
||
{
|
||
if( m_Obj.pBitmap == NULL ) return;
|
||
|
||
m_Obj.m_sperspect.ax = double(TBAX->Position)/20.0;
|
||
m_Obj.m_sperspect.ay = double(TBAY->Position)/20.0;
|
||
|
||
m_Obj.m_sperspect.px = double(TBPX->Position)/40.0;
|
||
m_Obj.m_sperspect.py = double(TBPY->Position)/40.0;
|
||
m_Obj.m_sperspect.pz = double(TBPZ->Position)/40.0;
|
||
|
||
m_Obj.m_sperspect.rx = TBRX->Position;
|
||
m_Obj.m_sperspect.ry = TBRY->Position;
|
||
m_Obj.m_sperspect.rz = TBRZ->Position;
|
||
m_Obj.m_sperspect.s = double(TBS->Position)/10.0;
|
||
m_Obj.m_sperspect.r = TBR->Position;
|
||
|
||
pBitmap = Perspect(pBitmap, m_Obj.pBitmap, &m_Obj.m_sperspect, m_Back);
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::PBoxPaint(TObject *Sender)
|
||
{
|
||
DrawBitmap(PBox, pBitmap);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::TBAXChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
UpdateBitmap();
|
||
PBoxPaint(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::DefBtnClick(TObject *Sender)
|
||
{
|
||
#if 0 // for to get default
|
||
FILE *fp = fopen("TEST.TXT", "wt");
|
||
fprintf(fp, "%d\n", TBAX->Position);
|
||
fprintf(fp, "%d\n", TBAY->Position);
|
||
fprintf(fp, "%d\n", TBPX->Position);
|
||
fprintf(fp, "%d\n", TBPY->Position);
|
||
fprintf(fp, "%d\n", TBPZ->Position);
|
||
fprintf(fp, "%d\n", TBRX->Position);
|
||
fprintf(fp, "%d\n", TBRY->Position);
|
||
fprintf(fp, "%d\n", TBRZ->Position);
|
||
fprintf(fp, "%d\n\n", TBS->Position);
|
||
|
||
SPERSPECT *psp = &m_Obj.m_sperspect;
|
||
fprintf(fp, "%f\n", psp->ax);
|
||
fprintf(fp, "%f\n", psp->ay);
|
||
fprintf(fp, "%f\n", psp->px);
|
||
fprintf(fp, "%f\n", psp->py);
|
||
fprintf(fp, "%f\n", psp->pz);
|
||
fprintf(fp, "%f\n", psp->rx);
|
||
fprintf(fp, "%f\n", psp->ry);
|
||
fprintf(fp, "%f\n", psp->rz);
|
||
fprintf(fp, "%f\n", psp->s);
|
||
fclose(fp);
|
||
#else
|
||
m_DisEvent++;
|
||
TBAX->Position = 59;
|
||
TBAY->Position = 59;
|
||
TBPX->Position = 0;
|
||
TBPY->Position = 0;
|
||
TBPZ->Position = 0;
|
||
TBRX->Position = 0;
|
||
TBRY->Position = 0;
|
||
TBRZ->Position = -180;
|
||
TBR->Position = 0;
|
||
TBS->Position = 23;
|
||
m_DisEvent--;
|
||
TBAXChange(NULL);
|
||
#endif
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::UpdateBtn(void)
|
||
{
|
||
LoadBtn->Enabled = RGSRC->ItemIndex && fLoadImageMenu;
|
||
PasteBtn->Enabled = LoadBtn->Enabled && Clipboard()->HasFormat(CF_BITMAP);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::RGSRCClick(TObject *Sender)
|
||
{
|
||
if( !RGSRC->ItemIndex ){
|
||
if( m_Obj.m_sperspect.flag && fLoadHistImage ){
|
||
if( m_Obj.pBitmap == NULL ) m_Obj.pBitmap = CreateBitmap(16, 16);
|
||
m_Obj.pBitmap->Handle = fLoadHistImage();
|
||
}
|
||
}
|
||
else if( !m_Obj.m_sperspect.flag ){
|
||
if( m_pObj->pBitmap != NULL ) m_Obj.CopySource(m_pObj->pBitmap);
|
||
}
|
||
m_Obj.m_sperspect.flag = RGSRC->ItemIndex;
|
||
UpdateBitmap();
|
||
PBox->Invalidate();
|
||
UpdateBtn();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::PBoxMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
m_XC = PBox->Width / 2;
|
||
m_YC = PBox->Height / 2;
|
||
int x = X - m_XC;
|
||
int y = m_YC - Y;
|
||
if( x || y ){
|
||
m_Deg = atan2(y, x);
|
||
}
|
||
else {
|
||
m_Deg = 0;
|
||
}
|
||
m_Dist = sqrt(x * x + y * y);
|
||
m_SDeg = TBR->Position;
|
||
m_SDistX = TBAX->Position;
|
||
m_SDistY = TBAY->Position;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::PBoxMouseMove(TObject *Sender,
|
||
TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_XC > 0 ){
|
||
int x = X - m_XC;
|
||
int y = m_YC - Y;
|
||
double Deg;
|
||
if( x || y ){
|
||
Deg = atan2(y, x);
|
||
}
|
||
else {
|
||
Deg = 0;
|
||
}
|
||
Deg = (m_Deg - Deg) * 180.0 / PI;
|
||
Deg += m_SDeg;
|
||
if( Deg < -180 ) Deg += 360.0;
|
||
if( Deg > 180 ) Deg -= 360.0;
|
||
TBR->Position = SHORT(Deg);
|
||
|
||
double Dist = sqrt(x * x + y * y);
|
||
Dist = (Dist - m_Dist)/2;
|
||
int d = Dist + m_SDistX;
|
||
if( d > 201 ) d = 201;
|
||
if( d < 2 ) d = 2;
|
||
TBAX->Position = d;
|
||
d = Dist + m_SDistY;
|
||
if( d > 201 ) d = 201;
|
||
if( d < 2 ) d = 2;
|
||
TBAY->Position = d;
|
||
|
||
TBAXChange(NULL);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::PBoxMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
m_XC = -1;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::LoadBtnClick(TObject *Sender)
|
||
{
|
||
if( fLoadImageMenu ){
|
||
HBITMAP hb = fLoadImageMenu(1, 320, 256);
|
||
if( hb != NULL ){
|
||
if( m_Obj.pBitmap == NULL ) m_Obj.pBitmap = CreateBitmap(16, 16);
|
||
m_Obj.pBitmap->Handle = hb;
|
||
m_Loaded = 1;
|
||
TBAXChange(NULL);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::PasteBtnClick(TObject *Sender)
|
||
{
|
||
TClipboard *pCB = Clipboard();
|
||
if (pCB->HasFormat(CF_BITMAP)){
|
||
Graphics::TBitmap *pbmp = new Graphics::TBitmap;
|
||
try
|
||
{
|
||
pbmp->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
|
||
m_Obj.CopySource(pbmp);
|
||
m_Loaded = 1;
|
||
TBAXChange(NULL);
|
||
}
|
||
catch(...){
|
||
}
|
||
delete pbmp;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TPerSpectDlg::TimerTimer(TObject *Sender)
|
||
{
|
||
if( LoadBtn->Enabled ){
|
||
PasteBtn->Enabled = Clipboard()->HasFormat(CF_BITMAP);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|