Chip 2003 February/Chip_2003-02_cd1.bin/tema/siggis/siGGis.exe/0/RCDATA/TFNEWDBF/TFNEWDBF.txt

Text File | 2001-12-03 | 4KB | 179 lines

object FNewDbf: TFNewDbf
  Left = 586
  Top = 191
  Width = 384
  Height = 341
  Caption = 'New Database'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnDeactivate = FormDeactivate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 273
    Width = 376
    Height = 41
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 0
    object BOk: TBitBtn
      Left = 152
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Ok'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BOkClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 376
    Height = 273
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 144
      Height = 271
      Align = alLeft
      TabOrder = 0
      object Label1: TLabel
        Left = 4
        Top = 8
        Width = 65
        Height = 13
        Caption = 'FieldName:'
      end
      object Label2: TLabel
        Left = 4
        Top = 24
        Width = 49
        Height = 13
        Caption = 'FieldType:'
      end
      object Label3: TLabel
        Left = 8
        Top = 67
        Width = 57
        Height = 13
        Caption = 'Length:       '
      end
      object Label4: TLabel
        Left = 8
        Top = 91
        Width = 56
        Height = 13
        Caption = 'Places:       '
      end
      object EName: TEdit
        Left = 69
        Top = 6
        Width = 73
        Height = 21
        MaxLength = 11
        TabOrder = 0
        OnKeyPress = ENameKeyPress
      end
      object CBType: TComboBox
        Left = 4
        Top = 40
        Width = 137
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'Char'
          'Decimal'
          'Float'
          'Date'
          'Boolean'
          '')
        TabOrder = 1
        Text = '...'
        OnChange = CBTypeChange
      end
      object ELen: TEdit
        Left = 69
        Top = 64
        Width = 71
        Height = 21
        Enabled = False
        TabOrder = 2
        OnExit = ELenExit
      end
      object Eplaces: TEdit
        Left = 69
        Top = 88
        Width = 71
        Height = 21
        Enabled = False
        TabOrder = 3
        OnExit = EplacesExit
      end
      object Button0: TBitBtn
        Left = 24
        Top = 128
        Width = 97
        Height = 25
        Caption = 'Modify field'
        TabOrder = 4
        OnClick = Button0Click
      end
      object Button1: TBitBtn
        Left = 24
        Top = 160
        Width = 97
        Height = 25
        Caption = 'New field'
        TabOrder = 5
        OnClick = Button1Click
      end
      object Button2: TBitBtn
        Left = 24
        Top = 192
        Width = 97
        Height = 25
        Caption = 'Delete field'
        TabOrder = 6
        OnClick = Button2Click
      end
      object Button3: TBitBtn
        Left = 24
        Top = 224
        Width = 97
        Height = 25
        Caption = 'Default'
        TabOrder = 7
        OnClick = Button3Click
      end
    end
    object SG: TStringGrid
      Left = 145
      Top = 1
      Width = 230
      Height = 271
      Align = alClient
      DefaultRowHeight = 18
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      TabOrder = 1
      OnClick = SGClick
      OnDblClick = SGDblClick
      OnKeyUp = SGKeyUp
    end
  end
end