unit PatchFom;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin,EnScan, ExtCtrls;


type
  TPatchDlg = class(TForm)
    BlankGB: TGroupBox;
    BlankuseCB: TCheckBox;
    sizeLB: TLabel;
    OkBt: TButton;
    SpinEdit5: TSpinEdit;
    CancelBt: TButton;
    ScannerGB: TGroupBox;
    DpiLB: TLabel;
    ComboBox1: TComboBox;
    BorderCB: TCheckBox;
    ScanRotateRG: TRadioGroup;
    DeskewCB: TCheckBox;
    ScanShowRG: TRadioGroup;
    ReverseCB: TCheckBox;
    DuplexCB: TCheckBox;
    ImgSetGB: TGroupBox;
    BrightLB: TLabel;
    SpinEdit1: TSpinEdit;
    ContrastLB: TLabel;
    SpinEdit2: TSpinEdit;
    ImgSetUseCB: TCheckBox;
    DefaultBt: TButton;
    procedure OkBtClick(Sender: TObject);
    procedure BlankuseCBClick(Sender: TObject);
    procedure CancelBtClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DefaultBtClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    SelectOk : Boolean;
  end;

var
  PatchDlg: TPatchDlg;

implementation

uses CB_IMGPSScanImp;

{$R *.DFM}

procedure TPatchDlg.OkBtClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TPatchDlg.BlankuseCBClick(Sender: TObject);
begin
  If BlankuseCB.Checked Then
    SpinEdit5.Enabled := True
  Else
    SpinEdit5.Enabled := False;
end;

procedure TPatchDlg.DefaultBtClick(Sender: TObject);
var
  i : Integer;
begin
  BlankuseCB.Checked := Def_DeviceDelete;
  if BlankuseCB.Checked then
    SpinEdit5.Enabled := True
  else
    SpinEdit5.Enabled := False;
  SpinEdit5.Value := Def_DeviceDeleteSize;
  For i := 0 to ComboBox1.Items.Count -1 do
  begin
    If inttostr(Def_ScanDpi) = ComboBox1.Items.Strings[i] Then
      ComboBox1.ItemIndex := i;
    end;
  DuplexCB.Checked := Def_ScanDuplex;
  ReverseCB.Checked := Def_ScannerReverse;
  BorderCB.Checked := Def_BoardClear;
  DeskewCB.Checked := Def_ScanDeskew;
  ImgSetUseCB.Checked := Def_ScanImgSetUse;
  SpinEdit1.Value := Def_ScanBright;
  SpinEdit2.Value := Def_ScanContrast;
  case Def_ScanRotate of
    0  : ScanRotateRG.ItemIndex := 0;
    270 : ScanRotateRG.ItemIndex := 1;
    180 : ScanRotateRG.ItemIndex := 2;
    90 : PatchDlg.ScanRotateRG.ItemIndex := 3;
  end;
  Case Def_ScanImgShowMode of
    0 :  ScanShowRG.ItemIndex := 0;
    1 :  ScanShowRG.ItemIndex := 1;
    2 :  ScanShowRG.ItemIndex := 2;
  end;

end;

procedure TPatchDlg.CancelBtClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TPatchDlg.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
  Edit : TEdit;
begin
  Edit := TEdit(Sender);
  IF ((Ord(Key) < 48) or (ord(Key) > 57)) and (ord(key) <> 46) and (ord(key) <> 8) or ((pos('.',Edit.Text)>0)and(ord(key) = 46) ) Then
    key := Chr(0);


end;

procedure TPatchDlg.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
  Edit : TEdit;
begin
  Edit := TEdit(Sender);
  IF Copy(Edit.Text,1,1)= '.' Then
    Edit.Text := '';
end;


procedure TPatchDlg.FormCreate(Sender: TObject);
begin
  PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
end;

procedure TPatchDlg.Edit1Exit(Sender: TObject);
Var
  Edit : TEdit;
begin
  Edit := TEdit(Sender);
  If Edit.Text = '' Then
    Edit.Text := '0';
end;

procedure TPatchDlg.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  IF ((Ord(Key) < 48) or (ord(Key) > 57)) and (ord(key) <> 8) Then
    key := Chr(0);
end;

procedure TPatchDlg.ComboBox1Exit(Sender: TObject);
begin
  IF ComboBox1.Text = '' Then
    ComBoBox1.Text := '240';
end;

end.