unit uCalc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, StrUtils, Buttons, sSpeedButton, StdCtrls, sEdit, sBitBtn;

type
  TfrmCalc = class(TForm)
    edtInput: TsEdit;
    edt1: TsBitBtn;
    edt2: TsBitBtn;
    edt3: TsBitBtn;
    edtAdd: TsBitBtn;
    edtDel: TsBitBtn;
    edt4: TsBitBtn;
    edt5: TsBitBtn;
    edt6: TsBitBtn;
    edtDoc: TsBitBtn;
    edtEsc: TsBitBtn;
    edt7: TsBitBtn;
    edt8: TsBitBtn;
    edt9: TsBitBtn;
    edt0: TsBitBtn;
    edtReturn: TsBitBtn;
    edtClose: TsBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtCloseClick(Sender: TObject);
    procedure edt1Click(Sender: TObject);
    procedure edtAddClick(Sender: TObject);
    procedure edtDocClick(Sender: TObject);
    procedure edtDelClick(Sender: TObject);
    procedure edtEscClick(Sender: TObject);
    procedure edtReturnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    strParam : String;
    procedure InsertStringAtCursor(EditControl: TsEdit; Str: string);
    procedure DeleteCharsBeforeCursor(EditControl: TsEdit; Count: Integer=1);
  end;

var
  frmCalc: TfrmCalc;

implementation

uses
  uMain, global;

{$R *.dfm}

//------- ×Ô¶¨Ò幦Äܺ¯Êý -------------------------------------------------------
//×Ô¶¨Ò庯Êý£ºEditÈ«Ñ¡Åж¨
function IsTextFullySelected(Edit: TsEdit): Boolean;
begin
  Result := (Edit.SelStart = 0) and (Edit.SelLength = Length(Edit.Text));
end;

//×Ô¶¨Ò庯Êý£º´Ó¹â±ê´¦²åÈë×Ö·û
procedure TfrmCalc.InsertStringAtCursor(EditControl: TsEdit; Str: string);
begin
  // ±£´æµ±Ç°¹â±êλÖÃ
  EditControl.SelStart := EditControl.SelStart;
  EditControl.SelLength := 0; // ²»Ñ¡ÔñÈκÎÎı¾£¬È·±£Ö»²åÈë¶ø²»Ìæ»»
  EditControl.SelText := Str; // ²åÈë×Ö·û´®
end;

//×Ô¶¨Ò庯Êý£º´Ó¹â±ê´¦É¾³ý×Ö·û
procedure TfrmCalc.DeleteCharsBeforeCursor(EditControl: TsEdit; Count: Integer=1);
var
  CursorPos, NewStart: Integer;
begin
  if IsTextFullySelected(EditControl) then EditControl.Text := ''
  else begin
  CursorPos := EditControl.SelStart;
  if CursorPos >= Count then
  begin
    NewStart := CursorPos - Count; // ¼ÆËãеÄÑ¡ÔñÆðµã
    EditControl.SelStart := NewStart;
    EditControl.SelLength := Count; // Ñ¡ÔñCount¸ö×Ö·û
    EditControl.SelText := '';      // ɾ³ýÑ¡¶¨µÄÎı¾
  end
  else
  begin
    // Èç¹ûCount´óÓÚ¹â±êλÖã¬Ôòɾ³ýËùÓÐÔÚ¹â±ê֮ǰµÄ×Ö·û
    EditControl.SelStart := 0;
    EditControl.SelLength := CursorPos;
    EditControl.SelText := '';
  end;
  end;
end;
//------- ³õʼ»¯ ---------------------------------------------------------------
procedure TfrmCalc.FormShow(Sender: TObject);
begin
  edtInput.Text := strParam;
  //³õʼ»¯ÃÜÂë
  frmMain.sLoginPwd := '';
end;

procedure TfrmCalc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmCalc := nil;
end;

//------- °´Å¥¹¦ÄÜÇø------------------------------------------------------------
//Êý×ÖÇø¹¦ÄÜ
procedure TfrmCalc.edt1Click(Sender: TObject);
begin
  if IsTextFullySelected(edtInput) then edtInput.Text := '';
  case TsBitBtn(Sender).Tag of
    0: InsertStringAtCursor(edtInput,'0');
    1: InsertStringAtCursor(edtInput,'1');
    2: InsertStringAtCursor(edtInput,'2');
    3: InsertStringAtCursor(edtInput,'3');
    4: InsertStringAtCursor(edtInput,'4');
    5: InsertStringAtCursor(edtInput,'5');
    6: InsertStringAtCursor(edtInput,'6');
    7: InsertStringAtCursor(edtInput,'7');
    8: InsertStringAtCursor(edtInput,'8');
    9: InsertStringAtCursor(edtInput,'9');
  end;
