//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "TexWorkPrint_F.h"
#include "Common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzEdit"
#pragma link "RzSpnEdt"
#pragma resource "*.dfm"
TTexWorkPrintForm *TexWorkPrintForm;
//---------------------------------------------------------------------------
__fastcall TTexWorkPrintForm::TTexWorkPrintForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::FormCreate(TObject *Sender)
{
  if (Width>Screen->Width) Left = 100;
  else Left = (Screen->Width-Width)/2;
  if (Height>Screen->Height) Top = 100;
  else Top = (Screen->Height-Height)/2;
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::btSetupClick(TObject *Sender)
{
	PrinterSetupDialog->Execute();
  lbPrinter->Caption = " ::: " + Printer()->Printers->Strings[Printer()->PrinterIndex];
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::InitForm()
{
  seFrom->Enabled = false;
  seTo->Enabled = false;
  seMany->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::rbManyClick(TObject *Sender)
{
  seMany->Enabled = true;
  rbOne->Checked = false;
}
//---------------------------------------------------------------------------

void __fastcall TTexWorkPrintForm::rbOneClick(TObject *Sender)
{
  seMany->Enabled = false;
  rbMany->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::rbPartClick(TObject *Sender)
{
  rbWhole->Checked = false;
  seFrom->Enabled = true;
  seTo->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::rbWholeClick(TObject *Sender)
{
  rbPart->Checked = false;
  seFrom->Enabled = false;
  seTo->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TTexWorkPrintForm::EditorSelectAll(TObject *Sender)
{
	SetFocusAndSelectAll(Sender);
}
//---------------------------------------------------------------------------