PC World Komputer 1997 May/Pcwk0597.iso/borland/cb/setup/cbuilder/data.z/CLSSDLPH.DFM/CLSSDLPH.txt

Text File | 1997-02-28 | 40KB | 1,247 lines

object MainDlg: TMainDlg
  Left = -4
  Top = -4
  Width = 1032
  Height = 748
  Caption = 'VCL Class Organizer'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = MainSetupWindow
  OnResize = FormResize
  OnShow = MainDlgOnShow
  PixelsPerInch = 96
  TextHeight = 13
  object DisplayTblLabel: TLabel
    Left = 252
    Top = 410
    Width = 103
    Height = 13
    Caption = 'SELECT A TABLE'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object TPanel
    Left = 420
    Top = 312
    Width = 157
    Height = 25
    BevelInner = bvRaised
    BorderStyle = bsSingle
    Color = clYellow
    TabOrder = 0
    Visible = False
    object TLabel
      Left = 2
      Top = 2
      Width = 149
      Height = 17
      Align = alClient
      Alignment = taCenter
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 517
    Height = 702
    Align = alLeft
    Caption = 'Panel4'
    TabOrder = 1
    object DeclarationRichEdit: TRichEdit
      Left = 1
      Top = 16
      Width = 515
      Height = 81
      Hint = 'Right Click to view .hpp file'
      Align = alTop
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'Declarations Source')
      ParentFont = False
      PopupMenu = PopupMenu5
      ReadOnly = True
      ScrollBars = ssBoth
      ShowHint = True
      TabOrder = 0
      WordWrap = False
    end
    object Panel5: TPanel
      Left = 1
      Top = 97
      Width = 515
      Height = 15
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Actual Definition Source'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object SourceEntryPage: TRichEdit
      Left = 1
      Top = 112
      Width = 515
      Height = 301
      Hint = 'Right Click to view .pas file'
      Align = alTop
      Ctl3D = True
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'Definition Source')
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = PopupMenu5
      ScrollBars = ssBoth
      ShowHint = True
      TabOrder = 2
      WordWrap = False
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 428
      Width = 515
      Height = 255
      Hint = 'DoubleClick on record to show class'
      Align = alClient
      Color = clWhite
      Columns = <
        item
          FieldName = 'MemberName'
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 125
        end
        item
          FieldName = 'ClassName'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 113
        end
        item
          FieldName = 'ReturnType'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 129
        end
        item
          FieldName = 'Scope'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 62
        end
        item
          FieldName = 'Member'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 58
        end
        item
          FieldName = 'Header'
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
        end
        item
          FieldName = 'Ps'
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
        end
        item
          FieldName = 'PType1'
        end
        item
          FieldName = 'PObject1'
        end
        item
          FieldName = 'PType2'
        end
        item
          FieldName = 'PObject2'
        end
        item
          FieldName = 'PType3'
        end
        item
          FieldName = 'PObject3'
        end
        item
          FieldName = 'PType4'
        end
        item
          FieldName = 'PObject4'
        end
        item
          FieldName = 'PType5'
        end
        item
          FieldName = 'PObject5'
        end
        item
          FieldName = 'PType6'
        end
        item
          FieldName = 'PObject6'
        end
        item
          FieldName = 'PType7'
        end
        item
          FieldName = 'PObject7'
        end
        item
          FieldName = 'PType8'
        end
        item
          FieldName = 'PObject8'
        end
        item
          FieldName = 'SecondClass'
        end
        item
          FieldName = 'Misc'
        end>
      Ctl3D = True
      DataSource = DataSource1
      DragCursor = crHourGlass
      FixedColor = clSilver
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu5
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
      TitleFont.Color = clBlue
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      OnDblClick = ShowRecordClass1Click
    end
    object Panel6: TPanel
      Left = 1
      Top = 413
      Width = 515
      Height = 15
      Align = alTop
      BevelOuter = bvNone
      Caption = 'VCL Member Table'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 515
      Height = 15
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Actual Declaration Source'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 683
      Width = 515
      Height = 18
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbCancel, nbRefresh]
      Align = alBottom
      TabOrder = 6
    end
  end
  object Panel7: TPanel
    Left = 517
    Top = 0
    Width = 507
    Height = 702
    Align = alClient
    Caption = 'Panel7'
    TabOrder = 2
    object PageControl1: TPageControl
      Left = 1
      Top = 16
      Width = 505
      Height = 397
      Align = alTop
      PopupMenu = PopupMenu5
      TabOrder = 0
      OnChange = SelectaTab
    end
    object Panel8: TPanel
      Left = 1
      Top = 413
      Width = 505
      Height = 15
      Align = alTop
      BevelOuter = bvNone
      Caption = 'VCL Quick Class Finder'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object QuickClassListbox: TListBox
      Left = 1
      Top = 428
      Width = 505
      Height = 281
      Hint = 'Select a class to show members'
      Align = alTop
      Columns = 3
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      Items.Strings = (
        'VCL Classes')
      MultiSelect = True
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu5
      ShowHint = True
      Sorted = True
      TabOrder = 2
      OnClick = MoveToClass
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 505
      Height = 15
      Align = alTop
      BevelOuter = bvNone
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      object Label1: TLabel
        Left = 94
        Top = 2
        Width = 36
        Height = 13
        Caption = 'Public'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 164
        Top = 2
        Width = 70
        Height = 13
        Caption = '__Published'
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 274
        Top = 2
        Width = 56
        Height = 13
        Caption = 'Protected'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 360
        Top = 2
        Width = 41
        Height = 13
        Caption = 'Private'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object MainListBox: TListView
      Left = 4
      Top = 57
      Width = 501
      Height = 353
      Hint = 'Right Click to view Parent Class'
      Color = clWhite
      OnClick = MainListBoxClick
      Columns = <>
      ReadOnly = True
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Items.Data = {
        2E0000000100000000000000FFFFFFFFFFFFFFFF000000000000000011436C61
        7373204D656D626572204C697374}
      ParentShowHint = False
      ShowHint = True
      PopupMenu = PopupMenu5
      SortType = stText
      TabOrder = 4
      ViewStyle = vsList
      OnKeyUp = MainListBoxKeyUp
      SmallImages = ImageList1
    end
  end
  object VCLTable: TTable
    AutoCalcFields = False
    DatabaseName = 'ClassOrgDB'
    TableName = 'Vcltable.DB'
    Left = 168
    Top = 220
    object VCLTableClassName: TStringField
      FieldName = 'ClassName'
      Size = 40
    end
    object VCLTableMember: TStringField
      FieldName = 'Member'
      Size = 40
    end
    object VCLTableMemberName: TStringField
      FieldName = 'MemberName'
      Size = 40
    end
    object VCLTableRecNum: TAutoIncField
      FieldName = 'RecNum'
    end
    object VCLTableScope: TStringField
      FieldName = 'Scope'
      Size = 40
    end
    object VCLTableReturnType: TStringField
      FieldName = 'ReturnType'
      Size = 40
    end
    object VCLTableHeader: TStringField
      FieldName = 'Header'
      Size = 40
    end
    object VCLTablePs: TSmallintField
      FieldName = 'Ps'
    end
    object VCLTablePType1: TStringField
      FieldName = 'PType1'
      Size = 40
    end
    object VCLTablePObject1: TStringField
      FieldName = 'PObject1'
      Size = 40
    end
    object VCLTablePType2: TStringField
      FieldName = 'PType2'
      Size = 40
    end
    object VCLTablePObject2: TStringField
      FieldName = 'PObject2'
      Size = 40
    end
    object VCLTablePType3: TStringField
      FieldName = 'PType3'
      Size = 40
    end
    object VCLTablePObject3: TStringField
      FieldName = 'PObject3'
      Size = 40
    end
    object VCLTablePType4: TStringField
      FieldName = 'PType4'
      Size = 40
    end
    object VCLTablePObject4: TStringField
      FieldName = 'PObject4'
      Size = 40
    end
    object VCLTablePType5: TStringField
      FieldName = 'PType5'
      Size = 40
    end
    object VCLTablePObject5: TStringField
      FieldName = 'PObject5'
      Size = 40
    end
    object VCLTablePType6: TStringField
      FieldName = 'PType6'
      Size = 40
    end
    object VCLTablePObject6: TStringField
      FieldName = 'PObject6'
      Size = 40
    end
    object VCLTablePType7: TStringField
      FieldName = 'PType7'
      Size = 40
    end
    object VCLTablePObject7: TStringField
      FieldName = 'PObject7'
      Size = 40
    end
    object VCLTablePType8: TStringField
      FieldName = 'PType8'
      Size = 40
    end
    object VCLTablePObject8: TStringField
      FieldName = 'PObject8'
      Size = 40
    end
    object VCLTableSecondClass: TStringField
      FieldName = 'SecondClass'
      Size = 40
    end
    object VCLTableMisc: TStringField
      FieldName = 'Misc'
      Size = 40
    end
  end
  object DataSource1: TDataSource
    DataSet = VCLTable
    Left = 224
    Top = 248
  end
  object MainMenu1: TMainMenu
    Left = 280
    Top = 248
    object File1: TMenuItem
      Caption = 'File'
      ShortCut = 0
      object Open1: TMenuItem
        Caption = 'Open'
        ShortCut = 0
        object ParseallHeaders1: TMenuItem
          Caption = 'Rebuild Vcl Table'
          ShortCut = 16466
          OnClick = RebuildVCLTable
        end
        object LoadVCLHeader1: TMenuItem
          Caption = 'VCL Header File'
          Enabled = False
          ShortCut = 0
          OnClick = ParseaNewHeader1Click
        end
      end
      object New1: TMenuItem
        Caption = 'Options'
        Enabled = False
        ShortCut = 0
        object Project1: TMenuItem
          Caption = 'Headers to Parse'
          ShortCut = 0
          OnClick = Project1Click
        end
      end
      object Save1: TMenuItem
        Caption = 'Save'
        Enabled = False
        ShortCut = 0
      end
      object SaveAs1: TMenuItem
        Caption = 'Save As'
        Enabled = False
        ShortCut = 0
      end
      object SaveAll1: TMenuItem
        Caption = 'SaveAll'
        Enabled = False
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        ShortCut = 16472
        OnClick = Exit1Click
      end
    end
    object Search1: TMenuItem
      Caption = 'Search'
      ShortCut = 0
      object WIN32Table1: TMenuItem
        Caption = 'Member Name'
        ShortCut = 16461
        OnClick = SearchMemberName1Click
      end
      object ClassName1: TMenuItem
        Caption = 'Class Name'
        ShortCut = 16468
        OnClick = SearchClassName1Click
      end
    end
    object Project2: TMenuItem
      Caption = 'FontColors'
      ShortCut = 0
      object Declaration: TMenuItem
        Caption = 'Declaration'
        ShortCut = 16453
        OnClick = ChangeFontsClick
      end
      object Definition: TMenuItem
        Caption = 'Definition'
        ShortCut = 16454
        OnClick = ChangeFontsClick
      end
      object MemberList: TMenuItem
        Caption = 'Member List'
        ShortCut = 16460
        OnClick = ChangeFontsClick
      end
      object QuickClassBox: TMenuItem
        Caption = 'Quick Class Box'
        ShortCut = 16465
        OnClick = ChangeFontsClick
      end
      object Grid: TMenuItem
        Caption = 'Grid'
        ShortCut = 16455
        OnClick = ChangeFontsClick
      end
      object HeaderPage: TMenuItem
        Caption = 'Header Page'
        ShortCut = 16456
        OnClick = ChangeFontsClick
      end
      object ChangeFonts: TMenuItem
        Caption = 'Source Page'
        ShortCut = 16467
        OnClick = ChangeFontsClick
      end
    end
    object Windows1: TMenuItem
      Caption = 'Background'
      ShortCut = 0
      object Declaration1: TMenuItem
        Caption = 'Declaration'
        ShortCut = 16457
        OnClick = ChangeBkGroundClick
      end
      object Definition1: TMenuItem
        Caption = 'Definition'
        ShortCut = 16462
        OnClick = ChangeBkGroundClick
      end
      object MemberList1: TMenuItem
        Caption = 'Member List'
        ShortCut = 16450
        OnClick = ChangeBkGroundClick
      end
      object QuickClassBox1: TMenuItem
        Caption = 'Quick Class Box'
        ShortCut = 16469
        OnClick = ChangeBkGroundClick
      end
      object Grid1: TMenuItem
        Caption = 'Grid'
        ShortCut = 16452
        OnClick = ChangeBkGroundClick
      end
      object HeaderPage1: TMenuItem
        Caption = 'Header Page'
        ShortCut = 16449
        OnClick = ChangeBkGroundClick
      end
      object ChangeBkGround: TMenuItem
        Caption = 'Source Page'
        ShortCut = 16464
        OnClick = ChangeBkGroundClick
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      ShortCut = 0
      object About1: TMenuItem
        Caption = 'About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object DestTblQuery: TQuery
    DatabaseName = 'ClassOrgDB'
    Left = 196
    Top = 248
  end
  object DestTable: TTable
    DatabaseName = 'ClassOrgDB'
    TableName = 'main2.db'
    Left = 196
    Top = 220
    object DestTableClassName: TStringField
      FieldName = 'ClassName'
      Size = 40
    end
    object DestTableMember: TStringField
      FieldName = 'Member'
      Size = 40
    end
    object DestTableMemberName: TStringField
      FieldName = 'MemberName'
      Size = 40
    end
    object DestTableRecNum: TAutoIncField
      FieldName = 'RecNum'
    end
    object DestTableScope: TStringField
      FieldName = 'Scope'
      Size = 40
    end
    object DestTableReturnType: TStringField
      FieldName = 'ReturnType'
      Size = 40
    end
    object DestTableHeader: TStringField
      FieldName = 'Header'
      Size = 40
    end
    object DestTablePs: TSmallintField
      FieldName = 'Ps'
    end
    object DestTablePType1: TStringField
      FieldName = 'PType1'
      Size = 40
    end
    object DestTablePObject1: TStringField
      FieldName = 'PObject1'
      Size = 40
    end
    object DestTablePType2: TStringField
      FieldName = 'PType2'
      Size = 40
    end
    object DestTablePObject2: TStringField
      FieldName = 'PObject2'
      Size = 40
    end
    object DestTablePType3: TStringField
      FieldName = 'PType3'
      Size = 40
    end
    object DestTablePObject3: TStringField
      FieldName = 'PObject3'
      Size = 40
    end
    object DestTablePType4: TStringField
      FieldName = 'PType4'
      Size = 40
    end
    object DestTablePObject4: TStringField
      FieldName = 'PObject4'
      Size = 40
    end
    object DestTablePType5: TStringField
      FieldName = 'PType5'
      Size = 40
    end
    object DestTablePObject5: TStringField
      FieldName = 'PObject5'
      Size = 40
    end
    object DestTablePType6: TStringField
      FieldName = 'PType6'
      Size = 40
    end
    object DestTablePObject6: TStringField
      FieldName = 'PObject6'
      Size = 40
    end
    object DestTablePType7: TStringField
      FieldName = 'PType7'
      Size = 40
    end
    object DestTablePObject7: TStringField
      FieldName = 'PObject7'
      Size = 40
    end
    object DestTablePType8: TStringField
      FieldName = 'PType8'
      Size = 40
    end
    object DestTablePObject8: TStringField
      FieldName = 'PObject8'
      Size = 40
    end
    object DestTableSecondClass: TStringField
      FieldName = 'SecondClass'
      Size = 40
    end
    object DestTableMisc: TStringField
      FieldName = 'Misc'
      Size = 40
    end
  end
  object FileOPenDlg: TOpenDialog
    FileEditStyle = fsEdit
    InitialDir = 'c:\classxpt'
    Left = 252
    Top = 276
  end
  object DisplayTblQuery: TQuery
    DatabaseName = 'ClassOrgDB'
    Left = 168
    Top = 248
  end
  object HeaderParser: TTable
    DatabaseName = 'ClassOrgDB'
    TableName = 'HDRPARSE.DB'
    Left = 280
    Top = 220
    object HeaderParserHeaderName: TStringField
      FieldName = 'HeaderName'
    end
    object HeaderParserParse: TBooleanField
      FieldName = 'Parse'
    end
  end
  object PopupMenu5: TPopupMenu
    Left = 308
    Top = 248
    object ShowNextDerivation2: TMenuItem
      Caption = 'View Parent Class'
      ShortCut = 112
      OnClick = ShowNextDerivation1Click
    end
    object ViewHeader2: TMenuItem
      Caption = 'View Header File .hpp'
      ShortCut = 113
      OnClick = ViewHeader1Click
    end
    object ViewSource1: TMenuItem
      Caption = 'View Source File .pas'
      ShortCut = 114
      OnClick = ViewSource1Click
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object EditHeader2: TMenuItem
      Caption = 'Show Record'#39's Class'
      ShortCut = 115
      OnClick = ShowRecordClass1Click
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object CloseActivePage1: TMenuItem
      Caption = 'Close Active Page'
      ShortCut = 116
      OnClick = ClosePageClick
    end
    object CloseAllPages2: TMenuItem
      Caption = 'Close All Pages'
      ShortCut = 117
      OnClick = CloseAllPages1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SearchByMemberName1: TMenuItem
      Caption = 'Search By Member Name'
      ShortCut = 118
      OnClick = SearchMemberName1Click
    end
    object SearchByClassName1: TMenuItem
      Caption = 'Search By Class Name'
      ShortCut = 119
      OnClick = SearchClassName1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Print1: TMenuItem
      Caption = 'Print Declaration'
      ShortCut = 120
      OnClick = Print1Click
    end
    object PrintDefinition1: TMenuItem
      Caption = 'Print Definition'
      ShortCut = 121
      OnClick = PrintDefinition1Click
    end
    object PrintHeaderhpp1: TMenuItem
      Caption = 'Print Header .hpp'
      ShortCut = 122
      OnClick = PrintHeaderhpp1Click
    end
    object PrintSourcepas1: TMenuItem
      Caption = 'Print Source .pas'
      ShortCut = 16507
      OnClick = PrintSourcepas1Click
    end
  end
  object BatchMove1: TBatchMove
    Destination = ParseVclTable
    Source = DestTable
    Left = 252
    Top = 248
  end
  object ParseVclTable: TTable
    DatabaseName = 'ClassOrgDB'
    TableName = 'Vcltable.db'
    Left = 308
    Top = 220
  end
  object Errorlogging: TTable
    DatabaseName = 'ClassOrgDB'
    TableName = 'errorlog.DB'
    Left = 252
    Top = 220
    object ErrorloggingUser: TStringField
      FieldName = 'User'
      Size = 40
    end
    object ErrorloggingClassName: TStringField
      FieldName = 'ClassName'
      Size = 40
    end
    object ErrorloggingListBoxText: TStringField
      FieldName = 'ListBoxText'
      Size = 100
    end
    object ErrorloggingMemberName: TStringField
      FieldName = 'MemberName'
      Size = 40
    end
  end
  object ClassListTab: TTable
    DatabaseName = 'ClassOrgDB'
    TableName = 'CLASSES.DB'
    Left = 224
    Top = 220
    object ClassListTabClassName: TStringField
      FieldName = 'ClassName'
      Size = 40
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 168
    Top = 276
  end
  object Timer2: TTimer
    Interval = 5000
    Left = 196
    Top = 276
  end
  object ClassOrgDB: TDatabase
    DatabaseName = 'ClassOrgDB'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=C:\CLASDEPH'
      'DEFAULT DRIVER=PARADOX')
    SessionName = 'Default'
    Left = 236
    Top = 192
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 280
    Top = 276
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 308
    Top = 276
  end
  object ImageList1: TImageList
    Left = 224
    Top = 276
    Bitmap = {
      3618000010000000424D36180000000000003604000028000000400000005000
      0000010008000000000000140000000000000000000000000000000000000000
      0000000080000080000000808000800000008000800080800000C0C0C000C0DC
      C000F0CAA6000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000F0FBFF00A4A0A0008080
      80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007888
      00008F777777777777777778F706E66666666666668F788800008FFFFFFFFFFF
      FFFFFFF8F706666666666666668F7888000008888888888888888888F7007777
      77777778F706666666666666668F788800008F77AAA7777777700008F706E666
      66666666668F788800008F777777777777788888F706E66666666666668F6666
      66666666668F788800008F777777777777777778F706666666666666668F7888
      00008F777777777777777778F706666666666666668F788800008F7722277888
      00000000008F700000000008F706666666666666668F78880000000000000000
      00000008F706666666666666668F7888000088888888888888888888F7067000
      00000008F7777777777777777777788088800000008F700000000008F7FFFFFF
      FFFFFFFFFFFF788800000000008F700000000008F788888888888888888F8888
      888888888888888788800000008F700000000000000000000000000000000088
      78800000008F70000000000888888888888888888888880887800000008F8778
      888080888333330888888F7777777777777777777777777888800000008F7000
      00008FFFFFFFFFFFFFFFFFFFFFFFFFF888800000008F7000000008888888B300
      00008F772227777777777778887777788880707773FBB30777778F77AAA77777
      77700000000007788880F0FFF3FBB30FFFFF8F77777777777778888888888888
      8888888888888888000000000000000000008F77777777777777777777777778
      800000000000000000008F777777777777777777777777788800000003FB0000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      0000000000000000000000000000000000000000000000000000888888880100
      0400000000000006000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C00080808000F3F0
      00001FFF0000F80600003FFF0000FC0F00007FFF0000FFFF8000FFFF00000000
      0100010030301000010004006806000001002800000030000000600000008000
      0000001F000080000000003F0000C0000000007F0000E000000000FF0000E000
      000001FF0000E000000003FF0000E400000007FF0000E7F800000FFF0000E000
      0000001F0000C0000000000F0000800000000007000080000000000300008000
      0000000300008000000000030000800000000007000080000000000F0000FC00
      80001FFF0000FE0000000FFF0000FF00000007FF0000FF00000003FF0000FE00
      000001FF0000FC00000000FF0000F8000000007F0000F0000000003F0000FC00
      FFFFFFFF0000FC00FF0FFFFF0000FE00FE07FFFF0000FF00FC03FFFF0000FF80
      F801FFFF0000FF00F000FFFF0000FE00E0007FFF0000FC00C0003FFF00000707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      07070707070707070707070707070707070707070707070707070707070707F9
      F90707F9F90707F9F90707F9F9F907F9F9F9F9F90707F9F9F9F90707F9F907F9
      F9F90707F9F9F90707F9F907F9F9F9F9070707070707070707F9F907070707F9
      F90707F9F90707F9F907F9F907F9F9F90707F9F907F9F907F9F907F9F907F9F9
      07F907F9F907F9F907F9F907F9F9F9F9070707070707070707F9F907070707F9
      F90707F9F90707F9F907F9F90707F9F90707F9F907F9F907F9F907F9F907F9F9
      070707F9F907F9F907F9F907F9F9F9F9F9F90707F9F9070707F9F9F9F90707F9
      F90707F9F90707F9F907F9F90707F9F90707F9F90707F9F9F9F907F9F907F9F9
      070707F9F907F9F907F9F907F9F9F9F907F9F907F9F9070707F9F907F9F907F9
      F90707F9F90707F9F907F9F907F9F9F90707F9F907F90707F9F907F9F907F9F9
      07F907F9F907F9F907F9F907F9F9F9F907F9F907F9F9070707F9F907F9F907F9
      F9F907F9F9F9F9F9070707F9F9F907F9F9F9F9F90707F9F9F907F9F9F9F907F9
      F9F90707F9F9F90707F9F9F9F907F9F907F9F907F9F9070707F9F907F9F907F9
      F90707070707070707070707070707070707F9F907070707070707F9F9070707
      0707070707070707070707070707F9F907F9F907F9F9070707F9F907F9F907F9
      F9F9F9070707070707070707070707070707F9F90707070707070707F9070707
      0707070707070707070707070707F9F9F9F90707F9F9F9F907F9F9F9F9070707
      F9F9070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070700
      0007070000070700000707000000070000000000070700000000070700000700
      0000070700000007070000070000000007070707070707070700000707070700
      0007070000070700000700000700000007070000070000070000070000070000
      0700070000070000070000070000000007070707070707070700000707070700
      0007070000070700000700000707000007070000070000070000070000070000
      0707070000070000070000070000000000000707000007070700000000070700
      0007070000070700000700000707000007070000070700000000070000070000
      0707070000070000070000070000000007000007000007070700000700000700
      0007070000070700000700000700000007070000070007070000070000070000
      0700070000070000070000070000000007000007000007070700000700000700
      0000070000000000070707000000070000000000070700000007000000000700
      0000070700000007070000000007000007000007000007070700000700000700
      0007070707070707070707070707070707070000070707070707070000070707
      0707070707070707070707070707000007000007000007070700000700000700
      0000000707070707070707070707070707070000070707070707070700070707
      0707070707070707070707070707000000000707000000000700000000070707
      0000070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070702
      0207070202070702020707020202070202020202070702020202070702020702
      0202070702020207070202070202020207070707070707070702020707070702
      0207070202070702020702020702020207070202070202070202070202070202
      0702070202070202070202070202020207070707070707070702020707070702
      0207070202070702020702020707020207070202070202070202070202070202
      0707070202070202070202070202020202020707020207070702020202070702
      0207070202070702020702020707020207070202070702020202070202070202
      0707070202070202070202070202020207020207020207070702020702020702
      0207070202070702020702020702020207070202070207070202070202070202
      0702070202070202070202070202020207020207020207070702020702020702
      0202070202020202070707020202070202020202070702020207020202020702
      0202070702020207070202020207020207020207020207070702020702020702
      0207070707070707070707070707070707070202070707070707070202070707
      0707070707070707070707070707020207020207020207070702020702020702
      0202020707070707070707070707070707070202070707070707070702070707
      0707070707070707070707070707020202020707020202020702020202070707
      0202070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070701
      0107070101070701010707010101070101010101070701010101070701010701
      0101070701010107070101070101010107070707070707070701010707070701
      0107070101070701010701010701010107070101070101070101070101070101
      0701070101070101070101070101010107070707070707070701010707070701
      0107070101070701010701010707010107070101070101070101070101070101
      0707070101070101070101070101010101010707010107070701010101070701
      0107070101070701010701010707010107070101070701010101070101070101
      0707070101070101070101070101010107010107010107070701010701010701
      0107070101070701010701010701010107070101070107070101070101070101
      0701070101070101070101070101010107010107010107070701010701010701
      0101070101010101070707010101070101010101070701010107010101010701
      0101070701010107070101010107010107010107010107070701010701010701
      0107070707070707070707070707070707070101070707070707070101070707
      0707070707070707070707070707010107010107010107070701010701010701
      0101010707070707070707070707070707070101070707070707070701070707
      0707070707070707070707070707010101010707010101010701010101070707
      0101070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      070707070707070707070707070707070707070707070707070707070707424D
      BE020000000000003E0000002800000040000000500000000100010000000000
      800200000000000000000000000000000000000000000000FFFFFF0007070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070101070707010107070707070700000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000}
  end
end