demoform.nfm

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

object DemoForm: TDemoForm
  Left = 71
  Top = 139
  Width = 957
  Height = 500
  Caption = 'Data Access Components demos'
  Color = clSilver
  Constraints.MinHeight = 500
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object TVSplitter: TSplitter
    Left = 216
    Top = 69
    Height = 374
    Beveled = True
    Color = 9790720
    MinSize = 150
    ParentColor = False
    OnCanResize = TVSplitterCanResize
    OnMoved = TVSplitterMoved
  end
  object MainPanel: TPanel
    Left = 219
    Top = 69
    Width = 730
    Height = 374
    Align = alClient
    BevelOuter = bvNone
    Constraints.MinWidth = 730
    TabOrder = 2
    object pnDemo: TPanel
      Left = 0
      Top = 0
      Width = 730
      Height = 374
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
    end
    object pnSource: TPanel
      Left = 0
      Top = 0
      Width = 730
      Height = 374
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      Visible = False
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 443
    Width = 949
    Height = 20
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Panels = <
      item
        Width = 220
      end
      item
        Width = 100
      end
      item
        Width = 480
      end
      item
        Width = 50
      end>
    UseSystemFont = False
  end
  object PanelUnderTree: TPanel
    Left = 0
    Top = 69
    Width = 216
    Height = 374
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object TreeView: TTreeView
      Left = 0
      Top = 22
      Width = 351
      Height = 352
      Align = alLeft
      HideSelection = False
      HotTrack = True
      Images = ImageList1
      Indent = 21
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      OnChange = TreeViewChange
      OnClick = TreeViewClick
      OnKeyDown = TreeViewKeyDown
      OnMouseMove = TreeViewMouseMove
    end
    object ToolBar: TToolBar
      Left = 0
      Top = 0
      Width = 216
      Height = 22
      AutoSize = True
      ButtonWidth = 28
      Caption = 'ToolBar'
      DisabledImages = ilDisabledButtons
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ilButtons
      TabOrder = 1
      object tbBrowseBack: TToolButton
        Left = 0
        Top = 0
        Hint = 'Back'
        Caption = '    Back    '
        DropdownMenu = BackHistoryPopup
        ImageIndex = 0
        Style = tbsDropDown
        OnClick = tbBrowseBackClick
      end
      object tbBrowseForward: TToolButton
        Left = 41
        Top = 0
        Hint = 'Forward'
        DropdownMenu = ForwardHistoryPopup
        ImageIndex = 1
        Style = tbsDropDown
        OnClick = tbBrowseForwardClick
      end
    end
  end
  object pnTopLabel: TPanel
    Left = 0
    Top = 0
    Width = 949
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object lbTitle: TLabel
      Left = 0
      Top = 0
      Width = 949
      Height = 42
      Cursor = crArrow
      Align = alTop
      Caption = 'DAC demos'
      Color = 9790720
      Constraints.MinWidth = 130
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWhite
      Font.Height = -35
      Font.Name = 'Verdana'
      Font.Style = [fsBold, fsItalic]
      ParentColor = False
      ParentFont = False
      OnMouseMove = lbTitleMouseMove
    end
    object lbAbout: TLabel
      Left = 854
      Top = 12
      Width = 34
      Height = 13
      Caption = 'About'
      Color = 9790720
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold, fsUnderline]
      ParentColor = False
      ParentFont = False
      OnClick = lbAboutClick
      OnMouseMove = lbAboutMouseMove
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 949
    Height = 28
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
    object Shape1: TShape
      Left = 0
      Top = 25
      Width = 949
      Height = 3
      Align = alBottom
      Brush.Color = 9790720
      Pen.Color = clBtnFace
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 375
      Height = 24
      BevelOuter = bvNone
      Color = 9790720
      TabOrder = 0
      object sbConnect: TSpeedButton
        Left = 1
        Top = 1
        Width = 100
        Height = 22
        Hint = 'Connect to database'
        Caption = 'Connect'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]