home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 May
/
Pcwk5b98.iso
/
Forum
/
WINSWEEP
/
WINSWEEP.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-07-18
|
12KB
|
518 lines
object Form1: TForm1
Left = 218
Top = 202
Hint = 'Program s�u�y do oczyszczania menu Start ze zb�dnych skr�t�w'
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'WinSweep v1.3'
ClientHeight = 201
ClientWidth = 414
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
PrintScale = poNone
Scaled = False
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Image12: TImage
Left = 12
Top = 112
Width = 297
Height = 85
Picture.Data = {<image001.bmp>}
Transparent = True
end
object Image1: TImage
Left = 9
Top = 10
Width = 81
Height = 29
Cursor = crHandPoint
Hint = 'Rozpoczyna od�miecanie Menu Start ze zb�dnych skr�t�w'
ParentShowHint = False
ShowHint = True
Transparent = True
OnMouseDown = Image1MouseDown
OnMouseUp = Image1MouseUp
end
object Image3: TImage
Left = 9
Top = 58
Width = 81
Height = 29
Cursor = crHandPoint
Hint = 'Przerywa skanowanie Menu Start'
ParentShowHint = False
ShowHint = True
Transparent = True
OnMouseDown = Image3MouseDown
OnMouseUp = Image3MouseUp
end
object Image2: TImage
Left = 317
Top = 110
Width = 85
Height = 33
Cursor = crHandPoint
Hint = 'Z czym to si� je?'
ParentShowHint = False
ShowHint = True
Transparent = True
OnMouseDown = Image2MouseDown
OnMouseUp = Image2MouseUp
end
object Image4: TImage
Left = 317
Top = 158
Width = 85
Height = 29
Cursor = crHandPoint
Hint = 'Koniec programu'
ParentShowHint = False
ShowHint = True
Transparent = True
OnMouseDown = Image4MouseDown
OnMouseUp = Image4MouseUp
end
object Image5: TImage
Left = 228
Top = 196
Width = 49
Height = 33
Picture.Data = {<image002.jpg>}
Visible = False
end
object Image6: TImage
Left = 288
Top = 196
Width = 69
Height = 25
Picture.Data = {<image003.bmp>}
Visible = False
end
object Image7: TImage
Left = 456
Top = 188
Width = 33
Height = 25
Picture.Data = {<image004.bmp>}
Visible = False
end
object Image8: TImage
Left = 20
Top = 208
Width = 61
Height = 29
Picture.Data = {<image005.bmp>}
Visible = False
end
object Image9: TImage
Left = 92
Top = 208
Width = 77
Height = 33
Picture.Data = {<image006.bmp>}
Visible = False
end
object Image10: TImage
Left = 24
Top = 248
Width = 73
Height = 33
Picture.Data = {<image007.bmp>}
Visible = False
end
object Image11: TImage
Left = 184
Top = 232
Width = 53
Height = 29
Picture.Data = {<image008.bmp>}
Visible = False
end
object Label9: TLabel
Left = 36
Top = 115
Width = 39
Height = 15
Caption = 'Post�p'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Image13: TImage
Left = 116
Top = 8
Width = 293
Height = 93
Picture.Data = {<image009.bmp>}
Transparent = True
end
object Label10: TLabel
Left = 138
Top = 11
Width = 62
Height = 15
AutoSize = False
Caption = 'Ustawienia'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
end
object Panel3: TPanel
Left = 128
Top = 24
Width = 265
Height = 65
BevelOuter = bvNone
Color = clSilver
TabOrder = 3
object CheckBox1: TCheckBox
Left = 0
Top = 4
Width = 97
Height = 17
Hint = 'Program b�dzie szuka� zb�dnych skr�t�w tak�e na pulpicie Windows'
TabStop = False
Caption = 'Skanuj pulpit'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 0
end
object CheckBox2: TCheckBox
Left = 0
Top = 46
Width = 97
Height = 13
Hint =
'Program poprosi o zgod� przed dokonaniem jakichkolwiek zmian w M' +
'enu Start'
TabStop = False
Caption = 'Potwierdzanie'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 1
end
object CheckBox3: TCheckBox
Left = 120
Top = 4
Width = 145
Height = 17
Hint = 'Program zacznie skanowanie zaraz po uruchomieniu.'
TabStop = False
Caption = 'Skanuj przy uruchamianiu'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object CheckBox5: TCheckBox
Left = 120
Top = 24
Width = 145
Height = 17
Hint = 'Program zako�czy si� automatycznie zaraz po wykonaniu skanowania'
TabStop = False
Caption = 'Zako�cz po skanowaniu'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object CheckBox4: TCheckBox
Left = 120
Top = 44
Width = 145
Height = 17
Hint =
'Program uruchomi si� w formie zminimalizowanej; Zaznaczenie tej' +
' i 2 powy�szych opji sprawi �e program dokona skanowania w tle, ' +
'bez konieczno�ci interakcji z u�ytkownikiem. Dobre, gdy chcemy c' +
'z�ciej u�ywa� programu'
TabStop = False
Caption = 'Uruchom zminimalizowane'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object Panel2: TPanel
Left = 20
Top = 128
Width = 273
Height = 57
BevelOuter = bvNone
Color = clSilver
Locked = True
TabOrder = 2
object Label7: TLabel
Left = 260
Top = 3
Width = 6
Height = 14
Caption = '0'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 140
Top = 3
Width = 115
Height = 14
Caption = 'Znalezionych folder�w:'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 140
Top = 20
Width = 104
Height = 14
Caption = 'Usuni�tych folder�w:'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 260
Top = 20
Width = 6
Height = 14
Caption = '0'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 4
Top = 3
Width = 114
Height = 14
Alignment = taCenter
Caption = 'Znalezionych skr�t�w: '
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Layout = tlBottom
end
object Label2: TLabel
Left = 4
Top = 20
Width = 100
Height = 14
Caption = 'Usuni�tych skr�t�w:'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 119
Top = 3
Width = 6
Height = 14
Caption = '0'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 119
Top = 20
Width = 6
Height = 14
Caption = '0'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
end
object Button1: TButton
Left = 536
Top = 48
Width = 81
Height = 25
Hint = 'Rozpoczyna od�miecanie Menu Start ze zb�dnych skr�t�w'
Caption = '&Start'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = Button1Click
end
object Button2: TButton
Left = 536
Top = 96
Width = 81
Height = 25
Hint = 'Przerywa skanowanie Menu Start'
Caption = '&Przerwij'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = Button2Click
end
object Button3: TButton
Left = 536
Top = 140
Width = 81
Height = 25
Hint = 'Z czym to si� je?'
Caption = '&O programie'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = Button3Click
end
object Button4: TButton
Left = 536
Top = 184
Width = 81
Height = 25
Hint = 'Koniec programu'
Cancel = True
Caption = '&Wyj�cie'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = Button4Click
end
object ProgressBar1: TProgressBar
Left = 24
Top = 167
Width = 267
Height = 13
Min = 0
Max = 100
TabOrder = 0
end
object CheckBox6: TCheckBox
Left = 128
Top = 48
Width = 117
Height = 17
Hint = 'Usuwanie zb�dnych, pustych katalog�w Menu Start'
TabStop = False
Caption = 'Usu� puste katalogi'
Color = clSilver
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 1
end
object Timer1: TTimer
Interval = 500
OnTimer = Timer1Timer
Left = 500
Top = 152
end
object Timer2: TTimer
Interval = 100
OnTimer = Timer2Timer
Left = 512
Top = 216
end
end