home *** CD-ROM | disk | FTP | other *** search
- object FormChartBlob: TFormChartBlob
- Left = 192
- Top = 160
- Width = 549
- Height = 433
- ActiveControl = DBGrid1
- Caption = 'teeMach, SL --- Using TeeChart in BLOB fields'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Chart1: TChart
- Left = 161
- Top = 41
- Width = 380
- Height = 324
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'TChart')
- BottomAxis.EndPosition = 100.000000000000000000
- LeftAxis.EndPosition = 100.000000000000000000
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- Align = alClient
- TabOrder = 2
- end
- object DBGrid1: TDBGrid
- Left = 0
- Top = 41
- Width = 161
- Height = 324
- Align = alLeft
- DataSource = DataSource1
- Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete]
- TabOrder = 1
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 541
- Height = 41
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 344
- Top = 16
- Width = 90
- Height = 13
- Caption = 'Chart Size in bytes:'
- end
- object Label2: TLabel
- Left = 440
- Top = 16
- Width = 32
- Height = 13
- Caption = 'Label2'
- end
- object DBNavigator1: TDBNavigator
- Left = 8
- Top = 8
- Width = 209
- Height = 25
- DataSource = DataSource1
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
- TabOrder = 0
- end
- object Button1: TButton
- Left = 256
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Edit Chart...'
- TabOrder = 1
- OnClick = Button1Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 365
- Width = 541
- Height = 41
- Align = alBottom
- TabOrder = 3
- object Label3: TLabel
- Left = 56
- Top = 8
- Width = 3
- Height = 13
- end
- object Label4: TLabel
- Left = 16
- Top = 16
- Width = 376
- Height = 13
- Caption =
- 'Add, delete or modify records. Each record contains a TeeChart i' +
- 'n a BLOB field.'
- end
- object Button2: TButton
- Left = 448
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Close'
- TabOrder = 0
- OnClick = Button2Click
- end
- end
- object Table1: TTable
- BeforePost = Table1BeforePost
- OnNewRecord = Table1NewRecord
- DatabaseName = 'dbdemos'
- TableName = 'TEEBLOB'
- TableType = ttParadox
- Left = 64
- Top = 176
- object Table1Description: TStringField
- FieldName = 'Description'
- Size = 100
- end
- object Table1Chart: TBlobField
- FieldName = 'Chart'
- Size = 240
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- OnDataChange = DataSource1DataChange
- Left = 128
- Top = 176
- end
- end
-