selectgudang.~dfm

this is sample for traders

object SelectGudangForm: TSelectGudangForm
  Left = 192
  Top = 107
  AutoScroll = False
  BorderIcons = []
  Caption = ' Select Gudang '
  ClientHeight = 253
  ClientWidth = 629
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Dina'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 44
    Width = 629
    Height = 173
    Align = alCustom
    Color = 12961221
    ParentColor = False
    TabOrder = 0
    object FindItemGrid: TJvDBUltimGrid
      Left = 2
      Top = 15
      Width = 625
      Height = 156
      Align = alClient
      BorderStyle = bsNone
      Color = 16119285
      Ctl3D = False
      DataSource = dsFindGudang
      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!'
      CanDelete = False
      EditControls = <
        item
          ControlName = 'DBLookupComboBox1'
          FieldName = 'SELLPRICE'
          FitCell = fcCellSize
        end>
      RowsHeight = 17
      TitleRowHeight = 20
      BooleanEditor = False
      SortWith = swFields
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GDGCODE'
          Title.Alignment = taCenter
          Title.Caption = 'KODE-GDG'
          Width = 145
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GDGNAME'
          Title.Alignment = taCenter
          Title.Caption = 'NAMA GUDANG'
          Width = 225
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LOKASI'
          Width = 225
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 156
    Top = 2
    Width = 281
    Height = 44
    Alignment = taLeftJustify
    Caption = '  Cari :'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object edFind: TEdit
      Left = 68
      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 JvFooter1: TJvFooter
    Left = 0
    Top = 220
    Width = 629
    Height = 33
    Align = alBottom
    AutoSize = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    DesignSize = (
      629
      33)
    object btnCancel: TJvFooterBtn
      Left = 213
      Top = 0
      Width = 95
      Height = 33
      Anchors = [akBottom]
      Cancel = True
      Caption = 'Batal'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ModalResult = 2
      ParentFont = False
      TabOrder = 0
      OnClick = btnCancelClick
      Alignment = taCenter
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -13
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Images = ImageList1
      ImageIndex = 0
      ButtonIndex = 0
      SpaceInterval = 6
    end
    object btnOk: TJvFooterBtn
      Left = 314
      Top = 0
      Width = 95
      Height = 33
      Anchors = [akBottom]
      Caption = 'Oke'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ModalResult = 1
      ParentFont = False
      TabOrder = 1
      OnClick = btnOkClick
      Alignment = taCenter
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -13
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Images = ImageList1
      ImageIndex = 1
      ButtonIndex = 1
      SpaceInterval = 6
    end
  end
  object RadioGroup1: TspSkinRadioGroup
    Left = 4
    Top = 2
    Width = 149
    Height = 44
    TabOrder = 3
    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 = []