Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/vulcan/vconv97.exe/0/RCDATA/TFRMCONV/TFRMCONV.txt

Text File | 1997-01-16 | 10KB | 390 lines

object frmConv: TfrmConv
  Tag = 8
  Left = 10
  Top = 92
  Width = 578
  Height = 379
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  ActiveControl = txtValue
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = mnuMain
  Position = poDefault
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnMouseUp = FormMouseUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object tabMain: TTabControl
    Left = 9
    Top = 6
    Width = 550
    Height = 316
    MultiLine = True
    TabIndex = 0
    TabOrder = 0
    Tabs.Strings = (
      'Length'
      'Area'
      'Volume'
      'Time'
      'Mass'
      'Liquid'
      'Pressure'
      'Power'
      'Energy'
      'Force'
      'Density'
      'Velocity'
      'Acceleration'
      'Temperature'
      'SI Prefixes')
    OnChange = tabMainChange
    object panMain: TPanel
      Left = 4
      Top = 42
      Width = 257
      Height = 139
      BevelOuter = bvNone
      BevelWidth = 2
      ParentColor = True
      TabOrder = 0
      object lblDimension: TLabel
        Left = 13
        Top = 38
        Width = 49
        Height = 13
        Alignment = taRightJustify
        Caption = '&Dimension'
        FocusControl = cboDimension
        Transparent = True
        OnClick = labelClick
      end
      object lblValue: TLabel
        Left = 37
        Top = 14
        Width = 27
        Height = 13
        Alignment = taRightJustify
        Caption = '&Value'
        FocusControl = txtValue
        Transparent = True
        OnClick = labelClick
      end
      object sgrMeas: TStringGrid
        Left = 7
        Top = 71
        Width = 240
        Height = 57
        ColCount = 2
        DefaultColWidth = 303
        DefaultDrawing = False
        FixedCols = 0
        RowCount = 1
        FixedRows = 0
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSelect, goThumbTracking]
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 2
        OnDrawCell = sgrMeasDrawCell
      end
      object cboDimension: TComboBox
        Left = 71
        Top = 37
        Width = 150
        Height = 21
        Style = csDropDownList
        DropDownCount = 20
        ItemHeight = 13
        TabOrder = 1
        OnClick = cboDimensionClick
      end
      object txtValue: TEdit
        Left = 71
        Top = 12
        Width = 150
        Height = 21
        MaxLength = 30
        TabOrder = 0
        OnChange = txtValueChange
      end
    end
  end
  object mnuMain: TMainMenu
    Left = 3
    object mnuFile: TMenuItem
      Caption = '&File'
      ShortCut = 0
      OnClick = mnuFileClick
      object mnuSaveAsText: TMenuItem
        Caption = 'Save As &Text'
        ShortCut = 0
        OnClick = mnuFileClick
      end
      object mnuSaveAsBitmap: TMenuItem
        Caption = 'Save As &Bitmap'
        ShortCut = 0
        OnClick = mnuFileClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuPrint: TMenuItem
        Caption = 'P&rint'
        ShortCut = 0
        OnClick = mnuFileClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuSetAsWallpaperTiled: TMenuItem
        Caption = 'Set As &Wallpaper (Tiled)'
        ShortCut = 0
        OnClick = mnuFileClick
      end
      object mnuSetAsWallpaperCentered: TMenuItem
        Caption = 'Set As Wa&llpaper (Centered)'
        ShortCut = 0
        OnClick = mnuFileClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = mnuFileClick
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      OnClick = mnuEditClick
      object mnuCut: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = mnuEditClick
      end
      object mnuCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = mnuEditClick
      end
      object mnuPaste: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = mnuEditClick
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuSelectAll: TMenuItem
        Caption = 'Select &All'
        ShortCut = 0
        OnClick = mnuEditClick
      end
    end
    object mnuSetup: TMenuItem
      Caption = '&Setup'
      ShortCut = 0
      object mnuHorGridlines: TMenuItem
        Caption = '&Horizontal Gridlines'
        ShortCut = 0
        OnClick = setupChanged
      end
      object mnuVerGridlines: TMenuItem
        Caption = '&Vertical Gridlines'
        ShortCut = 0
        OnClick = setupChanged
      end
      object mnuStretched: TMenuItem
        Caption = '&Stretch Cells Vertically'
        ShortCut = 0
        OnClick = setupChanged
      end
      object mnuHideAbout: TMenuItem
        Caption = 'Hide &About Window on Startup'
        ShortCut = 0
        OnClick = setupChanged
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuPrecision: TMenuItem
        Caption = '&Precision'
        ShortCut = 0
        object mnuScientific: TMenuItem
          Caption = '&Scientific'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu0Dec: TMenuItem
          Caption = '&Integers Only'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu1Dec: TMenuItem
          Caption = '&1 Decimal'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu2Dec: TMenuItem
          Caption = '&2 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu3Dec: TMenuItem
          Caption = '&3 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu4Dec: TMenuItem
          Caption = '&4 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu5Dec: TMenuItem
          Caption = '&5 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu6Dec: TMenuItem
          Caption = '&6 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu7Dec: TMenuItem
          Caption = '&7 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu8Dec: TMenuItem
          Caption = '&8 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu9Dec: TMenuItem
          Caption = '&9 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu10Dec: TMenuItem
          Caption = '10 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu11Dec: TMenuItem
          Caption = '11 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu12Dec: TMenuItem
          Caption = '12 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
        object mnu13Dec: TMenuItem
          Caption = '13 Decimals'
          ShortCut = 0
          OnClick = setupChanged
        end
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuFont: TMenuItem
        Caption = '&Font ...'
        ShortCut = 0
        OnClick = setupChanged
      end
    end
    object mnuRegister: TMenuItem
      Caption = '&Register'
      ShortCut = 0
      object mnuRegistrationForm: TMenuItem
        Caption = '&Registration Guide'
        ShortCut = 0
        OnClick = mnuRegistrationFormClick
      end
      object mnuRegCode: TMenuItem
        Caption = '&Enter Registration Code'
        ShortCut = 0
        OnClick = mnuRegCodeClick
      end
      object mnuExtendTrial: TMenuItem
        Caption = 'Extend &Trial Period'
        ShortCut = 0
        Visible = False
        OnClick = mnuExtendTrialClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object mnuHelpContents: TMenuItem
        Caption = '&Help'
        ShortCut = 112
        OnClick = mnuHelpContentsClick
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuCopyProgram: TMenuItem
        Caption = '&Copy Program for a Friend'
        ShortCut = 0
        OnClick = mnuCopyProgramClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuProducts: TMenuItem
        Caption = '&Latest VulcanSoft Products'
        ShortCut = 0
        OnClick = mnuProductsClick
      end
      object mnuAbout: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = mnuAboutClick
      end
    end
  end
  object dlgSave: TSaveDialog
    FileEditStyle = fsEdit
    Options = [ofOverwritePrompt, ofHideReadOnly, ofExtensionDifferent, ofPathMustExist, ofNoTestFileCreate]
    Left = 33
  end
  object dlgFont: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 63
  end
end