Chip 2002 April/Chip_2002-04_cd1.bin/zkuste/delphi/kolekce/d56/NT.ZIP/Demos/FileSecurity/Unit1.dfm

Text File | 2002-01-21 | 3KB | 146 lines

object Form1: TForm1
  Left = 325
  Top = 284
  BorderStyle = bsDialog
  Caption = 'NTTools - TNTFileSecurity Demo'
  ClientHeight = 248
  ClientWidth = 328
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 8
    Top = 56
    Width = 64
    Height = 13
    Caption = 'ACE #...........'
  end
  object Label6: TLabel
    Left = 8
    Top = 16
    Width = 89
    Height = 13
    Caption = '< no file selected >'
  end
  object Button1: TButton
    Left = 168
    Top = 8
    Width = 153
    Height = 25
    Caption = '&Select File'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 168
    Top = 48
    Width = 153
    Height = 25
    Caption = 'Show ACE Detail'
    TabOrder = 1
    OnClick = Button2Click
  end
  object SpinEdit1: TSpinEdit
    Left = 72
    Top = 48
    Width = 89
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 0
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 80
    Width = 313
    Height = 161
    Caption = 'ACE'
    TabOrder = 3
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 103
      Height = 13
      Caption = 'ACE'#39's.........................'
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 106
      Height = 13
      Caption = 'Owner.........................'
    end
    object Label3: TLabel
      Left = 16
      Top = 96
      Width = 99
      Height = 13
      Caption = 'Domain.....................'
    end
    object Label4: TLabel
      Left = 16
      Top = 128
      Width = 91
      Height = 13
      Caption = 'Access Mask.........'
    end
    object Edit1: TEdit
      Left = 96
      Top = 24
      Width = 65
      Height = 21
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 96
      Top = 56
      Width = 201
      Height = 21
      ReadOnly = True
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 96
      Top = 88
      Width = 201
      Height = 21
      ReadOnly = True
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 96
      Top = 120
      Width = 201
      Height = 23
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofNoNetworkButton, ofEnableSizing]
    Title = 'Select File...'
    Left = 192
    Top = 104
  end
  object NTFileSecurity1: TNTFileSecurity
    Left = 232
    Top = 104
  end
end