Download as
Browse Code »

Commit 6e32949973f10c807ac62386a63021f5497cae0e

Authored by Carlos Picanco
1 parent 3f833e58
Exists in master

add hidden xml as a todo and fix question checkbox

Showing 2 changed files with 194 additions and 197 deletions   Show diff stats
experiment_designer/form_main.lfm
  Diff comments   View file @6e32949
1 1 object FormDesigner: TFormDesigner
2   - Left = 0
3   - Height = 712
4   - Top = 29
5   - Width = 674
6   - HorzScrollBar.Page = 346
7   - VertScrollBar.Page = 693
  2 + Left = 348
  3 + Height = 656
  4 + Top = 27
  5 + Width = 653
  6 + HorzScrollBar.Page = 315
  7 + VertScrollBar.Page = 636
8 8 AutoScroll = True
9 9 Caption = 'Planejar Experimento'
10   - ClientHeight = 693
11   - ClientWidth = 664
  10 + ClientHeight = 636
  11 + ClientWidth = 636
12 12 Menu = MainMenu1
13 13 OnActivate = FormActivate
14 14 OnCreate = FormCreate
... ... @@ -18,9 +18,9 @@ object FormDesigner: TFormDesigner
18 18 LCLVersion = '1.6.2.0'
19 19 object PageControl: TPageControl
20 20 Left = 0
21   - Height = 744
  21 + Height = 726
22 22 Top = 0
23   - Width = 664
  23 + Width = 636
24 24 ActivePage = TabSheetExperiment
25 25 Align = alClient
26 26 TabIndex = 0
... ... @@ -32,77 +32,76 @@ object FormDesigner: TFormDesigner
32 32 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
33 33 ChildSizing.Layout = cclLeftToRightThenTopToBottom
34 34 ChildSizing.ControlsPerLine = 1
35   - ClientHeight = 711
36   - ClientWidth = 658
  35 + ClientHeight = 698
  36 + ClientWidth = 628
37 37 object GBConditions: TGroupBox
38 38 Left = 0
39   - Height = 97
  39 + Height = 100
40 40 Top = 10
41   - Width = 658
  41 + Width = 628
42 42 Caption = 'Condições'
43 43 ClientHeight = 80
44   - ClientWidth = 654
  44 + ClientWidth = 624
45 45 TabOrder = 5
46 46 object ListBoxConditions: TListBox
47 47 Left = 0
48 48 Height = 80
49 49 Top = 0
50   - Width = 654
  50 + Width = 624
51 51 Anchors = [akTop, akLeft, akRight]
52 52 ItemHeight = 0
53 53 ScrollWidth = 652
54 54 TabOrder = 0
55   - TopIndex = -1
56 55 end
57 56 end
58 57 object LabelResearcherName: TLabel
59 58 Left = 0
60 59 Height = 15
61   - Top = 112
62   - Width = 658
  60 + Top = 115
  61 + Width = 628
63 62 Caption = 'Nome do Pesquisador'
64 63 ParentColor = False
65 64 end
66 65 object EditResearcherName: TEdit
67 66 Left = 0
68   - Height = 25
  67 + Height = 23
69 68 Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.'
70   - Top = 132
71   - Width = 658
  69 + Top = 135
  70 + Width = 628
72 71 OnEditingDone = EditExperimentEditingDone
73 72 TabOrder = 0
74 73 end
75 74 object LabelExperimentName: TLabel
76 75 Left = 0
77 76 Height = 15
78   - Top = 162
79   - Width = 658
  77 + Top = 163
  78 + Width = 628
80 79 Caption = 'Nome do Experimento'
81 80 ParentColor = False
82 81 end
83 82 object EditExperimentName: TEdit
84 83 Left = 0
85   - Height = 25
  84 + Height = 23
86 85 Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.'
87   - Top = 182
88   - Width = 658
  86 + Top = 183
  87 + Width = 628
89 88 OnEditingDone = EditExperimentEditingDone
90 89 TabOrder = 1
91 90 end
92 91 object GBExperimentAim: TGroupBox
93 92 Left = 0
94   - Height = 159
95   - Top = 212
96   - Width = 658
  93 + Height = 162
  94 + Top = 211
  95 + Width = 628
