lspegawai.~dfm

this is sample for traders

object lsPegawaiForm: TlsPegawaiForm
  Left = 192
  Top = 107
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Data Pegawai '
  ClientHeight = 468
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 37
    Width = 777
    Height = 431
    Align = alClient
    TabOrder = 0
    object AddBtn: TSpeedButton
      Left = 368
      Top = 10
      Width = 49
      Height = 45
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8880888888888888888088888888888888808888880008888880888888070888
        8880888888070888888088800007000088808880777777708880888000070000
        8880888888070888888088888807088888808888880008888880888888888888
        88808888888888888880}
      Layout = blGlyphTop
      OnClick = AddBtnClick
    end
    object ItemGrid: TJvDBUltimGrid
      Left = 8
      Top = 60
      Width = 761
      Height = 345
      Color = 16119285
      Ctl3D = False
      DataSource = dspegawai
      FixedColor = 14408667
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = [fsBold]
      OnDblClick = ItemGridDblClick
      OnKeyDown = ItemGridKeyDown
      AutoAppend = False
      TitleButtons = True
      TitleArrow = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      CanDelete = False
      EditControls = <>
      RowsHeight = 17
      TitleRowHeight = 20
      WordWrap = True
      SortWith = swFields
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PEGNIP'
          Title.Alignment = taCenter
          Title.Caption = 'N.I.P'
          Width = 145
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PEGNAME'
          Title.Alignment = taCenter
          Title.Caption = 'NAMA-PEGAWAI '
          Width = 200
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPNAME'
          Title.Alignment = taCenter
          Title.Caption = 'DEPARTEMEN'
          Width = 125
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'JABNAME'
          Title.Alignment = taCenter
          Title.Caption = 'JABATAN'
          Width = 125
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SEX'
          Title.Alignment = taCenter
          Title.Caption = 'L/P'
          Width = 35
          Visible = True
        end>
    end
    object RadioGroup1: TspSkinRadioGroup
      Left = 8
      Top = 10
      Width = 149
      Height = 43
      TabOrder = 1
      DrawDefault = True
      SkinDataName = 'groupbox'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = ANSI_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -13
      DefaultFont.Name = 'Dina'
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      AutoEnabledControls = True
      CheckedMode = True
      Checked = True
      NumGlyphs = 1
      Spacing = 2
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvFrame
      CaptionMode = False
      RollUpMode = False
      RollUpState = False
      Caption = 'RadioGroup1'
      ButtonSkinDataName = 'radiobox'
      ButtonDefaultFont.Charset = ANSI_CHARSET
      ButtonDefaultFont.Color = clNavy
      ButtonDefaultFont.Height = -13
      ButtonDefaultFont.Name = 'Dina'
      ButtonDefaultFont.Style = []
      Columns = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ItemIndex = 1
      Items.Strings = (
        'Kode'
        'Nama')
      ParentFont = False
    end
    object edFind: TEdit
      Left = 160
      Top = 31
      Width = 201
      Height = 23
      AutoSize = False
      CharCase = ecUpperCase
      Color = clInfoBk
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 30
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnChange = edFindChange
    end
    object JvStaticText1: TJvStaticText
      Left = 160
      Top = 10
      Width = 200
      Height = 17
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Cari : '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 3
      TextMargins.X = 3
      TextMargins.Y = 0
      WordWrap = False
    end