uproperty.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uProperty;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,uIHintInf,
  Dialogs, TBXDkPanels, StdCtrls, SpTBXDkPanels, Mask, RzEdit, ExtCtrls,uBasefrm,
  SpTBXTabs, TB2Item, TBX, SpTBXItem, TB2Dock, TB2ToolWindow, ActnList,uFolderProperty;

type
  TfrmProperty = class(TBaseForm)
    TBXToolWindow1: TTBXToolWindow;
    SpTBXTabControl1: TSpTBXTabControl;
    SpTBXTabItem1: TSpTBXTabItem;
    SpTBXTabSheet1: TSpTBXTabSheet;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image1: TImage;
    SpTBXLabel1: TSpTBXLabel;
    edName: TRzEdit;
    SpTBXLabel2: TSpTBXLabel;
    SpTBXLabel3: TSpTBXLabel;
    SpTBXLabel4: TSpTBXLabel;
    CBReadOnly: TSpTBXCheckBox;
    CBLock: TSpTBXCheckBox;
    SpTBXLabel5: TSpTBXLabel;
    edType: TEdit;
    edPosition: TEdit;
    edDatetime: TEdit;
    edFolders: TEdit;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    procedure TBXButton1Click(Sender: TObject);
    procedure TBXButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    FolderProperty:TFolderProperty;
  end;

//var
  //frmProperty: TfrmProperty;

implementation

uses uMain;

{$R *.dfm}

procedure TfrmProperty.TBXButton1Click(Sender: TObject);
var
  msgText:string;
begin
  if (CBReadOnly.Checked) and
    (FolderProperty.Text<>edName.Text) then
  begin
    msgText:='“'+FolderProperty.Text+'”' +'为只读，确认要将名称改为“'+edName.Text+'”吗？';
    if MessageBox(Handle, pchar(msgText), '提示', MB_ICONASTERISK or MB_OKCANCEL) = ID_Ok then
      FolderProperty.Text:=edName.Text;
  end
  else if (FolderProperty.IsLocked) and (FolderProperty.Text<>edName.Text) then
  begin
    MessageBox(mainfrm.Handle,pchar('有文件已加密，你不能更改文件名。请先解密！'), '提示', MB_ICONASTERISK or MB_OK);
    ModalResult:=mrOk;
    exit;
  end
  else
    FolderProperty.Text:=edName.Text;
  FolderProperty.IsReadOnly:=CBReadOnly.Checked;
  FolderProperty.IsLocked:=CBLock.Checked;
  if FolderProperty.Node.Parent<>nil then
    mainfrm.RefreshItemInDllfrm(integer(fmFolder),'',false,-1,FolderProperty.Node.Parent.StateIndex);
  ModalResult:=mrOk;
end;

procedure TfrmProperty.TBXButton2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmProperty.FormShow(Sender: TObject);
begin
  edName.Text:=FolderProperty.Text;
  edType.Text:=FolderProperty.FolderType;
  edPosition.Text:=FolderProperty.Path;
  edFolders.Text:=FolderProperty.SubFolders;
  edDatetime.Text:=FolderProperty.CreateDate;
  CBReadOnly.Checked:=FolderProperty.IsReadOnly;
  CBLock.Checked:=FolderProperty.IsLocked;
end;

procedure TfrmProperty.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
end;

end.