unit5.pas

来自「datacnie多页面浏览器datacnie 原程序」· PAS 代码 · 共 212 行

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Mask, StdCtrls, CheckLst, ComCtrls,inifiles,registry, KsSkinEngine,
  KsHooks, KsForms, KsSkinForms, KsEdits, KsSkinEdits, KsGroupBoxs,
  KsSkinGroupBoxs, KsControls, KsLabels, KsSkinLabels, KsTabs, KsSkinTabs,
  KsButtons, KsSkinButtons, KsListBoxs, KsSkinListBoxs, KsCheckBoxs,
  KsSkinCheckBoxs;

type
  Tformoption = class(TForm)
    SeSkinForm1: TSeSkinForm;
    SeSkinEngine1: TSeSkinEngine;
    pgop: TSeSkinPageControl;
    TabSheet1: TKsCustomTabSheet;
    TabSheet2: TKsCustomTabSheet;
    TabSheet3: TKsCustomTabSheet;
    TabSheet4: TKsCustomTabSheet;
    Label3: TSeSkinLabel;
    GroupBox1: TSeSkinGroupBox;
    Editcf: TSeSkinEdit;
    Label2: TSeSkinLabel;
    Editcb: TSeSkinEdit;
    GroupBox2: TSeSkinGroupBox;
    Editsf: TSeSkinEdit;
    SeSkinLabel1: TSeSkinLabel;
    Editsb: TSeSkinEdit;
    GroupBox6: TSeSkinGroupBox;
    Edit1: TSeSkinEdit;
    listbox1: TSeSkinListBox;
    Button3: TSeSkinButton;
    Button4: TSeSkinButton;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinGroupBox1: TSeSkinGroupBox;
    CheckBox1: TSeSkinCheckBox;
    SeSkinGroupBox2: TSeSkinGroupBox;
    CheckBox2: TSeSkinCheckBox;
    SeSkinGroupBox3: TSeSkinGroupBox;
    CheckBox3: TSeSkinCheckBox;
    GroupBox7: TSeSkinGroupBox;
    Editstart: TSeSkinEdit;
    Lbstart: TSeSkinListBox;
    btuadd: TSeSkinButton;
    butdel: TSeSkinButton;
    Button1: TSeSkinButton;
    Button2: TSeSkinButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure btuaddClick(Sender: TObject);
    procedure butdelClick(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    username:string; 
    start,filter:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formoption: Tformoption;

implementation

uses fununit;

{$R *.DFM}

procedure Tformoption.FormCreate(Sender: TObject);
var
opini:Tinifile;
i:integer;
slist:Tstringlist;
reg:Tregistry;
fini:string;
begin
SeSkinEngine1.SkinFile:=pifufile;
   Reg := TRegistry.Create;
     try
         Reg.RootKey := HKEY_LOCAL_MACHINE;
         if Reg.OpenKey('\System\CurrentControlSet\Control',false)
         then username:=Reg.readstring('Current User');
        finally
         Reg.CloseKey;
         Reg.Free;
        end;
   start:=username+'startgroup';
 filter:=username+'filter';     
 fini:=GetCurrentDir+'/option.ini';
 opini:=Tinifile.create(fini);
 try 
 editcf.text:=opini.readString('keyoption','ctrlf','');
 editcb.text:=opini.readString('keyoption','ctrl','');
 editsf.text:=opini.readString('keyoption','shiftf','');
 editsb.text:=opini.readString('keyoption','shift','');
 checkbox1.Checked:=opini.readBool('hintform','closeapp',true);
 checkbox2.Checked:=opini.readBool('hintform','closeall',true);
 checkbox3.Checked:=opini.readBool('hintform','currentapp',true);
 slist:=Tstringlist.create;
 listbox1.Items.Clear;
  opini.ReadSection(filter,slist);
 for i:=0 to slist.Count-1 do
 begin
  listbox1.Items.Add(opini.ReadString(filter,inttostr(i),''));
 end ;
 Lbstart.Items.clear;
 slist.Clear;
 opini.ReadSection(start,slist); 
 for i:=0 to slist.Count-1 do
 Lbstart.Items.Add(opini.ReadString(start,inttostr(i),'')); 
  slist.Free;
 finally
 
 opini.Free;
 end;
  
end;

procedure Tformoption.Button1Click(Sender: TObject);
var
 opini:Tinifile;
 fini:string;
 i:integer;
 slist:Tstringlist;
begin
fini:=GetCurrentDir+'/option.ini';
opini:=Tinifile.create(fini);


try
opini.writeString('keyoption','ctrlf',trim(editcf.text));
opini.writeString('keyoption','ctrl',trim(editcb.text));
opini.writeString('keyoption','shiftf',trim(editsf.text));
opini.writeString('keyoption','shift',trim(editsb.text));
opini.WriteBool('hintform','closeapp',checkbox1.Checked);
opini.WriteBool('hintform','closeall',checkbox2.Checked);
opini.WriteBool('hintform','currentapp',checkbox3.Checked);
slist:=Tstringlist.create;
  slist.clear;
  opini.ReadSection(filter,slist);
 for i:=0 to slist.Count-1 do
  opini.DeleteKey(filter,inttostr(i));
  slist.clear;
  opini.ReadSection(start,slist);
  for i:=0 to slist.count-1 do
 opini.deletekey(start,inttostr(i));
 slist.Clear; 
 for i:=0 to listbox1.Items.Count-1  do
 begin
  opini.WriteString(filter,inttostr(i),listbox1.items.Strings[i]);
 end;
 for i:=0 to Lbstart.Items.count-1 do
 opini.WriteString(start,inttostr(i),Lbstart.Items.Strings[i]);
 slist.Free;
 finally
 opini.free;
 end;
 close;
end;

procedure Tformoption.Button3Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
listbox1.Items.Add(edit1.text);
end;

procedure Tformoption.Button4Click(Sender: TObject);
begin
if listbox1.CanFocus then
 listbox1.Items.Delete(listbox1.ItemIndex);

end;

procedure Tformoption.btuaddClick(Sender: TObject);
begin
  if Editstart.Text<>'' then
  Lbstart.Items.Add(Editstart.text);
  
end;

procedure Tformoption.butdelClick(Sender: TObject);
begin
if Lbstart.CanFocus then
Lbstart.Items.Delete(Lbstart.ItemIndex);
end;

procedure Tformoption.SeSkinButton1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
listbox1.Items.Add(edit1.text);
end;

procedure Tformoption.SeSkinButton2Click(Sender: TObject);
begin
if listbox1.CanFocus then
 listbox1.Items.Delete(listbox1.ItemIndex);
end;

procedure Tformoption.Button2Click(Sender: TObject);
begin
close;
end;

end.