object FrmData1: TFrmData1 Left = 200 Top = 99 BorderStyle = bsDialog Caption = 'Data-Aware Components' ClientHeight = 333 ClientWidth = 403 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} PixelsPerInch = 96 Position = poScreenCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate TextHeight = 13 object RzBorder2: TRzBorder Left = 328 Top = 300 Width = 37 Height = 25 BorderSides = [sdTop, sdRight] end object RzBorder1: TRzBorder Left = 8 Top = 300 Width = 225 Height = 17 BorderSides = [sdLeft, sdTop, sdRight] end object RzLabel1: TRzLabel Left = 8 Top = 8 Width = 145 Height = 39 TextStyle = tsNormal Caption = 'This form uses the Parts table from the DBDEMOS database that wa' + 's shipped with Delphi.' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object RzLabel4: TRzLabel Left = 24 Top = 296 Width = 195 Height = 13 TextStyle = tsNormal Caption = 'These are RzDBStatusPane components' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object RzLabel6: TRzLabel Left = 264 Top = 296 Width = 83 Height = 13 TextStyle = tsNormal Caption = 'RzDBStateStatus' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object BtnOK: TButton Left = 320 Top = 264 Width = 75 Height = 25 Caption = 'Done' ModalResult = 1 TabOrder = 0 end object RzStatusBar1: TRzStatusBar Left = 0 Top = 312 Width = 403 ShowSizeGrip = False TabOrder = 1 object RzDBStatusPane1: TRzDBStatusPane Left = 0 Top = 0 Width = 117 Height = 23 Hint = 'Cost' Align = alLeft ParentShowHint = False DataField = 'Cost' DataSource = SrcParts FieldLabel = 'Cost: ' end object RzDBStatusPane2: TRzDBStatusPane Left = 117 Top = 0 Width = 133 Height = 23 Hint = 'ListPrice' Align = alLeft ParentShowHint = False DataField = 'ListPrice' DataSource = SrcParts FieldLabel = 'List Price: ' end object RzDBStateStatus1: TRzDBStateStatus Left = 250 Top = 0 Width = 153 Height = 23 Hint = 'Graphically displays the state of the selected Dataset' Align = alClient DataSource = SrcParts GlyphOffset = 5 end end object DBGrid1: TDBGrid Left = 8 Top = 52 Width = 385 Height = 73 DataSource = SrcParts TabOrder = 2 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object DBNavigator1: TDBNavigator Left = 168 Top = 20 Width = 217 Height = 25 DataSource = SrcParts VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 3 end object GroupBox1: TGroupBox Left = 8 Top = 243 Width = 217 Height = 49 Caption = 'RzDBSpinEdit Components' TabOrder = 4 object RzLabel2: TRzLabel Left = 8 Top = 24 Width = 43 Height = 13 TextStyle = tsNormal Caption = 'On Hand' end object RzLabel3: TRzLabel Left = 112 Top = 24 Width = 43 Height = 13 TextStyle = tsNormal Caption = 'On Order' end object SpnOnHand: TRzDBSpinEdit Left = 56 Top = 20 Width = 47 Height = 21 ButtonUpGlyph.Data = { 12010000424D120100000000000036000000280000000E000000050000000100 180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C000000000000000000000000000000000000000000000008080808080 808080808080808080808080808080800000C0C0C00000000000000000000000 00000000C0C0C0C0C0C0808080808080808080808080808080C0C0C00000C0C0 C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C080808080808080 8080C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0808080C0C0C0C0C0C0C0C0C00000} ButtonDownGlyph.Data = { 12010000424D120100000000000036000000280000000E000000050000000100 180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0808080C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C00000000000000000 00C0C0C0C0C0C0C0C0C0C0C0C0808080808080808080C0C0C0C0C0C00000C0C0 C0000000000000000000000000000000C0C0C0C0C0C080808080808080808080 8080808080C0C0C0000000000000000000000000000000000000000000000080 80808080808080808080808080808080808080800000} Increment = 1.000000000000000000 Max = 100.000000000000000000 PageSize = 10.000000000000000000 Value = 27.000000000000000000 ParentColor = False TabOrder = 0 DataField = 'OnHand' DataSource = SrcParts end object SpnOnOrder: TRzDBSpinEdit Left = 160 Top = 20 Width = 47 Height = 21 ButtonUpGlyph.Data = { 12010000424D120100000000000036000000280000000E000000050000000100 180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C000000000000000000000000000000000000000000000008080808080 808080808080808080808080808080800000C0C0C00000000000000000000000 00000000C0C0C0C0C0C0808080808080808080808080808080C0C0C00000C0C0 C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C080808080808080 8080C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0808080C0C0C0C0C0C0C0C0C00000} ButtonDownGlyph.Data = { 12010000424D120100000000000036000000280000000E000000050000000100 180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0808080C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C00000000000000000 00C0C0C0C0C0C0C0C0C0C0C0C0808080808080808080C0C0C0C0C0C00000C0C0 C0000000000000000000000000000000C0C0C0C0C0C080808080808080808080 8080808080C0C0C0000000000000000000000000000000000000000000000080 80808080808080808080808080808080808080800000} Increment = 1.000000000000000000 Max = 100.000000000000000000 PageSize = 10.000000000000000000 Value = 21.000000000000000000 ParentColor = False TabOrder = 1 DataField = 'OnOrder' DataSource = SrcParts end end object RzPanel1: TRzPanel Left = 8 Top = 136 Width = 217 Height = 101 Alignment = taLeftJustify AlignmentVertical = avTop BorderOuter = fsGroove BorderWidth = 4 Caption = 'This is an RzDBButtonEdit which displays an RzDBLookupDialog whe' + 'n the ... button is pressed. The RzDBLookupDialog uses a Query ' + 'to only display vendors from California.' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FrameSides = [] ParentFont = False TabOrder = 5 object RzLabel5: TRzLabel Left = 36 Top = 74 Width = 51 Height = 13 TextStyle = tsNormal Caption = 'Vendor No' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object EdtVendorNo: TRzDBButtonEdit Left = 92 Top = 70 Width = 85 Height = 21 ButtonGlyph.Data = { 8E020000424D8E020000000000003600000028000000140000000A0000000100 1800000000005802000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0000000000000C0C0C000 0000000000C0C0C0C0C0C0808080FFFFFFC0C0C0808080FFFFFFC0C0C0808080 FFFFFFC0C0C0C0C0C0808080000000C0C0C0808080000000C0C0C08080800000 00C0C0C0C0C0C0808080808080C0C0C0808080808080C0C0C0808080808080C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0} AltBtnGlyph.Data = { 8E020000424D8E020000000000003600000028000000140000000A0000000100 1800000000005802000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0000000000000C0C0C000 0000000000C0C0C0C0C0C0808080FFFFFFC0C0C0808080FFFFFFC0C0C0808080 FFFFFFC0C0C0C0C0C0808080000000C0C0C0808080000000C0C0C08080800000 00C0C0C0C0C0C0808080808080C0C0C0808080808080C0C0C0808080808080C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0} Text = 'VN 3820' OnButtonClick = EdtVendorNoButtonClick Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 DataField = 'VendorNo' DataSource = SrcParts end end object RzPanel2: TRzPanel Left = 236 Top = 136 Width = 157 Height = 101 Alignment = taLeftJustify AlignmentVertical = avTop BorderOuter = fsGroove BorderWidth = 4 Caption = 'This RzDBProgressBar component displays the percentage of the "C' + 'ost" to the "List Price."' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FrameSides = [] ParentFont = False TabOrder = 6 object PbrPrice: TRzDBProgressBar Left = 10 Top = 67 Width = 139 BaseField = 'ListPrice' DataField = 'Cost' DataSource = SrcParts BarColor = clMaroon BorderWidth = 0 Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] InteriorOffset = 0 ParentFont = False end end object TblParts: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'PARTS.DB' Left = 272 Top = 16 object TblPartsPartNo: TFloatField Alignment = taLeftJustify DisplayWidth = 11 FieldName = 'PartNo' DisplayFormat = 'PN-00000' end object TblPartsVendorNo: TFloatField DisplayWidth = 10 FieldName = 'VendorNo' DisplayFormat = 'VN 0000' MaxValue = 9999.000000000000000000 MinValue = 1000.000000000000000000 end object TblPartsDescription: TStringField DisplayWidth = 26 FieldName = 'Description' Size = 30 end object TblPartsOnHand: TFloatField DisplayWidth = 9 FieldName = 'OnHand' end object TblPartsOnOrder: TFloatField DisplayWidth = 9 FieldName = 'OnOrder' end object TblPartsCost: TCurrencyField DisplayWidth = 12 FieldName = 'Cost' Currency = True end object TblPartsListPrice: TCurrencyField DisplayWidth = 12 FieldName = 'ListPrice' Currency = True end end object SrcParts: TDataSource DataSet = TblParts Left = 300 Top = 16 end object DlgVendorLookup: TRzDBLookupDialog Caption = 'Vendor Lookup' Dataset = QryVendors Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] NumbersOnly = False Prompt = 'Select Vender' SearchField = 'VendorName' Left = 340 Top = 16 end object QryVendors: TQuery Active = True DatabaseName = 'DBDEMOS' SQL.Strings = ( 'select * from Vendors' 'where State = '#39'CA'#39 'order by VendorName') Left = 368 Top = 16 end end