settings.pas

wbs43open-src.zip 数字隐藏工具

unit settings;

interface

uses
  SysUtils, Classes, MultiLang
{$IFDEF CLX}
  ,QForms, QDialogs, QStdCtrls, QControls,QComCtrls, QExtCtrls
{$ELSE}
 , Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, FileCtrl
{$ENDIF}
  ;

type
  TForm10 = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
{$IFNDEF CLX}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
{$ELSE}
{$ENDIF}
  private
    { Private-Deklarationen }
  public
    CopyrightPath:           String;
    Language:                String;
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
begin
  Language:=ComboBox1.Items[ComboBox1.ItemIndex];
  Close;
end;

procedure TForm10.FormShow(Sender: TObject);
var
  i:      Integer;
begin
  Label2.Caption:=CopyrightPath;
  for i:=0 to ComboBox1.Items.Count-1 do begin
    if LowerCase(Language)=LowerCase(ComboBox1.Items[i]) then ComboBox1.ItemIndex:=i;
  end;
end;

{$IFNDEF CLX}
procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Language:=ComboBox1.Items[ComboBox1.ItemIndex];
end;
{$ENDIF}

procedure TForm10.Button2Click(Sender: TObject);
var
  Capt:   String;
  Start:  WideString;
begin
  Start:='\';
  Capt:={'Select Path';}ml.GetCodeString('splash',1);
  SelectDirectory(Capt,Start,CopyrightPath);
  if CopyrightPath='' then CopyrightPath:='C:\';
  if CopyrightPath[Length(CopyrightPath)]<>'\' then CopyrightPath:=CopyrightPath+'\';
  Label2.Caption:=CopyrightPath;
end;


procedure TForm10.FormCreate(Sender: TObject);
begin
  // ml support
  Form10.Caption:=ml.GetComponentString('settings.Form10.Caption');
  TabSheet1.Caption:=ml.GetComponentString('settings.TabSheet1.Caption');
  Label1.Caption:=ml.GetComponentString('settings.Label1.Caption');
  Label2.Caption:=ml.GetComponentString('settings.Label2.Caption');
  Label3.Caption:=ml.GetComponentString('settings.Label3.Caption');
  Label5.Caption:=ml.GetComponentString('settings.Label5.Caption');
  Button1.Caption:=ml.GetComponentString('settings.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('settings.Button2.Caption');
  Button3.Caption:=ml.GetComponentString('settings.Button3.Caption');
end;

procedure TForm10.Button3Click(Sender: TObject);
begin
{$IFDEF CLX}
  Application.HelpSystem.ShowContextHelp(1000,Application.HelpFile);
{$ELSE}
  Application.HelpContext(1000);
{$ENDIF}
end;


end.