clearnew.pas

源代码竟供大家参考

unit clearnew;

interface

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

type
  Tf_clearnew = class(TForm)
    ok: TButton;
    cancel: TButton;
    GroupBox1: TGroupBox;
    ClearAll: TRadioButton;
    ClearPart: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    ClearNew_Check: TCheckBox;
    FromIndex: TEdit;
    Panel3: TPanel;
    FromIndex_Up: TSpeedButton;
    FromIndex_Down: TSpeedButton;
    ToIndex: TEdit;
    Panel4: TPanel;
    ToIndex_Up: TSpeedButton;
    ToIndex_Down: TSpeedButton;
    procedure EnabledInput;
    procedure FormShow(Sender: TObject);
    procedure cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure okClick(Sender: TObject);
    procedure ClearPartClick(Sender: TObject);
    procedure FromIndexKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure mouse_Index(Flag,Kind : String);
    procedure do_text;
    procedure FromIndex_UpClick(Sender: TObject);
    procedure FromIndex_DownClick(Sender: TObject);
    procedure FromIndexChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_clearnew: Tf_clearnew;
  Index_Number : integer;  //处理时的索引号

implementation

uses main;

{$R *.DFM}

procedure Tf_clearnew.EnabledInput();
begin
  Label1.Enabled:=ClearPart.Checked;
  Label2.Enabled:=ClearPart.Checked;

  FromIndex.Enabled:=ClearPart.Checked;
  FromIndex_Up.Enabled:=ClearPart.Checked;
  FromIndex_Down.Enabled:=ClearPart.Checked;

  ToIndex.Enabled:=ClearPart.Checked;
  ToIndex_Up.Enabled:=ClearPart.Checked;
  ToIndex_Down.Enabled:=ClearPart.Checked;
end;

procedure Tf_clearnew.FormShow(Sender: TObject);
begin
  //初始化序号选择按钮
  FromIndex.Text:='1';
  ToIndex.Text:='1';

  //调整输入框
  EnabledInput;

  //写标志：允许清除
  ClearNew_Check.Checked:=True;
end;

procedure Tf_clearnew.okClick(Sender: TObject);
begin
  do_text;
end;

procedure Tf_clearnew.cancelClick(Sender: TObject);
begin
  ClearNew_Check.Checked:=False;
  f_ClearNew.Close;
end;

procedure Tf_clearnew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //打开设置时钟
  if ClearNew_check.Checked then f_main.get_setup_timer.Enabled:=True;
  f_main.Enabled:=True;
end;

procedure Tf_clearnew.ClearPartClick(Sender: TObject);
begin
  EnabledInput;
end;

procedure Tf_clearnew.FromIndexKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    13: ok.Click;      //处理
    38: mouse_Index('Next',(Sender as TEdit).Hint);  //下一索引
    40: mouse_Index('Prev',(Sender as TEdit).Hint);  //上一索引
    27: Cancel.Click;  //忽略改变
  end;
end;

procedure Tf_clearnew.FromIndex_UpClick(Sender: TObject);
begin
  mouse_Index('Next',(Sender as TSpeedButton).Hint);  //下一索引
end;

procedure Tf_clearnew.FromIndex_DownClick(Sender: TObject);
begin
  mouse_Index('Prev',(Sender as TSpeedButton).Hint);  //上一索引
end;

procedure Tf_clearnew.mouse_Index(Flag,Kind : String);
begin
  //获取当前显示的索引，错误则为0
  try
     if Kind='1' then
        Index_Number:=StrToInt(FromIndex.Text)
     else
        Index_Number:=StrToInt(ToIndex.Text);
  except
     Index_Number:=0;
  end;

  if Flag='Next' then
     inc(Index_Number)
  else
     dec(Index_Number);

  if Index_Number<1 then Index_Number:=1;
  if Index_Number>f_main.pop_new.Count-2 then
     Index_Number:=f_main.pop_new.Count-2;

  if Kind='1' then
     FromIndex.Text:=IntToStr(Index_Number)
  else
     ToIndex.Text:=IntToStr(Index_Number);
end;

procedure Tf_clearnew.do_text();
begin
  try  //调整第一个输入框
     Index_Number:=StrToInt(FromIndex.Text);
     if Index_Number<1 then Index_Number:=1;
     if Index_Number>f_main.pop_new.Count-2 then
        Index_Number:=f_main.pop_new.Count-2;
     FromIndex.Text:=IntToStr(Index_Number)
  except
     ClearNew_Check.Checked:=False;
  end;

  try  //调整第二个输入框
     Index_Number:=StrToInt(ToIndex.Text);
     if Index_Number<1 then Index_Number:=1;
     if Index_Number>f_main.pop_new.Count-2 then
        Index_Number:=f_main.pop_new.Count-2;
     ToIndex.Text:=IntToStr(Index_Number)
  except
     ClearNew_Check.Checked:=False;
  end;

  f_ClearNew.Close;
end;

procedure Tf_clearnew.FromIndexChange(Sender: TObject);
begin
  ToIndex.Text:=FromIndex.Text;
end;

end.