97 96 Caption = 'Objetivo do Experimento'
98 97 ClientHeight = 142
99   - ClientWidth = 654
  98 + ClientWidth = 624
100 99 TabOrder = 2
101 100 object MemoExperimentAim: TMemo
102 101 Left = 0
103 102 Height = 142
104 103 Top = 0
105   - Width = 654
  104 + Width = 624
106 105 Align = alCustom
107 106 Anchors = [akTop, akLeft, akRight]
108 107 OnEditingDone = EditExperimentEditingDone
... ... @@ -111,10 +110,10 @@ object FormDesigner: TFormDesigner
111 110 end
112 111 object CGGlobal: TCheckGroup
113 112 Left = 0
114   - Height = 113
  113 + Height = 108
115 114 Hint = 'Aplicáveis ao longo de todo o experimento'
116   - Top = 376
117   - Width = 658
  115 + Top = 378
  116 + Width = 628
118 117 AutoFill = True
119 118 Caption = 'Configurações globais'
120 119 ChildSizing.LeftRightSpacing = 6
... ... @@ -125,8 +124,8 @@ object FormDesigner: TFormDesigner
125 124 ChildSizing.ShrinkVertical = crsScaleChilds
126 125 ChildSizing.Layout = cclLeftToRightThenTopToBottom
127 126 ChildSizing.ControlsPerLine = 1
128   - ClientHeight = 96
129   - ClientWidth = 654
  127 + ClientHeight = 88
  128 + ClientWidth = 624
