Chip 2005 March/CMCD0305.ISO/LINUX/smoothwall/smoothwall-2.0-manuals.iso/dosutils/rawwritewin.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2000-12-02 | 7KB | 281 lines

object MainForm: TMainForm
  Left = 322
  Top = 281
  BorderStyle = bsSingle
  Caption = 'RawWrite'
  ClientHeight = 349
  ClientWidth = 361
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 16
    Top = 56
    Width = 57
    Height = 13
    Caption = 'Floppy drive'
  end
  object FloppyImage: TImage
    Left = 264
    Top = 64
    Width = 16
    Height = 9
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Label3: TLabel
    Left = 16
    Top = 8
    Width = 106
    Height = 13
    Caption = 'RawWrite for windows'
    OnDblClick = Label3DblClick
  end
  object Label4: TLabel
    Left = 16
    Top = 32
    Width = 121
    Height = 13
    Caption = 'Written by John Newbigin'
  end
  object Label5: TLabel
    Left = 168
    Top = 8
    Width = 177
    Height = 13
    Cursor = crDrag
    Caption = 'http://uranus.it.swin.edu.au/~jn/linux'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentColor = False
    ParentFont = False
    OnClick = Label5Click
  end
  object Label6: TLabel
    Left = 168
    Top = 32
    Width = 114
    Height = 13
    Cursor = crDrag
    Caption = 'mailto:[e-mail]'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = Label5Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 330
    Width = 361
    Height = 19
    Panels = <
      item
        Text = '0%'
        Width = 50
      end
      item
        Text = 'Version'
        Width = 50
      end>
    SimplePanel = False
  end
  object DriveComboBox: TComboBox
    Left = 88
    Top = 56
    Width = 169
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 1
    OnDrawItem = DriveComboBoxDrawItem
  end
  object Button3: TButton
    Left = 272
    Top = 296
    Width = 75
    Height = 25
    Caption = 'E&xit'
    TabOrder = 2
    OnClick = Button3Click
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 88
    Width = 329
    Height = 193
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Write'
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 45
        Height = 13
        Caption = 'Image file'
      end
      object FileNameEdit: TEdit
        Left = 80
        Top = 16
        Width = 169
        Height = 21
        TabOrder = 0
      end
      object Button1: TButton
        Left = 256
        Top = 16
        Width = 17
        Height = 21
        Caption = '...'
        TabOrder = 1
        OnClick = Button1Click
      end
      object DebugMemo: TMemo
        Left = 8
        Top = 48
        Width = 217
        Height = 93
        Lines.Strings = (
          'DebugMemo')
        ScrollBars = ssVertical
        TabOrder = 2
        Visible = False
      end
      object WriteButton: TButton
        Left = 238
        Top = 100
        Width = 75
        Height = 25
        Caption = '&Old Write'
        TabOrder = 3
        Visible = False
        OnClick = WriteButtonClick
      end
      object Button2: TButton
        Left = 238
        Top = 132
        Width = 75
        Height = 25
        Caption = '&Write'
        TabOrder = 4
        OnClick = Button2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Read'
      ImageIndex = 1
      object Label7: TLabel
        Left = 8
        Top = 16
        Width = 45
        Height = 13
        Caption = 'Image file'
      end
      object ReadFileNameEdit: TEdit
        Left = 80
        Top = 16
        Width = 169
        Height = 21
        TabOrder = 0
      end
      object Button4: TButton
        Left = 256
        Top = 16
        Width = 17
        Height = 21
        Caption = '...'
        TabOrder = 1
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 238
        Top = 132
        Width = 75
        Height = 25
        Caption = '&Read'
        TabOrder = 2
        OnClick = Button5Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'About'
      ImageIndex = 2
      object Memo1: TMemo
        Left = 8
        Top = 8
        Width = 305
        Height = 153
        Lines.Strings = (
          'RawWrite for windows version 0.3'
          'Written by John Newbigin'
          'Copyright (C) 2000 John Newbigin'
          ''
          'Under 95, this program requires diskio.dll.'
          ''
          'This program is a replacement for the traditional command '
          'line rawrite.  This version works under Windows NT and 95 '
          '(and 98 & 2000).'
          ''
          'It should be very easu to use, just select the drive you want '
          'to use, select the image file and hit read or write.'
          ''
          'This verson supports reading an image from a disk.  Only '
          '1.44 disks is supported at this time.  Writing to 1.2 drives '
          'might work.'
          ''
          'If your floppy drive is not listed in the combo box, please '
          'send me an e-mail and I will try and fix the problem.'
          ''
          'Copyright'
          '========'
          'This program is free software; you can redistribute it and/or '
          'modify it under the terms of the GNU General Public License '
          'as published by the Free Software Foundation; either '
          'version 2 of the License, or (at your option) any later '
          'version.'
          ''
          'This program is distributed in the hope that it will be useful, '
          'but WITHOUT ANY WARRANTY; without even the implied '
          'warranty of MERCHANTABILITY or FITNESS FOR A '
          'PARTICULAR PURPOSE.  See the GNU General Public '
          'License for more details.'
          ''
          'You should have received a copy of the GNU General '
          'Public License along with this program; if not, write to the '
          'Free Software Foundation, Inc., 675 Mass Ave, Cambridge, '
          'MA 02139, USA.')
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Options = [ofFileMustExist]
    Left = 200
    Top = 80
  end
  object SaveDialog1: TSaveDialog
    Filter = 'All files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 240
    Top = 80
  end
end