home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Programming Unleashed
/
Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso
/
misc
/
explorer
/
main.txt
< prev
next >
Wrap
Text File
|
1995-03-20
|
14KB
|
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
Hin