Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/CLSSDLPH.DFM/CLSSDLPH.txt

Text File | 1997-01-16 | 40KB | 1,241 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 = 88
        Top = 2
        Width = 36
        Height = 13
        Caption = 'Public'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 166
        Top = 2
        Width = 56
        Height = 13
        Caption = 'Protected'
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 264
        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
      object Label4: TLabel
        Left = 347
        Top = 2
        Width = 70
        Height = 13
        Caption = '__Published'
        Font.Color = clMaroon
        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
      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 = 0
          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
    end
    object Search1: TMenuItem
      Caption = 'Search'
      ShortCut = 0
      object WIN32Table1: TMenuItem
        Caption = 'Member Name'
        ShortCut = 0
        OnClick = SearchMemberName1Click
      end
      object ClassName1: TMenuItem
        Caption = 'Class Name'
        ShortCut = 0
        OnClick = SearchClassName1Click
      end
    end
    object Project2: TMenuItem
      Caption = 'FontColors'
      ShortCut = 0
      object Declaration: TMenuItem
        Caption = 'Declaration'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
      object Definition: TMenuItem
        Caption = 'Definition'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
      object MemberList: TMenuItem
        Caption = 'Member List'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
      object QuickClassBox: TMenuItem
        Caption = 'Quick Class Box'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
      object Grid: TMenuItem
        Caption = 'Grid'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
      object HeaderPage: TMenuItem
        Caption = 'Header Page'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
      object ChangeFonts: TMenuItem
        Caption = 'Source Page'
        ShortCut = 0
        OnClick = ChangeFontsClick
      end
    end
    object Windows1: TMenuItem
      Caption = 'Background'
      ShortCut = 0
      object Declaration1: TMenuItem
        Caption = 'Declaration'
        ShortCut = 0
        OnClick = ChangeBkGroundClick
      end
      object Definition1: TMenuItem
        Caption = 'Definition'
        ShortCut = 0
        OnClick = ChangeBkGroundClick
      end
      object MemberList1: TMenuItem
        Caption = 'Member List'
        ShortCut = 0
        OnClick = ChangeBkGroundClick
      end
      object QuickClassBox1: TMenuItem
        Caption = 'Quick Class Box'
        ShortCut = 0
        OnClick = ChangeBkGroundClick
      end
      object Grid1: TMenuItem
        Caption = 'Grid'
        ShortCut = 0
        OnClick = ChangeBkGroundClick
      end
      object HeaderPage1: TMenuItem
        Caption = 'Header Page'
        ShortCut = 0
        OnClick = ChangeBkGroundClick
      end
      object ChangeBkGround: TMenuItem
        Caption = 'Source Page'
        ShortCut = 0
        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 = 0
      OnClick = ShowNextDerivation1Click
    end
    object ViewHeader2: TMenuItem
      Caption = 'View Header File .hpp'
      ShortCut = 0
      OnClick = ViewHeader1Click
    end
    object ViewSource1: TMenuItem
      Caption = 'View Source File .pas'
      ShortCut = 0
      OnClick = ViewSource1Click
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object EditHeader2: TMenuItem
      Caption = 'Show Record'#39's Class'
      ShortCut = 0
      OnClick = ShowRecordClass1Click
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object CloseActivePage1: TMenuItem
      Caption = 'Close Active Page'
      ShortCut = 0
      OnClick = ClosePageClick
    end
    object CloseAllPages2: TMenuItem
      Caption = 'Close All Pages'
      ShortCut = 0
      OnClick = CloseAllPages1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SearchByMemberName1: TMenuItem
      Caption = 'Search By Member Name'
      ShortCut = 0
      OnClick = SearchMemberName1Click
    end
    object SearchByClassName1: TMenuItem
      Caption = 'Search By Class Name'
      ShortCut = 0
      OnClick = SearchClassName1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Print1: TMenuItem
      Caption = 'Print Declaration'
      ShortCut = 0
      OnClick = Print1Click
    end
    object PrintDefinition1: TMenuItem
      Caption = 'Print Definition'
      ShortCut = 0
      OnClick = PrintDefinition1Click
    end
    object PrintHeaderhpp1: TMenuItem
      Caption = 'Print Header .hpp'
      ShortCut = 0
      OnClick = PrintHeaderhpp1Click
    end
    object PrintSourcepas1: TMenuItem
      Caption = 'Print Source .pas'
      ShortCut = 0
      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
      80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00648B
      15040000000142FC66C745EC14006A038B45FC508B08FF1166C745EC080083C4
      088B038368FC046A0053E865D1070083C4088B138342FC04F7C602000000FF4A
      FC85DB0F8497000000C74308580015068B0BC701F40015068B4304C700000115
      068B938A0000008955FC837DFC0074316A008B4DFC51E85A8D070083C4080000
      000000000038D303064D00000000000000558BEC8B45088B80860000005DC355
      8BEC83C4DC53568B750C8B5D08B801EE1406E8DB8B0700648B15040000007843
      6865636B447570496473000000ACD20306000000000300000000000000212C03
      06040000000D000000592C0306080000000D000000A03D0306000000000D6E67
      6556616C696461746F72202A0075010000030030000C0000007F000000400050
      000000000000000000000000000B00000009000000B8FE0A0601007800521C89
      838A000000648B1504000000FF42FC8BC35B5DC30400000090000C00B1760B06
      527852616E676545646974202A000400000090000C001D770B0652785261FC8B
      0B8369FC046A008B4518508B5514528B4D10516A0153E8FFD2070083C4188B03
      8340FC04C74308580015068B13C702F40015068B4B04C701000115068B455B5D
      C3558BEC53837D0C008B5D0875318D839200000089038D939600000089530433
      C9898B8E000000C700485813068BC2C7001C581306648B1504000000FF420306
      2E00000000000000558BEC538B5D088B4518508B55145253E8BBD1070083C40C
      C703100115068B4D0C894B2E8B4510894332648B1504000000FF42FC8BC36573
      746572007BBE0306000000000300000000000000212C0306040000000D000000
      592C0306080000000D000000A03D0306000000000D000000000000008D2A0B06
      1A00000000000000C4000000030030000C0000007F0000003C004C0000000000
      00000000000000000500000003000000CCA80B06010074005278446C6754FFFF
      030000004000440000000000000000000000000008000000080000008CBB0B06
      0100480044656D6F4469616C6F6744617461000000000000000000007977F800
      750433D2EB106A028B4DF851E8955AF3FF83C4088BD0F6C21C0F94C083E00150
      8B4D0C518B01FF1083C4085F5E5B4257434300003800000003003000FFFF1859
      8BF8897DFC8B45FC8B582E6A0068D9AE03066875AE030685DB74058B530CEB02
      33D25253E83F98020083C4148BF085F674058B4628EB0233C08945F8837D66C7
      45EC1C00E83D9A02006A028D45FC50E84299020083C4088B55DC648915000000
      005F5E5B8BE55DC39090558BEC83C4F85356578B45088B4014508B10FF520200
      598B55FC0342064050E8C69A020059578BF08B45FC8B50025256E81DA8020083
      C40C6A0156538B4B08FF511083C40C56E80F9A02005966C745EC0800EB0B0707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      070707070707070707070707070707070707070707070707070707070707FCFC
      0707FCFC0707FCFC0707FCFCFC0707FCFCFCFCFC0707FCFCFCFC0707FCFC07FC
      FCFC0707FCFCFC0707FCFC07FCFCFCFC070707070707070707FCFC070707FCFC
      0707FCFC0707FCFC07FCFC07FCFCFCFC0707FCFC07FCFC07FCFC07FCFC07FCFC
      07FC07FCFC07FCFC07FCFC07FCFCFCFC070707070707070707FCFC070707FCFC
      0707FCFC0707FCFC07FCFC070707FCFC0707FCFC07FCFC07FCFC07FCFC07FCFC
      070707FCFC07FCFC07FCFC07FCFCFCFCFCFC0707FCFC070707FCFCFCFC07FCFC
      0707FCFC0707FCFC07FCFC070707FCFC0707FCFC0707FCFCFCFC07FCFC07FCFC
      070707FCFC07FCFC07FCFC07FCFCFCFC07FCFC07FCFC070707FCFC07FCFCFCFC
      0707FCFC0707FCFC07FCFC07FCFCFCFC0707FCFC07FC0707FCFC07FCFC07FCFC
      07FC07FCFC07FCFC07FCFC07FCFCFCFC07FCFC07FCFC070707FCFC07FCFCFCFC
      FC07FCFCFCFCFC070707FCFCFC0707FCFCFCFCFC0707FCFCFC07FCFCFCFC07FC
      FCFC0707FCFCFC0707FCFCFCFC07FCFC07FCFC07FCFC070707FCFC07FCFCFCFC
      070707070707070707070707070707070707FCFC07070707070707FCFC070707
      0707070707070707070707070707FCFC07FCFC07FCFC070707FCFC07FCFC07FC
      FCFC07070707070707070707070707070707FCFC0707070707070707FC070707
      0707070707070707070707070707FCFCFCFC0707FCFCFCFC07FCFCFCFC070707
      0707070707070707070707070707070707070707070707070707070707070707
      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
      0707070707070707070707070707070707070707070707070707070707070701
      0107070101070701010707010101070101010101070701010101070701010701
      0101070701010107070101070101010107070707070707070701010707070701
      0107070101070701010701010701010107070101070101070101070101070101
      0701070101070101070101070101010107070707070707070701010707070701
      0107070101070701010701010707010107070101070101070101070101070101
      0707070101070101070101070101010101010707010107070701010101070701
      0107070101070701010701010707010107070101070701010101070101070101
      0707070101070101070101070101010107010107010107070701010701010701
      0107070101070701010701010701010107070101070107070101070101070101
      0701070101070101070101070101010107010107010107070701010701010701
      0101070101010101070707010101070101010101070701010107010101010701
      0101070701010107070101010107010107010107010107070701010701010701
      0107070707070707070707070707070707070101070707070707070101070707
      0707070707070707070707070707010107010107010107070701010701010701
      0101010707070707070707070707070707070101070707070707070701070707
      0707070707070707070707070707010101010707010101010701010101070707
      0101070707070707070707070707070707070707070707070707070707070707
      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
      070707070707070707070707070707070707070707070707070707070707424D
      BE020000000000003E0000002800000040000000500000000100010000000000
      800200000000000000000000000000000000000000000000FFFFFF0007070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070202070707020207070707070700000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000}
  end
end