source: trunk/UFormSettings.fmx

Last change on this file was 2, checked in by chronos, 5 years ago
  • Added: Application which can connect to API and read credit status and show calls history.
File size: 5.6 KB
Line 
1object FormSettings: TFormSettings
2 Left = 0
3 Top = 0
4 Caption = 'Settings'
5 ClientHeight = 409
6 ClientWidth = 279
7 WindowState = wsMaximized
8 FormFactor.Width = 320
9 FormFactor.Height = 480
10 FormFactor.Devices = [Desktop]
11 OnClose = FormClose
12 DesignerMasterStyle = 3
13 object ToolBar1: TToolBar
14 Size.Width = 279.000000000000000000
15 Size.Height = 48.000000000000000000
16 Size.PlatformDefault = False
17 TabOrder = 0
18 object SpeedButtonBack: TSpeedButton
19 Align = Left
20 Size.Width = 48.000000000000000000
21 Size.Height = 48.000000000000000000
22 Size.PlatformDefault = False
23 StyleLookup = 'backtoolbutton'
24 OnClick = SpeedButtonBackClick
25 end
26 object Label1: TLabel
27 Align = Client
28 Size.Width = 231.000000000000000000
29 Size.Height = 48.000000000000000000
30 Size.PlatformDefault = False
31 Text = 'Settings'
32 TabOrder = 1
33 end
34 end
35 object Rectangle1: TRectangle
36 Align = Client
37 Fill.Color = claWhite
38 Size.Width = 279.000000000000000000
39 Size.Height = 361.000000000000000000
40 Size.PlatformDefault = False
41 Stroke.Color = claNull
42 object VertScrollBox1: TVertScrollBox
43 Align = Client
44 Size.Width = 279.000000000000000000
45 Size.Height = 361.000000000000000000
46 Size.PlatformDefault = False
47 TabOrder = 0
48 Viewport.Width = 279.000000000000000000
49 Viewport.Height = 361.000000000000000000
50 object RectangleServerUrl: TRectangle
51 Align = Top
52 Fill.Color = claNull
53 Size.Width = 279.000000000000000000
54 Size.Height = 50.000000000000000000
55 Size.PlatformDefault = False
56 Stroke.Color = claNull
57 OnClick = RectangleServerUrlClick
58 object Label6: TLabel
59 Align = Top
60 Margins.Left = 10.000000000000000000
61 Margins.Top = 5.000000000000000000
62 Margins.Right = 10.000000000000000000
63 Margins.Bottom = 5.000000000000000000
64 Position.X = 10.000000000000000000
65 Position.Y = 5.000000000000000000
66 Size.Width = 259.000000000000000000
67 Size.Height = 23.000000000000000000
68 Size.PlatformDefault = False
69 Text = 'Server URL'
70 TabOrder = 0
71 end
72 object Label7: TLabel
73 Align = Client
74 StyledSettings = [Family, Style, FontColor]
75 Margins.Left = 10.000000000000000000
76 Margins.Right = 10.000000000000000000
77 Margins.Bottom = 5.000000000000000000
78 Size.Width = 259.000000000000000000
79 Size.Height = 12.000000000000000000
80 Size.PlatformDefault = False
81 TextSettings.Font.Size = 10.000000000000000000
82 Text = 'Base internet address for API'
83 TabOrder = 1
84 end
85 end
86 object RectanglePassword: TRectangle
87 Align = Top
88 Fill.Color = claNull
89 Position.Y = 100.000000000000000000
90 Size.Width = 279.000000000000000000
91 Size.Height = 50.000000000000000000
92 Size.PlatformDefault = False
93 Stroke.Color = claNull
94 OnClick = RectanglePasswordClick
95 object Label4: TLabel
96 Align = Top
97 Margins.Left = 10.000000000000000000
98 Margins.Top = 5.000000000000000000
99 Margins.Right = 10.000000000000000000
100 Margins.Bottom = 5.000000000000000000
101 Position.X = 10.000000000000000000
102 Position.Y = 5.000000000000000000
103 Size.Width = 259.000000000000000000
104 Size.Height = 23.000000000000000000
105 Size.PlatformDefault = False
106 Text = 'Password'
107 TabOrder = 0
108 end
109 object Label5: TLabel
110 Align = Client
111 StyledSettings = [Family, Style, FontColor]
112 Margins.Left = 10.000000000000000000
113 Margins.Right = 10.000000000000000000
114 Margins.Bottom = 5.000000000000000000
115 Size.Width = 259.000000000000000000
116 Size.Height = 12.000000000000000000
117 Size.PlatformDefault = False
118 TextSettings.Font.Size = 10.000000000000000000
119 Text = 'Special password used for API access'
120 TabOrder = 1
121 end
122 end
123 object RectangleUserName: TRectangle
124 Align = Top
125 Fill.Color = claNull
126 Position.Y = 50.000000000000000000
127 Size.Width = 279.000000000000000000
128 Size.Height = 50.000000000000000000
129 Size.PlatformDefault = False
130 Stroke.Color = claNull
131 OnClick = RectangleUserNameClick
132 object Label2: TLabel
133 Align = Top
134 Margins.Left = 10.000000000000000000
135 Margins.Top = 5.000000000000000000
136 Margins.Right = 10.000000000000000000
137 Margins.Bottom = 5.000000000000000000
138 Position.X = 10.000000000000000000
139 Position.Y = 5.000000000000000000
140 Size.Width = 259.000000000000000000
141 Size.Height = 23.000000000000000000
142 Size.PlatformDefault = False
143 Text = 'User name'
144 TabOrder = 0
145 end
146 object Label3: TLabel
147 Align = Client
148 StyledSettings = [Family, Style, FontColor]
149 Margins.Left = 10.000000000000000000
150 Margins.Right = 10.000000000000000000
151 Margins.Bottom = 5.000000000000000000
152 Size.Width = 259.000000000000000000
153 Size.Height = 12.000000000000000000
154 Size.PlatformDefault = False
155 TextSettings.Font.Size = 10.000000000000000000
156 Text = 'ID of registered user of service'
157 TabOrder = 1
158 end
159 end
160 end
161 end
162end
Note: See TracBrowser for help on using the repository browser.