Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/rzcomps.exe/DEMO/DATAFRM2.DF_/DATAFRM2.DF/DATAFRM2.txt

Text File | 1996-10-18 | 8KB | 377 lines

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 = {<image000.ico>}
  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