Download as
Browse Code »

Commit a282100f7dbc9581897c20040158fd88544b6984

Authored by Carlos Picanco
1 parent d9ce2dcf
Exists in master

runner: change default of open dialog to ini

Showing 1 changed file with 87 additions and 86 deletions   Show diff stats
experiment_runner/form_matrixgame.lfm
  Diff comments   View file @a282100
... ... @@ -7,7 +7,7 @@ object FormMatrixGame: TFormMatrixGame
7 7 VertScrollBar.Page = 542
8 8 AutoScroll = True
9 9 Caption = 'Matrix'
10   - ClientHeight = 616
  10 + ClientHeight = 609
11 11 ClientWidth = 1167
12 12 Font.Name = 'Monospace'
13 13 OnActivate = FormActivate
... ... @@ -16,24 +16,24 @@ object FormMatrixGame: TFormMatrixGame
16 16 AnchorSideLeft.Control = GBIndividualAB
17 17 AnchorSideTop.Control = GBIndividualAB
18 18 Left = 800
19   - Height = 122
  19 + Height = 131
20 20 Top = 8
21   - Width = 170
  21 + Width = 162
22 22 AutoSize = True
23 23 Caption = 'Pontuação Individual'
24 24 ChildSizing.LeftRightSpacing = 35
25 25 ChildSizing.TopBottomSpacing = 45
26 26 ChildSizing.Layout = cclLeftToRightThenTopToBottom
27 27 ChildSizing.ControlsPerLine = 1
28   - ClientHeight = 105
29   - ClientWidth = 166
  28 + ClientHeight = 108
  29 + ClientWidth = 158
30 30 TabOrder = 7
31 31 Visible = False
32 32 object LabelIndCount: TLabel
33 33 Left = 35
34   - Height = 15
  34 + Height = 18
35 35 Top = 45
36   - Width = 96
  36 + Width = 88
37 37 Align = alClient
38 38 Alignment = taCenter
39 39 AutoSize = False
... ... @@ -71,9 +71,9 @@ object FormMatrixGame: TFormMatrixGame
71 71 end
72 72 object GBIndividualAB: TGroupBox
73 73 Left = 800
74   - Height = 122
  74 + Height = 135
75 75 Top = 8
76   - Width = 170
  76 + Width = 162
77 77 AutoSize = True
78 78 Caption = 'Pontuação Individual'
79 79 ChildSizing.LeftRightSpacing = 10
... ... @@ -83,14 +83,14 @@ object FormMatrixGame: TFormMatrixGame
83 83 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
84 84 ChildSizing.Layout = cclLeftToRightThenTopToBottom
85 85 ChildSizing.ControlsPerLine = 2
86   - ClientHeight = 105
87   - ClientWidth = 166
  86 + ClientHeight = 112
  87 + ClientWidth = 158
88 88 TabOrder = 1
89 89 object LabelIndA: TLabel
90 90 Left = 10
91   - Height = 15
  91 + Height = 19
92 92 Top = 30
93   - Width = 63
  93 + Width = 59
94 94 Alignment = taCenter
95 95 AutoSize = False
96 96 Caption = 'A'
... ... @@ -103,10 +103,10 @@ object FormMatrixGame: TFormMatrixGame
103 103 Transparent = False
104 104 end
105 105 object LabelIndB: TLabel
106   - Left = 93
107   - Height = 15
  106 + Left = 89
  107 + Height = 19
108 108 Top = 30
109   - Width = 63
  109 + Width = 59
110 110 Alignment = taCenter
111 111 AutoSize = False
112 112 Caption = 'B'
... ... @@ -120,9 +120,9 @@ object FormMatrixGame: TFormMatrixGame
120 120 end
121 121 object LabelIndACount: TLabel
122 122 Left = 10
123   - Height = 15
124   - Top = 60
125   - Width = 63
  123 + Height = 18
  124 + Top = 64
  125 + Width = 59
126 126 Alignment = taCenter
127 127 AutoSize = False
128 128 Caption = '0'
... ... @@ -131,10 +131,10 @@ object FormMatrixGame: TFormMatrixGame
131 131 Transparent = False
132 132 end
133 133 object LabelIndBCount: TLabel
134   - Left = 93
135   - Height = 15
136   - Top = 60
137   - Width = 63
  134 + Left = 89
  135 + Height = 18
  136 + Top = 64
  137 + Width = 59
