---

DContrast.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "DContrast.h"
#include "MDIEdit.h"
#include "MDISlice.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TContrastForm *ContrastForm;
//---------------------------------------------------------------------------
__fastcall TContrastForm::TContrastForm(TComponent* Owner,
                                        THistogram *h,
                                        TContrast *c)
        : TForm(Owner),
          _histo(h),
          _contrast(c),
          _created(false),
          _lower(0),
          _upper(1),
          _selLower(false),
          _selUpper(false)
{
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::HistoAreaPaint(TObject *Sender)
{
        _draw();
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::BCloseClick(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::FormCreate(TObject *Sender)
{
        if (histo->horizontal) {
                TBHorizontal->Min = 1;
                TBHorizontal->Max = (int)(histo->getHMaxZoom(HistoArea)*100.0);
                TBHorizontal->Position = (int)(histo->histoZoom*100.0);
                TBVertical->Min = 1;
                TBVertical->Max = 1000;
                TBVertical->Position = (int)(histo->valZoom*100.0);
        } else {
                TBVertical->Min = 1;
                TBVertical->Max = (int)(histo->getHMaxZoom(HistoArea)*100.0);
                TBVertical->Position = (int)(histo->histoZoom*100.0);
                TBHorizontal->Min = 1;
                TBHorizontal->Max = 1000;
                TBHorizontal->Position = (int)(histo->valZoom*100.0);
        }
        _lower = (int)(contr->Lower*(float)histo->size/histo->getHPP(HistoArea));
        _upper = (int)(contr->Upper*(float)histo->size/histo->getHPP(HistoArea));
        _created = true;
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::TBHorizontalChange(TObject *Sender)
{
        if (!_created) return;
        if (histo->horizontal)
                histo->histoZoom = (float)TBHorizontal->Position / 100.0;
        else
                histo->valZoom = (float)TBHorizontal->Position / 100.0;
        _draw();
}
//---------------------------------------------------------------------------

void __fastcall TContrastForm::TBVerticalChange(TObject *Sender)
{
        if (!_created) return;
        if (histo->horizontal)
                histo->valZoom = (float)TBVertical->Position / 100.0;
        else
                histo->histoZoom = (float)TBVertical->Position / 100.0;
        _draw();
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::_draw()
{
        histo->drawTo(HistoArea);
        //histo->drawTo(SliceForm->HistoArea);
        LValZoom->Caption = AnsiString::FormatFloat("##.000", histo->valZoom);
        LHistoZoom->Caption = AnsiString::FormatFloat("##.000", histo->histoZoom);
        _contrast->Lower = _lower*_histo->getHPP(HistoArea)/_histo->size;
        _contrast->Upper = _upper*_histo->getHPP(HistoArea)/_histo->size;

        HistoArea->Canvas->Pen->Color = clBlack;
        if (histo->horizontal) {
                HistoArea->Canvas->MoveTo(_lower, 0);
                HistoArea->Canvas->LineTo(_lower, HistoArea->Height);
                HistoArea->Canvas->MoveTo(_upper, 0);
                HistoArea->Canvas->LineTo(_upper, HistoArea->Height);
        } else {
                HistoArea->Canvas->MoveTo(0, _lower);
                HistoArea->Canvas->LineTo(HistoArea->Width, _lower);
                HistoArea->Canvas->MoveTo(0, _upper);
                HistoArea->Canvas->LineTo(HistoArea->Width, _upper);
        }
        SliceForm->HistoAreaPaint(this);
        SliceForm->TrackBarChange(this);
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::HistoAreaMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (histo->horizontal) {
                _selLower = abs(X-_lower)<=5;
                _selUpper = abs(X-_upper)<=5;
        } else {
                _selLower = abs(Y-_lower)<=5;
                _selUpper = abs(Y-_upper)<=5;
        }
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::HistoAreaMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        int pos;
        if (histo->horizontal)  pos=X;
        else                    pos=Y;
        if (_selLower) {
                _lower = pos;
                _draw();
        } else if (_selUpper) {
                _upper = pos;
                _draw();
        }
}
//---------------------------------------------------------------------------
void __fastcall TContrastForm::HistoAreaMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        _selUpper = _selLower = false;
}
//---------------------------------------------------------------------------

---