Delphi Programming Unleashed/Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso/misc/explorer/main.txt

Text File | 1995-03-21 | 13.4 KB | 340 lines

object Explore: TExplore
  Left = 251
  Top = 105
  ActiveControl = ComboBox1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Delphi Explorer - VCL'
  ClientHeight = 264
  ClientWidth = 372
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0BFBFBFB00000000000000000000000000BFBFBFB00000000011100000000000
    000BFBFBFB00000001111000000000000000BFBFBFB000001111100000000000
    00000BFBFBFB00001111000000000000000000BFBFBFB0011111000000000000
    0000000BFBFBFBF001110000000000000000000FBFBFBFBFB000000000000000
    00000000FBFBFBFBFBF000000000000000000000BFBFBFBFBFBF000000000000
    00000000FBFBFBFBF0FB0000000000000000000FBFBFBFBFBF0F000000000000
    0000000BFBFBFBFB0BF00000000000000000000F0000000FB0B0000000000000
    0000000001111100FB0000000000000000000000011111100F00000000000000
    00000000011111110B0000000000000000000000111111100000000000000000
    0000000011111110000000000000000000000909011111100000000000000000
    00099B990001110000000000000000000099B9BBBB0000000000000000000000
    099B9B9BBBBB90000000000000000000999999B9BBB9B9000000000000000000
    9999B99B9B9B99900000000000000000999999B999999B900000000000000009
    99999999B9B99999000000000000000999000999999999900000000000000009
    9000090000900900000000000000000000000900000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000E003
    FC3FF001F03FF800F03FFC00603FFE00203FFF00007FFF80007FFFC0007FFFC0
    00FFFFE0007FFFE0007FFFC0007FFFC0007FFFC000FFFFE000FFFFF001FFFFF0
    01FFFFE003FFFF000FFFFE000FFFF8000FFFF0001FFFE0001FFFE0000FFFE000
    0FFFC00007FFC00007FFC00007FFC1001FFF83193FFFFF397FFFFFFFFFFF}
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object SpeedButton5: TSpeedButton
    Left = 32
    Top = 32
    Width = 25
    Height = 25
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 32
    Width = 161
    Height = 225
    Style = csSimple
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    Sorted = True
    TabOrder = 0
    OnKeyPress = ComboBox1KeyPress
  end
  object ListBox1: TListBox
    Left = 184
    Top = 32
    Width = 185
    Height = 185
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
    OnDblClick = EyeClick
  end
  object EUnitName: TEdit
    Left = 184
    Top = 224
    Width = 153
    Height = 32
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnDblClick = EyeClick
  end
  object Eye: TBitBtn
    Left = 336
    Top = 223
    Width = 33
    Height = 33
    TabOrder = 3
    OnClick = EyeClick
    Glyph.Data = {
      20020000424D2002000000000000760000002800000019000000190000000100
      0400000000009001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333000000033333333333333333333333330000000333333333333
      3333333333333000000033333333333333333333333330000000333333333333
      333333333333300000003333333300000000033333333000000033333000FFFF
      FFFFF00033333000000033300FFFFCCCCCCCFFFF003330000000330FFFFCCCCC
      CCCCCCFFFF033000000030FFFFCCCCCCCCCCCCCFFFF03000000000FFFFCCCC00
      000CCCCFFFF0000000000FFFFCCCC0000000CCCCFFFF000000000FFFFCCCC000
      0000CCCCFFFF000000000FFFFCCCC0000000CCCCFFFF0000000000FFFFCCCC00
      000CCCCFFFF03000000030FFFFCCCCCCCCCCCCCFFFF030000000330FFFFCCCCC
      CCCCCCFFFF033000000033300FFFFCCCCCCCFFFF00333000000033333000FFFF
      FFFFF00033333000000033333333000000000333333330000000333333333333
      3333333333333000000033333333333333333333333330000000333333333333
      3333333333333000000033333333333333333333333330000000333333333333
      3333333333333000000000000000000000000000000000000000000000000000
      00000000}
  end
  object Toolbar: TPanel
    Left = 0
    Top = 0
    Width = 372
    Height = 25
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    object SpeedButton1: TSpeedButton
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Exit'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300000000033333333300000300000999933333333009999300000999
        9933333300999993000033999993333009999933000033399999330099999333
        0000333399999009999933330000333339999999999333330000333333999999
        9933333300003333330999999333333300003333300999999333333300003333
        0099999999333333000033300999999999933333000033009999933999993333
        0000300999993333999993330000309999933333399999330000399999333333
        3399999300003999933333333339999300003333333333333333333300003333
        3333333333333333000000000000000000000000000000000000000000000000
        00000000}
      OnClick = Exit1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 24
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Options'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333302222
        2233333300003333302233333022333300003330222333333302223300003302
        2233333333302223000033022333333333330223000030222333333333330222
        0000302233333333333330220000022233333333333330220000022233333333
        3333302200000222333333333333302200000222333333333333302200000222
        3333333333333022000002223333333333333022000030223333333333333022
        0000302223333333333302220000330223333333333302230000330222333333
        3330222300003330222333333302223300003333302233333022333300003333
        3330222222333333000000000000000000000000000000000000000000000000
        00000000}
      OnClick = Options1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 48
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Update'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333330000333330CCCCCCCC33333300003330CCCC33330CC333330000330C
        CC333333330CC3330000330CCC3333333330CC33000030CCC333333333330C33
        000030CCC333333333330C33000030CCC333333333330C33000030CCC3333333
        33330C33000030CCC333333333330C33000030CCC333333333330C33000030CC
        C333333333330C33000030CCC333333333330C33000030CCC333333333330C33
        000030CCC333333333330C33000030CCC333333333330C33000030CCC3333333
        33330C33000030CCC333333333330C33000030CCC333333333330C3300000CCC
        CC3333333330CCC3000000000000000000000000000000000000000000000000
        00000000}
      OnClick = UpdateObjects1Click
    end
    object SpeedButton4: TSpeedButton
      Left = 88
      Top = 0
      Width = 25
      Height = 25
      Hint = 'VCL'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        000000030000308888077007708888030000308808077007708808030000308F
        08077007708F08030000308F0807B007B08F08030000308F080B0000708F0803
        0000308F0807BBB7B08F08030000308F080B7BBB708F08030000308F0807B7B7
        B08F08030000308F080B7B7B708F0803000030880807B7B77088080300003088
        8807777770888803000000000000777708F0F000000000000000000000000000
        00003008888888888888F003000033308888888888FF03330000333300888888
        8F003333000033333308888FF033333300003333333008F00333333300003333
        3333300333333333000000000000000000000000000000000000000000000000
        00000000}
      OnClick = VCL1Click
    end
    object SpeedButton6: TSpeedButton
      Left = 112
      Top = 0
      Width = 25
      Height = 25
      Hint = 'OWL'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBB0000
        BBBBBB33000033333B00111100B33333000033333B1111111103333300003333
        3011111111033333000033330111111111103333000033330111111111103333
        0000333011111B1111110333000033301111BBB111110333000033301111BBB1
        1111033300003330111BBBBB1111033300003330111BBBBB1111033300003330
        11BBBBBBB1110333000033301100F100F1110333000033301100F100F1110333
        000033330100F100F11033330000333301FFF1FFF11033330000333330FFF1FF
        F103333300003333301111111103333300003333330011110033333300003333
        3333000033333333000000000000000000000000000000000000000000000000
        00000000}
      OnClick = OWL1Click
    end
    object SpeedButton7: TSpeedButton
      Left = 136
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Turbo Vision'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000033333333333000033333000033333333333CCC03333300003333
        3333333CCC03333300003333000333CC0CC0333300003333AA0333CC0CC03333
        00003333AA0333CC0CC0333300003333AA033CC033CC033300003333AA033CC0
        33CC033300003333AA03CC03333CC03300003333AA03CC03333CC03300003333
        AA03CC03333CC03300003333AA0CC0333333CC0300003333AA0CC0333333CC03
        00003333AACCC0333333CCC000003333AACC033333333CC000003333AACC0333
        33333CC000000000AA000003333333330000AAAAAAAAAAA3333333330000AAAA
        AAAAAAA333333333000000000000000000000000000000000000000000000000
        00000000}
      OnClick = TurboVision1Click
    end
    object SpeedButton8: TSpeedButton
      Left = 176
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Help'
      Glyph.Data = {
        80010000424D8001000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300003
        3333333300003333333CCCC03333333300003333333CCCC03333333300003333
        333CCCC033333333000033333333333333333333000033333330003333333333
        00003333333CCC033333333300003333333CCC003333333300003333333CCCCC
        0333333300003333333CCCCCC03333330000333333333CCCCC03333300003333
        3333333CCCC033330000333333333333CCC033330000333CCC033333CCC03333
        0000333CCC033333CCC033330000333CCCC0333CCCC033330000333CCCCCCCCC
        CC03333300003333CCCCCCCCC03333330000333333CCCCCC0333333300003333
        3333333333333333000000000000000000000000000000000000000000000000
        00000000}
      OnClick = Contents1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 344
    Top = 32
    object File1: TMenuItem
      Caption = '&File'
      object Options1: TMenuItem
        Caption = '&Options'
        OnClick = Options1Click
      end
      object UpdateObjects1: TMenuItem
        Caption = '&Update'
        OnClick = UpdateObjects1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object ObjectModel1: TMenuItem
      Caption = '&Objects'
      object VCL1: TMenuItem
        Caption = 'VCL'
        Checked = True
        GroupIndex = 1
        OnClick = VCL1Click
      end
      object OWL1: TMenuItem
        Caption = 'OWL'
        GroupIndex = 1
        OnClick = OWL1Click
      end
      object TurboVision1: TMenuItem
        Caption = 'TV'
        GroupIndex = 1
        OnClick = TurboVision1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
end