fremote.pas

来自「Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器」· PAS 代码 · 共 64 行

unit fRemote;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, iniFiles, CorelButton;

type
  TfrmRemotePermissions = class(TForm)
    gpOwner: TGroupBox;
    gpGroup: TGroupBox;
    gpOther: TGroupBox;
    chkORead: TCheckBox;
    chkOWrite: TCheckBox;
    chkOExecute: TCheckBox;
    chkGExecute: TCheckBox;
    chkGWrite: TCheckBox;
    chkGRead: TCheckBox;
    chkTExecute: TCheckBox;
    chkTWrite: TCheckBox;
    chkTRead: TCheckBox;
    chkInfo: TLabel;
    btnCancel: TCorelButton;
    btnOK: TCorelButton;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    Execute: Boolean;
    { Public declarations }
  end;

var
  frmRemotePermissions: TfrmRemotePermissions;

implementation

{$R *.dfm}

uses UDialogSettings;

procedure TfrmRemotePermissions.btnOKClick(Sender: TObject);
begin
  SaveOpts(Self);
  Execute := True;
  close;
end;

procedure TfrmRemotePermissions.btnCancelClick(Sender: TObject);
begin
  Execute := False;
  close;
end;

procedure TfrmRemotePermissions.FormShow(Sender: TObject);
begin
  LoadOpts(Self);
end;

end.