object FrmData2: TFrmData2 Left = 200 Top = 99 BorderStyle = bsDialog Caption = 'More Data-Aware Components' ClientHeight = 317 ClientWidth = 398 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 RzDBLabel1: TRzDBLabel Left = 56 Top = 276 Width = 203 Height = 29 Hint = 'This is an RzDBLabel' TextStyle = tsRaised AutoSize = False Caption = 'Enjoys horseback riding and paints.' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True DataField = 'INTERESTS' DataSource = SrcClients end object RzLabel1: TRzLabel Left = 8 Top = 12 Width = 149 Height = 41 TextStyle = tsNormal Caption = 'This form uses the Clients table from the DBDEMOS database that ' + 'was shipped with Delphi.' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object RzLabel9: TRzLabel Left = 8 Top = 276 Width = 40 Height = 13 TextStyle = tsNormal Caption = 'Interests' end object BtnOK: TButton Left = 314 Top = 280 Width = 75 Height = 25 Caption = 'Done' ModalResult = 1 TabOrder = 4 end object DBGrid1: TDBGrid Left = 8 Top = 60 Width = 381 Height = 73 DataSource = SrcClients TabOrder = 2 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object DBNavigator1: TDBNavigator Left = 172 Top = 28 Width = 208 Height = 25 DataSource = SrcClients VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 3 end object GrpRiskLevel: TGroupBox Left = 268 Top = 144 Width = 121 Height = 125 Caption = 'Risk Level' TabOrder = 1 object TrkRisk: TRzDBTrackBar Left = 8 Top = 16 Width = 40 Height = 106 Max = 2 Orientation = orVertical Position = 1 ThumbStyle = tsBox TrackOffset = 16 TabOrder = 0 DataField = 'RISK_LEVEL' DataSource = SrcClients Values.Strings = ( 'LOW' 'MED' 'HIGH') end object GrpRisk: TRzDBRadioGroup Left = 52 Top = 20 Width = 65 Height = 69 ItemFont.Color = clWindowText ItemFont.Height = -11 ItemFont.Name = 'MS Sans Serif' ItemFont.Style = [] StartXPos = 0 GroupStyle = gsCustom VerticalSpacing = 7 DataField = 'RISK_LEVEL' DataSource = SrcClients Items.Strings = ( 'High' 'Medium' 'Low') Values.Strings = ( 'HIGH' 'MED' 'LOW') FrameSides = [] TabOrder = 1 end end object GroupBox1: TGroupBox Left = 4 Top = 144 Width = 253 Height = 125 Caption = 'RzDBLineEdit Components' TabOrder = 0 object RzLabel2: TRzLabel Left = 8 Top = 100 Width = 16 Height = 11 TextStyle = tsNormal Caption = 'City' Font.Color = clGray Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RzLabel3: TRzLabel Left = 140 Top = 100 Width = 22 Height = 11 TextStyle = tsNormal Caption = 'State' Font.Color = clGray Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RzLabel4: TRzLabel Left = 196 Top = 100 Width = 13 Height = 11 TextStyle = tsNormal Caption = 'Zip' Font.Color = clGray Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RzLabel5: TRzLabel Left = 8 Top = 68 Width = 35 Height = 11 TextStyle = tsNormal Caption = 'Address' Font.Color = clGray Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RzLabel6: TRzLabel Left = 8 Top = 36 Width = 46 Height = 11 TextStyle = tsNormal Caption = 'First Name' Font.Color = clGray Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RzLabel7: TRzLabel Left = 140 Top = 36 Width = 45 Height = 11 TextStyle = tsNormal Caption = 'Last Name' Font.Color = clGray Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RzLabel8: TRzLabel Left = 128 Top = 80 Width = 7 Height = 24 TextStyle = tsNormal Caption = ',' Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object EdtFirstName: TRzDBLineEdit Left = 8 Top = 16 Width = 117 Height = 19 DataField = 'FIRST_NAME' DataSource = SrcClients MaxLength = 20 ParentColor = True ParentCtl3D = False TabOrder = 0 LineStyle = lsGroove end object EdtLastName: TRzDBLineEdit Left = 140 Top = 16 Width = 101 Height = 19 DataField = 'LAST_NAME' DataSource = SrcClients MaxLength = 20 ParentColor = True ParentCtl3D = False TabOrder = 1 LineStyle = lsGroove end object EdtAddress: TRzDBLineEdit Left = 8 Top = 48 Width = 233 Height = 19 DataField = 'ADDRESS_1' DataSource = SrcClients MaxLength = 20 ParentColor = True ParentCtl3D = False TabOrder = 2 LineStyle = lsGroove end object EdtCity: TRzDBLineEdit Left = 8 Top = 80 Width = 117 Height = 19 DataField = 'CITY' DataSource = SrcClients MaxLength = 20 ParentColor = True ParentCtl3D = False TabOrder = 3 LineStyle = lsGroove end object EdtState: TRzDBLineEdit Left = 140 Top = 80 Width = 45 Height = 19 CharCase = ecUpperCase DataField = 'STATE' DataSource = SrcClients MaxLength = 2 ParentColor = True ParentCtl3D = False TabOrder = 4 LineStyle = lsGroove end object EdtZip: TRzDBLineEdit Left = 196 Top = 80 Width = 45 Height = 19 DataField = 'ZIP' DataSource = SrcClients MaxLength = 5 ParentColor = True ParentCtl3D = False TabOrder = 5 LineStyle = lsGroove end end object TblClients: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'CLIENTS.DBF' Left = 260 Top = 28 object TblClientsLAST_NAME: TStringField DisplayLabel = 'Last Name' DisplayWidth = 13 FieldName = 'LAST_NAME' end object TblClientsFIRST_NAME: TStringField DisplayLabel = 'First Name' DisplayWidth = 15 FieldName = 'FIRST_NAME' end object TblClientsRISK_LEVEL: TStringField DisplayLabel = 'Risk Level' DisplayWidth = 12 FieldName = 'RISK_LEVEL' Size = 8 end object TblClientsADDRESS_1: TStringField DisplayLabel = 'Address' DisplayWidth = 26 FieldName = 'ADDRESS_1' end object TblClientsCITY: TStringField DisplayLabel = 'City' DisplayWidth = 15 FieldName = 'CITY' end object TblClientsSTATE: TStringField DisplayLabel = 'State' DisplayWidth = 7 FieldName = 'STATE' Size = 2 end object TblClientsZIP: TStringField DisplayLabel = 'Zip' DisplayWidth = 7 FieldName = 'ZIP' Size = 5 end object TblClientsINTERESTS: TStringField DisplayLabel = 'Interests' DisplayWidth = 173 FieldName = 'INTERESTS' Size = 120 end end object SrcClients: TDataSource DataSet = TblClients Left = 288 Top = 28 end end