object Form3: TForm3 Left = 326 Top = 101 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Add title to the block list' ClientHeight = 412 ClientWidth = 537 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate OnPaint = FormPaint OnShow = RefreshClick PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 265 Height = 297 Caption = 'Currently opened windows' TabOrder = 0 object ListBox1: TListBox Left = 8 Top = 16 Width = 249 Height = 225 Hint = 'Double click on a title to add it to the Block list.' ItemHeight = 13 TabOrder = 0 OnDblClick = AddToBlackListClick end object Refresh: TButton Left = 22 Top = 256 Width = 89 Height = 25 Caption = 'Refresh &titles' TabOrder = 1 OnClick = RefreshClick end object AddToBlackList: TButton Left = 136 Top = 256 Width = 106 Height = 25 Caption = '&Add to block list' TabOrder = 2 OnClick = AddToBlackListClick end end object GroupBox2: TGroupBox Left = 272 Top = 0 Width = 265 Height = 297 Caption = 'Block list' TabOrder = 1 object ListBox2: TListBox Left = 8 Top = 16 Width = 249 Height = 225 Hint = 'Del to delete or right click for menu.' ItemHeight = 13 PopupMenu = PopupMenu1 Sorted = True TabOrder = 0 OnKeyDown = ListBox2KeyDown end object RemoveFromBlackList: TButton Left = 8 Top = 256 Width = 121 Height = 25 Caption = '&Remove from block list' TabOrder = 1 OnClick = RemoveFromBlackListClick end object Import: TButton Left = 152 Top = 256 Width = 50 Height = 25 Caption = '&Import' TabOrder = 2 OnClick = ImportClick end object Export: TButton Left = 208 Top = 256 Width = 50 Height = 25 Caption = '&Export' TabOrder = 3 OnClick = ExportClick end end object Minimize: TButton Left = 232 Top = 382 Width = 75 Height = 25 Cancel = True Caption = '&Hide' TabOrder = 2 OnClick = MinimizeClick end object GroupBox3: TGroupBox Left = 0 Top = 296 Width = 265 Height = 73 Caption = 'Keywords' TabOrder = 3 object Label2: TLabel Left = 8 Top = 20 Width = 146 Height = 13 Caption = 'Add a key&word to the Block list' FocusControl = AKW end object AKW: TEdit Left = 8 Top = 36 Width = 153 Height = 21 TabOrder = 0 OnKeyPress = AKWKeyPress end object AddKeyword: TButton Left = 167 Top = 36 Width = 42 Height = 21 Caption = 'A&dd' TabOrder = 1 OnClick = AddKeywordClick end end object GroupBox4: TGroupBox Left = 272 Top = 296 Width = 265 Height = 73 Caption = 'Password' TabOrder = 4 object Label1: TLabel Left = 6 Top = 33 Width = 46 Height = 13 Caption = 'Pass&word' FocusControl = Password Visible = False end object Password: TMaskEdit Left = 6 Top = 48 Width = 97 Height = 21 AutoSize = False Enabled = False PasswordChar = '*' TabOrder = 0 Visible = False end object PassEnabled: TCheckBox Left = 6 Top = 14 Width = 125 Height = 17 Alignment = taLeftJustify Caption = '&Protect with password' TabOrder = 1 OnClick = PassEnabledClick end object Save: TButton Left = 167 Top = 11 Width = 91 Height = 21 Caption = '&Save password' TabOrder = 2 OnClick = SaveClick end end object OpenDialog1: TOpenDialog DefaultExt = '*.dat' FileName = 'titles.dat' Filter = 'Block list dat files|*.dat|All files|*.*' Left = 432 Top = 208 end object SaveDialog1: TSaveDialog DefaultExt = '.dat' FileName = 'titles.dat' Filter = 'Block list dat files|*.dat|All files|*.*' Left = 488 Top = 208 end object PopupMenu1: TPopupMenu Left = 304 Top = 40 object Remove1: TMenuItem Caption = 'Remove from block list' OnClick = RemoveFromBlackListClick end end end