SimTwo/cameras.lfm at master · pmrelvas/SimTwo · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
object FCameras: TFCameras
  Left = 1256
  Height = 598
  Top = 178
  Width = 338
  Caption = 'Cameras'
  ClientHeight = 598
  ClientWidth = 338
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  OnCreate = FormCreate
  SessionProperties = 'CBSendImage.Checked;SBQuality.Position;Top;Left'
  LCLVersion = '1.8.2.0'
  object PageControl: TPageControl
    Left = 0
    Height = 569
    Top = 0
    Width = 338
    ActivePage = TabDefault
    Align = alTop
    TabIndex = 0
    TabOrder = 0
    object TabDefault: TTabSheet
      Caption = 'Default'
      ClientHeight = 543
      ClientWidth = 330
      object ImageCam: TImage
        Left = 0
        Height = 240
        Top = 244
        Width = 320
      end
      object Label1: TLabel
        Left = 176
        Height = 13
        Top = 492
        Width = 34
        Caption = 'deltaT:'
        ParentColor = False
      end
      object GLSceneViewer: TGLSceneViewer
        Left = 0
        Height = 240
        Top = 0
        Width = 320
        Camera = FViewer.GLCameraMem
        PostRender = GLSceneViewerPostRender
        Buffer.FogEnvironment.FogColor.Red = 0
        Buffer.FogEnvironment.FogColor.Green = 0.49803900718689
        Buffer.FogEnvironment.FogColor.Blue = 1
        Buffer.FogEnvironment.FogColor.Alpha = 1
        Buffer.FogEnvironment.FogColor.Color = {
          00000000F8FEFE3E0000803F0000803F
        }
        Buffer.FogEnvironment.FogStart = 1
        Buffer.FogEnvironment.FogEnd = 10
        Buffer.BackgroundColor = clBackground
        Buffer.AmbientColor.Red = 0.300000011920929
        Buffer.AmbientColor.Green = 0.300000011920929
        Buffer.AmbientColor.Blue = 0.300000011920929
        Buffer.AmbientColor.Alpha = 1
        Buffer.AmbientColor.Color = {
          9A99993E9A99993E9A99993E0000803F
        }
        Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
        Buffer.FogEnable = True
        FieldOfView = 134.760269165039
        TabOrder = 0
      end
      object SBQuality: TScrollBar
        Left = 0
        Height = 16
        Top = 515
        Width = 173
        Min = 1
        PageSize = 0
        Position = 1
        TabOrder = 1
        OnChange = SBQualityChange
      end
      object EditJPGQuality: TEdit
        Left = 176
        Height = 21
        Top = 512
        Width = 65
        TabOrder = 2
      end
      object EditJPGSize: TEdit
        Left = 244
        Height = 21
        Top = 512
        Width = 77
        TabOrder = 3
      end
      object CBShowJpeg: TCheckBox
        Left = 0
        Height = 19
        Top = 492
        Width = 72
        Caption = 'Show Jpeg'
        TabOrder = 4
      end
      object EditDeltaT: TEdit
        Left = 216
        Height = 21
        Top = 488
        Width = 105
        TabOrder = 5
      end
      object CBSendImage: TCheckBox
        Left = 80
        Height = 19
        Top = 492
        Width = 44
        Caption = 'Send'
        TabOrder = 6
      end
    end
  end
  object IniPropStorage: TIniPropStorage
    StoredValues = <>
    IniSection = 'Cameras'
    left = 94
    top = 163
  end
end