File: unit1.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (145 lines) | stat: -rw-r--r-- 3,524 bytes parent folder | download | duplicates (2)
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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
object Form1: TForm1
  Left = 432
  Height = 440
  Top = 211
  Width = 643
  Caption = 'test fp'
  ClientHeight = 440
  ClientWidth = 643
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '1.9.0.0'
  object FileNameEdit1: TFileNameEdit
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = btnLoad
    Left = 3
    Height = 23
    Top = 3
    Width = 524
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Right = 3
    BorderSpacing.Bottom = 3
    BorderSpacing.Around = 3
    MaxLength = 0
    TabOrder = 0
  end
  object btnLoad: TButton
    AnchorSideTop.Control = FileNameEdit1
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 565
    Height = 25
    Top = 2
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Left = 35
    BorderSpacing.Bottom = 3
    BorderSpacing.Around = 3
    Caption = 'load'
    OnClick = btnLoadClick
    TabOrder = 1
  end
  object CompUnitListBox: TListBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = btnLines
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = StatusBar1
    Left = 3
    Height = 322
    Top = 92
    Width = 244
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Top = 3
    BorderSpacing.Right = 3
    BorderSpacing.Around = 3
    ItemHeight = 0
    TabOrder = 2
  end
  object btnShowUnit: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = btnLoad
    AnchorSideTop.Side = asrBottom
    Left = 3
    Height = 25
    Top = 33
    Width = 79
    BorderSpacing.Around = 3
    Caption = 'Show Symbols'
    OnClick = btnShowUnitClick
    TabOrder = 3
  end
  object btnCopyOne: TButton
    AnchorSideLeft.Control = btnShowUnit
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = btnShowUnit
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = CompUnitListBox
    AnchorSideRight.Side = asrBottom
    Left = 166
    Height = 25
    Top = 33
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Left = 6
    BorderSpacing.Around = 6
    Caption = 'Copy'
    OnClick = btnCopyOneClick
    TabOrder = 4
  end
  object btnCopyAll: TButton
    AnchorSideLeft.Control = btnCopyOne
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = btnCopyOne
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = CompUnitListBox
    AnchorSideRight.Side = asrBottom
    Left = 166
    Height = 25
    Top = 64
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Around = 6
    Caption = 'Copy Incl'
    OnClick = btnCopyAllClick
    TabOrder = 5
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 417
    Width = 643
    Panels = <>
  end
  object TreeView1: TTreeView
    AnchorSideLeft.Control = CompUnitListBox
    AnchorSideLeft.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = StatusBar1
    Left = 253
    Height = 384
    Top = 33
    Width = 390
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabOrder = 7
  end
  object btnLines: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = btnShowUnit
    AnchorSideTop.Side = asrBottom
    Left = 3
    Height = 25
    Top = 61
    Width = 75
    BorderSpacing.Around = 3
    Caption = 'Show Lines'
    OnClick = btnLinesClick
    TabOrder = 8
  end
end