unit_state.~pas

至于这小软件的用途

unit Unit_State;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Spin, XPMan,Unit_Common, ExtDlgs,
   CnShellCtrls;

type
  TFrm_State = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    TrackBar1: TTrackBar;
    SpinEdit1: TSpinEdit;
    XPManifest1: TXPManifest;
    Panel1: TPanel;
    CnShellTreeView1: TCnShellTreeView;
    Button4: TButton;
    Button5: TButton;
    CheckBox2: TCheckBox;
    Label8: TLabel;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Label9: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CnShellTreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_State: TFrm_State;
  VarSpinEdit1:Integer;
implementation

uses Unit_Main;

{$R *.dfm}

procedure TFrm_State.Button2Click(Sender: TObject);
begin
  //图片来源（0金管家，1本地）
  //ImgWhere:=RadioGroup1.ItemIndex;
  //最大图片长度（1-1600）
  if SpinEdit1.Value>1600 then  ImgLarge:=1600
  else if SpinEdit1.Value<1 then ImgLarge:=1
  else  ImgLarge:=SpinEdit1.Value;
  //主窗体透明度0-255
  Alphafrm:=TrackBar1.Position*255 div 20;
  //播放方式（0顺序，1随机）
  case ComboBox1.Items.IndexOf(ComboBox1.Text)  of
    0:ImgViewType:=0;
    1:ImgViewType:=1;
  end;
  //图片切换时间(0,1,5,30,60,-1)
  case ComboBox2.Items.IndexOf(ComboBox2.Text)  of
    0:ImgChangeTime:=1;
    1:ImgChangeTime:=5;
    2:ImgChangeTime:=10;
    3:ImgChangeTime:=30;
    4:ImgChangeTime:=60;
    5:ImgChangeTime:=0;
    6:ImgChangeTime:=99;
  end;
  //窗口位置（0镶入，1正常，2浮动）
  case ComboBox3.Items.IndexOf(ComboBox3.Text)  of
    0:ImgFrmlayer:=0;
    1:ImgFrmlayer:=1;
  end;
  //本地文件夹，默认为我的文档/图像
  ImgLocalFolder:=Edit1.Text;
  //鼠标穿透
  ImgMouseIn:=Checkbox1.Checked;
  //图像调整基准点（0左上角，1右上角，2左下角，3右下角，4正中间）
  ImgLockPoint:=ComboBox4.ItemIndex;
  //是否自动运行
  ImgAutoRun:=CheckBox2.Checked;
  //Frm_Main.FormCreate(self);
  Frm_Main.ChangeState;
  Frm_Main.NewLoadPic;
  //Frm_Main.Show;
  ImgFolderChanged:=False;
  Frm_State.Hide;
end;

procedure TFrm_State.TrackBar1Change(Sender: TObject);
begin
  Label4.Caption:='窗体透明度（0-100）：'+inttostr(TrackBar1.Position*5);
end;

procedure TFrm_State.ComboBox2Select(Sender: TObject);
begin
  //ComboBox2.Text:=ComboBox2.Items.Names[1];
end;

procedure TFrm_State.FormShow(Sender: TObject);
begin
  //图片来源（0金管家，1本地）
  //RadioGroup1.ItemIndex:=ImgWhere;
  //主窗体透明度0-255
  TrackBar1.Position:=Alphafrm*20 div 255;
  //最大图片长度（1-1600）
  SpinEdit1.Value:=ImgLarge;
  //本地文件夹，默认为我的文档/图像
  Edit1.Text:=ImgLocalFolder;
  //播放方式（0顺序，1随机）
  ComboBox1.ItemIndex:=ImgViewType;
  //图片切换时间(0,1,5,30,60)
  case ImgChangeTime of
    1:ComboBox2.ItemIndex:=0;
    5:ComboBox2.ItemIndex:=1;
    10:ComboBox2.ItemIndex:=2;
    30:ComboBox2.ItemIndex:=3;
    60:ComboBox2.ItemIndex:=4;
    0:ComboBox2.ItemIndex:=5;
    99:ComboBox2.ItemIndex:=6;
  end;
  //窗口位置（0镶入，1浮动）
  ComboBox3.ItemIndex:=ImgFrmlayer;
  //图像调整基准点（0左上角，1右上角，2左下角，3右下角，4正中间）
  ComboBox4.ItemIndex:=ImgLockPoint;
  //鼠标穿透 true false
  if ImgMouseIn then
    CheckBox1.State:=cbChecked
    else
    CheckBox1.State:=cbUnchecked;
  //播放文件夹
  Panel1.Visible:=False;
  CnShellTreeView1.Path:=Edit1.Text;
  //CnShellTreeView1.Selected.Text;
  //开机自动运行
  CheckBox2.Checked:=ImgAutoRun;
end;

procedure TFrm_State.Button3Click(Sender: TObject);
begin
   ImgFolderChanged:=False;
   Frm_State.Hide;
   //Frm_Main.Show;
end;

procedure TFrm_State.Button1Click(Sender: TObject);
begin
  //CnShellTreeView1.Folders().
Panel1.Visible:=True;
end;

procedure TFrm_State.Button5Click(Sender: TObject);
begin
Panel1.Visible:=False;
end;

procedure TFrm_State.Button4Click(Sender: TObject);
begin
  ImgFolderChanged:=true;
Edit1.Text:=CnShellTreeView1.Path;
//CnShellTreeView1.Selected.Text;
Panel1.Visible:=False;

end;

procedure TFrm_State.CnShellTreeView1Change(Sender: TObject;
  Node: TTreeNode);
begin
begin
  if DirectoryExists(CnShellTreeView1.SelectedFolder.PathName) then 
    Button4.Enabled:=True
  else
    Button4.Enabled:=false;
end;
end;

end.