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
|