home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 32
/
hot34.iso
/
ficheros
/
9APLI
/
32PSHD30.ZIP
/
_SETUP.1
/
HAO30.exe
/
0
/
RCDATA
/
THTMLREPDLG
/
THTMLREPDLG.txt
< prev
Wrap
Text File
|
1998-02-19
|
48KB
|
1,512 lines
object HtmlRepDlg: THtmlRepDlg
Left = 66
Top = 141
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'HTML Report Wizard'
ClientHeight = 400
ClientWidth = 635
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ButtonPanel: TPanel
Left = 536
Top = 0
Width = 99
Height = 400
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object OKBtn: TBitBtn
Left = 11
Top = 12
Width = 77
Height = 27
Hint = 'Generate HTML Report'
Caption = '&Go'
Default = True
TabOrder = 0
OnClick = OKBtnClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 11
Top = 42
Width = 77
Height = 27
Hint = 'Cancel HTML Report'
Caption = '&Close'
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 11
Top = 192
Width = 77
Height = 27
TabOrder = 6
OnClick = HelpBtnClick
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object Button1: TButton
Left = 13
Top = 318
Width = 77
Height = 25
Caption = '<< &Previous'
TabOrder = 8
Visible = False
OnClick = Button1Click
end
object Button2: TButton
Left = 13
Top = 345
Width = 77
Height = 25
Caption = '&Next >>'
TabOrder = 9
OnClick = Button2Click
end
object LoadBtn: TBitBtn
Left = 11
Top = 72
Width = 77
Height = 27
Hint = 'Load Report Template From Disk File'
Caption = '&Load'
Default = True
TabOrder = 2
OnClick = LoadBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object SaveBtn: TBitBtn
Left = 11
Top = 102
Width = 77
Height = 27
Hint = 'Save Report Template To Disk File'
Caption = '&Save'
Default = True
TabOrder = 3
OnClick = SaveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CheckBox1: TCheckBox
Left = 5
Top = 224
Width = 94
Height = 17
Hint = 'Load HTML Report Into Web Browser - after Go'
Caption = 'View in Browser'
TabOrder = 7
end
object DeleteBtn: TBitBtn
Left = 11
Top = 132
Width = 77
Height = 27
Hint = 'Delete All Files in HTML directory'
Caption = '&Delete'
Default = True
TabOrder = 4
OnClick = DeleteBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F77777703333333733F3F3F73F33330FF0808077
0333337F37F7F7F37F33330FF0807077033333733737F73F73F330FF77808707
703337F37F37F37F37F330FF08807807703037F37F37F37F37F700FF08808707
700377F37337F37F377330FF778078077033373F73F7F3733733330FF0808077
0333337F37F7F7F37F33330FF08070770333337FF7F7F7FF7F33330000000000
03333377777777777F33330F888777770333337FFFFFFFFF7F33330000000000
033333777777777773333333307770333333333337FFF7F33333333330000033
3333333337777733333333333333333333333333333333333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object BitBtn1: TBitBtn
Left = 11
Top = 162
Width = 77
Height = 27
Hint = 'Clear All Options'
Caption = 'Cl&ear'
Default = True
TabOrder = 5
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 536
Height = 400
ActivePage = TabSheet1
Align = alClient
HotTrack = True
TabOrder = 1
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = 'General Settings'
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 528
Height = 372
Align = alClient
Caption = 'General Settings:'
TabOrder = 0
IsControl = True
object Label14: TLabel
Left = 8
Top = 20
Width = 188
Height = 13
Caption = 'Generate HTML Report in this directory:'
end
object Label10: TLabel
Left = 7
Top = 183
Width = 144
Height = 13
Caption = 'Start Image Names With (a..z):'
end
object ReportDirEd: TDirEdit
Left = 8
Top = 35
Width = 505
Height = 21
AutoSelect = False
TabOrder = 0
end
object ImgFormatRG: TRadioGroup
Left = 7
Top = 66
Width = 178
Height = 49
Caption = 'Images Format:'
ItemIndex = 0
Items.Strings = (
'Convert To GIF'
'Convert To JPEG')
TabOrder = 1
end
object ImgLetter1Ed: TEdit
Left = 153
Top = 181
Width = 20
Height = 21
MaxLength = 1
TabOrder = 3
Text = 'a'
end
object ImageFilesRG: TRadioGroup
Left = 8
Top = 122
Width = 177
Height = 49
Caption = 'Image Files:'
ItemIndex = 0
Items.Strings = (
'Generate Image Files'
'Do Not Generate Image Files')
TabOrder = 2
end
object img1: TMultiImgControl
Left = 264
Top = 88
Width = 210
Height = 200
Caption = 'img1'
TabOrder = 4
Visible = False
SpeedBarHeight = 24
end
end
end
object TabSheet2: TTabSheet
Caption = 'Data'
object GroupBox3: TGroupBox
Left = 0
Top = 0
Width = 528
Height = 372
Align = alClient
Caption = 'Data:'
TabOrder = 0
object Label22: TLabel
Left = 5
Top = 14
Width = 70
Height = 13
Caption = 'All Data Fields:'
end
object Label23: TLabel
Left = 149
Top = 14
Width = 75
Height = 13
Caption = 'Selected Fields:'
end
object IncludeBtn: TSpeedButton
Left = 122
Top = 84
Width = 24
Height = 24
Hint = 'Include Selected Field'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
5A010000424D5A01000000000000760000002800000013000000130000000100
040000000000E400000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
880088888888888000008888880A08888888888FFFFF8888880AA08888888880
00008888880AAA088888888FFFFF8888880AAAA08888888000008888880AAAAA
0888888131008888880AAAAAA088888095C08888880AAAAA0888888053028888
880AAAA088888887D5D58888880AAA0888888889091D8888880AA0888888888F
CFD78888880A08888888888A7AE288888800888888888887CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = IncludeBtnClick
IsControl = True
end
object IncAllBtn: TSpeedButton
Left = 121
Top = 113
Width = 24
Height = 24
Hint = 'Include All Fields'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
5A010000424D5A01000000000000760000002800000013000000130000000100
040000000000E400000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58008
8888880088888880000080A08888880A0888888FFFFF80AA0888880AA0888880
000080AAA088880AAA08888FFFFF80AAAA08880AAAA08880000080AAAAA0880A
AAAA0881310080AAAAAA080AAAAAA08095C080AAAAA0880AAAAA0880530280AA
AA08880AAAA08887D5D580AAA088880AAA088889091D80AA0888880AA088888F
CFD780A08888880A0888888A7AE280088888880088888887CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = IncAllBtnClick
IsControl = True
end
object ExcludeBtn: TSpeedButton
Left = 121
Top = 157
Width = 24
Height = 24
Hint = 'Exclude Selected Field'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
5A010000424D5A01000000000000760000002800000013000000130000000100
040000000000E400000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
888888800888888000008888888888090888888FFFFF88888888809908888880
00008888888809990888888FFFFF888888809999088888800000888888099999
0888888131008888809999990888888095C08888880999990888888053028888
8880999908888887D5D588888888099908888889091D8888888880990888888F
CFD78888888888090888888A7AE288888888888008888887CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = ExcludeBtnClick
IsControl = True
end
object ExAllBtn: TSpeedButton
Left = 121
Top = 186
Width = 24
Height = 24
Hint = 'Exclude All Fields'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
5A010000424D5A01000000000000760000002800000013000000130000000100
040000000000E400000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
888008888888008000008888880908888880908FFFFF88888099088888099080
00008888099908888099908FFFFF888099990888099990800000880999990880
9999908131008099999908099999908095C08809999908809999908053028880
9999088809999087D5D588880999088880999089091D8888809908888809908F
CFD78888880908888880908A7AE288888880088888880087CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = ExAllBtnClick
IsControl = True
end
object MoveUpBtn: TSpeedButton
Left = 180
Top = 274
Width = 24
Height = 24
Hint = 'Move Up'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = MoveUpBtnClick
IsControl = True
end
object MoveDownBtn: TSpeedButton
Left = 208
Top = 274
Width = 24
Height = 24
Hint = 'Move Down'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = MoveDownBtnClick
IsControl = True
end
object Label34: TLabel
Left = 4
Top = 292
Width = 99
Height = 13
Caption = 'Group By (1st Level):'
end
object Label8: TLabel
Left = 4
Top = 330
Width = 103
Height = 13
Caption = 'Group By (2nd Level):'
end
object ListBox1: TListBox
Left = 5
Top = 30
Width = 113
Height = 239
Hint = 'List Of All Data Fields'
ItemHeight = 13
TabOrder = 0
end
object ListBox2: TListBox
Left = 150
Top = 30
Width = 113
Height = 239
Hint = 'Data Fields Selected For Report'
ItemHeight = 13
TabOrder = 1
OnClick = ListBox2Click
end
object FAttributesGB: TGroupBox
Left = 268
Top = 7
Width = 254
Height = 360
Caption = 'Field Attributes:'
TabOrder = 2
Visible = False
object Label4: TLabel
Left = 8
Top = 12
Width = 31
Height = 13
Caption = 'Name:'
end
object Label5: TLabel
Left = 8
Top = 47
Width = 176
Height = 13
Caption = 'Width in Pixels (0 - Browser Decides):'
end
object FNameEd: TEdit
Left = 8
Top = 25
Width = 217
Height = 21
TabOrder = 0
end
object FIndividualFontColorCB: TCheckBox
Left = 8
Top = 87
Width = 193
Height = 17
Caption = 'Use Individual Field Attributes'
TabOrder = 2
OnClick = FIndividualFontColorCBClick
end
object FFontColorGB: TGroupBox
Left = 5
Top = 102
Width = 243
Height = 199
TabOrder = 3
object Label45: TLabel
Left = 6
Top = 53
Width = 27
Height = 13
Caption = 'Color:'
end
object Label46: TLabel
Left = 6
Top = 89
Width = 26
Height = 13
Caption = 'Style:'
end
object Label47: TLabel
Left = 6
Top = 125
Width = 47
Height = 13
Caption = 'Font Size:'
end
object Label9: TLabel
Left = 6
Top = 160
Width = 55
Height = 13
Caption = 'Font Name:'
end
object TableBgndLbl: TLabel
Left = 125
Top = 159
Width = 85
Height = 13
Caption = 'Table Bgnd Color:'
end
object FColorCB: TComboBox
Left = 6
Top = 66
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 1
OnDrawItem = FColorCBDrawItem
OnDropDown = FColorCBDropDown
end
object FStyleCB: TComboBox
Left = 6
Top = 103
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Heading 1'
'Heading 2'
'Heading 3'
'Heading 4'
'Heading 5'
'Heading 6')
TabOrder = 2
OnChange = FStyleCBChange
end
object FSizeCB: TComboBox
Left = 6
Top = 138
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
TabOrder = 3
OnChange = FSizeCBChange
end
object FTextAttGB: TGroupBox
Left = 124
Top = 60
Width = 113
Height = 78
Caption = 'Text Attributes:'
TabOrder = 4
object FBoldCB: TCheckBox
Left = 8
Top = 13
Width = 97
Height = 17
Caption = 'Bold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object FItalicCB: TCheckBox
Left = 8
Top = 28
Width = 97
Height = 17
Caption = 'Italic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
end
object FUnderlineCB: TCheckBox
Left = 8
Top = 43
Width = 97
Height = 17
Caption = 'Underlined'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
TabOrder = 2
end
object FCenteredCB: TCheckBox
Left = 8
Top = 58
Width = 97
Height = 17
Caption = ' <<Centered>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
object FFontCB: TComboBox
Left = 6
Top = 173
Width = 113
Height = 21
ItemHeight = 0
Sorted = True
TabOrder = 5
end
object LabelDataRG: TRadioGroup
Left = 8
Top = 7
Width = 228
Height = 45
ItemIndex = 0
Items.Strings = (
'Label Attributes'
'Data Attributes')
TabOrder = 0
OnClick = LabelDataRGClick
end
object TableBgndColorCB: TComboBox
Left = 125
Top = 173
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 6
OnDrawItem = FColorCBDrawItem
OnDropDown = FColorCBDropDown
end
end
object FNumericGB: TGroupBox
Left = 5
Top = 301
Width = 243
Height = 55
Caption = 'Numeric Field Attributes:'
TabOrder = 4
object Label6: TLabel
Left = 8
Top = 12
Width = 122
Height = 13
Caption = 'Digits After Decimal Point:'
end
object FDecimalsEd: TSpinEdit
Left = 8
Top = 27
Width = 121
Height = 22
MaxValue = 9
MinValue = 0
TabOrder = 0
Value = 0
end
object FTotalCB: TCheckBox
Left = 136
Top = 29
Width = 97
Height = 17
Caption = 'Calculate Total'
TabOrder = 1
end
end
object FWidthEd: TSpinEdit
Left = 8
Top = 61
Width = 217
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
end
end
object GroupBy1CB: TComboBox
Left = 5
Top = 306
Width = 148
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 3
OnChange = GroupBy1CBChange
end
object GroupBy2CB: TComboBox
Left = 5
Top = 344
Width = 148
Height = 21
Style = csDropDownList
Enabled = False
ItemHeight = 0
TabOrder = 4
OnChange = GroupBy2CBChange
end
object DbImg: TPMultiImage
Left = 8
Top = 40
Width = 105
Height = 105
B_W_CopyFlags = [C_DEL]
Color = clBtnFace
ImageName = 'file not found'
ImageReadRes = lAutoMatic
BlitMode = sLight
ImageWriteRes = sAutoMatic
TifSaveCompress = sNONE
TiffPage = 1
TiffAppend = False
JPegSaveQuality = 75
JPegSaveSmooth = 0
RubberBandBtn = mbLeft
TextLeft = 0
TextTop = 0
TextRotate = 0
TabOrder = 5
TabStop = False
Visible = False
ZoomBy = 10
end
end
end
object TabSheet3: TTabSheet
Caption = 'Report Elements'
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 528
Height = 372
Align = alClient
Caption = 'Report Elements:'
TabOrder = 0
object Image2: TImage
Left = 93
Top = 11
Width = 79
Height = 67
Picture.Data = {<image000.bmp>}
end
object Image3: TImage
Left = 93
Top = 11
Width = 79
Height = 67
Picture.Data = {<image001.bmp>}
end
object Image1: TImage
Left = 93
Top = 11
Width = 79
Height = 67
Picture.Data = {<image002.bmp>}
end
object L2PageGB: TGroupBox
Left = 178
Top = 59
Width = 170
Height = 307
Caption = '2nd Level Pages:'
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 236
Width = 129
Height = 13
Caption = 'Insert into this HTML Page:'
end
object Label51: TLabel
Left = 3
Top = 15
Width = 131
Height = 13
Caption = 'Start File Names With (a..z):'
end
object L2PageAttribGB: TGroupBox
Left = 7
Top = 33
Width = 154
Height = 49
Caption = 'Page Attributes:'
TabOrder = 0
object L2PageAttribCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L2PageAttribBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L2PageAttribBtnClick
end
end
object L2PageHeaderGB: TGroupBox
Left = 7
Top = 83
Width = 154
Height = 49
Caption = 'Page Header:'
TabOrder = 1
object L2PageHeaderCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L2PageHeaderBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L2PageHeaderBtnClick
end
end
object L2PageBodyGB: TGroupBox
Left = 7
Top = 133
Width = 154
Height = 49
Caption = 'Page Body:'
TabOrder = 2
object L2PageBodyCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L2PageBodyBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L2PageBodyBtnClick
end
end
object L2PageFooterGB: TGroupBox
Left = 7
Top = 183
Width = 154
Height = 49
Caption = 'Page Footer:'
TabOrder = 3
object L2PageFooterCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L2PageFooterBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L2PageFooterBtnClick
end
end
object L2PageTemplateEd: TEdit
Left = 8
Top = 252
Width = 153
Height = 21
TabOrder = 4
end
object L2PageFileLetterEd: TEdit
Left = 140
Top = 13
Width = 20
Height = 21
MaxLength = 1
TabOrder = 5
Text = 'a'
end
object L2PageSelectBtn: TButton
Tag = 1
Left = 42
Top = 276
Width = 81
Height = 25
Caption = 'Select'
TabOrder = 6
OnClick = MPageSelectBtnClick
end
end
object MPageGB: TGroupBox
Left = 5
Top = 79
Width = 170
Height = 287
Caption = 'Main Page:'
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 216
Width = 129
Height = 13
Caption = 'Insert into this HTML Page:'
end
object MPageAttribGB: TGroupBox
Left = 8
Top = 13
Width = 154
Height = 49
Caption = 'Page Attributes:'
TabOrder = 0
object MPageAttribCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object MPageAttribBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = MPageAttribBtnClick
end
end
object MPageHeaderGB: TGroupBox
Left = 8
Top = 63
Width = 154
Height = 49
Caption = 'Page Header:'
TabOrder = 1
object MPageHeaderCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object MPageHeaderBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = MPageHeaderBtnClick
end
end
object MPageBodyGB: TGroupBox
Left = 8
Top = 113
Width = 154
Height = 49
Caption = 'Page Body:'
TabOrder = 2
object MPageBodyCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object MPageBodyBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = MPageBodyBtnClick
end
end
object MPageFooterGB: TGroupBox
Left = 8
Top = 163
Width = 154
Height = 49
Caption = 'Page Footer:'
TabOrder = 3
object MPageFooterCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object MPageFooterBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = MPageFooterBtnClick
end
end
object MPageTemplateEd: TEdit
Left = 8
Top = 232
Width = 153
Height = 21
TabOrder = 4
end
object MPageSelectBtn: TButton
Left = 42
Top = 256
Width = 81
Height = 25
Caption = 'Select'
TabOrder = 5
OnClick = MPageSelectBtnClick
end
end
object L3PageGB: TGroupBox
Left = 352
Top = 59
Width = 170
Height = 307
Caption = '3rd Level Pages:'
TabOrder = 2
object Label3: TLabel
Left = 8
Top = 236
Width = 129
Height = 13
Caption = 'Insert into this HTML Page:'
end
object Label7: TLabel
Left = 3
Top = 16
Width = 131
Height = 13
Caption = 'Start File Names With (a..z):'
end
object L3PageAttribGB: TGroupBox
Left = 7
Top = 33
Width = 154
Height = 49
Caption = 'Page Attributes:'
TabOrder = 0
object L3PageAttribCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L3PageAttribBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L3PageAttribBtnClick
end
end
object L3PageHeaderGB: TGroupBox
Left = 7
Top = 83
Width = 154
Height = 49
Caption = 'Page Header:'
TabOrder = 1
object L3PageHeaderCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L3PageHeaderBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L3PageHeaderBtnClick
end
end
object L3PageBodyGB: TGroupBox
Left = 7
Top = 133
Width = 154
Height = 49
Caption = 'Page Body:'
TabOrder = 2
object L3PageBodyCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L3PageBodyBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L3PageBodyBtnClick
end
end
object L3PageFooterGB: TGroupBox
Left = 7
Top = 183
Width = 154
Height = 49
Caption = 'Page Footer:'
TabOrder = 3
object L3PageFooterCB: TCheckBox
Left = 8
Top = 19
Width = 57
Height = 17
Caption = 'Include'
TabOrder = 0
OnClick = MPageAttribCBClick
end
object L3PageFooterBtn: TButton
Left = 66
Top = 16
Width = 81
Height = 25
Caption = 'Define'
TabOrder = 1
OnClick = L3PageFooterBtnClick
end
end
object L3PageTemplateEd: TEdit
Left = 8
Top = 252
Width = 153
Height = 21
TabOrder = 4
end
object L3PageFileLetterEd: TEdit
Left = 140
Top = 14
Width = 20
Height = 21
MaxLength = 1
TabOrder = 5
Text = 'a'
end
object L3PageSelectBtn: TButton
Tag = 2
Left = 42
Top = 276
Width = 81
Height = 25
Caption = 'Select'
TabOrder = 6
OnClick = MPageSelectBtnClick
end
end
object ReportTypeRG: TRadioGroup
Left = 6
Top = 12
Width = 83
Height = 60
Caption = 'Report Type:'
ItemIndex = 0
Items.Strings = (
'1- Level'
'2- Level'
'3- Level')
TabOrder = 3
OnClick = ReportTypeRGClick
end
end
end
object TabSheet4: TTabSheet
Caption = 'Hyperlinks'
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 528
Height = 372
Align = alClient
Caption = 'Hyperlinks:'
TabOrder = 0
object Label26: TLabel
Left = 12
Top = 22
Width = 94
Height = 13
Caption = 'Use As a URL Link:'
end
object Label27: TLabel
Left = 182
Top = 22
Width = 97
Height = 13
Caption = 'Target for URL Link:'
end
object Label52: TLabel
Left = 352
Top = 64
Width = 161
Height = 41
AutoSize = False
Caption =
'To create a URL link select a pair of Fields (URL Link and URL T' +
'arget) and click on Add button.'
WordWrap = True
end
object LinkCB: TComboBox
Left = 12
Top = 36
Width = 161
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 0
end
object UrlCB: TComboBox
Left = 182
Top = 36
Width = 161
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 1
end
object LinkLB: TListBox
Left = 12
Top = 67
Width = 161
Height = 254
ItemHeight = 13
TabOrder = 2
end
object UrlLB: TListBox
Left = 182
Top = 67
Width = 161
Height = 254
ItemHeight = 13
TabOrder = 3
end
object Button3: TButton
Left = 355
Top = 107
Width = 73
Height = 25
Caption = 'Add'
TabOrder = 4
OnClick = Button3Click
end
object Button4: TButton
Left = 355
Top = 139
Width = 73
Height = 25
Caption = 'Delete'
TabOrder = 5
OnClick = Button4Click
end
end
end
end
object DataSource1: TDataSource
Left = 600
Top = 288
end
object OpenDialog1: TOpenDialog
Left = 600
Top = 256
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 560
Top = 256
end
object Timer1: TTimer
Enabled = False
Interval = 3000
OnTimer = Timer1Timer
Left = 568
Top = 288
end
object SaveDialog1: TSaveDialog
Left = 536
Top = 288
end
end