Chip Hitware 7/Chip_Hitware_Vol_07.iso/chiphit7/online/95framit/frameit.exe/0/RCDATA/TFRAMEFRM/TFRAMEFRM.txt

Text File | 1996-11-19 | 24KB | 943 lines

object FrameFrm: TFrameFrm
  Left = 75
  Top = 99
  BorderIcons = [biMinimize]
  BorderStyle = bsSingle
  Caption = 'Frame-It '
  ClientHeight = 421
  ClientWidth = 592
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Back_Btn: TButton
    Left = 373
    Top = 386
    Width = 70
    Height = 28
    Caption = '&Back'
    Enabled = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Back_BtnClick
  end
  object Next_btn: TButton
    Left = 444
    Top = 386
    Width = 70
    Height = 28
    Caption = '&Next'
    TabOrder = 1
    OnClick = Next_btnClick
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 0
    Width = 592
    Height = 385
    Align = alTop
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    PageIndex = 3
    ParentFont = False
    TabOrder = 2
    OnMouseMove = Notebook1MouseMove
    object TPage
      Left = 0
      Top = 0
      Caption = 'Start'
      object Bevel1: TBevel
        Left = 142
        Top = 5
        Width = 443
        Height = 173
        Shape = bsFrame
      end
      object Shape2: TShape
        Left = 4
        Top = 5
        Width = 134
        Height = 34
        Brush.Color = 8454143
      end
      object Shape3: TShape
        Left = 4
        Top = 41
        Width = 134
        Height = 136
        Brush.Color = clRed
      end
      object Shape1: TShape
        Left = 4
        Top = 186
        Width = 33
        Height = 178
        Brush.Color = clBlue
      end
      object Shape4: TShape
        Left = 39
        Top = 186
        Width = 99
        Height = 178
        Brush.Color = clLime
      end
      object Bevel2: TBevel
        Left = 142
        Top = 187
        Width = 443
        Height = 178
        Shape = bsFrame
      end
      object Label4: TLabel
        Left = 164
        Top = 210
        Width = 281
        Height = 30
        Alignment = taCenter
        AutoSize = False
        Caption = 'What is the basic structure of the frames, Is it ....'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Counter_Label: TLabel
        Left = 344
        Top = 306
        Width = 59
        Height = 13
        Caption = 'No. of Rows'
      end
      object Image1: TImage
        Left = 173
        Top = 48
        Width = 330
        Height = 85
        Picture.Data = {<image001.bmp>}
      end
      object Row_Rad: TRadioButton
        Left = 307
        Top = 244
        Width = 205
        Height = 17
        Caption = '&Row orientated (like top diagram)'
        Checked = True
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 0
        TabStop = True
        OnClick = Row_RadClick
      end
      object Col_Rad: TRadioButton
        Left = 306
        Top = 264
        Width = 203
        Height = 17
        Caption = '&Column orientated (bottom diagram)'
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 1
        OnClick = Col_RadClick
      end
      object CounterSpinEdit: TSpinEdit
        Left = 413
        Top = 301
        Width = 39
        Height = 22
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        MaxValue = 10
        MinValue = 2
        ParentFont = False
        TabOrder = 2
        Value = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Design'
      object Label1: TLabel
        Left = 3
        Top = 20
        Width = 69
        Height = 13
        Caption = '&Name of frame'
        FocusControl = FrameName
      end
      object Label5: TLabel
        Left = 9
        Top = 64
        Width = 45
        Height = 13
        Caption = '&Filename '
        FocusControl = FrameFileName
      end
      object SpeedButton1: TSpeedButton
        Left = 159
        Top = 84
        Width = 20
        Height = 21
        Hint = 'Locate a filename'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555555555555555555555555555555555555555555
          555555555555555555555555555555555555555FFFFFFFFFF555550000000000
          55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
          B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
          000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
          555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
          55555575FFF75555555555700007555555555557777555555555555555555555
          55555555555555555555555555555555555555555555555555550000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object Label9: TLabel
        Left = 0
        Top = 0
        Width = 592
        Height = 19
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'Select a frame, then set its attributes using the fields below'
      end
      object Label13: TLabel
        Left = 113
        Top = 20
        Width = 86
        Height = 11
        AutoSize = False
        Visible = False
      end
      object Bevel3: TBevel
        Left = 187
        Top = 17
        Width = 397
        Height = 363
        Shape = bsFrame
      end
      object FrameName: TEdit
        Left = 3
        Top = 35
        Width = 176
        Height = 21
        HelpContext = 10
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnEnter = FrameFileNameEnter
        OnExit = FrameNameExit
      end
      object FrameFileName: TEdit
        Left = 3
        Top = 82
        Width = 154
        Height = 21
        Hint = 'File to be displayed within current frame.'
        HelpContext = 11
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnEnter = FrameFileNameEnter
        OnExit = FrameFileNameExit
      end
      object GroupBox1: TGroupBox
        Left = 3
        Top = 129
        Width = 175
        Height = 191
        Caption = '&Appearance'
        TabOrder = 2
        object Label8: TLabel
          Left = 119
          Top = 37
          Width = 40
          Height = 13
          Caption = '&Scrolling'
          FocusControl = ScrollingComboBox
        end
        object ScrollingComboBox: TComboBox
          Left = 117
          Top = 53
          Width = 52
          Height = 21
          HelpContext = 14
          Style = csDropDownList
          Color = clWhite
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'auto'
            'no'
            'yes')
          ParentFont = False
          TabOrder = 0
          OnEnter = FrameFileNameEnter
        end
        object AutoResizeCheckBox: TCheckBox
          Left = 11
          Top = 102
          Width = 158
          Height = 17
          HelpContext = 15
          Caption = '&No Automatic Border Resize'
          TabOrder = 1
        end
        object GroupBox4: TGroupBox
          Left = 5
          Top = 122
          Width = 165
          Height = 67
          Caption = '&Frame dimensions'
          TabOrder = 2
          object Label17: TLabel
            Left = 42
            Top = 44
            Width = 45
            Height = 13
            Caption = 'Width (%)'
          end
          object Label18: TLabel
            Left = 43
            Top = 18
            Width = 48
            Height = 13
            Caption = 'Height (%)'
          end
          object WidthSpinEdit: TSpinEdit
            Left = 100
            Top = 39
            Width = 40
            Height = 22
            HelpContext = 16
            Color = clWhite
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            Font.Style = []
            MaxValue = 100
            MinValue = 1
            ParentFont = False
            TabOrder = 0
            Value = 1
            OnChange = WidthSpinEditChange
            OnEnter = FrameFileNameEnter
          end
          object HeightSpinEdit: TSpinEdit
            Left = 100
            Top = 14
            Width = 40
            Height = 22
            HelpContext = 17
            MaxValue = 100
            MinValue = 1
            TabOrder = 1
            Value = 1
            OnChange = HeightSpinEditChange
            OnEnter = FrameFileNameEnter
          end
        end
        object Margins: TGroupBox
          Left = 9
          Top = 17
          Width = 95
          Height = 84
          Caption = '&Margins'
          TabOrder = 3
          object Label6: TLabel
            Left = 9
            Top = 19
            Width = 28
            Height = 13
            Caption = '&Width'
            FocusControl = MarginWidth
          end
          object Label7: TLabel
            Left = 54
            Top = 21
            Width = 31
            Height = 13
            Caption = '&Height'
            FocusControl = MarginHeight
          end
          object aaa: TLabel
            Left = 25
            Top = 64
            Width = 37
            Height = 13
            Caption = 'in pixels'
          end
          object MarginWidth: TEdit
            Left = 5
            Top = 36
            Width = 37
            Height = 21
            HelpContext = 12
            Color = clWhite
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnEnter = FrameFileNameEnter
          end
          object MarginHeight: TEdit
            Left = 47
            Top = 36
            Width = 37
            Height = 21
            HelpContext = 13
            Color = clWhite
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnEnter = FrameFileNameEnter
          end
        end
      end
      object Split_Btn: TButton
        Left = 8
        Top = 328
        Width = 169
        Height = 26
        Hint = 'Subdivide the currently selected frame'
        HelpContext = 18
        Caption = '&Split Frame'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = Split_BtnClick
      end
      object Delete_Btn: TButton
        Left = 7
        Top = 354
        Width = 170
        Height = 26
        Hint = 'Delete the active frame.'
        HelpContext = 19
        Caption = '&Delete Frame'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = Delete_BtnClick
      end
      object FileNameCheckBox: TCheckBox
        Left = 113
        Top = 65
        Width = 64
        Height = 15
        Caption = 'No Paths'
        State = cbChecked
        TabOrder = 5
        OnClick = FileNameCheckBoxClick
      end
      object Invisible_CheckBox: TCheckBox
        Left = 25
        Top = 110
        Width = 148
        Height = 17
        Caption = '&Invisible Frame Borders'
        TabOrder = 6
        OnClick = Invisible_CheckBoxClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'NoFrames'
      object Label10: TLabel
        Left = 0
        Top = 0
        Width = 592
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = 'Setup the screen for Frame Challenged Browsers'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 226
        Top = 20
        Width = 95
        Height = 13
        Caption = '&Text to be displayed'
      end
      object PasteFromClipBoard_BTn: TButton
        Left = 440
        Top = 350
        Width = 110
        Height = 24
        Caption = '&Paste from Clipboard'
        TabOrder = 0
        OnClick = PasteFromClipBoard_BTnClick
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 274
        Width = 215
        Height = 69
        Caption = 'Background Image'
        TabOrder = 1
        object Label24: TLabel
          Left = 8
          Top = 12
          Width = 51
          Height = 13
          Caption = 'Image file :'
        end
        object Label25: TLabel
          Left = 106
          Top = 50
          Width = 3
          Height = 13
          Visible = False
        end
        object ImageBrowse_Btn: TSpeedButton
          Left = 184
          Top = 26
          Width = 24
          Height = 21
          Hint = 'Browse for image file '
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            5555555555555555555555555555555555555555555555555555555555555555
            555555555555555555555555555555555555555FFFFFFFFFF555550000000000
            55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
            B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
            000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
            555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
            55555575FFF75555555555700007555555555557777555555555555555555555
            55555555555555555555555555555555555555555555555555550000}
          NumGlyphs = 2
          OnClick = ImageBrowse_BtnClick
        end
        object ImageFileName: TEdit
          Left = 8
          Top = 26
          Width = 175
          Height = 21
          HelpContext = 20
          TabOrder = 0
          OnExit = ImageFileNameExit
        end
        object FullPathCheckBox: TCheckBox
          Left = 8
          Top = 48
          Width = 86
          Height = 17
          HelpContext = 21
          Caption = 'Use Full Path'
          TabOrder = 1
          OnClick = FullPathCheckBoxClick
        end
      end
      object LoadAFile_Btn: TButton
        Left = 226
        Top = 349
        Width = 110
        Height = 24
        Caption = '&Load a File'
        TabOrder = 2
        OnClick = LoadAFile_BtnClick
      end
      object GroupBox2: TGroupBox
        Left = 7
        Top = 18
        Width = 216
        Height = 256
        Caption = 'Colors'
        TabOrder = 3
        object LinksColour_Btn: TSpeedButton
          Left = 4
          Top = 226
          Width = 208
          Height = 25
          Caption = '&Links'
          OnClick = LinksColour_BtnClick
        end
        object BackgroundColour_Btn: TSpeedButton
          Left = 4
          Top = 173
          Width = 208
          Height = 25
          Caption = '&Background'
          OnClick = BackgroundColour_BtnClick
        end
        object Text_Colour_Btn: TSpeedButton
          Left = 4
          Top = 200
          Width = 208
          Height = 25
          Caption = '&Text'
          OnClick = Text_Colour_BtnClick
        end
        object Viewer1: THTMLViewer
          Left = 4
          Top = 15
          Width = 209
          Height = 155
          Cursor = crIBeam
          ViewImages = True
          TabOrder = 0
          BorderStyle = bsSingle
          HistoryMaxCount = 0
          DefFontName = 'Times New Roman'
          DefPreFontName = 'Courier New'
          NoSelect = False
        end
      end
      object MemoPad: TMemo
        Left = 226
        Top = 36
        Width = 326
        Height = 307
        TabOrder = 4
        OnChange = MemoPadChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Export'
      object Shape6: TShape
        Left = 8
        Top = 28
        Width = 152
        Height = 23
      end
      object Shape7: TShape
        Left = 8
        Top = 52
        Width = 152
        Height = 72
      end
      object Shape8: TShape
        Left = 8
        Top = 236
        Width = 20
        Height = 137
      end
      object Shape9: TShape
        Left = 29
        Top = 236
        Width = 131
        Height = 137
      end
      object Label11: TLabel
        Left = 238
        Top = 52
        Width = 274
        Height = 20
        AutoSize = False
        Caption = 'So that you can paste it directly into your webpage.'
      end
      object Label12: TLabel
        Left = 238
        Top = 112
        Width = 279
        Height = 20
        AutoSize = False
        Caption = 'This means you can retrieve it whenever you wish.'
      end
      object Browser_Address1: TLabel
        Left = 151
        Top = 2
        Width = 88
        Height = 13
        Caption = 'Browser_Address1'
        Visible = False
      end
      object Shape5: TShape
        Left = 8
        Top = 214
        Width = 152
        Height = 21
      end
      object Shape10: TShape
        Left = 8
        Top = 125
        Width = 152
        Height = 23
      end
      object Browser_Address_2: TLabel
        Left = 398
        Top = 5
        Width = 94
        Height = 13
        Caption = 'Browser_Address_2'
        Visible = False
      end
      object ClipBoard_Rad: TRadioButton
        Left = 186
        Top = 30
        Width = 198
        Height = 18
        HelpContext = 23
        Caption = '&Copy to Clipboard.'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object File_Rad: TRadioButton
        Left = 186
        Top = 94
        Width = 113
        Height = 17
        HelpContext = 24
        Caption = '&Save to a file.'
        TabOrder = 1
      end
      object GroupBox6: TGroupBox
        Left = 176
        Top = 245
        Width = 408
        Height = 71
        TabOrder = 2
        object Browser_Btn_1: TSpeedButton
          Left = 6
          Top = 10
          Width = 40
          Height = 40
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          OnClick = Browser_Btn_1Click
        end
        object Browser_Btn_2: TSpeedButton
          Left = 361
          Top = 10
          Width = 40
          Height = 40
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          OnClick = Browser_Btn_2Click
        end
        object Label14: TLabel
          Left = 79
          Top = 13
          Width = 229
          Height = 34
          Alignment = taCenter
          AutoSize = False
          Caption =
            'Try out your newly generated frames using your favourite web-bro' +
            'wsers.'
          WordWrap = True
        end
      end
      object PathCheckBox: TCheckBox
        Left = 186
        Top = 140
        Width = 193
        Height = 17
        Caption = 'Include File Paths in final output'
        TabOrder = 3
      end
    end
  end
  object Quit_Btn: TButton
    Left = 515
    Top = 386
    Width = 70
    Height = 28
    Caption = '&Quit'
    TabOrder = 3
    OnClick = Cancel_BtnClick
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Options = [ofHideReadOnly, ofPathMustExist]
    Left = 63
    Top = 390
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Left = 124
    Top = 390
  end
  object MainMenu1: TMainMenu
    Left = 93
    Top = 390
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Cancel_BtnClick
      end
    end
    object Frames1: TMenuItem
      Caption = '&Frames'
      ShortCut = 0
      object AddaRow1: TMenuItem
        Caption = 'Add a Row'
        Enabled = False
        ShortCut = 0
        OnClick = AddaRow1Click
      end
      object InsertaRow1: TMenuItem
        Caption = 'Insert a Row'
        Enabled = False
        ShortCut = 0
        OnClick = InsertRow_BtnClick
      end
      object DeleteRow1: TMenuItem
        Caption = 'Delete Row'
        Enabled = False
        ShortCut = 0
        OnClick = DeleteRow1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AddaColumn1: TMenuItem
        Caption = 'Add a Column'
        Enabled = False
        ShortCut = 0
        OnClick = AddaColumn1Click
      end
      object InsertaColumn1: TMenuItem
        Caption = 'Insert a Column'
        Enabled = False
        ShortCut = 0
        OnClick = InsertColumn_BtnClick
      end
      object DeleteaColumn1: TMenuItem
        Caption = 'Delete a Column'
        Enabled = False
        ShortCut = 0
        OnClick = DeleteaColumn1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object FlyByHelp1: TMenuItem
        Caption = '&Show fly-by help'
        ShortCut = 0
        OnClick = FlyByHelp1Click
      end
      object Includecomments1: TMenuItem
        Caption = '&Include comments'
        Checked = True
        ShortCut = 0
        OnClick = Includecomments1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object DefineBrowserLocations1: TMenuItem
        Caption = '&Define Browser Locations'
        ShortCut = 0
        OnClick = DefineBrowserLocations1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object HelpTopics1: TMenuItem
        Caption = '&Help Topics'
        HelpContext = 1
        ShortCut = 0
        OnClick = HelpTopics1Click
      end
      object Register1: TMenuItem
        Caption = '&Register'
        ShortCut = 0
        OnClick = Register_BtnClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 32
    Top = 390
  end
  object OpenDialog2: TOpenDialog
    FileEditStyle = fsEdit
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Left = 2
    Top = 390
  end
  object BrowserDDE: TDdeClientConv
    Left = 154
    Top = 390
  end
end