edlgnphone.dfm

this is sample for traders

object edLgnPhoneForm: TedLgnPhoneForm
  Left = 420
  Top = 188
  AutoScroll = False
  BorderIcons = []
  ClientHeight = 146
  ClientWidth = 395
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 395
    Height = 65
    Align = alTop
    Caption = ' Telepon Details '
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Dina'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object JvStaticText2: TJvStaticText
      Left = 16
      Top = 24
      Width = 97
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' Telepon : '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -13
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 0
      TextMargins.X = 0
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvDBComboBox2: TJvDBComboBox
      Left = 288
      Top = 24
      Width = 97
      Height = 23
      DataField = 'JENIS'
      DataSource = dsPhone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ItemHeight = 15
      Items.Strings = (
        'Telepon'
        'Fax'
        'HandPhone')
      ParentFont = False
      TabOrder = 1
      Values.Strings = (
        'Telepon'
        'Fax'
        'HandPhone')
    end
    object OvcDbPictureField1: TOvcDbPictureField
      Left = 128
      Top = 24
      Width = 153
      Height = 23
      DataField = 'TLP'
      DataSource = dsPhone
      FieldType = ftString
      UseTFieldMask = True
      AutoSize = False
      CaretOvr.Shape = csBlock
      EFColors.Disabled.BackColor = clWindow
      EFColors.Disabled.TextColor = clGrayText
      EFColors.Error.BackColor = clRed
      EFColors.Error.TextColor = clBlack
      EFColors.Highlight.BackColor = clHighlight
      EFColors.Highlight.TextColor = clHighlightText
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 16
      Options = [efoCaretToEnd]
      ParentFont = False
      PictureMask = '(999)999-99-9999'
      TabOrder = 2
    end
  end
  object JvFooter1: TJvFooter
    Left = 0
    Top = 97
    Width = 395
    Height = 49
    Align = alBottom
    BevelVisible = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    DesignSize = (
      395
      49)
    object CancelBtn: TJvFooterBtn
      Left = 8
      Top = 9
      Width = 95
      Height = 31
      Anchors = [akLeft, akBottom]
      Cancel = True
      Caption = 'Batal'
      ModalResult = 2
      TabOrder = 0
      Alignment = taLeftJustify
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = []
      ButtonIndex = 0
      SpaceInterval = 6
    end
    object OkBtn: TJvFooterBtn
      Left = 107
      Top = 9
      Width = 95
      Height = 31
      Anchors = [akLeft, akBottom]
      Caption = 'Oke'
      ModalResult = 1
      TabOrder = 1
      OnClick = OkBtnClick
      Alignment = taLeftJustify
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = []
      ButtonIndex = 1
      SpaceInterval = 6
    end
  end
  object dsPhone: TDataSource
    DataSet = DM1.qLgnPhone
    Left = 208
    Top = 108
  end
  object spDynamicSkinForm1: TspDynamicSkinForm
    ShowIcon = False
    MaximizeOnFullScreen = False
    ShowObjectHint = False
    UseSkinCursors = False
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 14
    DefCaptionFont.Name = 'Arial'
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 14
    DefInActiveCaptionFont.Name = 'Arial'
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = 'Arial'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SupportNCArea = True
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    AlphaBlend = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    MinHeight = 0
    MinWidth = 0
    Sizeable = True
    DraggAble = False
    Magnetic = False
    MagneticSize = 10
    BorderIcons = []
    Left = 364
    Top = 116
  end
end