lsgudang.dfm

this is sample for traders

object lsGudangForm: TlsGudangForm
  Left = 192
  Top = 107
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Data Gudang & Lokasi '
  ClientHeight = 368
  ClientWidth = 587
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object spSkinGroupBox1: TspSkinGroupBox
    Left = 0
    Top = 0
    Width = 587
    Height = 348
    TabOrder = 0
    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 = False
    Checked = False
    NumGlyphs = 1
    Spacing = 2
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    Caption = ' Data Gudang ...'
    Align = alClient
    object AddBtn: TSpeedButton
      Left = 408
      Top = 4
      Width = 49
      Height = 49
      Enabled = False
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8880888888888888888088888888888888808888880008888880888888070888
        8880888888070888888088800007000088808880777777708880888000070000
        8880888888070888888088888807088888808888880008888880888888888888
        88808888888888888880}
      Layout = blGlyphTop
      OnClick = AddBtnClick
    end
    object RadioGroup1: TspSkinRadioGroup
      Left = 4
      Top = 4
      Width = 185
      Height = 49
      TabOrder = 0
      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'
      OnClick = RadioGroup1Click
      ButtonSkinDataName = 'radiobox'
      ButtonDefaultFont.Charset = ANSI_CHARSET
      ButtonDefaultFont.Color = clWindowText
      ButtonDefaultFont.Height = -13
      ButtonDefaultFont.Name = 'Dina'
      ButtonDefaultFont.Style = [fsBold]
      Columns = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ItemIndex = 1
      Items.Strings = (
        'Kode'
        'Nama')
      ParentFont = False
    end
    object ItemGrid: TJvDBUltimGrid
      Left = 4
      Top = 56
      Width = 577
      Height = 285
      Color = 16119285
      Ctl3D = True
      DataSource = dsGudang
      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
      PopupMenu = JvPopupMenu1
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = [fsBold]
      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 = <>
      AutoSizeRows = False
      RowsHeight = 17
      TitleRowHeight = 20
      WordWrap = True
      SortWith = swUserFunc
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GDGCODE'
          Title.Alignment = taCenter
          Title.Caption = 'KODE'
          Width = 75
          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'
          Title.Alignment = taCenter
          Width = 240
          Visible = True
        end>
    end
    object spSkinGroupBox2: TspSkinGroupBox
      Left = 192
      Top = 4
      Width = 209
      Height = 49
      TabOrder = 2
      DrawDefault = True
      SkinDataName = 'groupbox'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = ANSI_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'Dina'
      DefaultFont.Style = [fsBold]
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      AutoEnabledControls = True
      CheckedMode = False
      Checked = False
      NumGlyphs = 1
      Spacing = 2
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 20
      BorderStyle = bvNone
      CaptionMode = True
      RollUpMode = False
      RollUpState = False
      Caption = ' Cari :'
      object edFind: TEdit
        Left = 0
        Top = 21
        Width = 209
        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 = 0
        OnChange = edFindChange
      end
    end
  end
  object StBAR: TJvStatusBar
    Left = 0
    Top = 348
    Width = 587
    Height = 20