main.dfm

jvcl driver development envionment

object DBExplorerMainForm: TDBExplorerMainForm
  Left = 223
  Top = 155
  Width = 480
  Height = 237
  Caption = 'Database Explorer'
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000F00000000888
    888888888888880000F00F0000000000000000000000000FB07B000008000888
    8888888888888000FB0F0FBF000008FFFFF8FFFFFF8FF0B00F000FBFFB000888
    888888880000000F000FBFF9FFF008AAAAA8AAA00999890000000989BFF00888
    8888880098BFEF80FBF00FFFFFB008FFFFF8FF088E7FFE8000FFFBFBFFF00888
    88888809F0E0078080000FFFF00008FFFFF8FF087000F7808088800000000888
    88888809E7007008808F8088888008FFFFF8FFF00BF7008F8088808000800888
    8888888800000888808F8088808008FFFFF8FFFFFF8FFFFF8088808F80800888
    8888888888888888808F8088808008FFFFF8FFFFFF8FFFFF8088808F80800888
    8888888888888888808F80888080000000000000000000000088808F80800E7E
    7E7E7E7E7E7E7E7EE08F80888080000000000000000000000088808F80800000
    08FFFFF8FFFFFF8FFFFF80888080000008888888888888888888808F80800000
    000000000000000000000088808000000E7E7E7E7E7E7E7E7E7EE08F80800000
    00000000000000000000008880800000000008FFFFF8FFFFFF8FFFFF80800000
    0000088888888888888888888080000000000000000000000000000000800000
    00000E7E7E7E7E7E7E7E7E7EE08000000000000000000000000000000000FFFF
    FC4FFFFFF80F8000000F00000003000000010000000000000000000000000000
    0000000000000000000000000007000000010000000100000001000000010000
    00010000000100000001000000010000000100000001F0000001F0000001F000
    0001F0000001F0000001FF000001FF000001FF000001FF000001FF0000030100}
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poDefault
  WindowMenu = WindowMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object SQLFontContainer: TLabel
    Left = 8
    Top = 72
    Width = 64
    Height = 13
    Caption = 'SQL Font'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 168
    Width = 472
    Height = 20
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object StatusLine: TPanel
      Left = 0
      Top = 0
      Width = 102
      Height = 20
      Align = alClient
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      TabOrder = 0
    end
    object RightPanel: TPanel
      Left = 329
      Top = 0
      Width = 143
      Height = 20
      Align = alRight
      Alignment = taLeftJustify
      BevelOuter = bvNone
      BorderWidth = 1
      TabOrder = 1
      object DBGauge: TProgressBar
        Left = 1
        Top = 1
        Width = 141
        Height = 18
        Align = alClient
        Min = 0
        Max = 100
        Step = 5
        TabOrder = 0
      end
    end
    object StatusPanel: TPanel
      Left = 205
      Top = 0
      Width = 124
      Height = 20
      Align = alRight
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      TabOrder = 2
      object DBStatusLabel: TJvDBStatusLabel
        Left = 2
        Top = 2
        Width = 120
        Height = 16
        Captions.Strings = (
          'Inactive'
          'Browse'
          'Edit'
          'Insert'
          'Search'
          'Calculate')
        ShowOptions = doBoth
        Align = alClient
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnGetDataName = DBStatusLabelGetDataName
      end
    end
    object RecNoPanel: TPanel
      Left = 102
      Top = 0
      Width = 103
      Height = 20
      Align = alRight
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      TabOrder = 3
      object DBRecordNo: TJvDBStatusLabel
        Left = 2
        Top = 2
        Width = 99
        Height = 16
        Style = lsRecordNo
        Align = alClient
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnGetDataName = DBStatusLabelGetDataName
        OnGetRecordCount = DBRecordNoGetRecordCount
        OnDblClick = DBRecordNoDblClick
      end
    end
  end
  object JvSpeedbar: TJvSpeedBar
    Left = 0
    Top = 0
    Width = 472
    Height = 29
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    BoundLines = [blTop]
    BtnOffsetHorz = 6
    BtnOffsetVert = 4
    BtnWidth = 24
    BtnHeight = 23
    IniStorage = FormPlacement
    Version = 9
    BevelOuter = bvNone
    TabOrder = 1
    OnApplyAlign = JvSpeedbarApplyAlign
    OnPosChanged = JvSpeedbarPosChanged
    OnResize = JvSpeedbarResize
    InternalVer = 1
    object DBNavigator: TDBNavigator
      Left = 266
      Top = 4
      Width = 200
      Height = 22
      TabOrder = 0
    end
    object SpeedbarSection1: TJvSpeedBarSection
      Caption = 'Database'
    end
    object SpeedbarSection2: TJvSpeedBarSection
      Caption = 'Utilities'
    end
    object SpeedbarSection3: TJvSpeedBarSection
      Caption = 'Tools'
    end
    object SpeedbarSection4: TJvSpeedBarSection
      Caption = 'Help'
    end
    object SpeedItem1: TJvSpeedItem
      Caption = 'Open Database'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000030000000003333333333000030F77777080333333333000030F7
        7777080333333333000030F77777080333333333000030F77777080333333333
        000030F77777080333333333000030F77777080333333333000030F888870803
        33333333000030FFFFF7080333333333000030F88887080333333333000030FF
        FFF7080333333333000030F77997080330000333000030F77997080330EA0333
        000030FFFFFF080000AE00030000300000000030EAEAEA030000333333333330
        00AE0003000033333333333330EA033300003333333333333000033300003333
        33333333333333330000}
      Hint = 'Open Database|Open an existing database'
      Spacing = 1
      Left = 6
      Top = 4
      Visible = True
      OnClick = FileOpenItemClick
      SectionName = 'Database'
    end
    object CloseButton: TJvSpeedItem
      Caption = 'Close Database'
      Enabled = False
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000030000000003333333333000030F77777080333333333000030F7
        7777080333333333000030F77777080333333333000030F77777080333333333
        000030F77777080333333333000030F77777080333333333000030F888870803
        33333333000030FFFFF7080333333333000030F88887080333333333000030FF
        FFF7080333333333000030F77997080333333333000030F77997080333333333
        000030FFFFFF0803333333330000300000000033000000030000333333333333
        09D9D90300003333333333330000000300003333333333333333333300003333
        33333333333333330000}
      Hint = 'Close Database|Close current database'
      Spacing = 1
      Left = 30
      Top = 4
      Visible = True
      OnClick = FileCloseItemClick
      SectionName = 'Database'
    end
    object SpeedItem3: TJvSpeedItem
      Caption = 'Exit'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000088888888888888833338000088888888888888F3F38800008888
        888888888F3F38880000444444088888FFF44443000033333450888F3FF43333
        00003333345508FFFFF4333300003333345550FFFFF4333300003330045550FF
        FFF4333300003330A05550FFFFF4333300000000EA0550FFFEF4333300000EAE
        AEA050FFFFF4333300000AEAEAEA00FEFEF4333300000EAEAEA050FFFFF43333
        00000000EA0550FEFEF4333300003330A05550EFEFE4333300003330045550FE
        FEF4333300003333345550EFEFE4333300003333344444444444333300003333
        33333333333333330000}
      Hint = 'Exit|Exit the application'
      Spacing = 1
      Left = 222
      Top = 4
      Visible = True
      OnClick = FileExitItemClick
      SectionName = 'Database'
    end
    object PackBtn: TJvSpeedItem
      Caption = 'Pack Table'
      Enabled = False
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDD000000000DDDDDDDDDDD00DDDDDDDDDDD0000000D0DDDDDD078787
        870DD00000000000080DD03B3B3B3B0D070DD0B3B3B3B30D080DD03B3B3B3B0D
        070DD0B3B3B3B30D080DD03B3000000D070DD0B3B0DDDDDD080DDD000D000000
        070DDDDDDD08787870DDDDDDDDD000000DDDDDDDDDDDDDDDDDDD}
      Hint = 'Pack Table|Pack Paradox or DBase table'
      Spacing = 1
      Left = 3
      Top = 4
      OnClick = PackTableClick
      SectionName = 'Utilities'
    end
    object DeleteBtn: TJvSpeedItem
      Caption = 'Delete Table'
      Enabled = False
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333