home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 311
- Top = 135
- Hint = 'Program s�u�y do oczyszczania menu Start ze zb�dnych skr�t�w'
- ActiveControl = Button1
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'WinSweep v2.0'
- 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
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object Image5: TImage
- Left = 224
- Top = 196
- Width = 49
- Height = 33
- Picture.Data = {<image001.jpg>}
- Visible = False
- end
- object Image12: TImage
- Left = 8
- Top = 112
- Width = 297
- Height = 85
- Picture.Data = {<image002.bmp>}
- Transparent = True
- end
- object Image1: TImage
- Left = 5
- Top = 10
- Width = 81
- Height = 29
- Cursor = crHandPoint
- Hint =
- 'Rozpoczyna od�miecanie Menu Start oraz menu Dodaj/Usu� programy ' +
- 'ze zb�dnych skr�t�w'
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnMouseDown = Image1MouseDown
- OnMouseUp = Image1MouseUp
- end
- object Image3: TImage
- Left = 5
- Top = 58
- Width = 81
- Height = 29
- Cursor = crHandPoint
- Hint = 'Przerywa skanowanie'
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnMouseDown = Image3MouseDown
- OnMouseUp = Image3MouseUp
- end
- object Image2: TImage
- Left = 313
- 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 = 313
- Top = 158
- Width = 85
- Height = 29
- Cursor = crHandPoint
- Hint = 'Koniec programu'
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnMouseDown = Image4MouseDown
- OnMouseUp = Image4MouseUp
- end
- object Image6: TImage
- Left = 284
- Top = 196
- Width = 69
- Height = 25
- Picture.Data = {<image003.bmp>}
- Visible = False
- end
- object Image7: TImage
- Left = 452
- Top = 188
- Width = 33
- Height = 25
- Picture.Data = {<image004.bmp>}
- Visible = False
- end
- object Image8: TImage
- Left = 16
- Top = 208
- Width = 61
- Height = 29
- Picture.Data = {<image005.bmp>}
- Visible = False
- end
- object Image9: TImage
- Left = 88
- Top = 208
- Width = 77
- Height = 33
- Picture.Data = {<image006.bmp>}
- Visible = False
- end
- object Image10: TImage
- Left = 20
- Top = 248
- Width = 73
- Height = 33
- Picture.Data = {<image007.bmp>}
- Visible = False
- end
- object Image11: TImage
- Left = 180
- Top = 232
- Width = 53
- Height = 29
- Picture.Data = {<image008.bmp>}
- Visible = False
- end
- object Label9: TLabel
- Left = 32
- 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 = 112
- Top = 8
- Width = 293
- Height = 93
- Picture.Data = {<image009.bmp>}
- Transparent = True
- end
- object Label10: TLabel
- Left = 134
- 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 = 124
- 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 = 113
- Height = 13
- Hint =
- 'Program poprosi o zgod� przed dokonaniem jakichkolwiek zmian w M' +
- 'enu Start lub '#39'Dodaj/Usu� Programy'#39
- 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 = 16
- 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 = 532
- Top = 48
- Width = 81
- Height = 25
- Hint =
- 'Rozpoczyna od�miecanie Menu Start oraz menu Dodaj/Usu� programy ' +
- '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 = 532
- Top = 96
- Width = 81
- Height = 25
- Hint = 'Przerywa skanowanie'
- 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 = 532
- 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 = 532
- 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 = 20
- Top = 167
- Width = 267
- Height = 13
- Min = 0
- Max = 100
- TabOrder = 0
- end
- object CheckBox6: TCheckBox
- Left = 124
- Top = 48
- Width = 117
- Height = 17
- Hint = 'Usunie zb�dne odwo�ania menu Dodaj/Usu� programy'
- TabStop = False
- Caption = 'Czy�� Dodaj/Usu�'
- 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 Button5: TButton
- Left = 4
- Top = 304
- Width = 75
- Height = 25
- Caption = 'Button5'
- TabOrder = 8
- OnClick = Button5Click
- end
- object ListBox1: TListBox
- Left = 88
- Top = 444
- Width = 121
- Height = 97
- ItemHeight = 13
- Sorted = True
- TabOrder = 9
- Visible = False
- end
- object ListBox2: TListBox
- Left = 216
- Top = 444
- Width = 121
- Height = 97
- ItemHeight = 13
- TabOrder = 10
- Visible = False
- end
- object ListBox3: TListBox
- Left = 340
- Top = 444
- Width = 121
- Height = 97
- ItemHeight = 13
- TabOrder = 11
- Visible = False
- end
- object ListBox4: TListBox
- Left = 104
- Top = 276
- Width = 649
- Height = 97
- ItemHeight = 13
- TabOrder = 12
- Visible = False
- end
- object Timer1: TTimer
- Interval = 500
- OnTimer = Timer1Timer
- Left = 496
- Top = 152
- end
- object Timer2: TTimer
- Interval = 100
- OnTimer = Timer2Timer
- Left = 496
- Top = 216
- end
- end
-