138 138 Alignment = taCenter
139 139 AutoSize = False
140 140 Caption = '0'
... ... @@ -147,10 +147,10 @@ object FormMatrixGame: TFormMatrixGame
147 147 AnchorSideLeft.Control = GBIndividualAB
148 148 AnchorSideLeft.Side = asrBottom
149 149 AnchorSideTop.Control = GBIndividualAB
150   - Left = 980
151   - Height = 122
  150 + Left = 972
  151 + Height = 131
152 152 Top = 8
153   - Width = 170
  153 + Width = 171
154 154 AutoSize = True
155 155 BorderSpacing.Left = 10
156 156 Caption = ' Pontuação do Grupo '
... ... @@ -158,14 +158,14 @@ object FormMatrixGame: TFormMatrixGame
158 158 ChildSizing.TopBottomSpacing = 45
159 159 ChildSizing.Layout = cclLeftToRightThenTopToBottom
160 160 ChildSizing.ControlsPerLine = 1
161   - ClientHeight = 105
162   - ClientWidth = 166
  161 + ClientHeight = 108
  162 + ClientWidth = 167
163 163 TabOrder = 2
164 164 object LabelGroupCount: TLabel
165 165 Left = 35
166   - Height = 15
  166 + Height = 18
167 167 Top = 45
168   - Width = 96
  168 + Width = 97
169 169 Align = alClient
170 170 Alignment = taCenter
171 171 AutoSize = False
... ... @@ -183,9 +183,9 @@ object FormMatrixGame: TFormMatrixGame
183 183 AnchorSideBottom.Control = Owner
184 184 AnchorSideBottom.Side = asrBottom
185 185 Left = 0
186   - Height = 17
187   - Top = 599
188   - Width = 1632
  186 + Height = 22
  187 + Top = 587
  188 + Width = 1625
189 189 Anchors = [akLeft, akRight, akBottom]
190 190 AutoSize = True
191 191 Caption = 'Escolhas na última jogada'
... ... @@ -200,21 +200,21 @@ object FormMatrixGame: TFormMatrixGame
200 200 AnchorSideLeft.Control = GBGrupo
201 201 AnchorSideLeft.Side = asrBottom
202 202 AnchorSideTop.Control = GBGrupo
203   - Left = 1160
  203 + Left = 1153
204 204 Height = 486
205 205 Top = 8
206 206 Width = 472
207 207 BorderSpacing.Left = 10
208 208 Caption = 'Pesquisador'
209   - ClientHeight = 469
  209 + ClientHeight = 463
210 210 ClientWidth = 468
211 211 TabOrder = 4
212 212 Visible = False
213 213 object GBExperiment: TGroupBox
214 214 Left = 16
215   - Height = 197
  215 + Height = 221
216 216 Top = 60
217   - Width = 228
  217 + Width = 220
218 218 AutoSize = True
219 219 Caption = 'Experimento'
220 220 ChildSizing.LeftRightSpacing = 10
... ... @@ -224,102 +224,102 @@ object FormMatrixGame: TFormMatrixGame
224 224 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
225 225 ChildSizing.Layout = cclLeftToRightThenTopToBottom
226 226 ChildSizing.ControlsPerLine = 2
227   - ClientHeight = 180
228   - ClientWidth = 224
  227 + ClientHeight = 198
  228 + ClientWidth = 216
229 229 TabOrder = 0
230 230 object LabelExpCond: TLabel
231 231 Left = 10
232   - Height = 15
  232 + Height = 18
233 233 Top = 20
234   - Width = 168
  234 + Width = 154
235 235 Caption = 'Condição:'
236 236 ParentColor = False
237 237 end
238 238 object LabelExpCountCondition: TLabel
239   - Left = 198
240   - Height = 15
  239 + Left = 184
  240 + Height = 18
241 241 Top = 20
242   - Width = 16
  242 + Width = 22
243 243 Caption = 'NA'
244 244 ParentColor = False
245 245 end
246 246 object LabelExpGen: TLabel
247 247 Left = 10
248   - Height = 15
249   - Top = 45
250   - Width = 168
  248 + Height = 18
  249 + Top = 48
  250 + Width = 154
251 251 Caption = 'Geração:'
252 252 ParentColor = False
253 253 end
254 254 object LabelExpCountGeneration: TLabel
255   - Left = 198
256   - Height = 15
257   - Top = 45
258   - Width = 16
  255 + Left = 184
  256 + Height = 18
  257 + Top = 48
  258 + Width = 22
259 259 Caption = 'NA'
260 260 ParentColor = False
261 261 end
262 262 object LabelExpCycle: TLabel
263 263 Left = 10
264   - Height = 15
265   - Top = 70
266   - Width = 168
  264 + Height = 18
  265 + Top = 76
  266 + Width = 154
