object Form2: TForm2
  Left = 357
  Top = 320
  BorderStyle = bsSingle
  Caption = 'Links Bar Demo'
  ClientHeight = 541
  ClientWidth = 554
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 329
    Width = 554
    Height = 193
    Align = alBottom
    TabOrder = 0
    object Button1: TButton
      Left = 0
      Top = 13
      Width = 137
      Height = 25
      Caption = 'Add Site To Links Bar'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 144
      Top = 13
      Width = 137
      Height = 25
      Caption = 'Clear The Link List'
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 288
      Top = 13
      Width = 137
      Height = 25
      Caption = 'Remove The Site From List'
      TabOrder = 2
      OnClick = Button4Click
    end
    object Memo1: TMemo
      Left = 0
      Top = 64
      Width = 273
      Height = 99
      TabOrder = 3
    end
    object Memo2: TMemo
      Left = 280
      Top = 64
      Width = 263
      Height = 100
      TabOrder = 4
    end
    object Button5: TButton
      Left = 0
      Top = 168
      Width = 273
      Height = 17
      Caption = 'Get The Link List'
      TabOrder = 5
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 280
      Top = 168
      Width = 265
      Height = 17
      Caption = 'Get The Url From List'
      TabOrder = 6
      OnClick = Button6Click
    end
    object ShowImages: TCheckBox
      Left = 432
      Top = 8
      Width = 113
      Height = 17
      Caption = 'Hide/Show Images'
      TabOrder = 7
      OnClick = ShowImagesClick
    end
    object ViewHideLinksbar: TCheckBox
      Left = 432
      Top = 24
      Width = 113
      Height = 17
      Caption = 'Hide/Show LinksBar'
      TabOrder = 8
      OnClick = ViewHideLinksbarClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 522
    Width = 554
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 554
    Height = 29
    Align = alTop
    TabOrder = 3
    object Edit1: TEdit
      Left = 5
      Top = 3
      Width = 484
      Height = 21
      TabOrder = 0
      Text = 'http://bsalsa.com'
    end
    object Button2: TButton
      Left = 501
      Top = 3
      Width = 48
      Height = 21
      Caption = 'Go'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object LinksBar1: TLinksBar
    Left = 0
    Top = 29
    Width = 554
    Height = 26
    AutoSize = True
    Caption = 'LinksBar1'
    Flat = True
    Images = ImageList1
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ShowCaptions = True
    ShowHint = True
    TabOrder = 2
    About = 'LinksBar by bsalsa : bsalsa@gmail.com'
    MaxCaptionLength = 15
    WebBrowser = EmbeddedWB1
    StatusBar = StatusBar1
  end
  object EmbeddedWB1: TEmbeddedWB
    Left = 0
    Top = 55
    Width = 554
    Height = 274
    Align = alClient
    TabOrder = 4
    Silent = False
    OnDocumentComplete = EmbeddedWB1DocumentComplete
    DisableCtrlShortcuts = 'N'
    UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
    About = ' EmbeddedWB http://bsalsa.com/'
    PrintOptions.Margins.Left = 19.050000000000000000
    PrintOptions.Margins.Right = 19.050000000000000000
    PrintOptions.Margins.Top = 19.050000000000000000
    PrintOptions.Margins.Bottom = 19.050000000000000000
    PrintOptions.Header = '&w&bSeite &p von &P'
    PrintOptions.HTMLHeader.Strings = (
      '<HTML></HTML>')
    PrintOptions.Footer = '&u&b&d'
    PrintOptions.Orientation = poPortrait
    UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
    ControlData = {
      4C0000000D390000871900000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object ImageList1: TImageList
    Left = 16
    Top = 56
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object PopupMenu1: TPopupMenu
    Left = 80
    Top = 56
    object AddCurrentSiteToTheLinksList1: TMenuItem
      Caption = 'Add Current Site To The Links List'
      OnClick = Button1Click
    end
    object RemoveTheCurrentSiteFromTheLinksList1: TMenuItem
      Caption = 'Remove The Current Site From The Links List'
      OnClick = Button4Click
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object ClearTheLinksList1: TMenuItem
      Caption = 'Clear The Links List'
      OnClick = Button3Click
    end
    object ShowTheList2: TMenuItem
      Caption = 'Show The List'
      OnClick = Button6Click
    end
  end
end
