//---------------------------------------------------------------------
#include "all.h"

//---------------------------------------------------------------------
#pragma resource "*.dfm"
TRangeDlg *RangeDlg;
//---------------------------------------------------------------------
__fastcall TRangeDlg::TRangeDlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TRangeDlg::ScrollBarRangeChange(TObject *Sender)
{
   EditRange->Text=ScrollBarRange->Position;
}
//---------------------------------------------------------------------------
void __fastcall TRangeDlg::EditRangeChange(TObject *Sender)
{
   int nPos=ScrollBarRange->Min;
   if(EditRange->GetTextLen()>0)
      nPos=EditRange->Text.ToInt();
   else
      EditRange->Text = ScrollBarRange->Min; 

   if(nPos<ScrollBarRange->Min)
      nPos=ScrollBarRange->Min;

   if(nPos>ScrollBarRange->Max)
      nPos=ScrollBarRange->Max;

   if(nPos!=EditRange->Text.ToInt())
      EditRange->Text = nPos;

   ScrollBarRange->Position=nPos;
}
//---------------------------------------------------------------------------