267 267 Caption = 'Ciclo:'
268 268 ParentColor = False
269 269 end
270 270 object LabelExpCountCycle: TLabel
271   - Left = 198
272   - Height = 15
273   - Top = 70
274   - Width = 16
  271 + Left = 184
  272 + Height = 18
  273 + Top = 76
  274 + Width = 22
275 275 Caption = 'NA'
276 276 ParentColor = False
277 277 end
278 278 object LabelExpTurn: TLabel
279 279 Left = 10
280   - Height = 15
281   - Top = 95
282   - Width = 168
  280 + Height = 18
  281 + Top = 104
  282 + Width = 154
283 283 Caption = 'Turno:'
284 284 ParentColor = False
285 285 end
286 286 object LabelExpCountTurn: TLabel
287   - Left = 198
288   - Height = 15
289   - Top = 95
290   - Width = 16
  287 + Left = 184
  288 + Height = 18
  289 + Top = 104
  290 + Width = 22
291 291 Caption = 'NA'
292 292 ParentColor = False
293 293 end
294 294 object LabelExpInterlocks: TLabel
295 295 Left = 10
296   - Height = 15
297   - Top = 120
298   - Width = 168
  296 + Height = 18
  297 + Top = 132
  298 + Width = 154
299 299 Caption = 'Entrelaçamentos:'
300 300 ParentColor = False
301 301 end
302 302 object LabelExpCountInterlocks: TLabel
303   - Left = 198
304   - Height = 15
305   - Top = 120
306   - Width = 16
  303 + Left = 184
  304 + Height = 18
  305 + Top = 132
  306 + Width = 22
307 307 Caption = 'NA'
308 308 ParentColor = False
309 309 end
310 310 object LabelExpTInterlocks: TLabel
311 311 Left = 10
312   - Height = 15
313   - Top = 145
314   - Width = 168
  312 + Height = 18
  313 + Top = 160
  314 + Width = 154
315 315 Caption = 'Entrelaçamentos Alvo:'
316 316 ParentColor = False
317 317 end
318 318 object LabelExpCountTInterlocks: TLabel
319   - Left = 198
320   - Height = 15
321   - Top = 145
322   - Width = 16
  319 + Left = 184
  320 + Height = 18
  321 + Top = 160
  322 + Width = 22
323 323 Caption = 'NA'
324 324 ParentColor = False
325 325 end
... ... @@ -372,19 +372,19 @@ object FormMatrixGame: TFormMatrixGame
372 372 AnchorSideRight.Side = asrBottom
373 373 Left = 800
374 374 Height = 354
375   - Top = 140
376   - Width = 350
  375 + Top = 153
  376 + Width = 343
377 377 Anchors = [akTop, akLeft, akRight]
378 378 BorderSpacing.Top = 10
379 379 ClientHeight = 354
380   - ClientWidth = 350
  380 + ClientWidth = 343
381 381 TabOrder = 6
382 382 object ChatMemoRecv: TMemo
383 383 AnchorSideBottom.Control = ChatSplitter
384 384 Left = 6
385 385 Height = 221
386 386 Top = 6
387   - Width = 338
  387 + Width = 331
388 388 Align = alTop
389 389 Anchors = [akTop, akLeft, akRight, akBottom]
390 390 BorderSpacing.Left = 5
... ... @@ -405,7 +405,7 @@ object FormMatrixGame: TFormMatrixGame
405 405 Left = 0
406 406 Height = 5
407 407 Top = 232
408   - Width = 348
  408 + Width = 341
409 409 Align = alNone
410 410 Anchors = [akLeft, akRight]
411 411 ResizeAnchor = akTop
... ... @@ -416,7 +416,7 @@ object FormMatrixGame: TFormMatrixGame
416 416 Left = 6
417 417 Height = 106
418 418 Top = 242
419   - Width = 338
  419 + Width = 331
420 420 Align = alBottom
421 421 Anchors = [akTop, akLeft, akRight, akBottom]
422 422 BorderSpacing.Around = 5
... ... @@ -430,8 +430,9 @@ object FormMatrixGame: TFormMatrixGame
430 430 Width = 862
431 431 Height = 434
432 432 Title = 'Abrir Experimento'
433   - DefaultExt = '.txt'
  433 + DefaultExt = '.ini'
434 434 Filter = 'txt|*.txt|ini|*.ini'
  435 + FilterIndex = 2
435 436 InitialDir = 'Pesquisadores'
436 437 Options = [ofNoChangeDir, ofFileMustExist, ofNoNetworkButton, ofEnableSizing, ofDontAddToRecent]
437 438 left = 24
... ...