Chip 1999 September/Chip_1999-09_cd.bin/EPA/RUN.EXE/0/RCDATA/T_NEDMAIN/T_NEDMAIN.txt

Text File | 1999-08-04 | 19.9 KB | 711 lines

inherited _NedMain: T_NedMain
  Left = 275
  Top = 173
  Caption = 'EPA'
  ClientHeight = 633
  ClientWidth = 910
  Color = clBlack
  OldCreateOrder = True
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object MainPanel: TContainerPanel [0]
    Left = 12
    Top = 10
    Width = 944
    Height = 681
    OnResize = MainPanelResize
    FrameRect.Left = 0
    FrameRect.Top = 0
    FrameRect.Right = 0
    FrameRect.Bottom = 0
    Color = clRed
    TabOrder = 0
    object TopPanel: TContainerPanel
      Left = 0
      Top = 0
      Width = 944
      Height = 105
      OnResize = TopPanelResize
      FrameRect.Left = 0
      FrameRect.Top = 0
      FrameRect.Right = 0
      FrameRect.Bottom = 0
      Align = alTop
      Color = clNone
      TabOrder = 0
      object TopPanelPicture: TRegionPicture
        Left = 418
        Top = 0
        Width = 384
        Height = 66
        AutoSize = True
        Picture.Data = {<image000.bmp>}
        FileName = 'Design\Picts\HorniLista\Podklad.bmp'
      end
      object LeftTopPanel: TSwitcher
        Left = 0
        Top = 0
        Width = 416
        Height = 66
        Transparent = True
        RegLeft = 0
        RegTop = 0
        RegUssages = [uf_HitTest, uf_Clipping]
        BitmapArray = LeftTopPanelBA
        FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
        FileSourcer.UseDefaultDesignStyle = True
        BARows = 0
        State = 2
        BmpArrayColumn = 0
      end
      object MiniTopPanel: TContainerPanel
        Left = 158
        Top = 78
        Width = 800
        Height = 10
        OnPaintBkgnd = MiniTopPanelPaintBkgnd
        FrameRect.Left = 0
        FrameRect.Top = 0
        FrameRect.Right = 0
        FrameRect.Bottom = 0
        TabOrder = 2
      end
      object CntlPanel: TContainerPanel
        Left = 418
        Top = 0
        Width = 448
        Height = 61
        FrameRect.Left = 0
        FrameRect.Top = 0
        FrameRect.Right = 0
        FrameRect.Bottom = 0
        Color = clWhite
        TabOrder = 0
        object ForwardBtn: TPaintedButton
          Left = 64
          Top = 0
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = ForwardBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 1
          Caption = 'Forward'
          Style = pbs_Button
        end
        object ProductIndexBtn: TPaintedButton
          Left = 192
          Top = 0
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = ProductIndexBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 3
          Caption = 'ProductIndex'
          Style = pbs_Button
        end
        object ExitBtn: TPaintedButton
          Left = 388
          Top = 0
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = ExitBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 6
          Caption = 'Exit'
          Style = pbs_Button
        end
        object HomeBtn: TPaintedButton
          Left = 128
          Top = 0
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = HomeBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 2
          Caption = 'Home'
          Style = pbs_Button
        end
        object BackBtn: TPaintedButton
          Left = 0
          Top = 0
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = BackBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 0
          Caption = 'TitleIndex'
          Style = pbs_Button
        end
        object HelpBtn: TPaintedButton
          Left = 320
          Top = -1
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = HelpBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 5
          Caption = 'Presentations'
          Style = pbs_Button
        end
        object PresentationsBtn: TPaintedButton
          Left = 256
          Top = 0
          Width = 64
          Height = 62
          Cursor = crHandPoint
          OnClick = PresentationsBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = TopBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 4
          Caption = 'Presentations'
          Style = pbs_Button
        end
      end
      object PlayerPanel: TContainerPanel
        Left = 114
        Top = 0
        Width = 229
        Height = 75
        OnPaintBkgnd = PlayerPanelPaintBkgnd
        FrameRect.Left = 0
        FrameRect.Top = 0
        FrameRect.Right = 0
        FrameRect.Bottom = 0
        Color = clAqua
        TabOrder = 1
        Visible = False
        object PlayBtn: TPaintedButton
          Left = 63
          Top = 27
          Width = 23
          Height = 23
          Cursor = crHandPoint
          OnClick = PlayBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = PlayerBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 3
          Caption = 'Play'
          Style = pbs_Button
        end
        object PauseBtn: TPaintedButton
          Left = 94
          Top = 27
          Width = 23
          Height = 23
          Cursor = crHandPoint
          OnClick = PauseBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = PlayerBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 4
          Caption = 'Pause'
          Style = pbs_Button
        end
        object StopBtn: TPaintedButton
          Left = 125
          Top = 27
          Width = 23
          Height = 23
          Cursor = crHandPoint
          OnClick = StopBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = PlayerBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 2
          Caption = 'Stop'
          Style = pbs_Button
        end
        object GoBookmarkBtn: TPaintedButton
          Left = 156
          Top = 27
          Width = 23
          Height = 23
          Cursor = crHandPoint
          OnClick = GoBookmarkBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = PlayerBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 0
          Caption = #13'<'
          Style = pbs_Button
        end
        object SetBookmarkBtn: TPaintedButton
          Left = 187
          Top = 27
          Width = 23
          Height = 23
          Cursor = crHandPoint
          OnClick = SetBookmarkBtnClick
          RegLeft = 0
          RegTop = 0
          RegUssages = [uf_HitTest, uf_Clipping]
          BitmapArray = PlayerBtns
          FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
          BARows = 0
          BmpArrayColumn = 1
          Caption = '_'#13'_'
          Style = pbs_Button
        end
        object SoundGauge: TActiveGauge
          Left = 63
          Top = 50
          Width = 177
          Height = 17
          Cursor = crHandPoint
          Ctl3D = False
          Kind = sbHorizontal
          LargeChange = 9999
          ParentCtl3D = False
          TabOrder = 0
          Color = clSilver
          BodyBMP = GaugeBody
          ThumbBMP = GaugeThumb
          OnPositionChanged = SoundGaugePositionChanged
        end
        object NetShowPlayer: TNetShowPlayer
          Left = 8
          Top = 50
          Width = 286
          Height = 225
          TabOrder = 1
          ControlData = {
            010000008F1D0000411700000300FFFFFFFF0B00FFFF0B00FFFF0B00FFFF0B00
            FFFF0B00FFFF00000200000000000B0000000300000000000800020000000000
            0500000000000000144008000200000000000B00FFFF03000000000005000000
            00000000F0BF03000000000008000200000000001300000000001300FFFFFF00
            0300000000000300000000000B00FFFF0B00FFFF0B00FFFF0B0000000B00FFFF
            08000200000000000B00FFFF0300FFFFFFFF0B0000000300010000000B000000
            0500000000000000F03F08000200000000000800020000000000080002000000
            00000500000000000000F0BF0500000000000000F0BF0B00FFFF0B00FFFF0B00
            FFFF0B0000000B0000000B0000000B00FFFF0B0000000B00FFFF0B00FFFF0B00
            00000B0000000B00FFFF0B0000000B00FFFF0B00000003000000000013000000
            00000B0000000300000000000B000000}
        end
      end
    end
    object LeftPanel: TContainerPanel
      Left = 0
      Top = 105
      Width = 109
      Height = 576
      OnPaintBkgnd = LeftPanelPaintBkgnd
      FrameRect.Left = 0
      FrameRect.Top = 0
      FrameRect.Right = 0
      FrameRect.Bottom = 0
      Color = clBlue
      TabOrder = 1
      object CompasLabel: TLabel
        Left = 50
        Top = 120
        Width = 95
        Height = 91
        Cursor = crHandPoint
        AutoSize = False
        Color = clWhite
        ParentColor = False
        Transparent = True
        OnClick = CompasClick
      end
      object ChangeViewLabel: TLabel
        Left = 4
        Top = 15
        Width = 75
        Height = 55
        Cursor = crHandPoint
        AutoSize = False
        Color = clWhite
        ParentColor = False
        Transparent = True
        OnClick = ChangeViewLabelClick
      end
    end
    object MVBackPanel: TContainerPanel
      Left = 128
      Top = 198
      Width = 581
      Height = 337
      FrameRect.Left = 0
      FrameRect.Top = 0
      FrameRect.Right = 0
      FrameRect.Bottom = 0
      Color = clNone
      TabOrder = 2
      object VertScrollBar: TLMScrollBar
        Left = 478
        Top = 34
        Width = 37
        Height = 170
        Cursor = crHandPoint
        Ctl3D = False
        LargeChange = 9999
        ParentCtl3D = False
        SmallChange = 15
        TabOrder = 1
        Visible = False
        ScrolledControl = MVScrollBox
        Color = clRed
        Kind = sbVertical
        BodyBMP = VBody
        UpArrowBMP = VArrows
        UpArrowBMPColumn = 0
        DnArrowBMP = VArrows
        DnArrowBMPColumn = 1
        ThumbBMP = VThumb
        ThumbTopSize = 8
        ThumbBottomsize = 8
        SBStyle = [ssTOEFL]
      end
      object MVScrollBox: TLMScrollBox
        Left = 56
        Top = 30
        Width = 409
        Height = 241
        HorzScrollBar.Visible = False
        VertScrollBar.Visible = False
        LMScrollBar = VertScrollBar
        Color = clYellow
        ParentColor = False
        TabOrder = 0
        OnPaintBkgnd = MVScrollBoxPaintBkgnd
        object Medview: TMedview
          Left = 0
          Top = 0
          Width = 355
          Height = 239
          PopupMenu = MVPopupMenu
          TabOrder = 0
          OnHotspotClicked = MedviewHotspotClicked
          OnTopicChanged = MedviewTopicChanged
          OnTopicChanging = MedviewTopicChanging
          OnMouseUpSR = MedviewMouseUpSR
          ControlData = {
            01000100B1240000B41800002000000000000000074D6564566965770000803F
            0000803F0000803F0000803FFFFF0000FFFFFF00C0C0C0000000000000000000
            0000000064000000000000000000000001FFFFFF000100000000000000000001
            01010000000000020000000000000000000000FFFFFFFF0000020000000000}
        end
      end
    end
    object BottomPanel: TContainerPanel
      Left = 118
      Top = 554
      Width = 721
      Height = 69
      OnPaintBkgnd = BottomPanelPaintBkgnd
      OnResize = BottomPanelResize
      FrameRect.Left = 0
      FrameRect.Top = 0
      FrameRect.Right = 0
      FrameRect.Bottom = 0
      TabOrder = 3
      object RubricLabel: TLabel
        Left = 332
        Top = 7
        Width = 61
        Height = 22
        Alignment = taCenter
        Caption = 'Rubric'
        Color = clNavy
        Font.Charset = ANSI_CHARSET
        Font.Color = clSilver
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object PrevTopic: TPaintedButton
        Left = 12
        Top = 16
        Width = 36
        Height = 36
        Cursor = crHandPoint
        OnClick = PrevTopicClick
        RegLeft = 0
        RegTop = 0
        RegUssages = [uf_HitTest, uf_Clipping]
        BitmapArray = ButtonsBA
        FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
        BARows = 0
        BmpArrayColumn = 0
        Caption = '<<'
        Style = pbs_Button
      end
      object NextTopic: TPaintedButton
        Left = 666
        Top = 18
        Width = 36
        Height = 36
        Cursor = crHandPoint
        OnClick = NextTopicClick
        RegLeft = 0
        RegTop = 0
        RegUssages = [uf_HitTest, uf_Clipping]
        BitmapArray = ButtonsBA
        FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
        BARows = 0
        BmpArrayColumn = 1
        Caption = '>>'
        Style = pbs_Button
      end
    end
    object RightPanel: TContainerPanel
      Left = 846
      Top = 108
      Width = 49
      Height = 431
      OnPaintBkgnd = RightPanelPaintBkgnd
      FrameRect.Left = 0
      FrameRect.Top = 0
      FrameRect.Right = 0
      FrameRect.Bottom = 0
      TabOrder = 4
    end
  end
  inherited PaletteBMP: TBmpArray
    FileName = ''
    Picture.Data = {00}
    Left = 17
    Top = 59
  end
  object TopBtns: TBmpArray
    FileName = 'Design\Picts\HorniLista\Tlacitka.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Collumns = 6
    Rows = 4
    Picture.Data = {<image001.bmp>}
    Left = 68
    Top = 62
  end
  object HistoryListEx: THistoryListEx
    OnChanged = HistoryListExChanged
    OnJumpToItem = HistoryListExJumpToItem
    Left = 38
    Top = 92
  end
  object ArticleLeftPanelBA: TBmpArray
    FileName = 'Design\Picts\02 Casopis\LeftCas.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image002.bmp>}
    Left = 86
    Top = 112
  end
  object VThumb: TBmpArray
    FileName = 'Design\Picts\SBars\Palec1.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image003.bmp>}
    Left = 219
    Top = 236
  end
  object VArrows: TBmpArray
    FileName = 'Design\Picts\SBars\Sipky1.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Collumns = 2
    Rows = 2
    Picture.Data = {<image004.bmp>}
    Left = 273
    Top = 236
  end
  object VBody: TBmpArray
    FileName = 'Design\Picts\SBars\Carka1.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image005.bmp>}
    Left = 319
    Top = 238
  end
  object SchoolsLeftPanelBA: TBmpArray
    FileName = 'Design\Picts\03 Schools\LeftSHK.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image006.bmp>}
    Left = 88
    Top = 154
  end
  object LeftTopPanelBA: TBmpArray
    FileName = 'Design\Picts\Panely\TopPanely.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Rows = 4
    Picture.Data = {<image007.bmp>}
    Left = 114
    Top = 64
  end
  object SchoolMiniTopPanelBA: TBmpArray
    FileName = 'Design\Picts\03 Schools\MiniTopSHK.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image008.bmp>}
    Left = 172
    Top = 98
  end
  object GaugeBody: TBmpArray
    FileName = 'Design\Picts\Ovladac\TeloSoupatka.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image009.bmp>}
    Left = 400
    Top = 12
  end
  object GaugeThumb: TBmpArray
    FileName = 'Design\Picts\Ovladac\Soupatko.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Rows = 2
    Picture.Data = {<image010.bmp>}
    Left = 406
    Top = 68
  end
  object PlayerBtns: TBmpArray
    FileName = 'Design\Picts\Ovladac\AudioBtns.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Collumns = 5
    Rows = 4
    Picture.Data = {<image011.bmp>}
    Left = 162
    Top = 54
  end
  object PlayerPict: TBmpArray
    FileName = 'Design\Picts\Ovladac\AudioPanel.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image012.bmp>}
    Left = 338
    Top = 96
  end
  object ArticleMiniTopPanelBA: TBmpArray
    FileName = 'Design\Picts\02 Casopis\MiniTopCAS.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image013.bmp>}
    Left = 262
    Top = 116
  end
  object SchoolsRightPanel: TBmpArray
    FileName = 'Design\Picts\03 Schools\RightSHK.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image014.bmp>}
    Left = 808
    Top = 124
  end
  object ArticleRightPanel: TBmpArray
    FileName = 'Design\Picts\02 Casopis\RightCAS.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image015.bmp>}
    Left = 808
    Top = 188
  end
  object SchoolBottomPanel: TBmpArray
    FileName = 'Design\Picts\03 Schools\BottomSHK.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image016.bmp>}
    Left = 188
    Top = 570
  end
  object ArticleBottomPanel: TBmpArray
    FileName = 'Design\Picts\02 Casopis\BottomCas.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Picture.Data = {<image017.bmp>}
    Left = 286
    Top = 568
  end
  object ButtonsBA: TBmpArray
    FileName = 'Design\Picts\02 Casopis\BtRuzky.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Collumns = 2
    Rows = 4
    Picture.Data = {<image018.bmp>}
    Left = 382
    Top = 574
  end
  object MVPopupMenu: TPopupMenu
    Left = 394
    Top = 290
    object PismoVelke: TMenuItem
      Caption = 'Velk� p�smo'
      GroupIndex = 5
      RadioItem = True
      OnClick = PismoVelkeClick
    end
    object PismoNormalni: TMenuItem
      Caption = 'Norm�ln�  p�smo'
      Checked = True
      GroupIndex = 5
      RadioItem = True
      OnClick = PismoNormalniClick
    end
    object PismoMale: TMenuItem
      Caption = 'Mal� p�smo'
      GroupIndex = 5
      RadioItem = True
      OnClick = PismoMaleClick
    end
    object N1: TMenuItem
      Caption = '-'
      GroupIndex = 5
    end
    object KopirovaniVyberu: TMenuItem
      Caption = 'Kop�rov�n� v�b�ru'
      GroupIndex = 5
      OnClick = KopirovaniVyberuClick
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 5
    end
    object TiskAktualnihoHesla: TMenuItem
      Caption = 'Tisk str�nky'
      GroupIndex = 5
      OnClick = TiskAktualnihoHeslaClick
    end
  end
end