fc_set.pas

wbs43open-src.zip 数字隐藏工具

unit Fc_set;

interface

uses
  SysUtils, Classes, wbsData, MultiLang
{$IFDEF CLX}
  ,QForms, QStdCtrls, QControls
{$ELSE}
  , Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls
{$ENDIF}
  ;

type
  TForm2 = class(TForm)
    Button2: TButton;
    Button1: TButton;
    Label7: TLabel;
    Label11: TLabel;
    Edit4: TEdit;
    Label12: TLabel;
    Edit5: TEdit;
    ListBox1: TListBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
   Close;
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  Mix:=Not(Mix);
end;

procedure TForm2.CheckBox3Click(Sender: TObject);
begin
  Crypt:=Not(Crypt);
end;

procedure TForm2.CheckBox4Click(Sender: TObject);
begin
  Transmit:=Not(Transmit);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
{$IFDEF CLX}
  Application.HelpSystem.ShowContextHelp(710,Application.HelpFile);
{$ELSE}
  Application.HelpContext(710);
{$ENDIF}
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('Fc_set.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('Fc_set.Button2.Caption');
  //CheckBox1.Caption:=ml.GetComponentString('Fc_set.CheckBox1.Caption');
  //CheckBox3.Caption:=ml.GetComponentString('Fc_set.CheckBox3.Caption');
  //CheckBox4.Caption:=ml.GetComponentString('Fc_set.CheckBox4.Caption');
  Form2.Caption:=ml.GetComponentString('Fc_set.Form2.Caption');
  Label1.Caption:=ml.GetComponentString('Fc_set.Label1.Caption');
  Label11.Caption:=ml.GetComponentString('Fc_set.Label11.Caption');
  Label12.Caption:=ml.GetComponentString('Fc_set.Label12.Caption');
  Label7.Caption:=ml.GetComponentString('Fc_set.Label7.Caption');
  //Label8.Caption:=ml.GetComponentString('Fc_set.Label8.Caption');
  ml.GetComponentStringList('Fc_set.ListBox1.Items',ListBox1.Items);
  /////////////////////////////////////////////////////////////////
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=True;
  Mix:=False;
  Crypt:=False;
  if ListBox1.ItemIndex>3 then CryptAlgo:=ListBox1.ItemIndex-3
  else CryptAlgo:=0;
  if ListBox1.ItemIndex=1 then begin
     Mix:=True;
  end;
  if ListBox1.ItemIndex=2 then begin
     Crypt:=True;
  end;
  if ListBox1.ItemIndex=3 then begin
     Crypt:=True;
     Mix:=True;
  end;
  pwd:=Edit4.Text;
  If pwd='' Then Begin
    If (Mix Or Crypt Or (CryptAlgo>0)) Then Begin
{$IFNDEF CLX}
      MessageDlg(ml.GetCodeString('Fc_set',1){'Please enter a password.'},mtInformation,[mbOK],250);   // code001
{$ENDIF}
      CanClose:=False;
    End;
  End
  Else Begin
    If pwd<>Edit5.Text Then Begin
      CanClose:=False;
{$IFNDEF CLX}
      MessageDlg(ml.GetCodeString('Fc_set',2){'Password and confirmation do not match.'},mtError,[mbOK],250);  // code002
{$ENDIF}
    End;
  End;

end;

end.