end;

procedure TfrmCalc.edtCloseClick(Sender: TObject);
begin
  Close();
end;

//ÊäÈëÕý¸ººÅ
procedure TfrmCalc.edtAddClick(Sender: TObject);
{var
  ss : string;
  len : Integer;}
begin
  {ss := LeftStr(edtInput.Text,1);
  len := Length(edtInput.Text);
  if ss='-' then
    edtInput.Text := RightStr(edtInput.Text, len-1)
  else
    edtInput.Text := '-'+edtInput.Text;}
  InsertStringAtCursor(edtInput,'-');
end;

//ÊäÈë.ºÅ
procedure TfrmCalc.edtDocClick(Sender: TObject);
begin
  //if pos('.',edtInput.Text)=0 then
  //edtInput.Text := edtInput.Text+'.';
  InsertStringAtCursor(edtInput,'.');
end;

//ÊäÈëɾ³ý·ûºÅ
procedure TfrmCalc.edtDelClick(Sender: TObject);
begin
  DeleteCharsBeforeCursor(edtInput);
end;

//ÊäÈëesc
procedure TfrmCalc.edtEscClick(Sender: TObject);
begin
  edtInput.Clear;
end;

//ÊäÈë»Ø³µÈ·ÈÏ
procedure TfrmCalc.edtReturnClick(Sender: TObject);
//var
//  len : Integer;
begin
  //½«½á¹û¸üе½È«¾Ö±äÁ¿
  glCalcOutput := edtInput.Text;
  //´¦ÀíÒì³£--×Ö·û´®×îºóһλÊÇ.
  {if RightStr(glCalcOutput,1)='.' then  begin
    len := Length(glCalcOutput);
    glCalcOutput := LeftStr(glCalcOutput, len-1);
  end; }
  //°´½¹µã·µ»Ø×Ö·û´®
  case glCurrFocus of
    //------ 0רָ·µ»ØÊÖ¶¯Ä£Ê½¿ÚÁîÖµ -----
    0: begin
      frmMain.sLoginPwd := glCalcOutput;
    end;
    //------------------------------------
    1: begin
      frmMain.edtMois1.Text := glCalcOutput;
    end;
    2: begin
      frmMain.edtMois2.Text := glCalcOutput;
    end;
    3: begin
      frmMain.edtMois3.Text := glCalcOutput;
    end;
    4: begin
      frmMain.edtMois4.Text := glCalcOutput;
    end;
    5: begin
      frmMain.edtMois5.Text := glCalcOutput;
    end;
    6: begin
      frmMain.edtManCoef1.Text := glCalcOutput;
    end;
    7: begin
      frmMain.edtManCoef2.Text := glCalcOutput;
    end;
    8: begin
      frmMain.edtManCoef3.Text := glCalcOutput;
    end;
    9: begin
      frmMain.edtManCoef4.Text := glCalcOutput;
    end;
    10: begin
      frmMain.edtManCoef5.Text := glCalcOutput;
    end;
    11: begin
      frmMain.edtIP.Text := glCalcOutput;
    end;
    12: begin
      frmMain.edtPort.Text := glCalcOutput;
    end;
    13: begin
      frmMain.edtTime1.Text := glCalcOutput;
    end;
    14: begin
      frmMain.edtTime2.Text := glCalcOutput;
    end;
    15: begin
      frmMain.edtWeight1.Text := glCalcOutput;
    end;
    16: begin
      frmMain.edtWeight2.Text := glCalcOutput;
    end;
    17: begin
      frmMain.edtWeight3.Text := glCalcOutput;
    end;
    18: begin
      frmMain.edtWTare.Text := glCalcOutput;
    end;
    19: begin
      frmMain.edtRange.Text := glCalcOutput;
    end;
    20: begin
      frmMain.edtVolume.Text := glCalcOutput;
    end;
    21: begin
      frmMain.edtTare.Text := glCalcOutput;
    end;
    22: begin
      frmMain.edtDelay.Text := glCalcOutput;
    end;
    23: begin
      frmMain.edtPassword.Text := glCalcOutput;
    end;
    24: begin
      frmMain.edtManVal.Text := glCalcOutput;
    end;
    25: begin
      frmMain.edtIntercept.Text := glCalcOutput;
    end;
    26: begin
      frmMain.edtHeartIP.Text := glCalcOutput;
    end;
    27: begin
      frmMain.edtHeartPort.Text := glCalcOutput;
    end;
  end;
  //¹Ø±Õ¼üÅÌ
  Close();
end;

end.