Bila Vrana/BILA_VRANA.iso/018A/WBIT32.ZIP/WEBIT32.EXE/0/RCDATA/TFRAMEFORM/TFRAMEFORM.txt

Text File | 1996-11-23 | 10KB | 454 lines

object FrameForm: TFrameForm
  Left = 113
  Top = 143
  Width = 568
  Height = 444
  Caption = 'Frame Creation'
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  TextHeight = 15
  object r1c1: TLabel
    Left = 116
    Top = 11
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r1c2: TLabel
    Left = 116
    Top = 34
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r2c1: TLabel
    Left = 116
    Top = 64
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r2c2: TLabel
    Left = 116
    Top = 87
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r3c1: TLabel
    Left = 116
    Top = 117
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r3c2: TLabel
    Left = 116
    Top = 141
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r1: TLabel
    Left = 180
    Top = 100
    Width = 7
    Height = 15
    Caption = '0'
  end
  object r2: TLabel
    Left = 230
    Top = 99
    Width = 7
    Height = 15
    Caption = '0'
  end
  object Label1: TLabel
    Left = 252
    Top = 4
    Width = 58
    Height = 15
    Caption = 'Page Title:'
  end
  object Memo1: TMemo
    Left = 238
    Top = 136
    Width = 291
    Height = 63
    Lines.Strings = (
      '<center><a href="set">Click to set up Frame</a>'

        '<center><h6>Click & drag seperator bars to create the size frame' +
        ' you need.'

        '  Move them to the far Right or Bottom to remove the frame.</h6>' +
        '</center>'
      '')
    ScrollBars = ssBoth
    TabOrder = 9
    Visible = False
  end
  object MainRows: TThreeWaySplitter
    Left = 0
    Top = 165
    Width = 560
    Height = 233
    Align = alBottom
    Bar1Color = clRed
    Bar2Color = clRed
    BarWidth = 3
    Color = clYellow
    Ctl3D = True
    DragCursor = crVSplit
    ParentCtl3D = False
    SplitDirection = sdHorizontal
    OnSplit1Move = MainRowsSplit1Move
    OnSplit2Move = MainRowsSplit2Move
    object Row1: TThreeWaySplitter
      Left = 1
      Top = 1
      Width = 558
      Height = 75
      Bar1Color = clBlue
      Bar2Color = clBlue
      BarWidth = 3
      BevelOuter = bvNone
      DragCursor = crHSplit
      Locked = True
      OnSplit1Move = Row1Split1Move
      OnSplit2Move = Row1Split2Move
      object Cell1: THTMLViewer
        Tag = 1
        Left = 0
        Top = 0
        Width = 183
        Height = 75
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 0
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
      object Cell2: THTMLViewer
        Tag = 2
        Left = 186
        Top = 0
        Width = 181
        Height = 75
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 1
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
      object Cell3: THTMLViewer
        Tag = 3
        Left = 370
        Top = 0
        Width = 188
        Height = 75
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 2
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
    end
    object Row2: TThreeWaySplitter
      Left = 1
      Top = 79
      Width = 558
      Height = 73
      Bar1Color = clBlue
      Bar2Color = clBlue
      BarWidth = 3
      BevelOuter = bvNone
      DragCursor = crHSplit
      OnSplit1Move = Row2Split1Move
      OnSplit2Move = Row2Split2Move
      object Cell4: THTMLViewer
        Tag = 4
        Left = 0
        Top = 0
        Width = 183
        Height = 73
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 0
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
      object cell5: THTMLViewer
        Tag = 5
        Left = 186
        Top = 0
        Width = 181
        Height = 73
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 1
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
      object Cell6: THTMLViewer
        Tag = 6
        Left = 370
        Top = 0
        Width = 188
        Height = 73
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 2
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
    end
    object Row3: TThreeWaySplitter
      Left = 1
      Top = 155
      Width = 558
      Height = 77
      Bar1Color = clBlue
      Bar2Color = clBlue
      BarWidth = 3
      BevelOuter = bvNone
      DragCursor = crHSplit
      OnSplit1Move = Row3Split1Move
      OnSplit2Move = Row3Split2Move
      object Cell7: THTMLViewer
        Tag = 7
        Left = 0
        Top = 0
        Width = 183
        Height = 77
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 0
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
      object Cell8: THTMLViewer
        Tag = 8
        Left = 186
        Top = 0
        Width = 181
        Height = 77
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 1
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
      object Cell9: THTMLViewer
        Tag = 9
        Left = 370
        Top = 0
        Width = 188
        Height = 77
        Cursor = crIBeam
        OnHotSpotClick = Cell1HotSpotClick
        ViewImages = False
        TabOrder = 2
        BorderStyle = bsSingle
        HistoryMaxCount = 0
        DefFontName = 'Times New Roman'
        DefPreFontName = 'Courier New'
      end
    end
  end
  object Row1Bar1: TScrollBar
    Left = 4
    Top = 7
    Width = 109
    Height = 20
    Max = 66
    Min = 10
    Position = 33
    TabOrder = 0
    OnChange = Row1Bar1Change
  end
  object Row1Bar2: TScrollBar
    Left = 4
    Top = 30
    Width = 109
    Height = 21
    Min = 34
    Position = 67
    TabOrder = 1
    OnChange = Row1Bar2Change
  end
  object Row2Bar2: TScrollBar
    Left = 4
    Top = 83
    Width = 109
    Height = 21
    Min = 34
    Position = 67
    TabOrder = 2
    OnChange = Row2Bar2Change
  end
  object Row2Bar1: TScrollBar
    Left = 4
    Top = 60
    Width = 109
    Height = 20
    Max = 66
    Min = 10
    Position = 33
    TabOrder = 3
    OnChange = Row2Bar1Change
  end
  object Row3Bar2: TScrollBar
    Left = 4
    Top = 137
    Width = 109
    Height = 21
    Min = 34
    Position = 67
    TabOrder = 4
    OnChange = Row3Bar2Change
  end
  object Row3Bar1: TScrollBar
    Left = 4
    Top = 114
    Width = 109
    Height = 20
    Max = 66
    Min = 10
    Position = 33
    TabOrder = 5
    OnChange = Row3Bar1Change
  end
  object Row1Height: TScrollBar
    Left = 153
    Top = 65
    Width = 21
    Height = 88
    Kind = sbVertical
    Max = 66
    Min = 10
    Position = 33
    TabOrder = 6
    OnChange = Row1HeightChange
  end
  object Row2Height: TScrollBar
    Left = 201
    Top = 65
    Width = 21
    Height = 88
    Kind = sbVertical
    Min = 34
    Position = 67
    TabOrder = 7
    OnChange = Row2HeightChange
  end
  object Orientation: TRadioGroup
    Left = 145
    Top = 5
    Width = 92
    Height = 55
    Caption = 'Orientation'
    ItemIndex = 0
    Items.Strings = (
      'By