This repository has been archived by the owner on Aug 18, 2021. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathfsblobviewdialog.lfm
139 lines (139 loc) · 3.33 KB
/
fsblobviewdialog.lfm
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
object BlobViewDialogForm: TBlobViewDialogForm
Left = 439
Height = 171
Top = 325
Width = 464
HorzScrollBar.Page = 302
VertScrollBar.Page = 173
ActiveControl = TypeRadioGroup.RadioButton0
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Blob Field'
ChildSizing.LeftRightSpacing = 4
ClientHeight = 171
ClientWidth = 464
Position = poMainFormCenter
LCLVersion = '1.0.6.0'
object Panel5: TPanel
Left = 4
Height = 34
Top = 137
Width = 456
Align = alBottom
BevelOuter = bvNone
ClientHeight = 34
ClientWidth = 456
TabOrder = 0
object BitBtn1: TBitBtn
Left = 381
Height = 24
Top = 8
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 301
Height = 24
Top = 7
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 2
Caption = 'Annulla'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
end
object TypeRadioGroup: TRadioGroup
Left = 4
Height = 79
Top = 58
Width = 456
Align = alClient
AutoFill = True
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 61
ClientWidth = 452
ItemIndex = 0
Items.Strings = (
'save to file'
'view as text'
)
TabOrder = 1
end
object Panel1: TPanel
Left = 4
Height = 58
Top = 0
Width = 456
Align = alTop
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 5
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 58
ClientWidth = 456
TabOrder = 2
object Label1: TLabel
Left = 5
Height = 29
Top = 0
Width = 72
Caption = ' FieldName : '
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object FieldNameLabel: TLabel
Left = 77
Height = 29
Top = 0
Width = 86
AutoSize = False
Caption = 'FieldNameLabel'
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 5
Height = 29
Top = 29
Width = 72
Caption = ' BlobType : '
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object SubTypeLabel: TLabel
Left = 77
Height = 29
Top = 29
Width = 86
Caption = 'SubTypeLabel'
Layout = tlCenter
ParentColor = False
ParentFont = False
end
end
end