lasarus_compotents/RXLib/demos/PhoneBookDemo/pbeditdataunit.lfm

object pbEditDataForm: TpbEditDataForm
  Left = 492
  Height = 401
  Top = 271
  Width = 530
  Caption = 'Phone book data'
  ClientHeight = 401
  ClientWidth = 530
  Position = poScreenCenter
  LCLVersion = '1.3'
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 6
    Height = 19
    Top = 6
    Width = 66
    BorderSpacing.Around = 6
    Caption = 'Patronymic'
    FocusControl = DBEdit1
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = DBEdit1
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 19
    Top = 68
    Width = 34
    BorderSpacing.Around = 6
    Caption = 'Name'
    FocusControl = DBEdit2
    ParentColor = False
  end
  object Label3: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = DBEdit1
    AnchorSideTop.Side = asrBottom
    Left = 240
    Height = 19
    Top = 68
    Width = 51
    BorderSpacing.Around = 6
    Caption = 'Surname'
    FocusControl = DBEdit3
    ParentColor = False
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = DBEdit2
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 19
    Top = 130
    Width = 37
    BorderSpacing.Around = 6
    Caption = 'Phone'
    FocusControl = DBEdit4
    ParentColor = False
  end
  object Label5: TLabel
    AnchorSideLeft.Control = Label3
    AnchorSideTop.Control = DBEdit3
    AnchorSideTop.Side = asrBottom
    Left = 240
    Height = 19
    Top = 130
    Width = 22
    BorderSpacing.Top = 6
    BorderSpacing.Bottom = 6
    Caption = 'ICQ'
    FocusControl = DBEdit5
    ParentColor = False
  end
  object Label6: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = DBEdit4
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 19
    Top = 192
    Width = 36
    BorderSpacing.Around = 6
    Caption = 'Memo'
    ParentColor = False
  end
  object DBEdit1: TDBEdit
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 31
    Top = 31
    Width = 512
    DataField = 'PATRONYMIC'
    DataSource = pbMainForm.Datasource1
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Label3
    Left = 12
    Height = 31
    Top = 93
    Width = 222
    DataField = 'NAME'
    DataSource = pbMainForm.Datasource1
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    AnchorSideLeft.Control = Label3
    AnchorSideTop.Control = Label3
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 246
    Height = 31
    Top = 93
    Width = 278
    DataField = 'SURNAME'
    DataSource = pbMainForm.Datasource1
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    AnchorSideLeft.Control = Label4
    AnchorSideTop.Control = Label4
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Label3
    Left = 12
    Height = 31
    Top = 155
    Width = 222
    DataField = 'PHONE'
    DataSource = pbMainForm.Datasource1
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 3
  end
  object DBEdit5: TDBEdit
    AnchorSideLeft.Control = Label5
    AnchorSideTop.Control = Label5
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 246
    Height = 31
    Top = 155
    Width = 278
    DataField = 'ICQ'
    DataSource = pbMainForm.Datasource1
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 4
  end
  object ButtonPanel1: TButtonPanel
    Left = 6
    Height = 42
    Top = 353
    Width = 518
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 5
    ShowButtons = [pbOK, pbCancel, pbHelp]
  end
  object DBMemo1: TDBMemo
    AnchorSideLeft.Control = Label6
    AnchorSideTop.Control = Label6
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = ButtonPanel1
    Left = 12
    Height = 130
    Top = 217
    Width = 512
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Around = 6
    DataField = 'MEMO'
    DataSource = pbMainForm.Datasource1
    TabOrder = 6
  end
  object RxCloseFormValidator1: TRxCloseFormValidator
    ErrorMsgCaption = 'Ошибка. Не все требуемые поля заполнены!'
    Items = <    
      item
        Control = DBEdit1
        FieldCaption = 'Patronymic'
      end    
      item
        Control = DBEdit2
        FieldCaption = 'Name'
        OnValidate = RxCloseFormValidator1Items1Validate
      end    
      item
        Control = DBEdit4
        FieldCaption = 'Phone'
        OnValidate = RxCloseFormValidator1Items2Validate
      end>
    left = 376
    top = 8
  end
end