Chip 2001 September/Chip_2001-09_cd1.bin/sharewar/picmaster/picmaster.exe/picmaster.en/0/RCDATA/TANAGLYPHFORM/TANAGLYPHFORM.txt

Text File | 2001-05-24 | 16.8 KB | 717 lines

object anaglyphform: Tanaglyphform
  Left = 322
  Top = 793
  Width = 503
  Height = 336
  HelpContext = 35
  Caption = '3D'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 322
    Height = 309
    ActivePage = Tablefteye
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object Tablefteye: TTabSheet
      Caption = 'Left eye'
      object timageenlayer1: timageenlayer
        Left = 0
        Top = 0
        Width = 314
        Height = 281
        ParentCtl3D = False
        Align = alClient
        TabOrder = 0
        AutoUndo = False
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clWindowText
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
        NumLayers = 0
        LayerWidth = 39512644
        LayerHeight = 39512644
        TransparentColor = clBlack
        Transparent = False
      end
    end
    object Tabrighteye: TTabSheet
      Caption = 'Right eye'
      ImageIndex = 1
      object timageenlayer2: timageenlayer
        Left = 0
        Top = 0
        Width = 314
        Height = 281
        ParentCtl3D = False
        Align = alClient
        TabOrder = 0
        AutoUndo = False
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clWindowText
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
        NumLayers = 0
        LayerWidth = 39517596
        LayerHeight = 39517596
        TransparentColor = clBlack
        Transparent = False
      end
    end
    object tab3dpic: TTabSheet
      Caption = '3D-Image'
      ImageIndex = 2
      object timageenlayer3: timageenlayer
        Left = 0
        Top = 0
        Width = 314
        Height = 281
        ParentCtl3D = False
        Align = alClient
        TabOrder = 0
        AutoUndo = False
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clWindowText
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
        NumLayers = 0
        LayerWidth = 39465712
        LayerHeight = 39465712
        TransparentColor = clBlack
        Transparent = False
      end
    end
  end
  object PageControl2: TPageControl
    Left = 322
    Top = 0
    Width = 173
    Height = 309
    ActivePage = TabSheet1
    Align = alRight
    HotTrack = True
    MultiLine = True
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Image'
      object myRxLabel1: TmyRxLabel
        Left = 12
        Top = 0
        Width = 68
        Height = 13
        Caption = '3D-Method:'
        ShadowSize = 0
      end
      object previewButton: TRxSpeedButton
        Left = 6
        Top = 196
        Width = 79
        Height = 21
        Hint = 'Click here to use the filter on the preview image.'
        AllowAllUp = True
        GroupIndex = 10
        Caption = 'Preview'
        OnClick = previewbuttonClick
      end
      object previewspeedbutton: TRxSpeedButton
        Left = 86
        Top = 196
        Width = 21
        Height = 21
        Hint = 'Automatic Check'
        AllowAllUp = True
        GroupIndex = 5
        Glyph.Data = {
          7E010000424D7E01000000000000760000002800000013000000160000000100
          0400000000000801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777000007777777777777777777000007777777700000777777000007777
          7700777770077770000077777088780878807770000077770777780877770770
          0000777708887707788807700000777707777000777707700000777708888000
          88880770000077B707777777777707700000777B700000000000777000007777
          BBBB777707077770000077BBBB808BB70707777000007777BB07077707077770
          0000777B7B07077707077770000077B77B88700078877770000077777B707777
          70777770000077777B7700000777777000007777777777777777777000007777
          7777777777777770000077777777777777777770000077777777777777777770
          0000}
        OnClick = previewspeedbuttonClick
      end
      object mycombobox1: mycombobox
        Left = 8
        Top = 16
        Width = 149
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        Text = 'Red-Blue Glasses'
        OnChange = previewspeedbuttonClick
        Items.Strings = (
          'Red-Blue Glasses'
          'Red-Green Glasses'
          'Red-Blue-Glasses (Color)'
          'Monotone Image'
          'Parallel'
          'Crossed'
          'Mirror'
          'Shutterglasses')
        Itemindex = 0
      end
      object Button5: TButton
        Left = 8
        Top = 44
        Width = 137
        Height = 21
        Caption = 'Help For 3D-Methods'
        TabOrder = 1
        OnClick = Button5Click
      end
      object Button2: TButton
        Left = 6
        Top = 224
        Width = 85
        Height = 25
        Caption = 'Generate Image'
        TabOrder = 2
        OnClick = Button2Click
      end
      object Button8: TButton
        Tag = 1
        Left = 8
        Top = 124
        Width = 93
        Height = 21
        HelpContext = 352
        Caption = '3D-Meshes help ...'
        TabOrder = 3
        OnClick = Button6Click
      end
      object Button1: TButton
        Left = 8
        Top = 96
        Width = 81
        Height = 21
        Caption = 'Load Image ...'
        TabOrder = 4
        OnClick = Button1Click
      end
      object Button7: TButton
        Left = 8
        Top = 152
        Width = 69
        Height = 21
        Caption = 'Load JPS...'
        TabOrder = 5
        OnClick = Button1Click
      end
      object Button9: TButton
        Left = 76
        Top = 152
        Width = 85
        Height = 21
        Caption = 'Save JPS...'
        TabOrder = 6
        OnClick = Button9Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Move'
      ImageIndex = 2
      object myRxLabel2: TmyRxLabel
        Left = 4
        Top = 12
        Width = 55
        Height = 13
        Caption = 'Move'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ShadowSize = 0
      end
      object myRxLabel3: TmyRxLabel
        Left = 72
        Top = 12
        Width = 12
        Height = 13
        Caption = 'X:'
        ShadowSize = 0
      end
      object myRxLabel4: TmyRxLabel
        Left = 72
        Top = 36
        Width = 12
        Height = 13
        Caption = 'Y:'
        ShadowSize = 0
      end
      object myRxLabel5: TmyRxLabel
        Tag = 1
        Left = 72
        Top = 60
        Width = 12
        Height = 13
        Caption = 'Z:'
        ShadowSize = 0
      end
      object myRxLabel6: TmyRxLabel
        Left = 8
        Top = 100
        Width = 44
        Height = 13
        Caption = 'Rotate'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ShadowSize = 0
      end
      object myRxLabel7: TmyRxLabel
        Tag = 1
        Left = 72
        Top = 104
        Width = 12
        Height = 13
        Caption = 'X:'
        ShadowSize = 0
      end
      object myRxLabel8: TmyRxLabel
        Tag = 1
        Left = 72
        Top = 128
        Width = 12
        Height = 13
        Caption = 'Y:'
        ShadowSize = 0
      end
      object myRxLabel9: TmyRxLabel
        Tag = 1
        Left = 72
        Top = 152
        Width = 12
        Height = 13
        Caption = 'Z:'
        ShadowSize = 0
      end
      object myRxLabel10: TmyRxLabel
        Tag = 1
        Left = 4
        Top = 40
        Width = 60
        Height = 13
        Caption = 'Step Width:'
        ShadowSize = 0
      end
      object myRxLabel11: TmyRxLabel
        Tag = 1
        Left = 4
        Top = 128
        Width = 60
        Height = 13
        Caption = 'Step Width:'
        ShadowSize = 0
      end
      object myRxLabel12: TmyRxLabel
        Tag = 1
        Left = 4
        Top = 184
        Width = 55
        Height = 13
        Caption = 'Scale:'
        ShadowSize = 0
      end
      object Bevel1: TBevel
        Left = 4
        Top = 88
        Width = 157
        Height = 9
        Shape = bsTopLine
      end
      object Bevel2: TBevel
        Left = 4
        Top = 176
        Width = 157
        Height = 9
        Shape = bsTopLine
      end
      object myRxSpinEdit1: TRxSpinEdit
        Left = 96
        Top = 8
        Width = 65
        Height = 21
        TabOrder = 0
        OnChange = myRxSpinEdit1Change
      end
      object myRxSpinEdit2: TRxSpinEdit
        Left = 96
        Top = 32
        Width = 65
        Height = 21
        TabOrder = 1
        OnChange = myRxSpinEdit1Change
      end
      object myRxSpinEdit3: TRxSpinEdit
        Tag = 1
        Left = 96
        Top = 56
        Width = 65
        Height = 21
        TabOrder = 2
        OnChange = myRxSpinEdit1Change
      end
      object myRxSpinEdit4: TRxSpinEdit
        Left = 96
        Top = 100
        Width = 65
        Height = 21
        TabOrder = 3
        OnChange = myRxSpinEdit1Change
      end
      object myRxSpinEdit5: TRxSpinEdit
        Tag = 1
        Left = 96
        Top = 124
        Width = 65
        Height = 21
        TabOrder = 4
        OnChange = myRxSpinEdit1Change
      end
      object myRxSpinEdit6: TRxSpinEdit
        Tag = 1
        Left = 96
        Top = 148
        Width = 65
        Height = 21
        TabOrder = 5
        OnChange = myRxSpinEdit1Change
      end
      object myRxSpinEdit7: TRxSpinEdit
        Tag = 1
        Left = 8
        Top = 56
        Width = 57
        Height = 21
        Value = 50
        TabOrder = 6
        OnChange = myRxSpinEdit7Change
      end
      object myRxSpinEdit8: TRxSpinEdit
        Tag = 1
        Left = 8
        Top = 144
        Width = 57
        Height = 21
        Value = 5
        TabOrder = 7
        OnChange = myRxSpinEdit8Change
      end
      object RxSpinEdit1: TRxSpinEdit
        Tag = 1
        Left = 72
        Top = 180
        Width = 57
        Height = 21
        Increment = 0.100000000000000000
        ValueType = vtFloat
        Value = 1
        TabOrder = 8
        OnChange = myRxSpinEdit1Change
      end
    end
    object TabSheet4: TTabSheet
      Tag = 1
      Caption = 'Demo'
      ImageIndex = 3
      object RxSpeedButton1: TRxSpeedButton
        Left = 10
        Top = 232
        Width = 79
        Height = 21
        Hint = 'Click here to use the filter on the preview image.'
        AllowAllUp = True
        GroupIndex = 10
        Down = True
        Caption = 'Go'
      end
      object myRxLabel13: TmyRxLabel
        Left = 8
        Top = 144
        Width = 85
        Height = 13
        Alignment = taRightJustify
        Caption = 'Refresh Rate (s):'
        ShadowSize = 0
      end
      object CheckBox1: TCheckBox
        Left = 8
        Top = 60
        Width = 73
        Height = 21
        Caption = 'Z-Rotation'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 36
        Width = 73
        Height = 21
        Caption = 'Y-Rotation'
        Checked = True
        State = cbChecked
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 8
        Top = 12
        Width = 73
        Height = 21
        Caption = 'X-Rotation'
        Checked = True
        State = cbChecked
        TabOrder = 2
      end
      object CheckBox4: TCheckBox
        Left = 8
        Top = 88
        Width = 141
        Height = 21
        Caption = 'Emerge out of monitor'
        Checked = True
        State = cbChecked
        TabOrder = 3
      end
      object RxSpinEdit2: TRxSpinEdit
        Tag = 1
        Left = 100
        Top = 140
        Width = 53
        Height = 21
        MaxValue = 999999
        MinValue = 1
        Value = 15
        TabOrder = 4
        OnChange = myRxSpinEdit1Change
      end
      object CheckBox7: TCheckBox
        Left = 8
        Top = 112
        Width = 109
        Height = 21
        Caption = 'Z-Circle Path'
        Checked = True
        State = cbChecked
        TabOrder = 5
      end
      object CheckBox5: TCheckBox
        Left = 8
        Top = 168
        Width = 101
        Height = 17
        Caption = 'Change Object'
        Checked = True
        State = cbChecked
        TabOrder = 6
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Glasses'
      ImageIndex = 1
      object Label2: TLabel
        Left = 12
        Top = 188
        Width = 149
        Height = 37
        AutoSize = False
        Caption = 'Glasses Test: Color of the opposite glass should disappear.'
        WordWrap = True
      end
      object Button3: TButton
        Left = 12
        Top = 8
        Width = 137
        Height = 21
        Caption = 'Print Red-Blue Glasses ...'
        TabOrder = 0
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 12
        Top = 36
        Width = 137
        Height = 21
        Caption = 'Print Red-Green Glasses ...'
        TabOrder = 1
        OnClick = Button3Click
      end
      object Button6: TButton
        Left = 12
        Top = 64
        Width = 137
        Height = 21
        HelpContext = 351
        Caption = 'Help For Printing'
        TabOrder = 2
        OnClick = Button6Click
      end
      object ietester: timageenlayer
        Left = 12
        Top = 96
        Width = 130
        Height = 85
        ParentCtl3D = False
        TabOrder = 3
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clWindowText
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
        NumLayers = 0
        LayerWidth = 39542956
        LayerHeight = 39542956
        TransparentColor = clBlack
        Transparent = False
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Output'
      ImageIndex = 4
      object myRxLabel14: TmyRxLabel
        Tag = 1
        Left = 5
        Top = 116
        Width = 122
        Height = 13
        Caption = 'Distance between Eyes'
        ShadowSize = 0
      end
      object myRxLabel15: TmyRxLabel
        Tag = 1
        Left = 7
        Top = 180
        Width = 114
        Height = 13
        Caption = 'Distance to Monitor'
        ShadowSize = 0
      end
      object myRxLabel17: TmyRxLabel
        Left = 64
        Top = 52
        Width = 9
        Height = 13
        Caption = 'X'
        ShadowSize = 0
      end
      inline converterframe1: Tconverterframe
        Left = 6
        Top = 132
        OnClick = myRxSpinEdit1Change
      end
      inline converterframe2: Tconverterframe
        Left = 6
        Top = 196
        TabOrder = 1
        OnClick = myRxSpinEdit1Change
      end
      object CheckBox6: TCheckBox
        Left = 8
        Top = 24
        Width = 145
        Height = 21
        Caption = 'Set Output Size'
        TabOrder = 2
        OnClick = updateall
      end
      object RxSpinEdit3: TRxSpinEdit
        Left = 4
        Top = 48
        Width = 57
        Height = 21
        TabOrder = 3
        OnChange = RxSpinEdit3Change
      end
      object RxSpinEdit4: TRxSpinEdit
        Left = 80
        Top = 48
        Width = 61
        Height = 21
        TabOrder = 4
        OnChange = RxSpinEdit3Change
      end
    end
  end
  object formstorage1: tformstorage1
    IniFileName = '\software\PicMaster\storage'
    UseRegistry = True
    StoredProps.Strings = (
      'RxSpeedButton1.Down'
      'RxSpinEdit2.Value'
      'CheckBox7.Checked'
      'CheckBox4.Checked'
      'CheckBox3.Checked'
      'CheckBox2.Checked'
      'CheckBox1.Checked'
      'CheckBox6.Checked'
      'previewspeedbutton.Down'
      'mycombobox1.Itemindex'
      'RxSpinEdit3.Value'
      'RxSpinEdit4.Value'
      'myRxSpinEdit7.Value'
      'myRxSpinEdit8.Value')
    StoredValues = <
      item
        Name = 'anaglyphleft'
        Value = 'Images\left.png'
      end
      item
        Name = 'anaglyphright'
        Value = 'Images\right.png'
      end
      item
        Name = 'anaglyph3d'
      end
      item
        Name = 'mesh'
        Value = 'Images\cone.asc'
      end>
    AllwaysSave = True
    Left = 236
    Top = 272
  end
  object AppEvents1: TAppEvents
    OnIdle = AppEvents1Idle
    Left = 196
    Top = 274
  end
  object Timer1: TTimer
    Interval = 20000
    OnTimer = Timer1Timer
    Left = 442
    Top = 242
  end
end