home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / UNIT01.DFM / UNIT01.txt < prev   
Encoding:
Text File  |  1996-12-30  |  11.2 KB  |  456 lines
  1. object CBDemo01: TCBDemo01
  2.   Left = 64
  3.   Top = 114
  4.   Width = 800
  5.   Height = 570
  6.   Caption = 'Calitz Bros. CB Suite Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -17
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 120
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   TextHeight = 20
  15.   object Label1: TLabel
  16.     Left = 8
  17.     Top = 512
  18.     Width = 76
  19.     Height = 17
  20.     Caption = 'Graph Type'
  21.     Font.Color = clBlack
  22.     Font.Height = -15
  23.     Font.Name = 'Arial'
  24.     Font.Style = []
  25.     ParentFont = False
  26.   end
  27.   object Notebook1: TNotebook
  28.     Left = 0
  29.     Top = 0
  30.     Width = 792
  31.     Height = 475
  32.     Align = alTop
  33.     TabOrder = 0
  34.     object TPage
  35.       Left = 0
  36.       Top = 0
  37.       Caption = 'TCB_DBGraph'
  38.       object Memo1: TMemo
  39.         Left = 664
  40.         Top = 8
  41.         Width = 121
  42.         Height = 449
  43.         Font.Color = clBlack
  44.         Font.Height = -13
  45.         Font.Name = 'Arial'
  46.         Font.Style = []
  47.         Lines.Strings = (
  48.           'To sort the Grid'
  49.           'Click on its'
  50.           'Column '
  51.           'headings.'
  52.           ''
  53.           'On the left'
  54.           'to sort'
  55.           'Ascending'
  56.           ''
  57.           'On the midlle'
  58.           'to remove '
  59.           'any previous'
  60.           'sort order'
  61.           ''
  62.           'On the right'
  63.           'to sort'
  64.           'Descending'
  65.           ''
  66.           'The Graph'
  67.           'will adjust'
  68.           'accordingly.'
  69.           ''
  70.           'Press the'
  71.           '"Report"'
  72.           'button to'
  73.           'View/Print'
  74.           'the Grid with'
  75.           'Reportit'
  76.           ''
  77.           'Press the'
  78.           '"use Printit"'
  79.           'button to'
  80.           'View/Print'
  81.           'the ScrollBox'
  82.           'using Printit'
  83.           ''
  84.           'This is a '
  85.           'very small'
  86.           'demo of'
  87.           'the CB Suite'
  88.           'which consists'
  89.           'of the packages'
  90.           ''
  91.           '(1) Printit'
  92.           '(2) Reportit'
  93.           '(3) Sortit'
  94.           '(4) Graphit'
  95.           ''
  96.           'which are'
  97.           'bundled'
  98.           'together as'
  99.           'CB Suite.'
  100.           ''
  101.           'They are also'
  102.           'sold separarely.'
  103.           ''
  104.           'For more'
  105.           'comprehensive'
  106.           'demos, please'
  107.           'visit out Web '
  108.           'Site')
  109.         ParentFont = False
  110.         ScrollBars = ssVertical
  111.         TabOrder = 0
  112.       end
  113.       object ScrollBox1: TScrollBox
  114.         Left = 8
  115.         Top = 8
  116.         Width = 641
  117.         Height = 457
  118.         HorzScrollBar.Range = 641
  119.         VertScrollBar.Range = 300
  120.         AutoScroll = False
  121.         BorderStyle = bsNone
  122.         TabOrder = 1
  123.         object CB_Label2: TCB_Label
  124.           Left = 120
  125.           Top = 4
  126.           Width = 370
  127.           Height = 21
  128.           Caption = 'Only the first 10 stocks are shown in the graph'
  129.           Font.Color = clRed
  130.           Font.Height = -18
  131.           Font.Name = 'Arial'
  132.           Font.Style = []
  133.           ParentFont = False
  134.           Transparent = True
  135.           About = 'Version 5.32'
  136.         end
  137.         object CB_DBGraph1: TCB_DBGraph
  138.           Left = 0
  139.           Top = 48
  140.           Width = 617
  141.           Height = 313
  142.           About = 'Version 5.32'
  143.           AboutRegistered = 'TOM SNIDER'
  144.           ViewBkColor = 11234567
  145.           ViewHeading = 'Graphit Viewer'
  146.           Copies = 1
  147.           SeriesNames.Strings = (
  148.             'Cur Pr'
  149.             'Yrl High'
  150.             'Yrl Low'
  151.             'PE Ratio'
  152.             'Beta'
  153.             'Pr Grow')
  154.           ValueNames.Strings = (
  155.             'SMC'
  156.             'TC'
  157.             'HS'
  158.             'DHE'
  159.             'HGJ'
  160.             'PIN'
  161.             'TSM'
  162.             'DS'
  163.             'EC'
  164.             'NTEL')
  165.           Orientation = Default
  166.           BorderStyle = bsSingle
  167.           InnerBorderStyle = bsSingle
  168.           LeftMargin = 50
  169.           RightMargin = 80
  170.           TopMargin = 40
  171.           BottomMargin = 40
  172.           GraphType = ctLine
  173.           NSeries = 6
  174.           NValues = 10
  175.           YMin = -20.000000000000000000
  176.           YMax = 100.000000000000000000
  177.           YGap = 20.000000000000000000
  178.           ShowLegend = True
  179.           CurrentPieSeries = 1
  180.           ShowPiePercentage = True
  181.           Visible = False
  182.           TitleTop = 'STOCK DEMO'
  183.           TitleLeft = 'Value'
  184.           TitleBottom = 'Stock Symbol'
  185.           TitleRight = 'Legend'
  186.           BorderBkColor = clSilver
  187.           GraphBkColor = clWhite
  188.           GridLines = glBoth
  189.           OutputTo = poViewer
  190.         end
  191.         object Image1: TImage
  192.           Left = 549
  193.           Top = 248
  194.           Width = 60
  195.           Height = 57
  196.           Picture.Data = {<image000.bmp>}
  197.         end
  198.         object CB_SortGrid1: TCB_SortGrid
  199.           Left = 0
  200.           Top = 376
  201.           Width = 622
  202.           Height = 73
  203.           Cursor = 1
  204.           BorderStyle = bsNone
  205.           DataSource = DataSource1
  206.           Font.Color = clMaroon
  207.           Font.Height = -15
  208.           Font.Name = 'Arial'
  209.           Font.Style = []
  210.           ParentFont = False
  211.           TabOrder = 0
  212.           TitleFont.Color = clBlack
  213.           TitleFont.Height = -13
  214.           TitleFont.Name = 'Arial'
  215.           TitleFont.Style = []
  216.           About = 'Version 5.32'
  217.           AboutRegistered = 'TOM SNIDER'
  218.           DisplayDBMemo = True
  219.           DisplayDBImage = True
  220.           AllowSort = True
  221.           AutoAlign = False
  222.           DefaultRowHeight = 20
  223.           OnAfterSort = CB_SortGrid1AfterSort
  224.           PrintItLeft = 1.500000000000000000
  225.           PrintItTop = 5.500000000000000000
  226.           PrintItHeight = 4.000000000000000000
  227.           PrintItWidth = 6.000000000000000000
  228.         end
  229.       end
  230.     end
  231.   end
  232.   object BitBtn1: TBitBtn
  233.     Left = 560
  234.     Top = 504
  235.     Width = 89
  236.     Height = 33
  237.     Caption = '&Close'
  238.     Font.Color = clBlack
  239.     Font.Height = -17
  240.     Font.Name = 'Arial'
  241.     Font.Style = []
  242.     ParentFont = False
  243.     TabOrder = 1
  244.     OnClick = BitBtn1Click
  245.   end
  246.   object ComboBox2: TComboBox
  247.     Left = 96
  248.     Top = 512
  249.     Width = 105
  250.     Height = 25
  251.     Font.Color = clBlack
  252.     Font.Height = -15
  253.     Font.Name = 'Arial'
  254.     Font.Style = []
  255.     ItemHeight = 17
  256.     Items.Strings = (
  257.       'Bar'
  258.       'Line'
  259.       'Pie'
  260.       'Scatter')
  261.     ParentFont = False
  262.     TabOrder = 2
  263.     Text = 'Bar'
  264.     OnChange = ComboBox2Change
  265.   end
  266.   object Button1: TButton
  267.     Left = 224
  268.     Top = 504
  269.     Width = 105
  270.     Height = 33
  271.     Caption = '&Report'
  272.     Font.Color = clBlack
  273.     Font.Height = -15
  274.     Font.Name = 'Arial'
  275.     Font.Style = []
  276.     ParentFont = False
  277.     TabOrder = 3
  278.     OnClick = Button1Click
  279.   end
  280.   object Button2: TButton
  281.     Left = 336
  282.     Top = 503
  283.     Width = 105
  284.     Height = 33
  285.     Caption = 'Use &Printit'
  286.     Font.Color = clBlack
  287.     Font.Height = -15
  288.     Font.Name = 'Arial'
  289.     Font.Style = []
  290.     ParentFont = False
  291.     TabOrder = 4
  292.     OnClick = Button2Click
  293.   end
  294.   object TabSet1: TTabSet
  295.     Left = 0
  296.     Top = 475
  297.     Width = 792
  298.     Height = 21
  299.     Align = alTop
  300.     Font.Color = clWindowText
  301.     Font.Height = -13
  302.     Font.Name = 'MS Sans Serif'
  303.     Font.Style = []
  304.     OnClick = TabSet1Click
  305.   end
  306.   object DataSource1: TDataSource
  307.     DataSet = Query1
  308.     Left = 400
  309.     Top = 377
  310.   end
  311.   object DBPrintWin1: TDBPrintWin
  312.     About = 'Version 5.32'
  313.     AboutRegistered = 'TOM SNIDER'
  314.     HeaderFont.Color = clWindowText
  315.     HeaderFont.Height = 16
  316.     HeaderFont.Name = 'Arial'
  317.     HeaderFont.Style = []
  318.     Font.Color = clWindowText
  319.     Font.Height = 16
  320.     Font.Name = 'Arial'
  321.     Font.Style = []
  322.     FooterFont.Color = clWindowText
  323.     FooterFont.Height = 12
  324.     FooterFont.Name = 'Arial'
  325.     FooterFont.Style = []
  326.     FrameObjects = False
  327.     clBtnFaceAsWhite = True
  328.     OutputTo = poViewer
  329.     Orientation = Default
  330.     Units = poInches
  331.     ViewButtonVisible = False
  332.     ShowCancelDialog = True
  333.     LineWidth = 0
  334.     Copies = 1
  335.     GridBackDrop = False
  336.     GridBackDropUnits = poInches
  337.     ZoomPercentage = 25.000000000000000000
  338.     HeaderTop = 0.500000000000000000
  339.     HeaderLeft = 0.500000000000000000
  340.     HeaderStringLeft = '(c) Calitz Bros.                                  '
  341.     HeaderStringCenter = 'Printit Demo                                  '
  342.     HeaderStringRight = 'CB Suite Components                                  '
  343.     HeaderEnabled = True
  344.     HeaderOutlined = True
  345.     HeaderFilled = False
  346.     TextColor = clBlack
  347.     ViewBkColor = 11234567
  348.     ViewHeading = 'Printit Viewer'
  349.     HeadingColor = clSilver
  350.     FrameStyle = frThin
  351.     FooterTop = 10.020000000000000000
  352.     FooterString = '                                                  '
  353.     FooterEnabled = True
  354.     FooterOutlined = True
  355.     FooterFilled = False
  356.     FixSansSerif = True
  357.     FooterStringLeft = 'Printed on @Date at @Time'
  358.     FooterStringRight = 'Page @Page'
  359.     BorderLeft = 0.500000000000000000
  360.     BorderRight = 0.500000000000000000
  361.     LineSpacing = 2.800000000000000000
  362.     Left = 656
  363.     Top = 177
  364.   end
  365.   object PrintGridReport1: TPrintGridReport
  366.     About = 'Version 5.32'
  367.     AboutRegistered = 'TOM SNIDER'
  368.     Brush.Color = clSilver
  369.     ViewButtonVisible = False
  370.     Copies = 1
  371.     OutputTo = poViewer
  372.     Orientation = Default
  373.     ViewBkColor = 11234567
  374.     Units = poInches
  375.     ViewHeading = 'Reportit Viewer'
  376.     FooterFont.Color = clWindowText
  377.     FooterFont.Height = 12
  378.     FooterFont.Name = 'Arial'
  379.     FooterFont.Style = []
  380.     HeaderFont.Color = clWindowText
  381.     HeaderFont.Height = 16
  382.     HeaderFont.Name = 'Arial'
  383.     HeaderFont.Style = []
  384.     ViewerOptions = []
  385.     SubTotalString = '** SubTotal of @RecCount Records **'
  386.     TotalString = '*** Total of @RecCount Records ***'
  387.     ZoomPercentage = 25.000000000000000000
  388.     HeaderTop = 0.500000000000000000
  389.     HeaderStringLeft = '(c) Calitz Bros'
  390.     HeaderStringCenter = 'CB Suite Demo'
  391.     HeaderStringRight = 'Stock'
  392.     HeaderEnabled = True
  393.     HeaderOutlined = True
  394.     HeaderFilled = False
  395.     FooterTop = 9.550000000000003000
  396.     FooterString = 'Page Footer'
  397.     FooterEnabled = True
  398.     FooterOutlined = True
  399.     FooterFilled = True
  400.     FooterStringLeft = 'Printed on @Date at @Time'
  401.     FooterStringRight = 'Page @Page'
  402.     DisableControls = True
  403.     BorderLeft = 0.250000000000000000
  404.     BorderRight = 0.250000000000000000
  405.     GridHeadingRow = 1.500000000000000000
  406.     GridHeadingCol = 0.250000000000000000
  407.     GridHeadingEnabled = True
  408.     GridHeadingOutlined = True
  409.     GridHeadingFilled = True
  410.     GridLines = True
  411.     LineSpacing = 1.500000000000000000
  412.     Grid = CB_SortGrid1
  413.     GridMinWidth = False
  414.     GridCentered = True
  415.     GridPrintTotal = False
  416.     PrintSubTotals = False
  417.     FrameStyleLeft = frNone
  418.     FrameStyleTop = frSingleThin
  419.     FrameStyleRight = frNone
  420.     FrameStyleBottom = frDoubleThickThin
  421.     ReportStyle = rsOwn
  422.     Left = 664
  423.     Top = 142
  424.   end
  425.   object Query1: TQuery
  426.     Active = True
  427.     DatabaseName = 'DBDEMOS'
  428.     SQL.Strings = (
  429.       'select * from master')
  430.     Left = 432
  431.     Top = 374
  432.     object Query1SYMBOL: TStringField
  433.       FieldName = 'SYMBOL'
  434.       Size = 7
  435.     end
  436.     object Query1CUR_PRICE: TFloatField
  437.       FieldName = 'CUR_PRICE'
  438.     end
  439.     object Query1YRL_HIGH: TFloatField
  440.       FieldName = 'YRL_HIGH'
  441.     end
  442.     object Query1YRL_LOW: TFloatField
  443.       FieldName = 'YRL_LOW'
  444.     end
  445.     object Query1P_E_RATIO: TFloatField
  446.       FieldName = 'P_E_RATIO'
  447.     end
  448.     object Query1BETA: TFloatField
  449.       FieldName = 'BETA'
  450.     end
  451.     object Query1PROJ_GRTH: TFloatField
  452.       FieldName = 'PROJ_GRTH'
  453.     end
  454.   end
  455. end
  456.