home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 35
/
hot35.iso
/
ficheros
/
9SEG
/
ABSEC20.ZIP
/
ABSEC.EX_
/
ABSEC.EX
/
0
/
RCDATA
/
TFORMMAIN
/
TFORMMAIN.txt
< prev
Wrap
Text File
|
1998-05-11
|
41KB
|
1,059 lines
object FormMain: TFormMain
Left = 229
Top = 108
Width = 629
Height = 452
Caption = 'PEPSOFT Absolute Security * Unregistered *'
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'System'
Font.Style = []
Position = poDefaultPosOnly
Scaled = False
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object StatusBar1: TAdvStatusBar
Left = 0
Top = 406
Width = 621
Height = 19
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Panels = <
item
Text = 'LabelFileName'
Width = 180
end
item
Alignment = taCenter
Text = 'Info'
Width = 70
end
item
Text = 'Size'
Width = 230
end
item
Width = 80
end
item
Width = 50
end>
ParentFont = False
SimplePanel = False
object LedReady: KrLed
Left = 568
Top = 5
Width = 20
Height = 10
Hint = 'Just a LED'
About = 'Kr Led, version 1.00, 04-10-97'
CaptionAlign = caLeft
CaptionBorder = olNone
CaptionLineColor = clBlack
CaptionBackGround = clBlue
LedOnColor = clLime
LedOffColor = clGray
ColorBackGround = clBackground
LedColorLine = clBlack
LedState = stOn
LedAlign = alLeft
LedCircle = 10
LedBorder = olNone
Border = olNone
Transparant = True
BorderLine = clBlack
LedSpotColorOn = clWhite
LedSpotColorOff = clWhite
ParentShowHint = False
ShowHint = True
end
object LedBusy: KrLed
Left = 584
Top = 5
Width = 20
Height = 10
Hint = 'Just a LED'
About = 'Kr Led, version 1.00, 04-10-97'
CaptionAlign = caLeft
CaptionBorder = olNone
CaptionLineColor = clBlack
CaptionBackGround = clSilver
LedOnColor = clRed
LedOffColor = clGray
ColorBackGround = clBtnFace
LedColorLine = clBlack
LedState = stOff
LedAlign = alLeft
LedCircle = 10
LedBorder = olNone
Border = olNone
Transparant = True
BorderLine = clBlack
LedSpotColorOn = clWhite
LedSpotColorOff = clWhite
ParentShowHint = False
ShowHint = True
end
object Gauge1: TGauge
Left = 484
Top = 3
Width = 73
Height = 15
ShowText = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
BorderStyle = bsNone
ForeColor = clYellow
BackColor = clBtnFace
ParentFont = False
Progress = 50
end
end
object SplitterWnd1: TSplitterWnd
Left = 0
Top = 33
Width = 621
Height = 373
Cursor = crHSplit
Orientation = swVertical
Thickness = 3
CursorHorz = crVSplit
CursorVert = crHSplit
BarStyle = sbCheckered
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Pane1: TPane
Left = 0
Top = 0
Width = 180
Height = 373
BorderStyle = bsNone
TabOrder = 0
SplitterWnd = SplitterWnd1
PaneIndex = 0
PaneSize = 181
object SplitterWnd2: TSplitterWnd
Left = 0
Top = 0
Width = 180
Height = 373
Cursor = crVSplit
Orientation = swHorizontal
Thickness = 3
CursorHorz = crVSplit
CursorVert = crHSplit
BarStyle = sbCheckered
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Pane3: TPane
Left = 0
Top = 0
Width = 180
Height = 177
TabOrder = 0
SplitterWnd = SplitterWnd2
PaneIndex = 0
PaneSize = 178
object PTShellTree1: TPTShellTree
Left = 0
Top = 0
Width = 176
Height = 173
ShellList = PTShellList1
Options = [ptstoAutoFill, ptstoVirtualFolders, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh, ptstoShowHidden]
ShowRoot = False
DragMode = dmAutomatic
HideSelection = False
Indent = 19
Align = alClient
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'ms sans serif'
Font.Style = []
ParentColor = False
ParentCtl3D = False
Ctl3D = True
TabOrder = 0
ParentFont = False
end
end
object Pane4: TPane
Left = 0
Top = 180
Width = 180
Height = 193
TabOrder = 1
SplitterWnd = SplitterWnd2
PaneIndex = 1
PaneSize = 195
object PTShellList1: TPTShellList
Left = 0
Top = 0
Width = 176
Height = 189
Options = [ptsloAutoFill, ptsloNonFilesystemAncestors, ptsloDefaultKeyHandling, ptsloContextMenus, ptsloDynamicRefresh, ptsloOleDrag, ptsloFolderContextMenu, ptsloShowHidden]
Align = alClient
ReadOnly = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HideSelection = False
IconOptions.AutoArrange = True
MultiSelect = True
ShowColumnHeaders = False
TabOrder = 0
ViewStyle = vsSmallIcon
end
end
end
end
object Pane2: TPane
Left = 183
Top = 0
Width = 438
Height = 373
TabOrder = 1
SplitterWnd = SplitterWnd1
PaneIndex = 1
PaneSize = 440
object NoBDEResizerPanel1: TNoBDEResizerPanel
Left = 0
Top = 0
Width = 434
Height = 369
Align = alClient
Caption = 'NoBDEResizerPanel1'
TabOrder = 0
Active = True
object Panel2: TPanel
Left = 1
Top = 50
Width = 432
Height = 318
BevelOuter = bvNone
TabOrder = 0
object ButtHelp: TExplorerButton
Left = 6
Top = 35
Width = 59
Height = 43
Bitmap.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888800008888888888888888888800008888888887778888888800008888
8888600788888888000088888888E60788888888000088888888EE6888888888
000088888888877788888888000088888888600788888888000088888888E607
78888888000088888888E660778888880000888888888E660778888800008888
888878E660778888000088888880778E660788880000888888660778E6078888
0000888888E66077E608888800008888888E660066688888000088888888E666
6E8888880000888888888EEEE888888800008888888888888888888800008888
88888888888888880000}
Caption = '&Help'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OnClick = ButHelpClick
ParentFont = False
IBitmap = {
424DE60400000000000036000000280000001400000014000000010018000000
0000B004000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0FFFFFF000000000000FFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFF
FFFFFFFF000000FFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFF
FFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFF
FFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFF000000000000FFFFFFC0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFF000000FFFFFFFFFFFFC0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFC0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFC0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0FFFFFFC0C0C0FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFC0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFF
FFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFF000000FFFFFFC0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFF000000FFFFFF
FFFFFFC0C0C0FFFFFFFFFFFF000000FFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFF000000FFFFFFFF
FFFFFFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFF000000000000FFFF
FFFFFFFFFFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFFFFFFFFFFFFFFFFFFFC0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0}
end
object RemoveALL: TExplorerButton
Left = 6
Top = 103
Width = 59
Height = 34
Hint = 'Clear List'
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD80000008DDDDDDDD077777700DD
DDDDD0777777080DDDDDD80777770880DDDDDD07F7F7F0880DDDDDD07F7F7F08
80DDDDDD07F7F7F0888DDDDDD07F7F7F080DDDDDDD07F7F7F80DDDDDDDD07F7F
770DDDDDDDDD8000088DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
Caption = '&Clear'
Enabled = False
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = RemoveALLClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D360300000000000036000000280000001000000010000000010018000000
00000003000000000000000000000000000000000000FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFFFFFF000000000000000000000000000000000000FFFF
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00FFFFFF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFFFFF000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000FFFFFFFFFFFF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF
000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFFF
FF000000000000000000000000FFFFFFFFFFFFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
end
object LabelPassword: TLabel
Left = 8
Top = 8
Width = 63
Height = 16
Caption = 'Password:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object Add: TExplorerButton
Left = 6
Top = 158
Width = 59
Height = 35
Hint = 'Add a file to the list'
Bitmap.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777700777770007777770607777000770000066077
7000770666666607700077066666666070007706666666077000770000066077
7000777777060777700077777700777770007777770777777000777777777777
7000}
Caption = '&Add'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = AddClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D3E0200000000000036000000280000000D0000000D000000010018000000
00000802000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
000000FFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C000000000
0000000000000000000000FFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C000C0C0
C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0
C0C0C0C0C000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF000000C0C0C000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0C0C0C000C0C0C0C0C0C000000000
0000000000000000000000FFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C000C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFF000000C0C0C0C0C0C0C0
C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
end
object Remove: TExplorerButton
Left = 6
Top = 246
Width = 59
Height = 35
Hint = 'Remove a File from the list'
Bitmap.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777007777770007777060777777000777066000007
7000770666666607700070666666660770007706666666077000777066000007
7000777706077777700077777007777770007777770777777000777777777777
7000}
Caption = '&Remove'
Enabled = False
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = RemoveClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D3E0200000000000036000000280000000D0000000D000000010018000000
00000802000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFF
000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C000
0000FFFFFFFFFFFF000000000000000000000000000000C0C0C0C0C0C000C0C0
C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0
C0C0C0C0C000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFF000000C0C0C0C0C0C000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0C0C0C000C0C0C0C0C0C0C0C0C000
0000FFFFFFFFFFFF000000000000000000000000000000C0C0C0C0C0C000C0C0
C0C0C0C0C0C0C0C0C0C0000000FFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
end
object AddALL: TExplorerButton
Left = 6
Top = 198
Width = 59
Height = 35
Hint = 'Add ALL files to the list'
Bitmap.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777707707777700077770070077770007777060060777000000006606607
7000066666660660700006666666606600000666666606607000000006606607
7000777706006077700077770070077770007777077077777000777777777777
7000}
Caption = 'Add A&ll'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = AddALLClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D3E0200000000000036000000280000000D0000000D000000010018000000
00000802000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C00000000000
00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFF
000000000000FFFFFF000000C0C0C0C0C0C0C0C0C0C000000000000000000000
0000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000C0C0C0C0C0C0FF0000
00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF00
0000C0C0C0FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000FFFFFFFFFFFF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF000000FFFFFFFFFFFF000000C0C0C00000000000000000000000
0000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000C0C0C0C0C0C000C0C0
C0C0C0C0C0C0C0C0C0C0000000FFFFFF000000000000FFFFFF000000C0C0C0C0
C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C00000000000
00C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0
C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
end
object Label1: TLabel
Left = 216
Top = 292
Width = 121
Height = 16
Caption = 'Select files and click'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object files: TListView
Left = 72
Top = 32
Width = 361
Height = 249
Columns = <>
ReadOnly = True
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
IconOptions.AutoArrange = True
MultiSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object RadioEncrypt: TRadioButton
Left = 72
Top = 8
Width = 81
Height = 17
Caption = '&Encrypt'
Checked = True
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
TabStop = True
OnClick = RadioEncryptClick
end
object RadioDecrypt: TRadioButton
Left = 192
Top = 8
Width = 81
Height = 17
Caption = '&Decrypt'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = RadioEncryptClick
end
object RadioWipe: TRadioButton
Left = 336
Top = 8
Width = 81
Height = 17
Caption = '&Wipe'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RadioEncryptClick
end
object Password1: TEdit
Left = 72
Top = 6
Width = 361
Height = 24
Color = clWhite
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 56
ParentFont = False
PasswordChar = '*'
TabOrder = 4
Visible = False
OnKeyUp = Password1KeyUp
end
object ButtonMEMOPASS: TButton
Left = 6
Top = 290
Width = 89
Height = 23
Caption = 'MEMOPASS'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = ButtonMEMOPASSClick
end
object ButtOk: TButton
Left = 352
Top = 288
Width = 75
Height = 23
Caption = 'OK'
TabOrder = 6
OnClick = ButtOkClick
end
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 432
Height = 49
Align = alTop
BevelOuter = bvNone
Caption = 'Panel3'
Color = clMaroon
TabOrder = 1
object Image1: TImage
Left = 0
Top = 0
Width = 432
Height = 49
Align = alClient
Picture.Data = {<image000.bmp>}
Stretch = True
end
object UrlPepSoft: TUrlLabel
Left = 4
Top = 25
Width = 103
Height = 13
Cursor = 5
Hint = 'Click here to connect PEPSOFT site'
Caption = 'http://PEPSOFT.com'
Color = clBlack
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
URL = 'http://www.pepsoft.com/index.html'
end
end
end
end
end
object PTGroup1: TPTGroup
Left = 0
Top = 0
Width = 621
Height = 33
FrameStyle = ptfsHorzLine
Align = alTop
object DetailsBtn: TSpeedButton
Tag = 3
Left = 330
Top = 3
Width = 23
Height = 22
GroupIndex = 1
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
22222FFFFFFFFFFFFFFF44444444444444448888888888888888222222222222
22222222FFFF2FFF2FFF22200002000200022228888288828882222222222222
2222222222222222222222222222222222222222222222222222}
NumGlyphs = 2
OnClick = DetailsBtnClick
end
object ListBtn: TSpeedButton
Tag = 2
Left = 307
Top = 3
Width = 23
Height = 22
GroupIndex = 1
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42
00028F8288828F82888244222222442222228822222288222222222222222222
2222222222222222222222222222222222222FFF22222FFF2222444222224442
2222888F2FFF888F2FFF4F4200024F4200028F8288828F828882442222224422
2222882222228822222222222222222222222222222222222222222222222222
22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42
00028F8288828F82888244222222442222228822222288222222222222222222
2222222222222222222222222222222222222222222222222222}
NumGlyphs = 2
OnClick = ListBtnClick
end
object SmallIconsBtn: TSpeedButton
Tag = 1
Left = 284
Top = 3
Width = 23
Height = 22
GroupIndex = 1
Down = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222222FFF2222222222224442222222222222888F2FFF222222224F4200022
22222228F8288822222222244222222222222228822222222222222222222222
222222222222222222222222222222222222222222222FFF2222222222224442
222222222222888F2FFF222222224F420002222222228F828882222222224422
2222222222228822222222222222222222222222222222222222222222222222
222222FFF2222222222224442222222222222888F2FFF222222224F420002222
222228F828882222222224422222222222222882222222222222222222222222
2222222222222222222222222222222222222222222222222222}
NumGlyphs = 2
OnClick = SmallIconsBtnClick
end
object LargeIconsBtn: TSpeedButton
Left = 589
Top = 3
Width = 23
Height = 22
GroupIndex = 1
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222222222222FFFFFF22222222200000022222222228888882222222222222
222222222222222FFFF2222222222244442222222222228888F222222222224F
F42222222222228F28F222222222224FF42222222222228F28F222222222224F
442222FFFFFF228F882220000002224442222888888222888222222222222222
2222222FFFF2222222222244442222222222228888F222222222224FF4222222
2222228F28F222222222224FF42222222222228F28F222222222224F44222222
2222228F88222222222222444222222222222288822222222222222222222222
2222222222222222222222222222222222222222222222222222}
NumGlyphs = 2
Visible = False
end
object UpOneLevelBtn: TSpeedButton
Left = 212
Top = 3
Width = 23
Height = 22
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
2222222222222222222200000000000000020FBFBFBFBFBFBF020BFBFBFBFBFB
FB020FBFB000000FBF020BFBF0FBFBFBFB020FBFB0BFBFBFBF020BF00000FBFB
FB020FBF000FBFBFBF020BFBF0FBFBFBFB020FBFBFBFBFBFBF02000000000000
002220BFBFB02222222222000002222222222222222222222222}
OnClick = UpOneLevelBtnClick
end
object DeleteBtn: TSpeedButton
Left = 244
Top = 3
Width = 23
Height = 22
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDD0DDDDDDDDDD0DDD000DDDDDDDDDDDDD0000DDDDDD
D0DDDDD000DDDDDD0DDDDDDD000DDDD00DDDDDDDD000DD00DDDDDDDDDD00000D
DDDDDDDDDDD000DDDDDDDDDDDD00000DDDDDDDDDD000DD00DDDDDDD0000DDDD0
0DDDDD0000DDDDDD00DDDD000DDDDDDDDD0DDDDDDDDDDDDDDDDD}
OnClick = DeleteBtnClick
end
object Label2: TLabel
Left = 360
Top = 8
Width = 44
Height = 13
Caption = 'File Filter:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Gauge2: TGauge
Left = 465
Top = 25
Width = 151
Height = 5
ShowText = False
ForeColor = clRed
BackColor = clGreen
MaxValue = 30
Progress = 6
end
object ButRegister: TExplorerButton
Left = 465
Top = 4
Width = 147
Height = 21
Bitmap.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
00DDDDD00DDDDD000000DDDD070000070DDDDD000000DDD0707777700DDDDD00
0000DD077777777770DDDD000000DD07777777777F0DDD000000D07777777777
700DDD000000D0777777777777700D000000D0777777777777770D000000D077
00777770F7770D000000DD07FF00077F7700DD000000DDD007FFF77770DDDD00
0000DDDDD00000700DDDDD000000DDDDDDDDDD00DDDDDD000000DDDDDDDDDDD0
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
Caption = 'Click Here to &Order'
Layout = blBitmapLeft
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = ButRegisterClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D260400000000000036000000280000001200000012000000010018000000
0000F003000000000000000000000000000000000000FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00FFFF00
FFFF00FFFF00FFFF00FF000000000000FF00FFFF00FFFF00FFFF00FFFF00FF00
0000000000FF00FFFF00FFFF00FFFF00FFFF00FF00FFFF00FFFF00FFFF00FFFF
00FF000000FFFFFF000000000000000000000000000000FFFFFF000000FF00FF
FF00FFFF00FFFF00FFFF00FF00FFFF00FFFF00FFFF00FF000000FFFFFF000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF00FFFF00FFFF00FFFF00
FFFF00FF0000FF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00FFFF00FF0000FF00
FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00FF0000FF00FF000000FFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
000000FF00FFFF00FFFF00FF0000FF00FF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000
00FF00FF0000FF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FF0000FF00
FF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
0000FFFFFFFFFFFFFFFFFFFFFFFF000000FF00FF0000FF00FFFF00FF000000FF
FFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
000000000000FF00FFFF00FF0000FF00FFFF00FFFF00FF000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FFFF00
FFFF00FF0000FF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000
00000000FFFFFF000000000000FF00FFFF00FFFF00FFFF00FFFF00FF0000FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000
0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FF0000}
end
object PTShellCombo1: TPTShellCombo
Left = 0
Top = 2
Width = 205
Height = 22
ShellTree = PTShellTree1
DropDownCount = 16
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object EditMask: THistoryComboBox
Left = 406
Top = 2
Width = 57
Height = 24
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
MaxLength = 5
ParentFont = False
TabOrder = 1
Text = '*.*'
OnChange = EditMaskChange
OnExit = EditMaskExit
Key = 'Software\Pepsoft\EmailZIP\ListMasks'
MaxHistoryLength = 10
end
end
object LockManager1: TLockManager
DateTamperCheck = dcEnforced
StopIfNoRegCode = False
SignatureLocation = slWindowsDir
SignatureFileName = 'PGNLIBC.DLL'
AllowMultipleInstances = False
ResetSignatureIfDelphiIsRunning = False
CopyProtectionType = ptNone
TrialPeriodTimeEnabled = True
TrialMaxNumberOfRuns = 15
MsgUnRegisteredCopy.Strings = (
'The software has detected that it was not installed from the ins' +
'tallation disks. Please use the installation disk to properly se' +
't-up the application. If this does not correct the situation ple' +
'ase communicate with us.')
MsgEndOfTrial.Strings = (
'The trial period of Absolute Security is over. Please register y' +
'our copy.')
MsgDateTamper.Strings = (
'Absolute Security has detected that the system date and time we' +
're set before the time of its last use. If your trial period is ' +
'over please contact us to register your copy.')
PasswordEnabled = False
Password = 'Wapiti138'
TerminateIfSignatureEmpty = True
OnTerminate = LockManager1Terminate
Left = 8
Top = 8
end
object TimerRegister: TTimer
Enabled = False
Interval = 15000
OnTimer = TimerRegisterTimer
Left = 32
Top = 8
end
object FnpFormEnh1: TFnpFormEnh
SavePosition = True
SubKey = 'Software\Pepsoft\AbSec'
Left = 119
Top = 8
end
object FileIterator1: TFileIterator
Options = [fiPath, fiDetails, fiRecurseFolders]
RootFolder = 'C:'
OnAddFile = FileIterator1AddFile
OnAddFileQuery = FileIterator1AddFileQuery
Left = 127
Top = 40
end
object Compress1: TCompress
RegName = 'Gregory Noe'
RegNumber = 11359
OnCheckFile = Compress1CheckFile
OnShowProgress = Compress1ShowProgress
MakeDirectories = False
ExceptionOnFileError = True
Key = 0
CheckSpaceBeforeExpand = False
Left = 95
Top = 40
end
object WinRoller1: TWinRoller
Enabled = True
Left = 191
Top = 8
end
object MSOfficeCaption1: TMSOfficeCaption
AppNameText.Caption = 'Absolute Security'
AppNameText.FontKind = fkSystemB
AppNameText.Visible = True
CaptionText.Caption = '* Unregistered *'
CaptionText.FontKind = fkSystemI
CaptionText.Visible = True
CompanyText.Caption = 'PEPSOFT'
CompanyText.FontKind = fkSystemBI
CompanyText.Visible = True
Left = 168
Top = 40
end
object Encrypt1: TEncrypt
OnProgressChange = Encrypt1ProgressChange
Left = 391
Top = 8
end
object SysInfo321: TSysInfo32
MemoryAvailPhys = 5652480
MemoryAvailVirtual = 2106130432
MemoryTotalPhys = 66564096
MemoryTotalVirtual = 2143289344
OSBuild = '950'
OSPlatform = 'Windows 95'
OSVersion = '4.0'
ProcessorType = 'Intel'
ProcessorLevel = 'Pentium'
ProductID = '27207-040-0359396-38354'
RegisteredOwner = 'Greg'
Left = 247
Top = 16
end
object ZipMaster1: TZipMaster
Verbose = False
Trace = False
AddCompLevel = 9
AddOptions = []
ExtrOptions = []
Left = 335
Top = 16
end
object CliSocket: TWSocket
Proto = 'tcp'
MultiThreaded = False
FlushTimeout = 60
SendFlags = wsSendNormal
Left = 359
Top = 24
end
object DragDrop1: TDragDrop
Active = False
BringToFront = False
OnFilesDropped = DragDrop1FilesDropped
Left = 88
Top = 10
end
object Timer1: TTimer
Interval = 5000
OnTimer = Timer1Timer
Left = 72
Top = 18
end
end