main.dfm

this is also a unix programme book ,you can find many code in it

object FormMain: TFormMain
  Left = 267
  Top = 236
  BorderStyle = bsNone
  Caption = 'FormMain'
  ClientHeight = 305
  ClientWidth = 536
  Color = 15856113
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ShapeClient: TShape
    Left = 0
    Top = 0
    Width = 536
    Height = 305
    Align = alClient
    Brush.Color = 15856113
    Pen.Color = clGreen
  end
  object ImageTitle: TImage
    Left = 1
    Top = 1
    Width = 216
    Height = 18
    Stretch = True
    OnDblClick = ImageTitleDblClick
    OnMouseDown = ImageTitleMouseDown
  end
  object ImageClose: TImage
    Tag = 103
    Left = 197
    Top = 4
    Width = 12
    Height = 12
    Hint = #20851#38381
    AutoSize = True
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = ImageSystemClick
  end
  object LabelTitle: TLabel
    Left = 22
    Top = 3
    Width = 58
    Height = 13
    Caption = 'Data Bank'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnDblClick = ImageTitleDblClick
    OnMouseDown = ImageTitleMouseDown
  end
  object ImageSystem: TImage
    Tag = 100
    Left = 4
    Top = 4
    Width = 12
    Height = 12
    AutoSize = True
    Transparent = True
    OnClick = ImageSystemClick
    OnDblClick = ImageSystemDblClick
    OnMouseDown = ImageSystemMouseDown
  end
  object ImageMinimize: TImage
    Tag = 101
    Left = 171
    Top = 4
    Width = 12
    Height = 12
    Hint = #26368#23567#21270
    AutoSize = True
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = ImageSystemClick
  end
  object ImageZoom: TImage
    Tag = 102
    Left = 184
    Top = 4
    Width = 12
    Height = 12
    Hint = #19978#21367
    AutoSize = True
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = ImageSystemClick
  end
  object ListView1: TListView
    Left = 8
    Top = 48
    Width = 521
    Height = 250
    BevelInner = bvNone
    BevelKind = bkFlat
    BorderStyle = bsNone
    Columns = <
      item
      end
      item
      end>
    ColumnClick = False
    FlatScrollBars = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
    Visible = False
  end
  object Panel2: TPanel
    Left = 8
    Top = 48
    Width = 521
    Height = 250
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 3
    Visible = False
    object ButtonAdMsg: TSpeedButton
      Left = 488
      Top = 233
      Width = 33
      Height = 17
      Hint = 'Next'
      Caption = '<<'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      OnClick = ButtonAdMsgClick
    end
    object ButtonSearchMsg: TSpeedButton
      Left = 311
      Top = 233
      Width = 38
      Height = 17
      Caption = 'Search'
      Flat = True
      OnClick = ButtonSearchMsgClick
      OnMouseDown = ButtonSearchMsgMouseDown
    end
    object Edit2: TEdit
      Left = 205
      Top = 233
      Width = 105
      Height = 17
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 5
      Text = 'WM_'
      OnKeyPress = Edit2KeyPress
    end
    object RadioButton3: TRadioButton
      Left = 132
      Top = 233
      Width = 73
      Height = 17
      Caption = 'Comment'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
      OnClick = RadioButton3Click
    end
    object RadioButton2: TRadioButton
      Left = 72
      Top = 233
      Width = 57
      Height = 17
      Caption = 'Identify'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      OnClick = RadioButton3Click
    end
    object RadioButton1: TRadioButton
      Left = 8
      Top = 233
      Width = 60
      Height = 17
      Caption = 'Message'
      Checked = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      TabStop = True
      OnClick = RadioButton3Click
    end
    object ListView2: TListView
      Left = 0
      Top = 0
      Width = 521
      Height = 230
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Message'
          Width = 180
        end
        item
          Caption = 'Identify'
          Width = 120
        end
        item
          Caption = 'Comment'
          Width = 200
        end>
      ColumnClick = False
      FlatScrollBars = True
      HideSelection = False
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = ButtonAdMsgClick
      OnSelectItem = ListView2SelectItem
    end
    object Panel3: TPanel
      Left = 300
      Top = 1
      Width = 204
      Height = 228
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object Edit3: TEdit
        Left = 14
        Top = 22
        Width = 177
        Height = 17
        BevelInner = bvNone
        BevelKind = bkFlat
        BorderStyle = bsNone
        TabOrder = 0
      end
      object Edit4: TEdit
        Left = 14
        Top = 43
        Width = 177
        Height = 17
        BevelInner = bvNone
        BevelKind = bkFlat
        BorderStyle = bsNone
        TabOrder = 1
      end
      object Memo2: TMemo
        Left = 14
        Top = 64
        Width = 177
        Height = 153
        BevelInner = bvNone
        BevelKind = bkFlat
        BorderStyle = bsNone
        TabOrder = 2
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 204
        Height = 16
        Align = alTop
        BevelInner = bvSpace
        BevelOuter = bvNone
        Caption = 'Detail'
        TabOrder = 3
      end
    end
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 24
    Width = 521
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Ctl3D = True
    ItemHeight = 13
    ParentCtl3D = False
    TabOrder = 0
    OnChange = ComboBox1Change
  end
  object Panel1: TPanel
    Left = 8
    Top = 48
    Width = 521
    Height = 250
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 2
    Visible = False
    object ButtonSearch: TSpeedButton
      Left = 465
      Top = 0
      Width = 56
      Height = 17
      Caption = 'Search'
      Flat = True
      OnClick = ButtonSearchClick
    end
    object Label1: TLabel
      Left = 182
      Top = 4
      Width = 41
      Height = 13
      Caption = 'Function'
    end
    object TreeView1: TTreeView
      Left = 0
      Top = 0
      Width = 177
      Height = 249
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      Ctl3D = True
      Indent = 19
      ParentCtl3D = False
      ReadOnly = True
      RightClickSelect = True
      TabOrder = 0
      OnChange = TreeView1Change
    end
    object Memo1: TMemo
      Left = 181
      Top = 20
      Width = 340
      Height = 229
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 1
    end
    object Edit1: TEdit
      Left = 232
      Top = 0
      Width = 232
      Height = 17
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 2
      OnKeyPress = Edit1KeyPress
    end
  end
  object Panel5: TPanel
    Left = 8
    Top = 48
    Width = 521
    Height = 250
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 4
    Visible = False
    object Label2: TLabel
      Left = 6
      Top = 4
      Width = 25
      Height = 13
      Caption = 'Code'
    end
    object Label3: TLabel
      Left = 184
      Top = 4
      Width = 20
      Height = 13
      Caption = 'Info'
    end
    object ButtonErrorList: TSpeedButton
      Left = 0
      Top = 77
      Width = 49
      Height = 17
      Caption = 'List >>'
      Flat = True
      OnClick = ButtonErrorListClick
    end
    object Gauge1: TCGauge
      Left = 0
      Top = 96
      Width = 521
      Height = 14
      BorderStyle = bsToolWindow
      ForeColor = clMoneyGreen
      Visible = False
    end
    object Edit5: TEdit
      Left = 39
      Top = 0
      Width = 121
      Height = 17
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 0
      OnChange = Edit5Change
      OnKeyPress = Edit5KeyPress
    end
    object Memo3: TMemo
      Left = 216
      Top = 0
      Width = 305
      Height = 94
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ReadOnly = True
      TabOrder = 1
    end
    object ListView3: TListView
      Left = 0
      Top = 96
      Width = 521
      Height = 154
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Code'
          Width = 40
        end
        item
          Caption = 'Info'
          Width = 450
        end>
      ColumnClick = False
      FlatScrollBars = True
      ReadOnly = True
      RowSelect = True
      TabOrder = 2
      ViewStyle = vsReport
      Visible = False
      OnSelectItem = ListView3SelectItem
    end
  end
  object Panel6: TPanel
    Left = 8
    Top = 48
    Width = 521
    Height = 250
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 5
    Visible = False
    object ListBox1: TListBox
      Left = 0
      Top = 0
      Width = 81
      Height = 250
      Align = alLeft
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ItemHeight = 13
      TabOrder = 0
      OnClick = ListBox1Click
    end
    object DBRichEdit1: TDBRichEdit
      Left = 84
      Top = 0
      Width = 437
      Height = 250
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'Comment'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
    end
  end
  object Table1: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Program Files\Bo' +
      'rland\CBuilder6\Projects\LittleProject\DataBank\DataBank.mdb;Per' +
      'sist Security Info=False'
    CursorType = ctStatic
    Left = 224
    Top = 8
  end
  object Table2: TADOTable
    CursorType = ctStatic
    Left = 256
    Top = 8
  end
  object PopupMenuSystem: TPopupMenu
    OnPopup = PopupMenuSystemPopup
    Left = 288
    Top = 8
    object mnuOnTop: TMenuItem
      Caption = #22987#32456#20301#20110#26368#19978'(&T)'
      OnClick = mnuOnTopClick
    end
    object mnuOnTaskbar: TMenuItem
      Caption = #26174#31034#22312#20219#21153#26639
      OnClick = mnuOnTaskbarClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnuAbout: TMenuItem
      Caption = #20851#20110'(&A)...'
      OnClick = mnuAboutClick
    end
  end
  object DataSource1: TDataSource
    DataSet = Table2
    Left = 320
    Top = 8
  end
end