findlgn.~dfm

this is sample for traders

object FindLgnForm: TFindLgnForm
  Left = 384
  Top = 172
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Cari Langganan'
  ClientHeight = 229
  ClientWidth = 529
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object btnCancel: TSpeedButton
    Left = 288
    Top = 200
    Width = 113
    Height = 25
    Caption = '&Cancel'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnCancelClick
  end
  object btnOke: TSpeedButton
    Left = 408
    Top = 200
    Width = 113
    Height = 25
    Caption = '&Oke'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnOkeClick
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 0
    Width = 177
    Height = 49
    Columns = 2
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ItemIndex = 1
    Items.Strings = (
      'Kode'
      'Nama')
    ParentFont = False
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 48
    Width = 513
    Height = 145
    Color = 12961221
    ParentColor = False
    TabOrder = 2
    object FindItemGrid: TJvDBUltimGrid
      Left = 2
      Top = 15
      Width = 509
      Height = 128
      Align = alClient
      BorderStyle = bsNone
      Color = 16119285
      Ctl3D = False
      DataSource = dsFindLgn
      FixedColor = 14408667
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgRowLines, dgRowSelect, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = []
      OnDblClick = FindItemGridDblClick
      OnKeyDown = FindItemGridKeyDown
      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!'
      EditControls = <
        item
          ControlName = 'DBLookupComboBox1'
          FieldName = 'SELLPRICE'
          FitCell = fcCellSize
        end>
      RowsHeight = 17
      TitleRowHeight = 20
      SortWith = swFields
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'LGNCODE'
          Title.Alignment = taCenter
          Title.Caption = 'KODE'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NAMALGN'
          Title.Alignment = taCenter
          Title.Caption = 'NAMA.LANGGANAN'
          Width = 155
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADDRESS'
          Title.Alignment = taCenter
          Title.Caption = 'ALAMAT'
          Width = 185
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CITY'
          Title.Alignment = taCenter
          Title.Caption = 'KOTA'
          Width = 100
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 192
    Top = 5
    Width = 329
    Height = 44
    Alignment = taLeftJustify
    Caption = '  Cari :'
    TabOrder = 1
    object AddBtn: TSpeedButton
      Left = 248
      Top = 10
      Width = 73
      Height = 23
      Caption = 'Lgn'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8880888888888888888088888888888888808888880008888880888888070888
        8880888888070888888088800007000088808880777777708880888000070000
        8880888888070888888088888807088888808888880008888880888888888888
        88808888888888888880}
      ParentFont = False
      OnClick = AddBtnClick
    end
    object edFind: TEdit
      Left = 40
      Top = 10
      Width = 201
      Height = 23
      AutoSize = False
      CharCase = ecUpperCase
      Color = clInfoBk
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnChange = edFindChange
      OnKeyDown = edFindKeyDown
    end
  end
  object dsFindLgn: TDataSource
    DataSet = DM1.qFindLgn
    Left = 168
    Top = 120
  end
end