WindowsDiskUsage/WinDuForm.fmx at main · ottigeda/WindowsDiskUsage · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
object FrmWinDu: TFrmWinDu
  Left = 0
  Top = 0
  Caption = 'Win Du'
  ClientHeight = 654
  ClientWidth = 900
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop, iPhone, iPad]
  DesignerMasterStyle = 0
  object pnlScan: TPanel
    Align = Top
    Size.Width = 900.000000000000000000
    Size.Height = 25.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    object edtDirectory: TEdit
      Touch.InteractiveGestures = [LongTap, DoubleTap]
      Align = Client
      TabOrder = 0
      Text = 'C:\'
      Size.Width = 649.000000000000000000
      Size.Height = 25.000000000000000000
      Size.PlatformDefault = False
    end
    object btnScan: TButton
      Align = Right
      Position.X = 820.000000000000000000
      Size.Width = 80.000000000000000000
      Size.Height = 25.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
      Text = 'Scan'
      OnClick = btnScanClick
    end
    object btnBack: TButton
      Align = Left
      Enabled = False
      Position.X = 57.000000000000000000
      Size.Width = 57.000000000000000000
      Size.Height = 25.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 2
      Text = 'Back'
      OnClick = btnBackClick
    end
    object btnUp: TButton
      Align = Left
      Enabled = False
      Position.X = 114.000000000000000000
      Size.Width = 57.000000000000000000
      Size.Height = 25.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 3
      Text = 'Up'
      OnClick = btnUpClick
    end
    object btnOpen: TButton
      Align = Left
      Size.Width = 57.000000000000000000
      Size.Height = 25.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 4
      Text = 'Open'
      OnClick = btnOpenClick
    end
  end
  object timShow: TTimer
    Enabled = False
    OnTimer = timShowTimer
    Left = 528
    Top = 64
  end
  object pnlClient: TPanel
    Align = Client
    Size.Width = 900.000000000000000000
    Size.Height = 607.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    OnResize = pnlClientResize
  end
  object StatusBar1: TStatusBar
    Position.Y = 632.000000000000000000
    ShowSizeGrip = True
    Size.Width = 900.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    object lblStatus: TLabel
      Align = Left
      Size.Width = 449.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
    end
    object lblDirectory: TLabel
      Align = Client
      Size.Width = 451.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      Text = 'lblDirectory'
    end
  end
end