Luxophia
93 строки · 2.8 Кб
1object Form1: TForm1
2Left = 0
3Top = 0
4Caption = 'IsoVolumeViewer'
5ClientHeight = 440
6ClientWidth = 780
7Position = ScreenCenter
8FormFactor.Width = 320
9FormFactor.Height = 480
10FormFactor.Devices = [Desktop]
11OnCreate = FormCreate
12OnDestroy = FormDestroy
13DesignerMasterStyle = 0
14inline GLViewer1: TGLViewer
15Align = Client
16Margins.Left = 10.000000000000000000
17Margins.Top = 10.000000000000000000
18Margins.Right = 10.000000000000000000
19Margins.Bottom = 10.000000000000000000
20Size.Width = 590.000000000000000000
21Size.Height = 420.000000000000000000
22Size.PlatformDefault = False
23OnDblClick = GLViewer1DblClick
24OnMouseDown = GLViewer1MouseDown
25OnMouseMove = GLViewer1MouseMove
26OnMouseUp = GLViewer1MouseUp
27end
28object Panel1: TPanel
29Align = Right
30Margins.Left = -10.000000000000000000
31Position.X = 600.000000000000000000
32Size.Width = 180.000000000000000000
33Size.Height = 440.000000000000000000
34Size.PlatformDefault = False
35StyleLookup = 'pushpanel'
36TabOrder = 0
37object Button1: TButton
38Align = Bottom
39Margins.Left = 10.000000000000000000
40Margins.Top = 10.000000000000000000
41Margins.Right = 10.000000000000000000
42Margins.Bottom = 10.000000000000000000
43Position.X = 10.000000000000000000
44Position.Y = 380.000000000000000000
45Size.Width = 160.000000000000000000
46Size.Height = 50.000000000000000000
47Size.PlatformDefault = False
48TabOrder = 0
49Text = #1056#1077#1085#1076#1077#1088#1080#1085#1075
50TextSettings.Trimming = None
51OnClick = Button1Click
52end
53object ScrollBar1: TScrollBar
54Align = HorzCenter
55Max = 1.000000000000000000
56Value = 0.300000011920929000
57SmallChange = 0.000000000000000000
58Orientation = Vertical
59Margins.Left = 10.000000000000000000
60Margins.Right = 10.000000000000000000
61Position.X = 80.000000000000000000
62Position.Y = 70.000000000000000000
63Size.Width = 20.000000000000000000
64Size.Height = 300.000000000000000000
65Size.PlatformDefault = False
66TabOrder = 1
67OnChange = ScrollBar1Change
68end
69object Label1: TLabel
70Align = Top
71StyledSettings = [Family, Style, FontColor]
72Margins.Left = 10.000000000000000000
73Margins.Top = 10.000000000000000000
74Margins.Right = 10.000000000000000000
75Margins.Bottom = 10.000000000000000000
76Position.X = 10.000000000000000000
77Position.Y = 10.000000000000000000
78Size.Width = 160.000000000000000000
79Size.Height = 50.000000000000000000
80Size.PlatformDefault = False
81TextSettings.Font.Size = 20.000000000000000000
82TextSettings.HorzAlign = Center
83Text = '1.2345'
84TabOrder = 2
85end
86end
87object Timer1: TTimer
88Interval = 10
89OnTimer = Timer1Timer
90Left = 25
91Top = 25
92end
93end
94