---

MDITransfer.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MDITransfer.h"
#include "mdiframe.h"
#include "MDIEdit.h"
#include <XMLDoc.hpp>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTransferForm *TransferForm;
//---------------------------------------------------------------------------
__fastcall TTransferForm::TTransferForm(TComponent* Owner, TTransfer *transe)
        : TForm(Owner),
          _created(false),
          _selLine(-1),
          _selPoint(-1),
          _lineNr(-1),
          _endpoint(-1),
          _beginSelect(false),
          _beginSelectEndpoint(false),
          _beginCut(false),
          _beginMove(false)
{
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_setHistoArea()
{
        // HA->Width:
        HistoArea->Width = (int)((float)PHistoAreaBack->ClientWidth *
                                 histo->histoZoom);
        // HA->Height:
        HistoArea->Height = (int)((float)PHistoAreaBack->ClientHeight *
                                  histo->valZoom);
        // HA->Left:
        if (HistoArea->Width > PHistoAreaBack->Width)
                HistoArea->Left = (int)((float)HistoArea->Width *
                                        histo->histoPos);
        else
                HistoArea->Left = PHistoAreaBack->Width - HistoArea->Width;
        // HA->Top:
        if (HistoArea->Height > PHistoAreaBack->Height)
                HistoArea->Top = (int)((float)HistoArea->Height *
                                       histo->valPos);
        else
                HistoArea->Top = PHistoAreaBack->Height - HistoArea->Height;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_setHistoZoom()
{
        // HistoZoom->Max:
        TBHorizontal->Max = (int)(histo->getHMaxZoom(PHistoAreaBack)*100.0);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_setValZoom()
{
        // ValZoom->Pos:
        TBVertical->Position = (int)(histo->valZoom * 100.0);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_setHistoPos()
{
        if (SBHorizontal->PageSize > HistoArea->Width) {
                // HistoPos->Page:
                if (HistoArea->Width > PHistoAreaBack->Width) {
                        SBHorizontal->PageSize = PHistoAreaBack->Width;
                        SBHorizontal->LargeChange = SBHorizontal->PageSize;
                } else {
                        SBHorizontal->PageSize = HistoArea->Width;
                        SBHorizontal->LargeChange = SBHorizontal->PageSize;
                }
                // HistoPos->Max
                SBHorizontal->Max = HistoArea->Width;
        } else {
                // HistoPos->Max
                SBHorizontal->Max = HistoArea->Width;
                // HistoPos->Page:
                if (HistoArea->Width > PHistoAreaBack->Width) {
                        SBHorizontal->PageSize = PHistoAreaBack->Width;
                        SBHorizontal->LargeChange = SBHorizontal->PageSize;
                } else {
                        SBHorizontal->PageSize = HistoArea->Width;
                        SBHorizontal->LargeChange = SBHorizontal->PageSize;
                }
        }
        SBHorizontal->Position = SBHorizontal->Max * histo->histoPos;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_setValPos()
{
        if (SBVertical->PageSize > HistoArea->Height) {
                // ValPos->Page
                if (HistoArea->Height > PHistoAreaBack->Height) {
                        SBVertical->PageSize = PHistoAreaBack->Height;
                        SBVertical->LargeChange = SBVertical->PageSize;
                } else {
                        SBVertical->PageSize = HistoArea->Height;
                        SBVertical->LargeChange = SBVertical->PageSize;
                }
                // ValPos->Max
                SBVertical->Max = HistoArea->Height;
        } else {
                // ValPos->Max
                SBVertical->Max = HistoArea->Height;
                // ValPos->Page
                if (HistoArea->Height > PHistoAreaBack->Height) {
                        SBVertical->PageSize = PHistoAreaBack->Height;
                        SBVertical->LargeChange = SBVertical->PageSize;
                } else {
                        SBVertical->PageSize = HistoArea->Height;
                        SBVertical->LargeChange = SBVertical->PageSize;
                }
        }
        SBVertical->Position = SBVertical->Max * -histo->valPos;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_movePointTo(int x, int y, bool start)
{
        const int n = transe->numLines-1;
        const int idx = transe->getSelIdx();
        TLine *l = transe->getSelected();
        // the real values:
        int rx = (int)((float)x*histo->getHPP(HistoArea));
        int ry = (int)((float)(HistoArea->Height-y)/
                       (float)HistoArea->Height*
                       (float)0xff);
        if (start) {    // manipulate start point
                TLine *l2 = transe->getLine(idx-1);

                // make a few tests:
                if (idx == 0) {
                        rx=0;
                } else {
                        if (rx>l->End.X) rx=l->End.X;
                        if (l2) if (rx<l2->Start.X) rx=l2->Start.X;
                        if (rx>histo->size) rx=histo->size;
                        if (rx<0) rx=0;
                }
                if (ry>0xff) ry=0xff;
                if (ry<0) ry=0;

                // set line:
                l->Start.X = rx;
                l->Start.Y = ry;
                if (l2) {
                        l2->End.X = rx;
                        l2->End.Y = ry;
                }
        } else {        // manipulate end point
                TLine *l2 = transe->getLine(idx+1);

                // make a few tests:
                if (idx == n) {
                        rx=4096;
                } else {
                        if (rx<l->Start.X) rx=l->Start.X;
                        if (rx>l2->End.X) rx=l2->End.X;
                        if (rx>histo->size) rx=histo->size;
                        if (rx<0) rx=0;
                }
                if (ry>0xff) ry=0xff;
                if (ry<0) ry=0;

                // set line:
                l->End.X = rx;
                l->End.Y = ry;
                if (l2) {
                        l2->Start.X = rx;
                        l2->Start.Y = ry;
                }
        }
        transe->Dirty = true;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::_updateColor()
{
        for (int i=0; i<size; ++i) color[i] = transe->getColor(data[i]);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::FormCreate(TObject *Sender)
{
        histo->horizontal = true;

        _setHistoArea();
        _setHistoZoom();
        _setHistoPos();
        _setValZoom();
        _setValPos();

        LZoomX->Caption = AnsiString::FormatFloat("#0.00000", histo->histoZoom);
        LZoomY->Caption = AnsiString::FormatFloat("#0.00000", histo->valZoom);
        LHistoX->Caption = "0.000";
        LHistoY->Caption = "0.000";
        LbName->Items->Assign(transe->areaNames);

        _created = true;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        Action=caFree;
        FrameForm->METransferfunktion->Checked = false;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::HistoAreaPaint(TObject *Sender)
{
        histo->drawTo(HistoArea);
        transe->drawTo(HistoArea);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::PHistoAreaBackResize(TObject *Sender)
{
        // Set Histo Zoom:
        if (histo->histoZoom > histo->getHMaxZoom(PHistoAreaBack))
                histo->histoZoom = histo->getHMaxZoom(PHistoAreaBack);
        _setHistoZoom();
        _setHistoArea();
        _setHistoPos();
        _setValPos();
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::TBVerticalChange(TObject *Sender)
{
        if (!_created) return;
        if (histo->horizontal) {
                histo->valZoom = (float)TBVertical->Position/100.0;
        } else {
                histo->histoZoom = (float)TBVertical->Position/100.0;
        }
        _setHistoArea();
        _setValPos();
        LZoomY->Caption = AnsiString::FormatFloat("#0.00000", histo->valZoom);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::TBHorizontalChange(TObject *Sender)
{
        if (!_created) return;
        if (histo->horizontal) {
                histo->histoZoom = (float)TBHorizontal->Position/100.0;
        } else {
                histo->valZoom = (float)TBHorizontal->Position/100.0;
        }
        _setHistoArea();
        _setHistoPos();
        LZoomX->Caption = AnsiString::FormatFloat("#0.00000", histo->histoZoom);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SBVerticalChange(TObject *Sender)
{
        histo->valPos = -(float)SBVertical->Position/(float)HistoArea->Height;
        _setHistoArea();
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SBHorizontalChange(TObject *Sender)
{
        histo->histoPos = -(float)SBHorizontal->Position/
                           (float)HistoArea->Width;
        _setHistoArea();
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SFGColorMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (_selLine != -1) {
                if (ColorDialog1->Execute()) {
                        SFGColor->Brush->Color = ColorDialog1->Color;
                        transe->Dirty = true;
                        TLine *l = transe->getSelected();
                        if (l->Start.Selected)
                                l->Start.TC = SFGColor->Brush->Color;
                        else if (l->End.Selected)
                                l->End.TC = SFGColor->Brush->Color;
                        HistoAreaPaint(this);
                        _updateColor();
                }
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SBGColorMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        ColorDialog1->Execute();
        SBGColor->Brush->Color = ColorDialog1->Color;
        histo->background = SBGColor->Brush->Color;
        HistoAreaPaint(this);
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::HistoAreaMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        LHistoX->Caption = AnsiString((int)((float)X*histo->getHPP(HistoArea)));
        LHistoY->Caption = AnsiString((int)((float)(HistoArea->Height-Y)/
                                            (float)HistoArea->Height*
                                            (float)0xff));

        _lineNr = transe->lineNear(HistoArea, X, Y);
        _endpoint = transe->nearStart(_selLine, HistoArea, X, Y) ? 1 : -1;
        _endpoint = transe->nearEnd(_selLine, HistoArea, X, Y) ? 2 : _endpoint;

        if (_beginMove) {
                _movePointTo(X,Y,(_selPoint == 1));
                HistoAreaPaint(this);
        } else if (_lineNr != -1 || _endpoint != -1) {
                if (SBCursor->Down)
                        HistoArea->Cursor = crHandPoint;
                else if (SBCut->Down)
                        HistoArea->Cursor = crCross;
                else if (SBMove->Down) {
                        HistoArea->Cursor = crHandPoint;
                        if (_endpoint != -1)
                                HistoArea->Cursor = crSizeAll;
                }
        } else {
                HistoArea->Cursor = crDefault;
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::HistoAreaMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        _beginSelect = (SBCursor->Down || SBMove->Down) && _lineNr != -1;
        _beginSelectEndpoint = SBCursor->Down && (_endpoint != -1);
        _beginCut = SBCut->Down && _lineNr != -1;
        _beginMove = SBMove->Down && ((_selLine != -1) && (_endpoint != -1));
        if (_beginMove)
                _selPoint = _endpoint;
        else
                _selPoint = -1;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::HistoAreaMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (_beginCut) {
                 _selLine = transe->split(HistoArea, X, Y);
                _updateColor();
        } else if (_beginMove) {
                _updateColor();
        } else if (_beginSelectEndpoint) {
                if (_endpoint == 1) {
                        transe->selectStart(_selLine);
                        SFGColor->Brush->Color =
                                transe->getSelected()->Start.TC;
                } else if (_endpoint == 2) {
                        transe->selectEnd(_selLine);
                        SFGColor->Brush->Color =
                                transe->getSelected()->End.TC;
                }
        } else if (_beginSelect) {      // A line is selected:
                _selLine = _lineNr;
                if (!_beginMove) transe->select(_selLine);
                TLine *l = transe->getSelected();

                if (l) {
                        // Setup properties:
                        LStart->Caption = "(" + AnsiString(l->Start.X) + ", "
                                          + AnsiString(l->Start.Y) + ")";
                        LEnd->Caption = "(" + AnsiString(l->End.X) + ", "
                                        + AnsiString(l->End.Y) + ")";
                        //EName->Enabled = true;
                        EName->Text = "";
                        //SbNameOkay->Enabled = true;
                        //SbNameDel->Enabled = true;
                        //LbName->Enabled = true;
                        if (l->Name <= LbName->Items->Count)
                                LbName->ItemIndex = l->Name;
                        else
                                LbName->ItemIndex = -1;
                        SStart->Brush->Color = l->Start.TC;
                        SEnd->Brush->Color = l->End.TC;
                }
        } else if (SBCursor->Down) {
                transe->unselect();

                // Reset properties:
                LStart->Caption = "(0, 0)";
                LEnd->Caption = "(0, 0)";
                SStart->Brush->Color = clBtnFace;
                SEnd->Brush->Color = clBtnFace;
                //LbName->Enabled = false;
                LbName->ItemIndex = -1;
                //EName->Enabled = false;
                EName->Text = "";
                //SbNameOkay->Enabled = false;
                //SbNameDel->Enabled = false;
        }
        HistoAreaPaint(this);
        _beginSelect = false;
        _beginSelectEndpoint = false;
        _beginCut = false;
        _beginMove = false;
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SpeedButton1Click(TObject *Sender)
{
        _updateColor();
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::ENameKeyPress(TObject *Sender, char &Key)
{
        if (Key == 13) {
                SbNameOkayClick(this);
        } else {
                int idx = LbName->Items->IndexOf(EName->Text);
                if (idx != -1) LbName->ItemIndex = idx;
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SbNameOkayClick(TObject *Sender)
{
        int idx = LbName->Items->IndexOf(EName->Text);
        if (idx != -1) {
                LbName->ItemIndex = idx;
        } else {
                transe->areaNames->Add(EName->Text);
                LbName->Items->Assign(transe->areaNames);
                EName->Text = "";
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::LbNameClick(TObject *Sender)
{
        if (LbName->ItemIndex != -1) {
                EName->Text = (*LbName->Items)[LbName->ItemIndex];
                TLine *l = transe->getSelected();
                if (l) l->Name = LbName->ItemIndex;
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SbNameDelClick(TObject *Sender)
{
        if (LbName->ItemIndex != -1) {
                transe->areaNames->Delete(LbName->ItemIndex);
                LbName->Items->Assign(transe->areaNames);
                EName->Text = "";
                TLine *l = transe->getSelected();
                if (l) l->Name = -1;
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::LbNameDblClick(TObject *Sender)
{
        if (LbName->ItemIndex != -1) {
                LbName->ItemIndex = -1;
                EName->Text = "";
                TLine *l = transe->getSelected();
                if (l) l->Name = -1;
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SbLoadClick(TObject *Sender)
{
        if (OpenDialog1->Execute()) {
                _di_IXMLDocument obj = LoadXMLDocument(OpenDialog1->FileName);
                _di_IXMLNode doc = obj->DocumentElement;
                if (transe->loadFromXLM(doc))
                        LbName->Items->Assign(transe->areaNames);
        }
}
//---------------------------------------------------------------------------

void __fastcall TTransferForm::SbSaveClick(TObject *Sender)
{
        if (SaveDialog1->Execute()) {
                _di_IXMLDocument obj = NewXMLDocument("1.0");
                _di_IXMLNode doc = obj->AddChild("Transferfunction");
                if (transe->saveToXML(doc))
                        obj->SaveToFile(SaveDialog1->FileName);
        }
}
//---------------------------------------------------------------------------

---