PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/Calmira/Src/SRC/DISKPROP.DFM/DISKPROP.txt

Text File | 1997-01-20 | 3KB | 155 lines

object DiskDialog: TDiskDialog
  Left = 217
  Top = 112
  BorderStyle = bsDialog
  Caption = 'Disk properties'
  ClientHeight = 280
  ClientWidth = 299
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 218
    Top = 250
    Width = 77
    Height = 27
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Kind = bkOK
    Margin = 4
    Style = bsNew
    Spacing = -1
  end
  object Notebook: TTabbedNotebook
    Left = 2
    Top = 0
    Width = 295
    Height = 247
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 1
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Usage'
      object Bevel1: TBevel
        Left = 8
        Top = 10
        Width = 269
        Height = 197
        Shape = bsFrame
      end
      object Label10: TLabel
        Left = 50
        Top = 20
        Width = 25
        Height = 13
        Caption = 'Drive'
      end
      object DriveLetter: TLabel
        Left = 104
        Top = 20
        Width = 52
        Height = 13
        Caption = 'DriveLetter'
      end
      object Label11: TLabel
        Left = 52
        Top = 69
        Width = 24
        Height = 13
        Caption = 'Type'
      end
      object DriveType: TLabel
        Left = 104
        Top = 69
        Width = 46
        Height = 13
        Caption = 'Unknown'
      end
      object Label12: TLabel
        Left = 56
        Top = 95
        Width = 20
        Height = 13
        Caption = 'Size'
      end
      object DriveSize: TLabel
        Left = 104
        Top = 95
        Width = 46
        Height = 13
        Caption = 'Unknown'
      end
      object Label13: TLabel
        Left = 24
        Top = 120
        Width = 53
        Height = 13
        Caption = 'Free space'
      end
      object DriveFree: TLabel
        Left = 104
        Top = 120
        Width = 46
        Height = 13
        Caption = 'Unknown'
      end
      object Label14: TLabel
        Left = 50
        Top = 146
        Width = 25
        Height = 13
        Caption = 'Used'
      end
      object DriveImage: TImage
        Left = 235
        Top = 18
        Width = 33
        Height = 33
        Cursor = -24
        OnClick = DriveImageClick
      end
      object Label1: TLabel
        Left = 16
        Top = 44
        Width = 60
        Height = 13
        Caption = 'Volume label'
      end
      object VolLabel: TLabel
        Left = 104
        Top = 44
        Width = 32
        Height = 13
        Caption = '(None)'
      end
      object Gauge: TBarGauge
        Left = 22
        Top = 172
        Width = 241
        Height = 25
        Font.Color = clOlive
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ForeColor = clBlue
        ParentFont = False
        Progress = 0
      end
    end
  end
end