home *** CD-ROM | disk | FTP | other *** search
- 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 = 'Linkes Auge'
- 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 = 'Rechtes Auge'
- 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-Bild'
- 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 = 'Bild'
- object myRxLabel1: TmyRxLabel
- Left = 12
- Top = 0
- Width = 68
- Height = 13
- Caption = '3D-Verfahren:'
- ShadowSize = 0
- end
- object previewButton: TRxSpeedButton
- Left = 6
- Top = 196
- Width = 79
- Height = 21
- Hint =
- 'Dr�cken Sie hier, um den Filter auf'#13#10'das Vorschaubild anzuwenden' +
- '.'
- AllowAllUp = True
- GroupIndex = 10
- Caption = 'Vorschau'
- OnClick = previewbuttonClick
- end
- object previewspeedbutton: TRxSpeedButton
- Left = 86
- Top = 196
- Width = 21
- Height = 21
- Hint = 'Automatische �berpr�fung'
- 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 = 'Rot-Blau Brille'
- OnChange = previewspeedbuttonClick
- Items.Strings = (
- 'Rot-Blau Brille'
- 'Rot-Gr�n Brille'
- 'Rot-Blau-Brille (Farbe)'
- 'Monotones Bild'
- 'Parallel'
- 'Gekreuzt'
- 'Spiegel'
- 'Shutterbrille')
- Itemindex = 0
- end
- object Button5: TButton
- Left = 8
- Top = 44
- Width = 137
- Height = 21
- Caption = 'Hilfe zu 3D-Verfahren'
- TabOrder = 1
- OnClick = Button5Click
- end
- object Button2: TButton
- Left = 6
- Top = 224
- Width = 85
- Height = 25
- Caption = 'Erzeuge Bild'
- TabOrder = 2
- OnClick = Button2Click
- end
- object Button8: TButton
- Tag = 1
- Left = 8
- Top = 124
- Width = 93
- Height = 21
- HelpContext = 352
- Caption = '3D-Gitter Hilfe ...'
- TabOrder = 3
- OnClick = Button6Click
- end
- object Button1: TButton
- Left = 8
- Top = 96
- Width = 81
- Height = 21
- Caption = 'Bild laden ...'
- TabOrder = 4
- OnClick = Button1Click
- end
- object Button7: TButton
- Left = 8
- Top = 152
- Width = 69
- Height = 21
- Caption = 'JPS laden...'
- TabOrder = 5
- OnClick = Button1Click
- end
- object Button9: TButton
- Left = 76
- Top = 152
- Width = 85
- Height = 21
- Caption = 'JPS speichern...'
- TabOrder = 6
- OnClick = Button9Click
- end
- end
- object TabSheet3: TTabSheet
- Caption = '�ndern'
- ImageIndex = 2
- object myRxLabel2: TmyRxLabel
- Left = 4
- Top = 12
- Width = 55
- Height = 13
- Caption = 'Bewegen'
- 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 = 'Drehen'
- 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 = 'Schrittweite:'
- ShadowSize = 0
- end
- object myRxLabel11: TmyRxLabel
- Tag = 1
- Left = 4
- Top = 128
- Width = 60
- Height = 13
- Caption = 'Schrittweite:'
- ShadowSize = 0
- end
- object myRxLabel12: TmyRxLabel
- Tag = 1
- Left = 4
- Top = 184
- Width = 55
- Height = 13
- Caption = 'Skalierung:'
- 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 =
- 'Dr�cken Sie hier, um den Filter auf'#13#10'das Vorschaubild anzuwenden' +
- '.'
- AllowAllUp = True
- GroupIndex = 10
- Down = True
- Caption = 'Los'
- end
- object myRxLabel13: TmyRxLabel
- Left = 8
- Top = 144
- Width = 85
- Height = 13
- Alignment = taRightJustify
- Caption = 'Wiederholrate (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 = 'Aus dem Monitor heraus'
- 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-Kreisbahn'
- Checked = True
- State = cbChecked
- TabOrder = 5
- end
- object CheckBox5: TCheckBox
- Left = 8
- Top = 168
- Width = 101
- Height = 17
- Caption = 'Objekt wechseln'
- Checked = True
- State = cbChecked
- TabOrder = 6
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Brille'
- ImageIndex = 1
- object Label2: TLabel
- Left = 12
- Top = 188
- Width = 149
- Height = 37
- AutoSize = False
- Caption =
- 'Brillentest: Farbe des jeweils anderen Brillenglasses sollte ver' +
- 'schwinden.'
- WordWrap = True
- end
- object Button3: TButton
- Left = 12
- Top = 8
- Width = 137
- Height = 21
- Caption = 'Rot-Blau Brille drucken ...'
- TabOrder = 0
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 12
- Top = 36
- Width = 137
- Height = 21
- Caption = 'Rot-Gr�n Brille drucken ...'
- TabOrder = 1
- OnClick = Button3Click
- end
- object Button6: TButton
- Left = 12
- Top = 64
- Width = 137
- Height = 21
- HelpContext = 351
- Caption = 'Hilfe zum drucken'
- 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 = 'Ausgabe'
- ImageIndex = 4
- object myRxLabel14: TmyRxLabel
- Tag = 1
- Left = 5
- Top = 116
- Width = 122
- Height = 13
- Caption = 'Abstand zwischen Augen'
- ShadowSize = 0
- end
- object myRxLabel15: TmyRxLabel
- Tag = 1
- Left = 7
- Top = 180
- Width = 114
- Height = 13
- Caption = 'Entfernung zum 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 = 'Ausgabegr��e festlegen'
- 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
-