home *** CD-ROM | disk | FTP | other *** search
Text File | 2002-10-09 | 37.9 KB | 1,382 lines |
- object Main: TMain
- Left = 75
- Top = 106
- Width = 845
- Height = 529
- Caption = 'FlexCel Component Suite Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 837
- Height = 483
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Splitter1: TSplitter
- Left = 233
- Top = 38
- Width = 3
- Height = 445
- Cursor = crHSplit
- end
- object ListDemos: TTreeView
- Left = 0
- Top = 38
- Width = 233
- Height = 445
- Align = alLeft
- HideSelection = False
- Indent = 19
- ReadOnly = True
- TabOrder = 0
- OnChange = ListDemosChange
- Items.Data = {
- 020000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
- 0544656D6F731F0000000100000001000000FFFFFFFFFFFFFFFF000000000D00
- 0000065265706F7274310000000300000003000000FFFFFFFFFFFFFFFF000000
- 000000000018566572792073696D706C652064656D6F20284E6F204442293300
- 00000300000003000000FFFFFFFFFFFFFFFF00000000000000001A4172726179
- 206F662076617269616E74732020284E6F204442292B00000003000000030000
- 00FFFFFFFFFFFFFFFF000000000000000012496D6167652044656D6F20284E6F
- 20444229220000000300000000000000FFFFFFFFFFFFFFFF0000000000000000
- 094462207265706F72742F0000000300000003000000FFFFFFFFFFFFFFFF0000
- 000000000000164D756C7469706C65204D61737465722D44657461696C280000
- 000300000003000000FFFFFFFFFFFFFFFF00000000000000000F4D756C746970
- 6C6520736865657473240000000300000003000000FFFFFFFFFFFFFFFF000000
- 00000000000B5069766F74205461626C651F0000000300000003000000FFFFFF
- FFFFFFFFFF0000000000000000064368617274732C0000000300000003000000
- FFFFFFFFFFFFFFFF000000000000000013496D6167657320616E6420636F6D6D
- 656E7473330000000300000003000000FFFFFFFFFFFFFFFF0000000000000000
- 1A496D6167657320616E64206D756C7469706C65207368656574732400000003
- 00000003000000FFFFFFFFFFFFFFFF00000000000000000B437573746F6D2064
- 6174612D0000000300000003000000FFFFFFFFFFFFFFFF000000000000000014
- 53696465206279205369646520436F6C756D6E73300000000000000000000000
- FFFFFFFFFFFFFFFF0000000000000000174D656D6F7279204461746173657473
- 20284E6F204442291F0000000200000002000000FFFFFFFFFFFFFFFF00000000
- 0200000006496D706F7274220000000400000004000000FFFFFFFFFFFFFFFF00
- 0000000000000009526561642066696C65240000000400000004000000FFFFFF
- FFFFFFFFFF00000000000000000B4372656174652066696C6531000000050000
- 0005000000FFFFFFFFFFFFFFFF000000000000000018536F6D6520776F726473
- 2061626F757420466C657843656C}
- end
- object Tabs: TPageControl
- Left = 236
- Top = 38
- Width = 601
- Height = 445
- ActivePage = TabSheet11
- Align = alClient
- TabOrder = 1
- TabPosition = tpBottom
- object TabSheet1: TTabSheet
- Caption = '1'
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TxtWelcome: TRichEdit
- Left = 1
- Top = 1
- Width = 591
- Height = 415
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = '2'
- ImageIndex = 1
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label3: TLabel
- Left = 9
- Top = 8
- Width = 41
- Height = 16
- Caption = 'Report'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtReport: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet3: TTabSheet
- Tag = 1
- Caption = '3'
- ImageIndex = 2
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label2: TLabel
- Left = 9
- Top = 8
- Width = 162
- Height = 16
- Caption = 'Very simple demo (no DB)'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtSimpleDemo: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet4: TTabSheet
- Tag = 2
- Caption = '4'
- ImageIndex = 3
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label1: TLabel
- Left = 9
- Top = 8
- Width = 153
- Height = 16
- Caption = 'Array of variants (No DB)'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtVarArr: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 215
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- object Panel6: TPanel
- Left = 1
- Top = 248
- Width = 591
- Height = 168
- Align = alBottom
- BevelOuter = bvNone
- Color = 10672861
- TabOrder = 2
- object Label4: TLabel
- Left = 16
- Top = 8
- Width = 203
- Height = 13
- Caption = 'Fill in the values you want to send to Excel:'
- end
- object PageControl1: TPageControl
- Left = 16
- Top = 24
- Width = 561
- Height = 137
- ActivePage = TabSheet15
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- TabPosition = tpBottom
- object TabSheet15: TTabSheet
- Caption = 'Sheet 1'
- object GridVarArray1: TStringGrid
- Left = 8
- Top = 0
- Width = 329
- Height = 105
- DefaultRowHeight = 18
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
- ScrollBars = ssNone
- TabOrder = 0
- end
- end
- object TabSheet16: TTabSheet
- Caption = 'Sheet2'
- ImageIndex = 1
- object GridVarArray2: TStringGrid
- Left = 8
- Top = 0
- Width = 329
- Height = 105
- DefaultRowHeight = 18
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
- ScrollBars = ssNone
- TabOrder = 0
- end
- end
- end
- end
- end
- end
- object TabSheet14: TTabSheet
- Tag = 3
- Caption = '5'
- ImageIndex = 5
- object Panel18: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label17: TLabel
- Left = 9
- Top = 8
- Width = 127
- Height = 16
- Caption = 'Image demo (No DB)'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtImgDemo: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 327
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- object Panel19: TPanel
- Left = 1
- Top = 360
- Width = 591
- Height = 56
- Align = alBottom
- BevelOuter = bvNone
- Color = 10672861
- TabOrder = 2
- object Label18: TLabel
- Left = 16
- Top = 8
- Width = 98
- Height = 13
- Caption = 'File to send to Excel:'
- end
- object edMyImage: TEdit
- Left = 16
- Top = 24
- Width = 574
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- end
- object btnOpenMyImage: TButton
- Left = 602
- Top = 23
- Width = 25
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '...'
- TabOrder = 1
- OnClick = btnOpenMyImageClick
- end
- end
- end
- end
- object TabSheet5: TTabSheet
- Tag = 4
- Caption = '6'
- ImageIndex = 4
- object Panel7: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label5: TLabel
- Left = 9
- Top = 8
- Width = 58
- Height = 16
- Caption = 'Db report'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtDbDemo: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 324
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- object Panel8: TPanel
- Left = 1
- Top = 357
- Width = 591
- Height = 59
- Align = alBottom
- BevelOuter = bvNone
- Color = 10672861
- TabOrder = 2
- object Label6: TLabel
- Left = 16
- Top = 8
- Width = 79
- Height = 13
- Caption = 'Select customer:'
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 16
- Top = 24
- Width = 281
- Height = 21
- KeyField = 'CustNo'
- ListField = 'Company'
- ListSource = DemoData.DsCust
- TabOrder = 0
- end
- end
- end
- end
- object TabSheet6: TTabSheet
- Tag = 5
- Caption = '7'
- ImageIndex = 5
- object Panel9: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label7: TLabel
- Left = 9
- Top = 8
- Width = 139
- Height = 16
- Caption = 'Multiple Master- Detail'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtMultMast: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet7: TTabSheet
- Tag = 6
- Caption = '8'
- ImageIndex = 6
- object Panel10: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label8: TLabel
- Left = 9
- Top = 8
- Width = 93
- Height = 16
- Caption = 'Multiple sheets'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtSheets: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet8: TTabSheet
- Tag = 7
- Caption = '9'
- ImageIndex = 7
- object Panel12: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label10: TLabel
- Left = 9
- Top = 8
- Width = 69
- Height = 16
- Caption = 'Pivot Table'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtPivot: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet17: TTabSheet
- Tag = 8
- Caption = '10'
- ImageIndex = 14
- object Panel16: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label15: TLabel
- Left = 9
- Top = 8
- Width = 39
- Height = 16
- Caption = 'Charts'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtCharts: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet9: TTabSheet
- Tag = 9
- Caption = '11'
- ImageIndex = 8
- object Panel11: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label9: TLabel
- Left = 9
- Top = 8
- Width = 138
- Height = 16
- Caption = 'Images and comments'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtFishFacts: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet10: TTabSheet
- Tag = 10
- Caption = '12'
- ImageIndex = 9
- object Panel13: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label11: TLabel
- Left = 9
- Top = 8
- Width = 167
- Height = 16
- Caption = 'Images and multiple sheets'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtEvents: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet11: TTabSheet
- Tag = 11
- Caption = '13'
- ImageIndex = 10
- object Panel14: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label12: TLabel
- Left = 9
- Top = 8
- Width = 77
- Height = 16
- Caption = 'Custom data'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtCustom: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 207
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- object TPanel
- Left = 1
- Top = 240
- Width = 591
- Height = 176
- Align = alBottom
- Color = 10672861
- TabOrder = 2
- object Label13: TLabel
- Left = 16
- Top = 16
- Width = 49
- Height = 13
- Caption = 'Enter SQL'
- end
- object edSQL: TMemo
- Left = 16
- Top = 40
- Width = 545
- Height = 105
- Anchors = [akLeft, akTop, akRight, akBottom]
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- end
- end
- object TabSheet18: TTabSheet
- Tag = 12
- Caption = '14'
- ImageIndex = 15
- object TxtSideBySide: TRichEdit
- Left = 0
- Top = 32
- Width = 593
- Height = 385
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 1
- object Label19: TLabel
- Left = 9
- Top = 8
- Width = 133
- Height = 16
- Caption = 'Side by side columns'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- end
- object TabSheet19: TTabSheet
- Tag = 13
- Caption = '15'
- ImageIndex = 17
- object TxtMemory: TRichEdit
- Left = 0
- Top = 32
- Width = 593
- Height = 217
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 1
- object Label21: TLabel
- Left = 9
- Top = 8
- Width = 117
- Height = 16
- Caption = 'In-Memory DataSet'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object Panel21: TPanel
- Left = 0
- Top = 249
- Width = 593
- Height = 168
- Align = alBottom
- BevelOuter = bvNone
- Color = 10672861
- TabOrder = 2
- object Label22: TLabel
- Left = 16
- Top = 8
- Width = 203
- Height = 13
- Caption = 'Fill in the values you want to send to Excel:'
- end
- object GridMemory: TStringGrid
- Left = 16
- Top = 24
- Width = 557
- Height = 129
- Anchors = [akLeft, akTop, akRight, akBottom]
- ColCount = 4
- DefaultRowHeight = 18
- RowCount = 15
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
- ScrollBars = ssVertical
- TabOrder = 0
- ColWidths = (
- 64
- 158
- 148
- 64)
- end
- end
- end
- object TabSheet12: TTabSheet
- Caption = '-'
- ImageIndex = 11
- object Panel17: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label16: TLabel
- Left = 9
- Top = 8
- Width = 40
- Height = 16
- Caption = 'Import'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtImport: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet13: TTabSheet
- Tag = 100
- Caption = '100'
- ImageIndex = 12
- object Panel15: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label14: TLabel
- Left = 9
- Top = 8
- Width = 54
- Height = 16
- Caption = 'Read file'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtReadFile: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object TabSheet20: TTabSheet
- Tag = 101
- Caption = '101'
- ImageIndex = 18
- object Panel22: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label23: TLabel
- Left = 9
- Top = 8
- Width = 62
- Height = 16
- Caption = 'Create file'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtCreateFile: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- object about: TTabSheet
- Caption = 'About'
- ImageIndex = 16
- object Panel20: TPanel
- Left = 0
- Top = 0
- Width = 593
- Height = 417
- Align = alClient
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 0
- object TPanel
- Left = 1
- Top = 1
- Width = 591
- Height = 32
- Align = alTop
- Color = clHighlight
- TabOrder = 0
- object Label20: TLabel
- Left = 9
- Top = 8
- Width = 134
- Height = 16
- Caption = 'Some boring words...'
- Color = clHighlight
- Font.Charset = ANSI_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- end
- object TxtAbout: TRichEdit
- Left = 1
- Top = 33
- Width = 591
- Height = 383
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 1
- end
- end
- end
- end
- object ToolBar: TToolBar
- Left = 0
- Top = 0
- Width = 837
- Height = 38
- AutoSize = True
- ButtonHeight = 36
- ButtonWidth = 82
- Caption = 'ToolBar'
- DisabledImages = DemoData.ImageList2
- Flat = True
- HotImages = DemoData.ImageList3
- Images = DemoData.ImageList1
- ParentShowHint = False
- ShowCaptions = True
- ShowHint = True
- TabOrder = 2
- object BtnUseNative: TToolButton
- Left = 0
- Top = 0
- Action = ActionUseNative
- Down = True
- Grouped = True
- Style = tbsCheck
- end
- object BtnUseOle: TToolButton
- Left = 82
- Top = 0
- Action = ActionUseOle
- Grouped = True
- Style = tbsCheck
- end
- object ToolButton5: TToolButton
- Left = 164
- Top = 0
- Width = 8
- Caption = 'ToolButton5'
- ImageIndex = 13
- Style = tbsSeparator
- end
- object ToolButton3: TToolButton
- Left = 172
- Top = 0
- Action = ActionFastCount
- Style = tbsCheck
- end
- object BtnHTML: TToolButton
- Left = 254
- Top = 0
- Action = ActionHtml
- Style = tbsCheck
- end
- object BtnProtect: TToolButton
- Left = 336
- Top = 0
- Action = ActionProtect
- Style = tbsCheck
- end
- object BtnUseTStore: TToolButton
- Left = 418
- Top = 0
- Action = ActionUseTStore
- Style = tbsCheck
- end
- object ToolButton2: TToolButton
- Left = 500
- Top = 0
- Width = 8
- Caption = 'ToolButton2'
- ImageIndex = 14
- Style = tbsSeparator
- end
- object BtnReport: TToolButton
- Left = 508
- Top = 0
- Action = ActionReport
- DropdownMenu = PopReport
- Style = tbsDropDown
- end
- object BtnViewTemplate: TToolButton
- Left = 603
- Top = 0
- Action = ActionViewTemplateExcel
- DropdownMenu = PopViewTemplate
- Style = tbsDropDown
- end
- object ToolButton1: TToolButton
- Left = 698
- Top = 0
- Width = 8
- Caption = 'ToolButton1'
- ImageIndex = 13
- Style = tbsSeparator
- end
- object BtnClose: TToolButton
- Left = 706
- Top = 0
- Action = ActionClose
- end
- end
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 483
- Width = 837
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object ActionList: TActionList
- Images = DemoData.ImageList1
- Left = 248
- Top = 88
- object ActionUseNative: TAction
- Category = 'Adapter'
- Caption = 'Native Adapter'
- ImageIndex = 6
- OnExecute = ActionUseNativeExecute
- end
- object ActionAutoPrint: TAction
- Category = 'File'
- Caption = 'Print...'
- ImageIndex = 13
- OnExecute = ActionAutoPrintExecute
- OnUpdate = ActionHtmlUpdate
- end
- object ActionClose: TAction
- Category = 'File'
- Caption = 'Close'
- Hint = 'Quits the Application'
- ImageIndex = 12
- OnExecute = ActionCloseExecute
- end
- object ActionReport: TAction
- Category = 'File'
- Caption = 'Report !'
- Hint = 'Runs the selected report'
- ImageIndex = 13
- ShortCut = 120
- OnExecute = ActionReportExecute
- OnUpdate = ActionReportUpdate
- end
- object ActionUseOle: TAction
- Category = 'Adapter'
- Caption = 'Ole Adapter'
- ImageIndex = 5
- OnExecute = ActionUseOleExecute
- end
- object ActionHtml: TAction
- Category = 'Options'
- Caption = 'Export to HTML'
- ImageIndex = 9
- OnUpdate = ActionHtmlUpdate
- end
- object ActionProtect: TAction
- Category = 'Options'
- Caption = 'Protect'
- ImageIndex = 4
- OnUpdate = ActionHtmlUpdate
- end
- object ActionViewTemplateExcel: TAction
- Category = 'File'
- Caption = 'View Template'
- ImageIndex = 3
- OnExecute = ActionViewTemplateExcelExecute
- OnUpdate = ActionViewTemplateExcelUpdate
- end
- object ActionUseTStore: TAction
- Category = 'Options'
- Caption = 'Template Store'
- ImageIndex = 7
- OnExecute = ActionUseTStoreExecute
- end
- object ActionPreview: TAction
- Category = 'Options'
- Caption = 'Preview'
- ImageIndex = 14
- OnExecute = ActionPreviewExecute
- OnUpdate = ActionPreviewUpdate
- end
- object ActionViewTemplateInternal: TAction
- Category = 'File'
- Caption = 'Edit Template'
- ImageIndex = 14
- OnExecute = ActionViewTemplateInternalExecute
- end
- object ActionTestAll: TAction
- Category = 'File'
- Caption = 'Test All...'
- ImageIndex = 15
- OnExecute = ActionTestAllExecute
- end
- object ActionFastCount: TAction
- Category = 'Options'
- Caption = 'Fast Count'
- ImageIndex = 19
- OnExecute = ActionFastCountExecute
- end
- end
- object PopViewTemplate: TPopupMenu
- Images = DemoData.ImageList1
- Left = 640
- Top = 212
- object VievwithExcel1: TMenuItem
- Action = ActionViewTemplateExcel
- end
- object Openwithinternaleditor1: TMenuItem
- Action = ActionViewTemplateInternal
- end
- end
- object PopReport: TPopupMenu
- Images = DemoData.ImageList1
- Left = 248
- Top = 124
- object MenuItem1: TMenuItem
- Action = ActionReport
- end
- object MenuItem2: TMenuItem
- Action = ActionPreview
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object PrintWARNING1: TMenuItem
- Action = ActionAutoPrint
- end
- object TestAll1: TMenuItem
- Action = ActionTestAll
- end
- end
- object PopupMenu1: TPopupMenu
- Images = DemoData.ImageList1
- Left = 248
- Top = 164
- object MenuItem3: TMenuItem
- Action = ActionViewTemplateExcel
- end
- object MenuItem4: TMenuItem
- Action = ActionViewTemplateInternal
- end
- end
- end
-