object Form1: TForm1
  Left = 188
  Top = 177
  Width = 500
  Height = 300
  Caption = 'Open Windows'
  Ctl3D = False
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object sg1: TSGrid
    Left = 0
    Top = 0
    Width = 492
    Height = 254
    Align = alClient
    Color = clBlack
    ColCount = 4
    Ctl3D = True
    DefaultRowHeight = 17
    FixedCols = 0
    RowCount = 2
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goColSizing, goEditing]
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnDrawCell = sg1DrawCell
    AllowColInsert = False
    AllowRowInsert = False
    HTitles.Strings = (
      'Handle'
      'Window Caption'
      'Window Class'
      'Invisible')
    ColWidths = (
      51
      152
      97
      2)
  end
  object WindowsList1: TWindowsList
    AcceptEmptyNames = False
    Left = 290
    Top = 35
  end
  object MainMenu1: TMainMenu
    Left = 349
    Top = 51
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 0
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Refresh1: TMenuItem
      Caption = '&Refresh'
      ShortCut = 0
      object Refresh2: TMenuItem
        Caption = '&Refresh'
        ShortCut = 116
        OnClick = Refresh2Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Help2: TMenuItem
        Caption = '&Help'
        ShortCut = 0
        OnClick = Help2Click
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object save: TSaveDialog
    DefaultExt = '*.txt'
    FileEditStyle = fsEdit
    FileName = 'openwin.txt'
    Filter = 'text files (*.txt)|*.txt|all files (*.*)|*.*'
    Left = 379
    Top = 26
  end
  object PopupMenu1: TPopupMenu
    Left = 221
    Top = 113
    object ShowWindow1: TMenuItem
      Caption = 'Show This Window'
      ShortCut = 0
      OnClick = ShowWindow1Click
    end
    object CloseThisWindow1: TMenuItem
      Caption = 'Close This Window'
      ShortCut = 0
      OnClick = CloseThisWindow1Click
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Refresh3: TMenuItem
      Caption = 'Refresh'
      ShortCut = 0
      OnClick = Refresh2Click
    end
  end
end