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.
|