130 129 Items.Strings = (
131 130 'Enviar histórico do bate-papo a novos participantes'
132 131 'Gerar participantes automaticamente'
... ... @@ -141,9 +140,9 @@ object FormDesigner: TFormDesigner
141 140 end
142 141 object RGPoints: TRadioGroup
143 142 Left = 0
144   - Height = 59
145   - Top = 494
146   - Width = 658
  143 + Height = 58
  144 + Top = 491
  145 + Width = 628
147 146 AutoFill = True
148 147 Caption = 'Tipo de pontuação Individual'
149 148 ChildSizing.LeftRightSpacing = 6
... ... @@ -153,8 +152,8 @@ object FormDesigner: TFormDesigner
153 152 ChildSizing.ShrinkVertical = crsScaleChilds
154 153 ChildSizing.Layout = cclLeftToRightThenTopToBottom
155 154 ChildSizing.ControlsPerLine = 1
156   - ClientHeight = 42
157   - ClientWidth = 654
  155 + ClientHeight = 38
  156 + ClientWidth = 624
158 157 ItemIndex = 0
159 158 Items.Strings = (
160 159 'A e B'
... ... @@ -165,21 +164,21 @@ object FormDesigner: TFormDesigner
165 164 end
166 165 object GBMatrix: TGroupBox
167 166 Left = 0
168   - Height = 143
169   - Top = 558
170   - Width = 658
  167 + Height = 134
  168 + Top = 554
  169 + Width = 628
171 170 Caption = 'Tipo da Matrix'
172 171 ChildSizing.LeftRightSpacing = 5
173 172 ChildSizing.Layout = cclLeftToRightThenTopToBottom
174 173 ChildSizing.ControlsPerLine = 1
175   - ClientHeight = 126
176   - ClientWidth = 654
  174 + ClientHeight = 114
  175 + ClientWidth = 624
177 176 TabOrder = 6
178 177 object ChkColors: TCheckBox
179 178 Left = 5
180   - Height = 21
  179 + Height = 19
181 180 Top = 0
182   - Width = 239
  181 + Width = 215
183 182 Caption = '5 cores'
184 183 Checked = True
185 184 Enabled = False
... ... @@ -189,9 +188,9 @@ object FormDesigner: TFormDesigner
189 188 end
190 189 object ChkRows: TCheckBox
191 190 Left = 5
192   - Height = 21
193   - Top = 21
194   - Width = 239
  191 + Height = 19
  192 + Top = 19
  193 + Width = 215
195 194 Caption = '10 linhas'
196 195 Checked = True
197 196 Enabled = False
... ... @@ -201,18 +200,18 @@ object FormDesigner: TFormDesigner
201 200 end
202 201 object ChkCols: TCheckBox
203 202 Left = 5
204   - Height = 21
205   - Top = 42
206   - Width = 239
  203 + Height = 19
  204 + Top = 38
  205 + Width = 215
207 206 Caption = '10 colunas'
208 207 OnClick = ChkMatrixTypeClick
209 208 TabOrder = 2
210 209 end
211 210 object ChkDots: TCheckBox
212 211 Left = 5
213   - Height = 21
214   - Top = 63
215   - Width = 239
  212 + Height = 19
  213 + Top = 57
  214 + Width = 215
216 215 Caption = 'Com Círculos Preechidos'
217 216 OnChange = ChkDotsChange
218 217 OnClick = ChkMatrixTypeClick
... ... @@ -220,9 +219,9 @@ object FormDesigner: TFormDesigner
220 219 end
221 220 object ChkCleanDots: TCheckBox
222 221 Left = 5
223   - Height = 21
224   - Top = 84
225   - Width = 239
  222 + Height = 19
  223 + Top = 76
  224 + Width = 215
226 225 Caption = 'Com Círculos Vazados'
227 226 OnChange = ChkCleanDotsChange
228 227 OnClick = ChkMatrixTypeClick
... ... @@ -230,9 +229,9 @@ object FormDesigner: TFormDesigner
230 229 end
231 230 object ChkDotsCleanDots: TCheckBox
232 231 Left = 5
233   - Height = 21
234   - Top = 105
235   - Width = 239
  232 + Height = 19
  233 + Top = 95
  234 + Width = 215
236 235 Caption = 'Com Círculos Vazados e Preenchidos'
237 236 OnChange = ChkDotsCleanDotsChange
238 237 OnClick = ChkMatrixTypeClick
... ... @@ -247,14 +246,14 @@ object FormDesigner: TFormDesigner
247 246 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
248 247 ChildSizing.Layout = cclLeftToRightThenTopToBottom
249 248 ChildSizing.ControlsPerLine = 1
250   - ClientHeight = 711
251   - ClientWidth = 658
  249 + ClientHeight = 751
  250 + ClientWidth = 649
252 251 object ComboCurrentCondition: TComboBox
253 252 Left = 0
254   - Height = 27
  253 + Height = 23
255 254 Top = 10
256   - Width = 658
257   - ItemHeight = 0
  255 + Width = 649
  256 + ItemHeight = 15
258 257 OnChange = ComboCurrentConditionChange
259 258 Style = csDropDownList
260 259 TabOrder = 0
... ... @@ -262,40 +261,40 @@ object FormDesigner: TFormDesigner
262 261 object PanelConditionButtons: TPanel
263 262 Left = 0
264 263 Height = 26
265   - Top = 42
266   - Width = 658
  264 + Top = 38
  265 + Width = 649
267 266 ChildSizing.LeftRightSpacing = 25
268 267 ChildSizing.HorizontalSpacing = 50
269 268 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
270 269 ChildSizing.Layout = cclLeftToRightThenTopToBottom
271 270 ChildSizing.ControlsPerLine = 3
272 271 ClientHeight = 26
273   - ClientWidth = 658
  272 + ClientWidth = 649
274 273 TabOrder = 1
275 274 object BtnAppendCond: TButton
276 275 Left = 25
277 276 Height = 25
278 277 Hint = 'Selecione contingências na lista abaixo se deseja inclui-las na condição a ser adicionada.'
279 278 Top = 0
280   - Width = 168
  279 + Width = 167
281 280 Caption = 'Adicionar'
282 281 OnClick = BtnAppendCondClick
283 282 TabOrder = 0
284 283 end
285 284 object BtnRemoveCond: TButton
286   - Left = 243
  285 + Left = 242
287 286 Height = 25
288 287 Top = 0
289   - Width = 165
  288 + Width = 163
290 289 Caption = 'Remover'
291 290 OnClick = BtnRemoveCondClick
292 291 TabOrder = 1
293 292 end
294 293 object BtnReorderCond: TButton
295   - Left = 458
  294 + Left = 455
296 295 Height = 25
297 296 Top = 0
298   - Width = 175
  297 + Width = 169
299 298 Caption = 'Reordenar'
300 299 OnClick = BtnReorderCondClick
301 300 TabOrder = 2
... ... @@ -304,57 +303,56 @@ object FormDesigner: TFormDesigner
304 303 end
305 304 object GBContingencies: TGroupBox
306 305 Left = 0
307   - Height = 97
308   - Top = 73
309   - Width = 658
  306 + Height = 100
  307 + Top = 69
  308 + Width = 649
310 309 Caption = 'Contingências e Metacontingências da Condição Selecionada'
311 310 ClientHeight = 80
312   - ClientWidth = 654
  311 + ClientWidth = 645
313 312 TabOrder = 8
314 313 object ListBoxContingencies: TListBox
315 314 Left = 0
316 315 Height = 80
317 316 Hint = 'CTRL+Clique para selecionar múltiplas contingências.'
318 317 Top = 0
319   - Width = 654
  318 + Width = 645
320 319 Anchors = [akTop, akLeft, akRight]
321 320 ItemHeight = 0
322 321 MultiSelect = True
323 322 ScrollWidth = 652
324 323 TabOrder = 0
325   - TopIndex = -1
326 324 end
327 325 end
328 326 object LabelConditionName: TLabel
329 327 Left = 0
330 328 Height = 15
331 329 Hint = 'Nome da condição no relatório.'
332   - Top = 175
333   - Width = 658
  330 + Top = 174
  331 + Width = 649
334 332 Caption = 'Nome da Condição'
335 333 ParentColor = False
336 334 end
337 335 object EditConditionName: TEdit
338 336 Left = 0
339   - Height = 25
340   - Top = 195
341   - Width = 658
  337 + Height = 23
  338 + Top = 194
  339 + Width = 649
342 340 OnEditingDone = EditConditionNameEditingDone
343 341 TabOrder = 2
344 342 end
345 343 object LabelTurnValue: TLabel
346 344 Left = 0
347 345 Height = 15
348   - Top = 225
349   - Width = 658
  346 + Top = 222
  347 + Width = 649
350 348 Caption = 'Número de Jogadores / Turnos'
351 349 ParentColor = False
352 350 end
353 351 object SpinEditTurnValue: TSpinEdit
354 352 Left = 0
355   - Height = 25
356   - Top = 245
357   - Width = 658
  353 + Height = 23
  354 + Top = 242
  355 + Width = 649
358 356 MaxValue = 5
359 357 MinValue = 2
360 358 OnEditingDone = SpinEditTurnValueEditingDone
... ... @@ -363,70 +361,70 @@ object FormDesigner: TFormDesigner
363 361 end
364 362 object GroupBox1: TGroupBox
365 363 Left = 0
366   - Height = 57
367   - Top = 275
368   - Width = 658
  364 + Height = 58
  365 + Top = 270
  366 + Width = 649
369 367 Caption = 'Somar pontos ao iniciar condição'
370 368 ChildSizing.LeftRightSpacing = 50
371 369 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
372 370 ChildSizing.Layout = cclTopToBottomThenLeftToRight
373 371 ChildSizing.ControlsPerLine = 2
374   - ClientHeight = 40
375   - ClientWidth = 654
  372 + ClientHeight = 38
  373 + ClientWidth = 645
376 374 TabOrder = 9
377 375 object LabelPA: TLabel
378 376 Left = 50
379 377 Height = 15
380 378 Top = 0
381   - Width = 137
  379 + Width = 136
382 380 Caption = 'A'
383 381 ParentColor = False
384 382 end
385 383 object SpinEditOnConditionBeginA: TSpinEdit
386 384 Left = 50
387   - Height = 25
  385 + Height = 23
388 386 Top = 15
389   - Width = 137
  387 + Width = 136
390 388 MaxValue = 0
391 389 OnEditingDone = SpinEditOnConditionBeginAEditingDone
392 390 TabOrder = 0
393 391 end
394 392 object LabelPB: TLabel
395   - Left = 187
  393 + Left = 186
396 394 Height = 15
397 395 Top = 0
398   - Width = 137
  396 + Width = 136
399 397 Caption = 'B'
400 398 ParentColor = False
401 399 end
402 400 object SpinEditOnConditionBeginB: TSpinEdit
403   - Left = 187
404   - Height = 25
  401 + Left = 186
  402 + Height = 23
405 403 Top = 15
406   - Width = 137
  404 + Width = 136
407 405 MaxValue = 0
408 406 OnEditingDone = SpinEditOnConditionBeginAEditingDone
409 407 TabOrder = 1
410 408 end
411 409 object LabelPI: TLabel
412   - Left = 324
  410 + Left = 322
413 411 Height = 15
414 412 Top = 0
415   - Width = 145
  413 + Width = 138
416 414 Caption = 'Individual'
417 415 ParentColor = False
418 416 end
419 417 object SpinEditOnConditionBeginI: TSpinEdit
420   - Left = 324
421   - Height = 25
  418 + Left = 322
  419 + Height = 23
422 420 Top = 15
423   - Width = 145
  421 + Width = 138
424 422 MaxValue = 0
425 423 OnEditingDone = SpinEditOnConditionBeginAEditingDone
426 424 TabOrder = 2
427 425 end
428 426 object LabelPG: TLabel
429   - Left = 469
  427 + Left = 460
430 428 Height = 15
431 429 Top = 0
432 430 Width = 135
... ... @@ -434,8 +432,8 @@ object FormDesigner: TFormDesigner
434 432 ParentColor = False
435 433 end
436 434 object SpinEditOnConditionBeginG: TSpinEdit
437   - Left = 469
438   - Height = 25
  435 + Left = 460
  436 + Height = 23
439 437 Top = 15
440 438 Width = 135
441 439 MaxValue = 0
... ... @@ -446,16 +444,16 @@ object FormDesigner: TFormDesigner
446 444 object LabelCyclesValue: TLabel
447 445 Left = 0
448 446 Height = 15
449   - Top = 337
450   - Width = 658
  447 + Top = 333
  448 + Width = 649
451 449 Caption = 'Ciclos para mudança de geração / linhagem'
452 450 ParentColor = False
453 451 end
454 452 object SpinEditCyclesValue: TSpinEdit
455 453 Left = 0
456   - Height = 25
457   - Top = 357
458   - Width = 658
  454 + Height = 23
  455 + Top = 353
  456 + Width = 649
459 457 MaxValue = 1000
460 458 MinValue = 1
461 459 OnEditingDone = SpinEditCyclesValueEditingDone
... ... @@ -464,23 +462,23 @@ object FormDesigner: TFormDesigner
464 462 end
465 463 object GBQuestion: TGroupBox
466 464 Left = 0
467   - Height = 164
468   - Top = 387
469   - Width = 658
  465 + Height = 162
  466 + Top = 381
  467 + Width = 649
470 468 Caption = 'Apresentar pergunta ao final do ciclo'
471 469 ChildSizing.LeftRightSpacing = 50
472 470 ChildSizing.VerticalSpacing = 5
473 471 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
474 472 ChildSizing.Layout = cclLeftToRightThenTopToBottom
475 473 ChildSizing.ControlsPerLine = 1
476   - ClientHeight = 147
477   - ClientWidth = 654
  474 + ClientHeight = 142
  475 + ClientWidth = 645
478 476 TabOrder = 5
479 477 object CheckBoxShouldAskQuestion: TCheckBox
480 478 Left = 50
481   - Height = 21
  479 + Height = 19
482 480 Top = 0
483   - Width = 554
  481 + Width = 545
484 482 Caption = 'Não'
485 483 OnChange = CheckBoxShouldAskQuestionChange
486 484 TabOrder = 0
... ... @@ -488,16 +486,17 @@ object FormDesigner: TFormDesigner
488 486 object LabelQuestion: TLabel
489 487 Left = 50
490 488 Height = 15
491   - Top = 26
492   - Width = 554
  489 + Top = 24
  490 + Width = 545
493 491 Caption = 'Texto da Pergunta'
494 492 ParentColor = False
  493 + Visible = False
495 494 end
496 495 object EditQuestion: TEdit
497 496 Left = 50
498   - Height = 25
499   - Top = 46
500   - Width = 554
  497 + Height = 23
  498 + Top = 44
  499 + Width = 545
501 500 OnEditingDone = EditQuestionEditingDone
502 501 TabOrder = 1
503 502 Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?'
... ... @@ -505,9 +504,9 @@ object FormDesigner: TFormDesigner
505 504 end
506 505 object CGQuestion: TCheckGroup
507 506 Left = 50
508   - Height = 71
509   - Top = 76
510   - Width = 554
  507 + Height = 70
  508 + Top = 72
  509 + Width = 545
511 510 AutoFill = True
512 511 Caption = 'O que deve acontecer quando todos responderem sim?'
513 512 ChildSizing.LeftRightSpacing = 6
... ... @@ -518,8 +517,8 @@ object FormDesigner: TFormDesigner
518 517 ChildSizing.ShrinkVertical = crsScaleChilds
519 518 ChildSizing.Layout = cclLeftToRightThenTopToBottom
520 519 ChildSizing.ControlsPerLine = 1
521   - ClientHeight = 54
522   - ClientWidth = 550
  520 + ClientHeight = 50
  521 + ClientWidth = 541
523 522 Items.Strings = (
524 523 'Reverter consequências das metacontingências e contingências'
525 524 'Inverter pontos A e B quando pontos B forem consequências'
... ... @@ -534,9 +533,9 @@ object FormDesigner: TFormDesigner
534 533 end
535 534 object RGEndCriteriaStyle: TRadioGroup
536 535 Left = 0
537   - Height = 80
538   - Top = 556
539   - Width = 658
  536 + Height = 77
  537 + Top = 548
  538 + Width = 649
540 539 AutoFill = True
541 540 Caption = 'Estilo do critério de finalização da condição'
542 541 ChildSizing.LeftRightSpacing = 6
... ... @@ -546,8 +545,8 @@ object FormDesigner: TFormDesigner
546 545 ChildSizing.ShrinkVertical = crsScaleChilds
547 546 ChildSizing.Layout = cclLeftToRightThenTopToBottom
548 547 ChildSizing.ControlsPerLine = 1
549   - ClientHeight = 63
550   - ClientWidth = 654
  548 + ClientHeight = 57
  549 + ClientWidth = 645
551 550 ItemIndex = 2
552 551 Items.Strings = (
553 552 'Finalizar após um número de ciclos'
... ... @@ -559,31 +558,31 @@ object FormDesigner: TFormDesigner
559 558 end
560 559 object GBEndCriteria: TGroupBox
561 560 Left = 0
562   - Height = 109
563   - Top = 641
564   - Width = 658
  561 + Height = 111
  562 + Top = 630
  563 + Width = 649
565 564 Caption = 'Valores do critério de finalização da condição'
566 565 ChildSizing.LeftRightSpacing = 50
567 566 ChildSizing.VerticalSpacing = 5
568 567 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
569 568 ChildSizing.Layout = cclLeftToRightThenTopToBottom
570 569 ChildSizing.ControlsPerLine = 1
571   - ClientHeight = 92
572   - ClientWidth = 654
  570 + ClientHeight = 91
  571 + ClientWidth = 645
573 572 TabOrder = 7
574 573 object LabelEndCriteriaAbsCycles: TLabel
575 574 Left = 50
576 575 Height = 15
577 576 Top = 0
578   - Width = 554
  577 + Width = 545
579 578 Caption = 'Número de ciclos'
580 579 ParentColor = False
581 580 end
582 581 object SpinEditEndCriteriaAbsCycles: TSpinEdit
583 582 Left = 50
584   - Height = 25
  583 + Height = 23
585 584 Top = 20
586   - Width = 554
  585 + Width = 545
587 586 MaxValue = 1000
588 587 OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone
589 588 TabOrder = 0
... ... @@ -591,19 +590,19 @@ object FormDesigner: TFormDesigner
591 590 end
592 591 object GBEndCriteriaLastCycles: TGroupBox
593 592 Left = 50
594   - Height = 42
595   - Top = 50
596   - Width = 554
  593 + Height = 43
  594 + Top = 48
  595 + Width = 545
597 596 Caption = 'Porcentagem de entrelaçamentos'
598 597 ChildSizing.HorizontalSpacing = 5
599 598 ChildSizing.Layout = cclLeftToRightThenTopToBottom
600 599 ChildSizing.ControlsPerLine = 4
601   - ClientHeight = 25
602   - ClientWidth = 550
  600 + ClientHeight = 23
  601 + ClientWidth = 541
603 602 TabOrder = 1
604 603 object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit
605 604 Left = 0
606   - Height = 25
  605 + Height = 23
607 606 Top = 0
608 607 Width = 50
609 608 OnEditingDone = SpinEditEndCriteriaInterlockingEditingDone
... ... @@ -612,17 +611,17 @@ object FormDesigner: TFormDesigner
612 611 end
613 612 object LabelEndCriteriaInt: TLabel
614 613 Left = 55
615   - Height = 25
  614 + Height = 23
616 615 Top = 0
617   - Width = 206
  616 + Width = 185
618 617 Alignment = taCenter
619 618 Caption = '% de entrelaçamentos nos últimos '
620 619 Layout = tlCenter
621 620 ParentColor = False
622 621 end
623 622 object SpinEditEndCriteriaLastCycles: TSpinEdit
624   - Left = 266
625   - Height = 25
  623 + Left = 245
  624 + Height = 23
626 625 Top = 0
627 626 Width = 50
628 627 MaxValue = 1000
... ... @@ -632,10 +631,10 @@ object FormDesigner: TFormDesigner
632 631 Value = 10
633 632 end
634 633 object LabelEndCriteriaLastCycles: TLabel
635   - Left = 321
636   - Height = 25
  634 + Left = 300
  635 + Height = 23
637 636 Top = 0
638   - Width = 35
  637 + Width = 33
639 638 Alignment = taCenter
640 639 Caption = 'ciclos.'
641 640 Layout = tlCenter
... ... @@ -668,7 +667,7 @@ object FormDesigner: TFormDesigner
668 667 ChildSizing.ShrinkVertical = crsScaleChilds
669 668 ChildSizing.Layout = cclLeftToRightThenTopToBottom
670 669 ChildSizing.ControlsPerLine = 1
671   - ClientHeight = 42
  670 + ClientHeight = 39
672 671 ClientWidth = 654
673 672 Items.Strings = (
674 673 'Contingências Operantes'
... ... @@ -679,10 +678,10 @@ object FormDesigner: TFormDesigner
679 678 end
680 679 object ComboCurrentContingency: TComboBox
681 680 Left = 0
682   - Height = 27
  681 + Height = 23
683 682 Top = 74
684 683 Width = 658
685   - ItemHeight = 0
  684 + ItemHeight = 15
686 685 OnChange = ComboCurrentContingencyChange
687 686 Style = csDropDownList
688 687 TabOrder = 0
... ... @@ -759,7 +758,7 @@ object FormDesigner: TFormDesigner
759 758 ChildSizing.ShrinkVertical = crsScaleChilds
760 759 ChildSizing.Layout = cclLeftToRightThenTopToBottom
761 760 ChildSizing.ControlsPerLine = 1
762   - ClientHeight = 105
  761 + ClientHeight = 102
763 762 ClientWidth = 654
764 763 ItemIndex = 0
765 764 Items.Strings = (
... ... @@ -838,7 +837,7 @@ object FormDesigner: TFormDesigner
838 837 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
839 838 ChildSizing.Layout = cclLeftToRightThenTopToBottom
840 839 ChildSizing.ControlsPerLine = 2
841   - ClientHeight = 347
  840 + ClientHeight = 344
842 841 ClientWidth = 654
843 842 TabOrder = 6
844 843 Visible = False
... ... @@ -869,10 +868,10 @@ object FormDesigner: TFormDesigner
869 868 end
870 869 object CBPointsType: TComboBox
871 870 Left = 420
872   - Height = 27
  871 + Height = 23
873 872 Top = 15
874 873 Width = 234
875   - ItemHeight = 0
  874 + ItemHeight = 15
876 875 OnChange = ConsequenceStyleChange
877 876 Style = csDropDownList
878 877 TabOrder = 1
... ... @@ -891,7 +890,7 @@ object FormDesigner: TFormDesigner
891 890 ChildSizing.ShrinkVertical = crsScaleChilds
892 891 ChildSizing.Layout = cclLeftToRightThenTopToBottom
893 892 ChildSizing.ControlsPerLine = 1
894   - ClientHeight = 63
  893 + ClientHeight = 60
895 894 ClientWidth = 416
896 895 ItemIndex = 0
897 896 Items.Strings = (
... ...
experiment_designer/form_main.pas
  Diff comments   View file @6e32949
... ... @@ -11,8 +11,6 @@ unit form_main;
11 11  
12 12 {$mode objfpc}{$H+}
13 13  
14   -{$DEFINE DEBUG}
15   -
16 14 interface
17 15  
18 16 uses
... ... @@ -176,9 +174,6 @@ type
176 174 procedure SpinEditOnConditionBeginAEditingDone(Sender: TObject);
177 175 procedure SpinEditTurnValueEditingDone(Sender: TObject);
178 176 procedure XMLPropStorageRestoreProperties(Sender: TObject);
179   - {$IFDEF WINDOWS}
180   - procedure XMLPropStorageSaveProperties(Sender: TObject);
181   - {$ENDIF}
182 177 procedure XMLPropStorageSavingProperties(Sender: TObject);
183 178 procedure XMLPropStorageStoredValuesFileNameRestore(Sender: TStoredValue;
184 179 var Value: TStoredType);
... ... @@ -227,9 +222,9 @@ var
227 222 implementation
228 223  
229 224 uses game_resources, game_actors, game_actors_point, string_methods, strutils
230   - {$IFDEF WINDOWS}
231   - , Dos
232   - {$ENDIF}
  225 + //{$IFDEF WINDOWS}
  226 + //, Dos
  227 + //{$ENDIF}
233 228 ;
234 229  
235 230 const SV_FILENAME : string = 'Filename';
... ... @@ -609,20 +604,6 @@ begin
609 604 TabSheetContingencies.Enabled := ComboCurrentCondition.Items.Count > 0;
610 605 end;
611 606  
612   -{$IFDEF WINDOWS}
613   -procedure TFormDesigner.XMLPropStorageSaveProperties(Sender: TObject);
614   -var
615   - F : TextFile;
616   -begin
617   - if FileExists(XMLPropStorage.FileName) then
618   - begin
619   - AssignFile(F, XMLPropStorage.FileName);
620   - SetFAttr(F,Hidden);
621   - CloseFile(F);
622   - end;
623   -end;
624   -{$ENDIF}
625   -
626 607 procedure TFormDesigner.XMLPropStorageSavingProperties(Sender: TObject);
627 608 procedure SavePropStorageFilename;
628 609 var
... ... @@ -1373,10 +1354,6 @@ var
1373 1354 end
1374 1355 end;
1375 1356 begin
1376   - {$IFDEF WINDOWS}
1377   - XMLPropStorage.OnSaveProperties := @XMLPropStorageSaveProperties;
1378   - {$ENDIF}
1379   -
1380 1357 // TRadioGroup OnClick events are triggered programmatically by LCL code, not by us
1381 1358 // FLoading is a temporary workaround to avoid
1382 1359 // calls for SaveProcedures while loading FExperiment
... ... @@ -1408,7 +1385,11 @@ var
1408 1385 LS: String;
1409 1386 begin
1410 1387 if TCheckBox(Sender).Checked then
1411   - TCheckBox(Sender).Caption := 'Sim'
  1388 + begin
  1389 + TCheckBox(Sender).Caption := 'Sim';
  1390 + CGQuestion.Checked[0] := True;
  1391 + CGQuestion.Checked[1] := True;
  1392 + end
1412 1393 else
1413 1394 begin
1414 1395 TCheckBox(Sender).Caption := 'Não';
... ... @@ -1420,6 +1401,8 @@ begin
1420 1401 WriteString(LS, KEY_PROMPT_MESSAGE, '');
1421 1402 WriteString(LS, KEY_PROMPT_STYLE, '');
1422 1403 end;
  1404 + CGQuestion.Checked[0] := False;
  1405 + CGQuestion.Checked[1] := False;
1423 1406 end;
1424 1407 LabelQuestion.Visible:= CheckBoxShouldAskQuestion.Checked;
1425 1408 EditQuestion.Visible := CheckBoxShouldAskQuestion.Checked;
... ... @@ -2004,4 +1987,19 @@ begin
2004 1987  
2005 1988 end;
2006 1989  
  1990 +// TODO: hidden persistence.xml on windows
  1991 +//var
  1992 +// F : TextFile;
  1993 +//
  1994 +//finalization
  1995 +//begin
  1996 +// if FileExists(FormDesigner.XMLPropStorage.FileName) then
  1997 +// begin
  1998 +// AssignFile(F, FormDesigner.XMLPropStorage.FileName);
  1999 +// Reset(F);
  2000 +// SetFAttr(F,Hidden);
  2001 +// CloseFile(F);
  2002 +// end;
  2003 +//end;
  2004 +
2007 2005 end.
... ...