Download as
Browse Code »

Commit 17c83cacbb88d836fb8a676faf3c51fcbe6b4944

Authored by Carlos Picanco
1 parent 86db5e0b
Exists in master

gui incremental work

Showing 4 changed files with 982 additions and 287 deletions   Show diff stats
experiment_designer/experiment_designer.lpi
  Diff comments   View file @17c83ca
... ... @@ -32,7 +32,7 @@
32 32 <PackageName Value="LCL"/>
33 33 </Item1>
34 34 </RequiredPackages>
35   - <Units Count="3">
  35 + <Units Count="4">
36 36 <Unit0>
37 37 <Filename Value="experiment_designer.lpr"/>
38 38 <IsPartOfProject Value="True"/>
... ... @@ -48,6 +48,10 @@
48 48 <Filename Value="../units/game_actors_helpers.pas"/>
49 49 <IsPartOfProject Value="True"/>
50 50 </Unit2>
  51 + <Unit3>
  52 + <Filename Value="../units/gui_file_methods.pas"/>
  53 + <IsPartOfProject Value="True"/>
  54 + </Unit3>
51 55 </Units>
52 56 </ProjectOptions>
53 57 <CompilerOptions>
... ... @@ -57,7 +61,7 @@
57 61 </Target>
58 62 <SearchPaths>
59 63 <IncludeFiles Value="$(ProjOutDir)"/>
60   - <OtherUnitFiles Value="../units"/>
  64 + <OtherUnitFiles Value="../units;../../../units"/>
61 65 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
62 66 </SearchPaths>
63 67 <Linking>
... ...
experiment_designer/form_main.lfm
  Diff comments   View file @17c83ca
1 1 object FormDesigner: TFormDesigner
2   - Left = 114
  2 + Left = 180
3 3 Height = 635
4   - Top = 53
  4 + Top = 54
5 5 Width = 656
6   - HorzScrollBar.Page = 521
7   - VertScrollBar.Page = 616
  6 + HorzScrollBar.Page = 387
  7 + VertScrollBar.Page = 482
8 8 AutoScroll = True
9 9 Caption = 'Planejar Experimento'
10 10 ClientHeight = 616
11   - ClientWidth = 646
  11 + ClientWidth = 656
12 12 Menu = MainMenu1
13 13 OnCreate = FormCreate
14 14 OnDestroy = FormDestroy
15   - SessionProperties = 'Caption;ComboCurrentCondition.ItemIndex;ComboCurrentCondition.Items;ComboCurrentContingency.ItemIndex;ComboCurrentContingency.Items;Height;Left;PageControl.TabIndex;Top;Width;WindowState'
  15 + SessionProperties = 'Caption;ComboCurrentCondition.ItemIndex;ComboCurrentCondition.Items;ComboCurrentContingency.ItemIndex;ComboCurrentContingency.Items;Height;Left;PageControl.TabIndex;Top;Width;WindowState;LabelIf.Caption'
16 16 LCLVersion = '1.6.2.0'
17 17 object PageControl: TPageControl
18 18 Left = 0
19   - Height = 711
  19 + Height = 616
20 20 Top = 0
21   - Width = 646
22   - ActivePage = TabSheetConditions
  21 + Width = 656
  22 + ActivePage = TabSheetContingencies
23 23 Align = alClient
24   - TabIndex = 1
  24 + TabIndex = 2
25 25 TabOrder = 0
26 26 object TabSheetExperiment: TTabSheet
27 27 Caption = 'Experimento'
... ... @@ -30,13 +30,13 @@ object FormDesigner: TFormDesigner
30 30 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
31 31 ChildSizing.Layout = cclLeftToRightThenTopToBottom
32 32 ChildSizing.ControlsPerLine = 1
33   - ClientHeight = 678
34   - ClientWidth = 640
  33 + ClientHeight = 583
  34 + ClientWidth = 650
35 35 object LabelResearcherName: TLabel
36 36 Left = 0
37 37 Height = 15
38 38 Top = 10
39   - Width = 619
  39 + Width = 640
40 40 Caption = 'Nome do Pesquisador'
41 41 ParentColor = False
42 42 end
... ... @@ -45,14 +45,14 @@ object FormDesigner: TFormDesigner
45 45 Height = 25
46 46 Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.'
47 47 Top = 30
48   - Width = 619
  48 + Width = 640
49 49 TabOrder = 0
50 50 end
51 51 object LabelExperimentName: TLabel
52 52 Left = 0
53 53 Height = 15
54 54 Top = 60
55   - Width = 619
  55 + Width = 640
56 56 Caption = 'Nome do Experimento'
57 57 ParentColor = False
58 58 end
... ... @@ -61,23 +61,23 @@ object FormDesigner: TFormDesigner
61 61 Height = 25
62 62 Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.'
63 63 Top = 80
64   - Width = 619
  64 + Width = 640
65 65 TabOrder = 1
66 66 end
67 67 object GBExperimentAim: TGroupBox
68 68 Left = 0
69 69 Height = 159
70 70 Top = 110
71   - Width = 619
  71 + Width = 640
72 72 Caption = 'Objetivo do Experimento'
73 73 ClientHeight = 142
74   - ClientWidth = 615
  74 + ClientWidth = 636
75 75 TabOrder = 2
76 76 object MemoExperimentAim: TMemo
77 77 Left = 0
78 78 Height = 142
79 79 Top = 0
80   - Width = 615
  80 + Width = 636
81 81 Align = alCustom
82 82 Anchors = [akTop, akLeft, akRight]
83 83 TabOrder = 0
... ... @@ -88,7 +88,7 @@ object FormDesigner: TFormDesigner
88 88 Height = 113
89 89 Hint = 'Aplicáveis ao longo de todo o experimento'
90 90 Top = 274
91   - Width = 619
  91 + Width = 640
92 92 AutoFill = True
93 93 Caption = 'Configurações globais'
94 94 ChildSizing.LeftRightSpacing = 6
... ... @@ -100,7 +100,7 @@ object FormDesigner: TFormDesigner
100 100 ChildSizing.Layout = cclLeftToRightThenTopToBottom
101 101 ChildSizing.ControlsPerLine = 1
102 102 ClientHeight = 96
103   - ClientWidth = 615
  103 + ClientWidth = 636
104 104 Items.Strings = (
105 105 'Enviar histórico do bate-papo a novos participantes'
106 106 'Gerar participantes automaticamente'
... ... @@ -116,7 +116,7 @@ object FormDesigner: TFormDesigner
116 116 Left = 0
117 117 Height = 59
118 118 Top = 392
119   - Width = 619
  119 + Width = 640
120 120 AutoFill = True
121 121 Caption = 'Tipo de pontuação'
122 122 ChildSizing.LeftRightSpacing = 6
... ... @@ -127,7 +127,7 @@ object FormDesigner: TFormDesigner
127 127 ChildSizing.Layout = cclLeftToRightThenTopToBottom
128 128 ChildSizing.ControlsPerLine = 1
129 129 ClientHeight = 42
130   - ClientWidth = 615
  130 + ClientWidth = 636
131 131 ItemIndex = 0
132 132 Items.Strings = (
133 133 'A e B'
... ... @@ -136,52 +136,84 @@ object FormDesigner: TFormDesigner
136 136 OnClick = RGPointsClick
137 137 TabOrder = 4
138 138 end
139   - object CGMatrix: TCheckGroup
  139 + object GBMatrix: TGroupBox
140 140 Left = 0
141   - Height = 134
  141 + Height = 122
142 142 Top = 456
143   - Width = 619
144   - AutoFill = True
145   - Caption = 'Tipo da matrix'
146   - ChildSizing.LeftRightSpacing = 6
147   - ChildSizing.TopBottomSpacing = 6
148   - ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
149   - ChildSizing.EnlargeVertical = crsHomogenousChildResize
150   - ChildSizing.ShrinkHorizontal = crsScaleChilds
151   - ChildSizing.ShrinkVertical = crsScaleChilds
  143 + Width = 640
  144 + Caption = 'Tipo da Matrix'
  145 + ChildSizing.LeftRightSpacing = 5
152 146 ChildSizing.Layout = cclLeftToRightThenTopToBottom
153 147 ChildSizing.ControlsPerLine = 1
154   - ClientHeight = 117
155   - ClientWidth = 615
156   - Items.Strings = (
157   - '5 cores'
158   - '10 Linhas'
159   - '10 Colunas'
160   - 'Círculos'
161   - 'Círculos Vazados'
162   - )
163   - TabOrder = 5
164   - Data = {
165   - 050000000303020202
166   - }
  148 + ClientHeight = 105
  149 + ClientWidth = 636
  150 + TabOrder = 6
  151 + object ChkColors: TCheckBox
  152 + Left = 5
  153 + Height = 21
  154 + Top = 0
  155 + Width = 169
  156 + Caption = '5 cores'
  157 + Checked = True
  158 + Enabled = False
  159 + State = cbChecked
  160 + TabOrder = 0
  161 + end
  162 + object ChkRows: TCheckBox
  163 + Left = 5
  164 + Height = 21
  165 + Top = 21
  166 + Width = 169
  167 + Caption = '10 linhas'
  168 + Checked = True
  169 + Enabled = False
  170 + State = cbChecked
  171 + TabOrder = 1
  172 + end
  173 + object ChkCols: TCheckBox
  174 + Left = 5
  175 + Height = 21
  176 + Top = 42
  177 + Width = 169
  178 + Caption = '10 colunas'
  179 + TabOrder = 2
  180 + end
  181 + object ChkDots: TCheckBox
  182 + Left = 5
  183 + Height = 21
  184 + Top = 63
  185 + Width = 169
  186 + Caption = 'Com Círculos Preechidos'
  187 + OnChange = ChkDotsChange
  188 + TabOrder = 3
  189 + end
  190 + object ChkCleanDots: TCheckBox
  191 + Left = 5
  192 + Height = 21
  193 + Top = 84
  194 + Width = 169
  195 + Caption = 'Com Círculos Vazados'
  196 + OnChange = ChkCleanDotsChange
  197 + TabOrder = 4
  198 + end
167 199 end
168 200 object GBConditions: TGroupBox
169 201 Left = 0
170 202 Height = 97
171   - Top = 595
172   - Width = 619
  203 + Top = 583
  204 + Width = 640
173 205 Caption = 'Condições'
174 206 ClientHeight = 80
175   - ClientWidth = 615
176   - TabOrder = 6
  207 + ClientWidth = 636
  208 + TabOrder = 5
177 209 object ListBoxConditions: TListBox
178 210 Left = 0
179 211 Height = 80
180 212 Top = 0
181   - Width = 615
  213 + Width = 636
182 214 Anchors = [akTop, akLeft, akRight]
183 215 ItemHeight = 0
184   - ScrollWidth = 613
  216 + ScrollWidth = 634
185 217 TabOrder = 0
186 218 TopIndex = -1
187 219 end
... ... @@ -194,14 +226,15 @@ object FormDesigner: TFormDesigner
194 226 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
195 227 ChildSizing.Layout = cclLeftToRightThenTopToBottom
196 228 ChildSizing.ControlsPerLine = 1
197   - ClientHeight = 678
198   - ClientWidth = 640
  229 + ClientHeight = 583
  230 + ClientWidth = 650
199 231 object ComboCurrentCondition: TComboBox
200 232 Left = 0
201 233 Height = 27
202 234 Top = 10
203 235 Width = 640
204 236 ItemHeight = 0
  237 + OnChange = ComboCurrentConditionChange
205 238 Style = csDropDownList
206 239 TabOrder = 0
207 240 end
... ... @@ -224,6 +257,7 @@ object FormDesigner: TFormDesigner
224 257 Top = 0
225 258 Width = 162
226 259 Caption = 'Adicionar'
  260 + OnClick = BtnAppendCondClick
227 261 TabOrder = 0
228 262 end
229 263 object BtnRemoveCond: TButton
... ... @@ -232,6 +266,7 @@ object FormDesigner: TFormDesigner
232 266 Top = 0
233 267 Width = 159
234 268 Caption = 'Remover'
  269 + OnClick = BtnRemoveCondClick
235 270 TabOrder = 1
236 271 end
237 272 object BtnReorderCond: TButton
... ... @@ -257,6 +292,7 @@ object FormDesigner: TFormDesigner
257 292 Height = 25
258 293 Top = 93
259 294 Width = 640
  295 + OnEditingDone = EditConditionNameEditingDone
260 296 TabOrder = 2
261 297 end
262 298 object LabelTurnValue: TLabel
... ... @@ -274,31 +310,49 @@ object FormDesigner: TFormDesigner
274 310 Width = 640
275 311 MaxValue = 5
276 312 MinValue = 2
  313 + OnEditingDone = SpinEditTurnValueEditingDone
277 314 TabOrder = 3
278 315 Value = 2
279 316 end
280   - object LabelCyclesValue: TLabel
  317 + object LabelPointsOnConditionBegin: TLabel
281 318 Left = 0
282 319 Height = 15
283 320 Top = 173
284 321 Width = 640
  322 + Caption = 'Pontos ao início da Condição'
  323 + ParentColor = False
  324 + end
  325 + object SpinEditOnConditionBegin: TSpinEdit
  326 + Left = 0
  327 + Height = 25
  328 + Top = 193
  329 + Width = 640
  330 + MaxValue = 0
  331 + TabOrder = 9
  332 + end
  333 + object LabelCyclesValue: TLabel
  334 + Left = 0
  335 + Height = 15
  336 + Top = 223
  337 + Width = 640
285 338 Caption = 'Ciclos para mudança de geração / linhagem'
286 339 ParentColor = False
287 340 end
288 341 object SpinEditCyclesValue: TSpinEdit
289 342 Left = 0
290 343 Height = 25
291   - Top = 193
  344 + Top = 243
292 345 Width = 640
293 346 MaxValue = 1000
294 347 MinValue = 1
  348 + OnEditingDone = SpinEditCyclesValueEditingDone
295 349 TabOrder = 4
296 350 Value = 1
297 351 end
298 352 object GBQuestion: TGroupBox
299 353 Left = 0
300 354 Height = 144
301   - Top = 223
  355 + Top = 273
302 356 Width = 640
303 357 Caption = 'Apresentar pergunta ao final do ciclo'
304 358 ChildSizing.LeftRightSpacing = 50
... ... @@ -308,7 +362,7 @@ object FormDesigner: TFormDesigner
308 362 ChildSizing.ControlsPerLine = 1
309 363 ClientHeight = 127
310 364 ClientWidth = 636
311   - TabOrder = 8
  365 + TabOrder = 5
312 366 object CheckBoxShouldAskQuestion: TCheckBox
313 367 Left = 50
314 368 Height = 21
... ... @@ -323,6 +377,7 @@ object FormDesigner: TFormDesigner
323 377 Height = 25
324 378 Top = 26
325 379 Width = 536
  380 + OnEditingDone = EditQuestionEditingDone
326 381 TabOrder = 1
327 382 Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?'
328 383 Visible = False
... ... @@ -348,6 +403,7 @@ object FormDesigner: TFormDesigner
348 403 'Reverter consequências das metacontingências e contingências'
349 404 'Inverter pontos A e B quando pontos B forem consequências'
350 405 )
  406 + OnItemClick = CGQuestionItemClick
351 407 TabOrder = 2
352 408 Visible = False
353 409 Data = {
... ... @@ -358,7 +414,7 @@ object FormDesigner: TFormDesigner
358 414 object RGEndCriteriaStyle: TRadioGroup
359 415 Left = 0
360 416 Height = 80
361   - Top = 372
  417 + Top = 422
362 418 Width = 640
363 419 AutoFill = True
364 420 Caption = 'Estilo do critério de finalização da condição'
... ... @@ -383,7 +439,7 @@ object FormDesigner: TFormDesigner
383 439 object GBEndCriteria: TGroupBox
384 440 Left = 0
385 441 Height = 109
386   - Top = 457
  442 + Top = 507
387 443 Width = 640
388 444 Caption = 'Valores do critério de finalização da condição'
389 445 ChildSizing.LeftRightSpacing = 50
... ... @@ -393,7 +449,7 @@ object FormDesigner: TFormDesigner
393 449 ChildSizing.ControlsPerLine = 1
394 450 ClientHeight = 92
395 451 ClientWidth = 636
396   - TabOrder = 5
  452 + TabOrder = 7
397 453 object LabelEndCriteriaAbsCycles: TLabel
398 454 Left = 50
399 455 Height = 15
... ... @@ -408,6 +464,7 @@ object FormDesigner: TFormDesigner
408 464 Top = 20
409 465 Width = 536
410 466 MaxValue = 1000
  467 + OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone
411 468 TabOrder = 0
412 469 Value = 20
413 470 end
... ... @@ -428,6 +485,7 @@ object FormDesigner: TFormDesigner
428 485 Height = 25
429 486 Top = 0
430 487 Width = 50
  488 + OnEditingDone = SpinEditEndCriteriaInterlockingEditingDone
431 489 TabOrder = 0
432 490 Value = 80
433 491 end
... ... @@ -448,6 +506,7 @@ object FormDesigner: TFormDesigner
448 506 Width = 50
449 507 MaxValue = 1000
450 508 MinValue = 2
  509 + OnEditingDone = SpinEditEndCriteriaInterlockingEditingDone
451 510 TabOrder = 1
452 511 Value = 10
453 512 end
... ... @@ -466,12 +525,12 @@ object FormDesigner: TFormDesigner
466 525 object GBContingencies: TGroupBox
467 526 Left = 0
468 527 Height = 97
469   - Top = 571
  528 + Top = 621
470 529 Width = 640
471 530 Caption = 'Contingências e Metacontingências'
472 531 ClientHeight = 80
473 532 ClientWidth = 636
474   - TabOrder = 7
  533 + TabOrder = 8
475 534 object ListBoxContingencies: TListBox
476 535 Left = 0
477 536 Height = 80
... ... @@ -492,8 +551,8 @@ object FormDesigner: TFormDesigner
492 551 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
493 552 ChildSizing.Layout = cclLeftToRightThenTopToBottom
494 553 ChildSizing.ControlsPerLine = 1
495   - ClientHeight = 678
496   - ClientWidth = 640
  554 + ClientHeight = 583
  555 + ClientWidth = 650
497 556 object ComboCurrentContingency: TComboBox
498 557 Left = 0
499 558 Height = 27
... ... @@ -522,6 +581,7 @@ object FormDesigner: TFormDesigner
522 581 Top = 0
523 582 Width = 166
524 583 Caption = 'Adicionar'
  584 + OnClick = BtnAppendContingencyClick
525 585 TabOrder = 0
526 586 end
527 587 object BtnRemoveContingency: TButton
... ... @@ -598,55 +658,27 @@ object FormDesigner: TFormDesigner
598 658 Top = 276
599 659 Width = 650
600 660 Alignment = taCenter
601   - Caption = 'SE'
  661 + Caption = 'SE O PARTICIPANTE ESCOLHER'
602 662 ParentColor = False
603 663 Visible = False
604 664 end
605 665 object GBContingencyRows: TGroupBox
606 666 Left = 0
607   - Height = 40
  667 + Height = 17
608 668 Top = 296
609 669 Width = 650
610 670 Caption = 'Linhas'
  671 + ChildSizing.LeftRightSpacing = 5
611 672 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
612   - ChildSizing.Layout = cclTopToBottomThenLeftToRight
613   - ChildSizing.ControlsPerLine = 1
614   - ClientHeight = 23
615   - ClientWidth = 646
  673 + ChildSizing.Layout = cclLeftToRightThenTopToBottom
  674 + ChildSizing.ControlsPerLine = 4
616 675 TabOrder = 5
617 676 Visible = False
618   - object ComboBoxRows: TComboBox
619   - Left = 0
620   - Height = 23
621   - Top = 0
622   - Width = 646
623   - ItemHeight = 0
624   - ItemIndex = 0
625   - Items.Strings = (
626   - '1'
627   - '2'
628   - '3'
629   - '4'
630   - '5'
631   - '6'
632   - '7'
633   - '8'
634   - '9'
635   - '10'
636   - 'PARES'
637   - 'IMPARES'
638   - 'TUDO EXCETO PARES'
639   - 'TUDO EXCETO IMPARES'
640   - )
641   - Style = csDropDownList
642   - TabOrder = 0
643   - Text = '1'
644   - end
645 677 end
646 678 object LabelOperator: TLabel
647 679 Left = 0
648 680 Height = 15
649   - Top = 341
  681 + Top = 318
650 682 Width = 650
651 683 Alignment = taCenter
652 684 Caption = 'E'
... ... @@ -655,39 +687,21 @@ object FormDesigner: TFormDesigner
655 687 end
656 688 object GBContingencyColors: TGroupBox
657 689 Left = 0
658   - Height = 40
659   - Top = 361
  690 + Height = 17
  691 + Top = 338
660 692 Width = 650
661 693 Caption = 'Cores'
662   - ClientHeight = 23
663   - ClientWidth = 646
  694 + ChildSizing.HorizontalSpacing = 5
  695 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
  696 + ChildSizing.Layout = cclLeftToRightThenTopToBottom
  697 + ChildSizing.ControlsPerLine = 5
664 698 TabOrder = 6
665 699 Visible = False
666   - object ComboBoxColors: TComboBox
667   - Left = 0
668   - Height = 27
669   - Top = 0
670   - Width = 641
671   - ItemHeight = 0
672   - ItemIndex = 5
673   - Items.Strings = (
674   - 'AMARELO'
675   - 'VERMELHO'
676   - 'ROXO'
677   - 'AZUL'
678   - 'VERDE'
679   - 'DIFERENTES'
680   - 'IGUAIS'
681   - )
682   - Style = csDropDownList
683   - TabOrder = 0
684   - Text = 'DIFERENTES'
685   - end
686 700 end
687 701 object LabelThen: TLabel
688 702 Left = 0
689 703 Height = 15
690   - Top = 406
  704 + Top = 360
691 705 Width = 650
692 706 Alignment = taCenter
693 707 Caption = 'ENTÃO'
... ... @@ -697,7 +711,7 @@ object FormDesigner: TFormDesigner
697 711 object GBContingencyConsequence: TGroupBox
698 712 Left = 0
699 713 Height = 59
700   - Top = 426
  714 + Top = 380
701 715 Width = 650
702 716 Caption = 'Consequência'
703 717 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
... ... @@ -707,8 +721,25 @@ object FormDesigner: TFormDesigner
707 721 ClientWidth = 646
708 722 TabOrder = 7
709 723 Visible = False
710   - object LabelC1: TLabel
  724 + object LabelC6: TLabel
  725 + Left = 0
  726 + Height = 15
  727 + Top = 0
  728 + Width = 154
  729 + Caption = 'do Tipo'
  730 + ParentColor = False
  731 + end
  732 + object CBPointsType: TComboBox
711 733 Left = 0
  734 + Height = 27
  735 + Top = 15
  736 + Width = 154
  737 + ItemHeight = 0
  738 + Style = csDropDownList
  739 + TabOrder = 4
  740 + end
  741 + object LabelC1: TLabel
  742 + Left = 154
712 743 Height = 15
713 744 Top = 0
714 745 Width = 134
... ... @@ -716,7 +747,7 @@ object FormDesigner: TFormDesigner
716 747 ParentColor = False
717 748 end
718 749 object EditMessPrefix: TEdit
719   - Left = 0
  750 + Left = 154
720 751 Height = 27
721 752 Top = 15
722 753 Width = 134
... ... @@ -724,7 +755,7 @@ object FormDesigner: TFormDesigner
724 755 Text = '$NICNAME produziu'
725 756 end
726 757 object LabelC4: TLabel
727   - Left = 134
  758 + Left = 288
728 759 Height = 15
729 760 Top = 0
730 761 Width = 104
... ... @@ -732,31 +763,14 @@ object FormDesigner: TFormDesigner
732 763 ParentColor = False
733 764 end
734 765 object SpinEditContingencyPoints: TSpinEdit
735   - Left = 134
  766 + Left = 288
736 767 Height = 27
737 768 Top = 15
738 769 Width = 104
739   - MaxValue = 1000
  770 + MaxValue = 0
740 771 TabOrder = 2
741 772 Value = 1
742 773 end
743   - object LabelC6: TLabel
744   - Left = 238
745   - Height = 15
746   - Top = 0
747   - Width = 154
748   - Caption = 'do Tipo'
749   - ParentColor = False
750   - end
751   - object CBPointsType: TComboBox
752   - Left = 238
753   - Height = 27
754   - Top = 15
755   - Width = 154
756   - ItemHeight = 0
757   - Style = csDropDownList
758   - TabOrder = 4
759   - end
760 774 object LabelC2: TLabel
761 775 Left = 392
762 776 Height = 15
... ... @@ -786,6 +800,7 @@ object FormDesigner: TFormDesigner
786 800 Height = 27
787 801 Top = 15
788 802 Width = 120
  803 + AllowGrayed = True
789 804 Caption = 'a todos'
790 805 Checked = True
791 806 OnChange = CheckBoxBroadcastChange
... ... @@ -818,7 +833,13 @@ object FormDesigner: TFormDesigner
818 833 top = 8
819 834 end
820 835 object XMLPropStorage: TXMLPropStorage
821   - StoredValues = <>
  836 + StoredValues = <
  837 + item
  838 + Name = 'FileName'
  839 + Value = 'persistence.ini'
  840 + OnSave = XMLPropStorageStoredValuesFileNameSave
  841 + OnRestore = XMLPropStorageStoredValuesFileNameRestore
  842 + end>
822 843 FileName = 'persistence.xml'
823 844 OnSavingProperties = XMLPropStorageSavingProperties
824 845 OnRestoreProperties = XMLPropStorageRestoreProperties
... ...
experiment_designer/form_main.pas
  Diff comments   View file @17c83ca
... ... @@ -6,7 +6,7 @@ interface
6 6  
7 7 uses
8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
9   - Menus, ExtCtrls, StdCtrls, XMLPropStorage, IniFiles, Spin;
  9 + Menus, ExtCtrls, StdCtrls, XMLPropStorage, IniFiles, Spin, PropertyStorage;
10 10  
11 11 type
12 12  
... ... @@ -20,13 +20,15 @@ type
20 20 BtnReorderCond: TButton;
21 21 BtnReorderContingency: TButton;
22 22 CGGlobal: TCheckGroup;
23   - CGMatrix: TCheckGroup;
  23 + ChkColors: TCheckBox;
  24 + ChkRows: TCheckBox;
  25 + ChkCols: TCheckBox;
  26 + ChkDots: TCheckBox;
  27 + ChkCleanDots: TCheckBox;
24 28 CheckBoxBroadcast: TCheckBox;
25 29 CheckBoxIsMeta: TCheckBox;
26 30 CheckBoxShouldAskQuestion: TCheckBox;
27 31 CGQuestion: TCheckGroup;
28   - ComboBoxRows: TComboBox;
29   - ComboBoxColors: TComboBox;
30 32 CBPointsType: TComboBox;
31 33 ComboCurrentCondition: TComboBox;
32 34 ComboCurrentContingency: TComboBox;
... ... @@ -46,6 +48,8 @@ type
46 48 GBQuestion: TGroupBox;
47 49 GBContingencyRows: TGroupBox;
48 50 GBContingencyConsequence: TGroupBox;
  51 + GBMatrix: TGroupBox;
  52 + LabelPointsOnConditionBegin: TLabel;
49 53 LabelC1: TLabel;
50 54 LabelC2: TLabel;
51 55 LabelC4: TLabel;
... ... @@ -83,14 +87,26 @@ type
83 87 SpinEditEndCriteriaLastCycles: TSpinEdit;
84 88 SpinEditEndCriteriaAbsCycles: TSpinEdit;
85 89 SpinEditCyclesValue: TSpinEdit;
  90 + SpinEditOnConditionBegin: TSpinEdit;
86 91 SpinEditTurnValue: TSpinEdit;
87 92 TabSheetContingencies: TTabSheet;
88 93 TabSheetConditions: TTabSheet;
89 94 TabSheetExperiment: TTabSheet;
90 95 XMLPropStorage: TXMLPropStorage;
  96 + procedure BtnAppendCondClick(Sender: TObject);
  97 + procedure BtnAppendContingencyClick(Sender: TObject);
  98 + procedure BtnRemoveCondClick(Sender: TObject);
  99 + procedure CGQuestionItemClick(Sender: TObject; Index: integer);
91 100 procedure CheckBoxBroadcastChange(Sender: TObject);
92 101 procedure CheckBoxIsMetaChange(Sender: TObject);
93 102 procedure CheckBoxShouldAskQuestionChange(Sender: TObject);
  103 + procedure ChkCleanDotsChange(Sender: TObject);
  104 + procedure ChkDotsChange(Sender: TObject);
  105 + procedure ComboCurrentConditionChange(Sender: TObject);
  106 + procedure EditConditionNameChange(Sender: TObject);
  107 + procedure EditConditionNameEditingDone(Sender: TObject);
  108 + procedure EditQuestionChange(Sender: TObject);
  109 + procedure EditQuestionEditingDone(Sender: TObject);
94 110 procedure FormCreate(Sender: TObject);
95 111 procedure FormDestroy(Sender: TObject);
96 112 procedure MenuItemExitClick(Sender: TObject);
... ... @@ -98,10 +114,39 @@ type
98 114 procedure RGContingencyStyleClick(Sender: TObject);
99 115 procedure RGEndCriteriaStyleClick(Sender: TObject);
100 116 procedure RGPointsClick(Sender: TObject);
  117 + procedure SpinEditCyclesValueEditingDone(Sender: TObject);
  118 + procedure SpinEditEndCriteriaAbsCyclesEditingDone(Sender: TObject);
  119 + procedure SpinEditEndCriteriaInterlockingEditingDone(
  120 + Sender: TObject);
  121 + procedure SpinEditTurnValueEditingDone(Sender: TObject);
101 122 procedure XMLPropStorageRestoreProperties(Sender: TObject);
102 123 procedure XMLPropStorageSavingProperties(Sender: TObject);
  124 + procedure XMLPropStorageStoredValuesFileNameRestore(Sender: TStoredValue;
  125 + var Value: TStoredType);
  126 + procedure XMLPropStorageStoredValuesFileNameSave(Sender: TStoredValue;
  127 + var Value: TStoredType);
103 128 private
104   - FExperiment : TIniFile;
  129 + FExperiment: TIniFile;
  130 + procedure LoadExperiment;
  131 + procedure LoadSectionExperiment;
  132 + procedure LoadSectionCondition(LS: string);
  133 + procedure LoadContingency(LS, LC: string);
  134 + procedure SaveExperiment;
  135 + procedure SaveSectionExperiment;
  136 + procedure SaveSectionCondition(LS: string);
  137 + procedure SaveContingency(LS, LC: string);
  138 + private
  139 + function GetLC(IsMeta:Boolean):string;
  140 + function GetConsequenceStyle: string;
  141 + function GetContingencyCriteria: string;
  142 + function GetEndCriteriaPorcentage: string;
  143 + function GetEndCriteriaStyleFromRGEndCriteriaStyle: string;
  144 + function GetMatrixTypeStringFromCGMatrix: string;
  145 + function GetPromptQuestionStringFromCGQuestion: string;
  146 + procedure SetCGMatrix(AMatrixType: string);
  147 + procedure SetCGQuestion(AQuestionStyle: string);
  148 + procedure SetRGEndCriteriaStyle(AStyle: string);
  149 + procedure SetContingencyCriteria(S: string);
105 150 public
106 151 { public declarations }
107 152 end;
... ... @@ -111,145 +156,614 @@ var
111 156  
112 157 implementation
113 158  
114   -uses game_resources, game_file_methods;
  159 +uses game_resources, game_actors, string_methods, strutils;
115 160  
116 161 {$R *.lfm}
117 162  
118 163 { TFormDesigner }
119 164  
120   -
121 165 procedure TFormDesigner.MenuItemOpenClick(Sender: TObject);
122 166 begin
123 167 if OpenDialog.Execute then
124   - begin
125   - if FExperiment.FileName = OpenDialog.FileName then Exit;
126   - FExperiment := TIniFile.Create(OpenDialog.FileName);
127   - end;
  168 + begin
  169 + if FExperiment.FileName = OpenDialog.FileName then
  170 + Exit;
  171 + FExperiment.Free;
  172 + FExperiment := TIniFile.Create(OpenDialog.FileName);
  173 + XMLPropStorage.StoredValue['FileName'] := FExperiment.FileName;
  174 + end;
128 175 end;
129 176  
130 177 procedure TFormDesigner.RGContingencyStyleClick(Sender: TObject);
131   -var LVisible : Boolean;
  178 +var
  179 + LVisible: boolean;
132 180 begin
133 181 LVisible := True;
134 182 case TRadioGroup(Sender).ItemIndex of
135 183 0:
136   - begin
137   - LabelIf.Visible:= not LVisible;
138   - LabelThen.Visible:= not LVisible;
139   - LabelOperator.Visible:= not LVisible;
140   - GBContingencyRows.Visible:= not LVisible;
141   - GBContingencyColors.Visible:= not LVisible;
142   - GBContingencyConsequence.Visible:= not LVisible;
143   - end;
  184 + begin
  185 + LabelIf.Visible := not LVisible;
  186 + LabelThen.Visible := not LVisible;
  187 + LabelOperator.Visible := not LVisible;
  188 + GBContingencyRows.Visible := not LVisible;
  189 + GBContingencyColors.Visible := not LVisible;
  190 + GBContingencyConsequence.Visible := not LVisible;
  191 + end;
144 192  
145 193 1:
146   - begin
147   - LabelIf.Visible:= LVisible;
148   - LabelThen.Visible:= LVisible;
149   - LabelOperator.Visible:= not LVisible;
150   - GBContingencyRows.Visible:= LVisible;
151   - GBContingencyColors.Visible:= not LVisible;
152   - GBContingencyConsequence.Visible:= LVisible;
153   - end;
  194 + begin
  195 + LabelIf.Visible := LVisible;
  196 + LabelThen.Visible := LVisible;
  197 + LabelOperator.Visible := not LVisible;
  198 + GBContingencyRows.Visible := LVisible;
  199 + GBContingencyColors.Visible := not LVisible;
  200 + GBContingencyConsequence.Visible := LVisible;
  201 + end;
154 202  
155 203 2:
156   - begin
157   - LabelIf.Visible:= LVisible;
158   - LabelThen.Visible:= LVisible;
159   - LabelOperator.Visible:= not LVisible;
160   - GBContingencyRows.Visible:= not LVisible;
161   - GBContingencyColors.Visible:= LVisible;
162   - GBContingencyConsequence.Visible:= LVisible;
163   - end;
  204 + begin
  205 + LabelIf.Visible := LVisible;
  206 + LabelThen.Visible := LVisible;
  207 + LabelOperator.Visible := not LVisible;
  208 + GBContingencyRows.Visible := not LVisible;
  209 + GBContingencyColors.Visible := LVisible;
  210 + GBContingencyConsequence.Visible := LVisible;
  211 + end;
164 212 3:
165   - begin
166   - LabelIf.Visible:= LVisible;
167   - LabelThen.Visible:= LVisible;
168   - LabelOperator.Caption:='E';
169   - LabelOperator.Visible:= LVisible;
170   - GBContingencyRows.Visible:= LVisible;
171   - GBContingencyColors.Visible:= LVisible;
172   - GBContingencyConsequence.Visible:= LVisible;
173   - end;
  213 + begin
  214 + LabelIf.Visible := LVisible;
  215 + LabelThen.Visible := LVisible;
  216 + LabelOperator.Caption := 'E';
  217 + LabelOperator.Visible := LVisible;
  218 + GBContingencyRows.Visible := LVisible;
  219 + GBContingencyColors.Visible := LVisible;
  220 + GBContingencyConsequence.Visible := LVisible;
  221 + end;
174 222 4:
175   - begin
176   - LabelIf.Visible:= LVisible;
177   - LabelThen.Visible:= LVisible;
178   - LabelOperator.Caption:='OU';
179   - LabelOperator.Visible:= LVisible;
180   - GBContingencyRows.Visible:= LVisible;
181   - GBContingencyColors.Visible:= LVisible;
182   - GBContingencyConsequence.Visible:= LVisible;
183   - end;
  223 + begin
  224 + LabelIf.Visible := LVisible;
  225 + LabelThen.Visible := LVisible;
  226 + LabelOperator.Caption := 'OU';
  227 + LabelOperator.Visible := LVisible;
  228 + GBContingencyRows.Visible := LVisible;
  229 + GBContingencyColors.Visible := LVisible;
  230 + GBContingencyConsequence.Visible := LVisible;
  231 + end;
184 232 end;
185 233 CheckBoxIsMetaChange(CheckBoxIsMeta);
186 234 end;
187 235  
188 236 procedure TFormDesigner.RGEndCriteriaStyleClick(Sender: TObject);
  237 +var
  238 + LS: String;
189 239 begin
190 240 case TRadioGroup(Sender).ItemIndex of
191 241 0:
192   - begin
193   - LabelEndCriteriaAbsCycles.Visible := True;
194   - SpinEditEndCriteriaAbsCycles.Visible:= True;
195   - GBEndCriteriaLastCycles.Visible:= False;
  242 + begin
  243 + LabelEndCriteriaAbsCycles.Visible := True;
  244 + SpinEditEndCriteriaAbsCycles.Visible := True;
  245 + GBEndCriteriaLastCycles.Visible := False;
196 246  
197   - end;
  247 + end;
198 248 1:
199   - begin
200   - LabelEndCriteriaAbsCycles.Visible := False;
201   - SpinEditEndCriteriaAbsCycles.Visible:= False;
202   - GBEndCriteriaLastCycles.Visible:= True;
203   - end;
  249 + begin
  250 + LabelEndCriteriaAbsCycles.Visible := False;
  251 + SpinEditEndCriteriaAbsCycles.Visible := False;
  252 + GBEndCriteriaLastCycles.Visible := True;
  253 + end;
204 254 2:
  255 + begin
  256 + LabelEndCriteriaAbsCycles.Visible := True;
  257 + SpinEditEndCriteriaAbsCycles.Visible := True;
  258 + GBEndCriteriaLastCycles.Visible := True;
  259 + end;
  260 + end;
  261 +
  262 + with FExperiment do
  263 + if ComboCurrentCondition.ItemIndex <> -1 then
205 264 begin
206   - LabelEndCriteriaAbsCycles.Visible := True;
207   - SpinEditEndCriteriaAbsCycles.Visible:= True;
208   - GBEndCriteriaLastCycles.Visible:= True;
  265 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  266 + WriteString(LS, KEY_ENDCRITERIA, GetEndCriteriaStyleFromRGEndCriteriaStyle);
209 267 end;
210   - end;
211 268 end;
212 269  
213 270 procedure TFormDesigner.RGPointsClick(Sender: TObject);
214 271 begin
215 272 case TRadioGroup(Sender).ItemIndex of
216 273 0:
  274 + begin
  275 + CBPointsType.Items.Clear;
  276 + CBPointsType.Items.Append('Individual A');
  277 + CBPointsType.Items.Append('Individual B');
  278 + CBPointsType.Items.Append('Para o Grupo');
  279 + end;
  280 +
  281 + 1:
  282 + begin
  283 + CBPointsType.Items.Clear;
  284 + CBPointsType.Items.Append('Individual');
  285 + CBPointsType.Items.Append('Para o Grupo');
  286 + end;
  287 + end;
  288 +end;
  289 +
  290 +procedure TFormDesigner.SpinEditCyclesValueEditingDone(Sender: TObject);
  291 +var
  292 + LS: string;
  293 +begin
  294 + with FExperiment do
  295 + if ComboCurrentCondition.ItemIndex <> -1 then
  296 + begin
  297 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  298 + WriteInteger(LS, KEY_CYCLES_VALUE, SpinEditCyclesValue.Value);
  299 + end;
  300 +end;
  301 +
  302 +procedure TFormDesigner.SpinEditEndCriteriaAbsCyclesEditingDone(Sender: TObject
  303 + );
  304 +var
  305 + LS: String;
  306 +begin
  307 + with FExperiment do
  308 + if ComboCurrentCondition.ItemIndex <> -1 then
217 309 begin
218   - CBPointsType.Items.Clear;
219   - CBPointsType.Items.Append('Individual A');
220   - CBPointsType.Items.Append('Individual B');
221   - CBPointsType.Items.Append('Para o Grupo');
  310 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  311 + WriteInteger(LS, KEY_ENDCRITERIA_CYCLES, SpinEditEndCriteriaAbsCycles.Value);
222 312 end;
  313 +end;
223 314  
224   - 1:
  315 +procedure TFormDesigner.SpinEditEndCriteriaInterlockingEditingDone(
  316 + Sender: TObject);
  317 +var
  318 + LS: string;
  319 +begin
  320 + with FExperiment do
  321 + if ComboCurrentCondition.ItemIndex <> -1 then
225 322 begin
226   - CBPointsType.Items.Clear;
227   - CBPointsType.Items.Append('Individual');
228   - CBPointsType.Items.Append('Para o Grupo');
  323 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  324 + WriteString(LS, KEY_ENDCRITERIA_PORCENTAGE, GetEndCriteriaPorcentage);
  325 + end;
  326 +end;
  327 +
  328 +procedure TFormDesigner.SpinEditTurnValueEditingDone(Sender: TObject);
  329 +var
  330 + LS: string;
  331 +begin
  332 + with FExperiment do
  333 + if ComboCurrentCondition.ItemIndex <> -1 then
  334 + begin
  335 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  336 + WriteInteger(LS, KEY_TURN_VALUE, SpinEditTurnValue.Value);
229 337 end;
230   - end;
231 338 end;
232 339  
233 340 procedure TFormDesigner.XMLPropStorageRestoreProperties(Sender: TObject);
234   -//var
235   -// i: Integer;
236 341 begin
237   - //for i := 0 to CGGlobal.Items.Count-1 do
238   - // CGGlobal.Checked[i] := StrToBool(XMLPropStorage.StoredValue['CGGLobal.Checked'+IntToStr(i)]);
239   - //
240   - //for i := 0 to CGMatrix.Items.Count-1 do
241   - // CGMatrix.Checked[i] := StrToBool(XMLPropStorage.StoredValue['CGMatrix.Checked'+IntToStr(i)]);
  342 + LoadExperiment;
  343 + ListBoxConditions.Items.Text := ComboCurrentCondition.Items.Text;
  344 + ListBoxContingencies.Items.Text := ComboCurrentContingency.Items.Text;
  345 + RGPointsClick(RGPoints);
  346 + RGEndCriteriaStyleClick(RGEndCriteriaStyle);
242 347 end;
243 348  
244 349 procedure TFormDesigner.XMLPropStorageSavingProperties(Sender: TObject);
245   -//var
246   -// i: Integer;
247 350 begin
248   - //for i := 0 to CGGlobal.Items.Count-1 do
249   - // XMLPropStorage.StoredValue['CGGLobal.Checked'+IntToStr(i)] := BoolToStr(CGGLobal.Checked[i]);
250   - //
251   - //for i := 0 to CGMatrix.Items.Count-1 do
252   - // XMLPropStorage.StoredValue['CGMatrix.Checked'+IntToStr(i)] := BoolToStr(CGMatrix.Checked[i]);
  351 + SaveExperiment;
  352 +end;
  353 +
  354 +
  355 +procedure TFormDesigner.XMLPropStorageStoredValuesFileNameRestore(Sender: TStoredValue;
  356 + var Value: TStoredType);
  357 +begin
  358 + FExperiment := TIniFile.Create(Value);
  359 +end;
  360 +
  361 +
  362 +procedure TFormDesigner.XMLPropStorageStoredValuesFileNameSave(Sender: TStoredValue;
  363 + var Value: TStoredType);
  364 +begin
  365 + Value := FExperiment.FileName;
  366 +end;
  367 +
  368 +procedure TFormDesigner.LoadExperiment;
  369 +var
  370 + LS: string;
  371 + LC: string;
  372 +begin
  373 + LoadSectionExperiment;
  374 +
  375 + if ComboCurrentCondition.ItemIndex <> -1 then
  376 + begin
  377 + LS := SEC_CONDITION + IntToStr(ComboCurrentCondition.ItemIndex + 1);
  378 + LoadSectionCondition(LS);
  379 + if ComboCurrentContingency.ItemIndex <> -1 then
  380 + begin
  381 + LC := Delimited(1, ComboCurrentContingency.Items[ComboCurrentContingency.ItemIndex]);
  382 + LoadContingency(LS, LC);
  383 + end;
  384 + end;
  385 + //if NamesOnly then
  386 + // begin
  387 + // ListBoxConditions.Items.Append(LS+'|'+EditConditionName.Text);
  388 + // ComboCurrentCondition.Items.Append(LS+'|'+EditConditionName.Text);
  389 + // Exit;
  390 + // end;
  391 +end;
  392 +
  393 +procedure TFormDesigner.SaveExperiment;
  394 +var
  395 + LS, LC: string;
  396 +begin
  397 + SaveSectionExperiment;
  398 + if ComboCurrentCondition.ItemIndex <> -1 then
  399 + begin
  400 + LS := SEC_CONDITION + IntToStr(ComboCurrentCondition.ItemIndex + 1);
  401 + SaveSectionCondition(LS);
  402 + if ComboCurrentContingency.ItemIndex <> -1 then
  403 + begin
  404 + LC := Delimited(1, ComboCurrentContingency.Items[ComboCurrentContingency.ItemIndex]);
  405 + SaveContingency(LS, LC);
  406 + end;
  407 + end;
  408 +end;
  409 +
  410 +function TFormDesigner.GetMatrixTypeStringFromCGMatrix: string;
  411 +begin
  412 + Result := '';
  413 + if ChkColors.Checked then
  414 + Result += 'CORES,';
  415 + if ChkRows.Checked then
  416 + Result += 'LINHAS,';
  417 + if ChkCols.Checked then
  418 + Result += 'COLUNAS,';
  419 + if ChkDots.Checked then
  420 + Result += 'CÍRCULOS PREENCHIDOS,';
  421 + if ChkCleanDots.Checked then
  422 + Result += 'CÍRCULOS VAZADOS,';
  423 +end;
  424 +
  425 +function TFormDesigner.GetPromptQuestionStringFromCGQuestion: string;
  426 +var
  427 + PS: TPromptStyle;
  428 +begin
  429 + PS := [];
  430 + if CGQuestion.Checked[0] then
  431 + PS += [gsAll, gsYes, gsMetacontingency, gsContingency, gsRevertPoints];
  432 +
  433 + if CGQuestion.Checked[1] then
  434 + PS += [gsBasA];
  435 +
  436 + Result := GetPromptStyleString(PS);
  437 +end;
  438 +
  439 +procedure TFormDesigner.SetCGMatrix(AMatrixType: string);
  440 +begin
  441 + if Pos('CORES', UpperCase(AMatrixType)) > 0 then
  442 + ChkColors.Checked := True
  443 + else
  444 + ChkColors.Checked := False;
  445 +
  446 + if Pos('LINHAS', UpperCase(AMatrixType)) > 0 then
  447 + ChkRows.Checked := True
  448 + else
  449 + ChkRows.Checked := False;
  450 +
  451 + if Pos('COLUNAS', UpperCase(AMatrixType)) > 0 then
  452 + ChkCols.Checked := True
  453 + else
  454 + ChkCols.Checked := False;
  455 +
  456 + if Pos('CÍRCULOS PREENCHIDOS', UpperCase(AMatrixType)) > 0 then
  457 + ChkDots.Checked := True
  458 + else
  459 + ChkDots.Checked := False;
  460 +
  461 + if Pos('CÍRCULOS VAZADOS', UpperCase(AMatrixType)) > 0 then
  462 + ChkCleanDots.Checked := True
  463 + else
  464 + ChkCleanDots.Checked := False;
  465 +end;
  466 +
  467 +procedure TFormDesigner.SetCGQuestion(AQuestionStyle: string);
  468 +var
  469 + PS: TPromptStyle;
  470 +begin
  471 + PS := GetPromptStyleFromString(AQuestionStyle);
  472 + if (gsAll in PS) and (gsYes in PS) and (gsMetacontingency in PS) and
  473 + (gsContingency in PS) and (gsRevertPoints in PS) then
  474 + CGQuestion.Checked[0] := True
  475 + else
  476 + CGQuestion.Checked[0] := False;
  477 +
  478 + if (gsBasA) in PS then
  479 + CGQuestion.Checked[1] := True
  480 + else
  481 + CGQuestion.Checked[1] := False;
  482 +end;
  483 +
  484 +procedure TFormDesigner.SetRGEndCriteriaStyle(AStyle: string);
  485 +begin
  486 + case UpperCase(AStyle) of
  487 + 'CICLOS': RGEndCriteriaStyle.ItemIndex := 0;
  488 + 'PORCENTAGEM': RGEndCriteriaStyle.ItemIndex := 1;
  489 + 'O QUE OCORRER PRIMEIRO': RGEndCriteriaStyle.ItemIndex := 2;
  490 + end;
  491 +end;
  492 +
  493 +procedure TFormDesigner.SetContingencyCriteria(S: string);
  494 +var
  495 + C: TCriteria;
  496 +
  497 + procedure SetContingencyRows(GR: TGameRows);
  498 + var
  499 + i: integer;
  500 + begin
  501 + for i := 0 to GBContingencyRows.ComponentCount - 1 do
  502 + case GBContingencyRows.Components[i].Name of
  503 + 'Chk1': TCheckBox(GBContingencyColors.Components[i]).Checked := grOne in GR;
  504 + 'Chk2': TCheckBox(GBContingencyColors.Components[i]).Checked := grTwo in GR;
  505 + 'Chk3': TCheckBox(GBContingencyColors.Components[i]).Checked := grThree in GR;
  506 + 'Chk4': TCheckBox(GBContingencyColors.Components[i]).Checked := grFour in GR;
  507 + 'Chk5': TCheckBox(GBContingencyColors.Components[i]).Checked := grFive in GR;
  508 + 'Chk6': TCheckBox(GBContingencyColors.Components[i]).Checked := grSix in GR;
  509 + 'Chk7': TCheckBox(GBContingencyColors.Components[i]).Checked := grSeven in GR;
  510 + 'Chk8': TCheckBox(GBContingencyColors.Components[i]).Checked := grEight in GR;
  511 + 'Chk9': TCheckBox(GBContingencyColors.Components[i]).Checked := grNine in GR;
  512 + 'Chk10': TCheckBox(GBContingencyColors.Components[i]).Checked := grTen in GR;
  513 + 'ChkEven': TCheckBox(GBContingencyColors.Components[i]).Checked := grEven in GR;
  514 + 'ChkOdd': TCheckBox(GBContingencyColors.Components[i]).Checked := grOdd in GR;
  515 + end;
  516 + end;
  517 +
  518 + procedure SetContingencyColors(GC: TGameColors);
  519 + var
  520 + i: integer;
  521 + begin
  522 + for i := 0 to GBContingencyColors.ComponentCount - 1 do
  523 + case GBContingencyColors.Components[i].Name of
  524 + 'ChkEqual': TCheckBox(GBContingencyColors.Components[i]).Checked := gcEqual in GC;
  525 + 'ChkDiff': TCheckBox(GBContingencyColors.Components[i]).Checked := gcDiff in GC;
  526 + 'ChkNot': TCheckBox(GBContingencyColors.Components[i]).Checked := gcNot in GC;
  527 + 'ChkY': TCheckBox(GBContingencyColors.Components[i]).Checked := gcYellow in GC;
  528 + 'ChkR': TCheckBox(GBContingencyColors.Components[i]).Checked := gcRed in GC;
  529 + 'ChkM': TCheckBox(GBContingencyColors.Components[i]).Checked := gcMagenta in GC;
  530 + 'ChkB': TCheckBox(GBContingencyColors.Components[i]).Checked := gcBlue in GC;
  531 + 'ChkG': TCheckBox(GBContingencyColors.Components[i]).Checked := gcDiff in GC;
  532 + end;
  533 + end;
  534 +
  535 +begin
  536 + C := GetCriteriaFromString(S);
  537 + case C.Style of
  538 + gtNone: RGContingencyStyle.ItemIndex := 0;
  539 + gtRowsOnly:
  540 + begin
  541 + RGContingencyStyle.ItemIndex := 1;
  542 + SetContingencyRows(C.Rows);
  543 + end;
  544 + gtColorsOnly:
  545 + begin
  546 + RGContingencyStyle.ItemIndex := 2;
  547 + SetContingencyColors(C.Colors);
  548 + end;
  549 + gtRowsAndColors:
  550 + begin
  551 + RGContingencyStyle.ItemIndex := 3;
  552 + SetContingencyRows(C.Rows);
  553 + SetContingencyColors(C.Colors);
  554 + end;
  555 + gtRowsOrColors:
  556 + begin
  557 + RGContingencyStyle.ItemIndex := 4;
  558 + SetContingencyRows(C.Rows);
  559 + SetContingencyColors(C.Colors);
  560 + end;
  561 + end;
  562 +end;
  563 +
  564 +procedure TFormDesigner.SaveSectionExperiment;
  565 +begin
  566 + with FExperiment do
  567 + begin
  568 + WriteString(SEC_EXPERIMENT, KEY_RESEARCHER, EditResearcherName.Text);
  569 + WriteString(SEC_EXPERIMENT, KEY_NAME, EditExperimentName.Text);
  570 + WriteString(SEC_EXPERIMENT, KEY_AIM, MemoExperimentAim.Text);
  571 + WriteBool(SEC_EXPERIMENT, KEY_CHAT_HISTORY_FOR_NEW_PLAYERS, CGGlobal.Checked[0]);
  572 + WriteBool(SEC_EXPERIMENT, KEY_GEN_PLAYER_AS_NEEDED, CGGlobal.Checked[1]);
  573 + WriteBool(SEC_EXPERIMENT, KEY_RESEARCHER_CANPLAY, CGGlobal.Checked[2]);
  574 + WriteBool(SEC_EXPERIMENT, KEY_RESEARCHER_CANCHAT, CGGlobal.Checked[3]);
  575 + case RGPoints.ItemIndex of
  576 + 0: WriteBool(SEC_EXPERIMENT, KEY_POINTS_TYPE, True);
  577 + 1: WriteBool(SEC_EXPERIMENT, KEY_POINTS_TYPE, False);
  578 + end;
  579 + WriteString(SEC_EXPERIMENT, KEY_MATRIX_TYPE, GetMatrixTypeStringFromCGMatrix);
  580 + end;
  581 +end;
  582 +
  583 +procedure TFormDesigner.LoadSectionExperiment;
  584 +begin
  585 + with FExperiment do
  586 + begin
  587 + EditResearcherName.Text := ReadString(SEC_EXPERIMENT, KEY_RESEARCHER, '');
  588 + EditExperimentName.Text := ReadString(SEC_EXPERIMENT, KEY_NAME, '');
  589 + MemoExperimentAim.Text := ReadString(SEC_EXPERIMENT, KEY_AIM, '');
  590 + CGGlobal.Checked[0] :=
  591 + ReadBool(SEC_EXPERIMENT, KEY_CHAT_HISTORY_FOR_NEW_PLAYERS, False);
  592 + CGGlobal.Checked[1] := ReadBool(SEC_EXPERIMENT, KEY_GEN_PLAYER_AS_NEEDED, False);
  593 + CGGlobal.Checked[2] := ReadBool(SEC_EXPERIMENT, KEY_RESEARCHER_CANPLAY, False);
  594 + CGGlobal.Checked[3] := ReadBool(SEC_EXPERIMENT, KEY_RESEARCHER_CANCHAT, False);
  595 + if ReadBool(SEC_EXPERIMENT, KEY_POINTS_TYPE, True) then
  596 + RGPoints.ItemIndex := 0
  597 + else
  598 + RGPoints.ItemIndex := 1;
  599 + SetCGMatrix(ReadString(SEC_EXPERIMENT, KEY_MATRIX_TYPE, 'CORES,LINHAS'));
  600 + end;
  601 +end;
  602 +
  603 +procedure TFormDesigner.SaveSectionCondition(LS: string);
  604 +begin
  605 + with FExperiment do
  606 + begin
  607 + WriteString(LS, KEY_COND_NAME, EditConditionName.Text);
  608 + WriteInteger(LS, KEY_TURN_VALUE, SpinEditTurnValue.Value);
  609 + WriteInteger(LS, KEY_POINTS_ONSTART,SpinEditOnConditionBegin.Value);
  610 + WriteInteger(LS, KEY_CYCLES_VALUE, SpinEditCyclesValue.Value);
  611 + WriteString(LS, KEY_PROMPT_MESSAGE, EditQuestion.Text);
  612 + WriteString(LS, KEY_PROMPT_STYLE, GetPromptQuestionStringFromCGQuestion);
  613 + WriteString(LS, KEY_ENDCRITERIA, GetEndCriteriaStyleFromRGEndCriteriaStyle);
  614 + WriteInteger(LS, KEY_ENDCRITERIA_CYCLES, SpinEditEndCriteriaAbsCycles.Value);
  615 + WriteString(LS, KEY_ENDCRITERIA_PORCENTAGE, GetEndCriteriaPorcentage);
  616 + end;
  617 +end;
  618 +
  619 +procedure TFormDesigner.SaveContingency(LS, LC: string);
  620 +begin
  621 + with FExperiment do
  622 + begin
  623 + WriteString(LS, LC + KEY_NAME, EditContingencyName.Text);
  624 + WriteString(LS, LC + KEY_CRITERIA, GetContingencyCriteria);
  625 + WriteString(LS, LC + KEY_CONSEQUE, GetConsequenceStyle);
  626 + WriteString(LS, LC + KEY_CONSEQUE_MESSAGE_APPENDP,{todo: consequence sufix plural}'');
  627 + WriteString(LS, LC + KEY_CONSEQUE_MESSAGE_APPENDS, EditMessSufix.Text);
  628 + WriteString(LS, LC + KEY_CONSEQUE_MESSAGE_PREPEND, EditMessPrefix.Text);
  629 + end;
  630 +end;
  631 +
  632 +function TFormDesigner.GetLC(IsMeta: Boolean): string;
  633 +var
  634 + LCount,
  635 + i : integer;
  636 + S : string;
  637 + Extension : string;
  638 + ContingencyKey : string;
  639 +begin
  640 + if ComboCurrentContingency.Items.Count > 0 then
  641 + for i := ComboCurrentContingency.Items.Count-1 downto 0 do
  642 + begin
  643 + S := ExtractDelimited(1,ComboCurrentContingency.Items[i],['|']);
  644 + ContingencyKey := ExtractFileNameWithoutExt(S);
  645 +
  646 + if IsMeta then
  647 + begin
  648 + if ContingencyKey = KEY_METACONTINGENCY[16] then
  649 + begin
  650 + Result := KEY_METACONTINGENCY;
  651 + Extension := ExtractFileExt(S);
  652 + LCount := StrToInt(Extension);
  653 + Inc(LCount);
  654 + Result += IntToStr(LCount);
  655 + Break;
  656 + end;
  657 + end
  658 + else
  659 + begin
  660 + if ContingencyKey = KEY_CONTINGENCY[12] then
  661 + begin
  662 + Result := KEY_CONTINGENCY;
  663 + Extension := ExtractFileExt(S);
  664 + Lcount := StrToInt(Extension);
  665 + Inc(LCount);
  666 + Result += IntToStr(LCount);
  667 + Break;
  668 + end;
  669 + end;
  670 + end
  671 + else
  672 + if IsMeta then
  673 + Result := KEY_METACONTINGENCY+'1'
  674 + else
  675 + Result := KEY_CONTINGENCY+'1';
  676 +end;
  677 +
  678 +function TFormDesigner.GetConsequenceStyle: string;
  679 +var
  680 + CS : TConsequenceStyle;
  681 +begin
  682 + CS := [gscMessage,gscPoints];
  683 + case RGPoints.ItemIndex of
  684 + 0: { A & B }
  685 + case CBPointsType.ItemIndex of
  686 + 0 {'Individual A'} : CS += [gscA];
  687 + 1 {'Individual B'} : CS += [gscB];
  688 + 2 {'Para o Grupo'} : CS += [gscG];
  689 + end;
  690 + 1: { I }
  691 + case CBPointsType.ItemIndex of
  692 + 0 {'Individual'} : CS += [gscI];
  693 + 1 {'Para o Grupo'} : CS += [gscG];
  694 + end;
  695 + end;
  696 +
  697 + case CheckBoxBroadcast.State of
  698 + cbChecked : CS += [gscBroadcastMessage];
  699 + cbUnchecked: { do nothing };
  700 + cbGrayed: CS -= [gscMessage];
  701 + end;
  702 +
  703 + Result := GetConsequenceStylesString(CS);
  704 +end;
  705 +
  706 +function TFormDesigner.GetContingencyCriteria: string;
  707 +begin
  708 +
  709 +end;
  710 +
  711 +procedure TFormDesigner.LoadSectionCondition(LS: string);
  712 +begin
  713 + with FExperiment do
  714 + begin
  715 + EditConditionName.Text := ReadString(LS, KEY_COND_NAME, LS);
  716 + SpinEditTurnValue.Value := ReadInteger(LS, KEY_TURN_VALUE, 2);
  717 + SpinEditOnConditionBegin.Value := ReadInteger(LS, KEY_POINTS_ONSTART,0);
  718 + SpinEditCyclesValue.Value := ReadInteger(LS, KEY_CYCLES_VALUE, 2);
  719 +
  720 + CheckBoxShouldAskQuestion.Checked := False;
  721 + if ValueExists(LS, KEY_PROMPT_STYLE) and ValueExists(LS, KEY_PROMPT_MESSAGE) then
  722 + begin
  723 + EditQuestion.Text := ReadString(LS, KEY_PROMPT_MESSAGE, '');
  724 + SetCGQuestion(ReadString(LS, KEY_PROMPT_STYLE, ''));
  725 + if (EditQuestion.Text <> '') or (ReadString(LS, KEY_PROMPT_STYLE, '') <> '') then
  726 + CheckBoxShouldAskQuestion.Checked := True;
  727 + end;
  728 +
  729 + SetRGEndCriteriaStyle(ReadString(LS, KEY_ENDCRITERIA, 'O QUE OCORRER PRIMEIRO'));
  730 + SpinEditEndCriteriaAbsCycles.Value := ReadInteger(LS, KEY_ENDCRITERIA_CYCLES, 20);
  731 + SpinEditEndCriteriaLastCycles.Value :=
  732 + GetEndCriteriaLastCyclesFromString(ReadString(LS, KEY_ENDCRITERIA_PORCENTAGE, '80,20'));
  733 + SpinEditEndCriteriaInterlockingPorcentage.Value :=
  734 + GetEndCriteriaPorcentageFromString(ReadString(LS, KEY_ENDCRITERIA_PORCENTAGE, '80,20'));
  735 + end;
  736 +end;
  737 +
  738 +procedure TFormDesigner.LoadContingency(LS, LC: string);
  739 +begin
  740 + if Pos('Metacontingency', LC) > 0 then
  741 + CheckBoxIsMeta.Checked := True
  742 + else
  743 + CheckBoxIsMeta.Checked := False;
  744 +
  745 + with FExperiment do
  746 + if ValueExists(LS, LC + KEY_CONSEQUE) and ValueExists(LS, LC + KEY_CRITERIA) then
  747 + begin
  748 + EditContingencyName.Text := ReadString(LS, LC + KEY_NAME, '');
  749 + SetContingencyCriteria(ReadString(LS, LC + KEY_CRITERIA, ''));
  750 + ReadString(LS, LC + KEY_CONSEQUE, '');
  751 + end;
  752 +end;
  753 +
  754 +function TFormDesigner.GetEndCriteriaPorcentage: string;
  755 +begin
  756 + Result := IntToStr(SpinEditEndCriteriaInterlockingPorcentage.Value) + ',' +
  757 + IntToStr(SpinEditEndCriteriaLastCycles.Value);
  758 +end;
  759 +
  760 +function TFormDesigner.GetEndCriteriaStyleFromRGEndCriteriaStyle: string;
  761 +begin
  762 + case RGEndCriteriaStyle.ItemIndex of
  763 + 0: Result := 'CICLOS';
  764 + 1: Result := 'PORCENTAGEM';
  765 + 2: Result := 'O QUE OCORRER PRIMEIRO';
  766 + end;
253 767 end;
254 768  
255 769 procedure TFormDesigner.MenuItemExitClick(Sender: TObject);
... ... @@ -258,80 +772,236 @@ begin
258 772 end;
259 773  
260 774 procedure TFormDesigner.FormCreate(Sender: TObject);
261   -//var
262   -// LFileName: String;
263 775 begin
264   - //LFileName := 'default.txt';
265   - //IPSExperiment.IniFileName := LFileName;
266 776 //IPSExperiment.IniSection := SEC_EXPERIMENT;
267   - //IPSConditions.IniFileName := LFileName;
268 777 //IPSConditions.IniSection := SEC_CONDITION;
269   - //IPSPlayers.IniFileName := LFileName;
270 778 //IPSPlayers.IniSection := SEC_PLAYER;
271   - RGPointsClick(RGPoints);
272   - RGEndCriteriaStyleClick(RGEndCriteriaStyle);
273   - FExperiment := TCIniFile.Create('default.txt');
274   - //FExperiment.FileName;
  779 +
275 780 end;
276 781  
277 782 procedure TFormDesigner.FormDestroy(Sender: TObject);
278 783 begin
279   - FExperiment.Destroy;
  784 + FExperiment.Free;
280 785 end;
281 786  
282 787 procedure TFormDesigner.CheckBoxShouldAskQuestionChange(Sender: TObject);
  788 +var
  789 + LS: String;
283 790 begin
284 791 if TCheckBox(Sender).Checked then
285   - TCheckBox(Sender).Caption := 'Sim'
  792 + TCheckBox(Sender).Caption := 'Sim'
286 793 else
287   - TCheckBox(Sender).Caption := 'Não';
  794 + begin
  795 + TCheckBox(Sender).Caption := 'Não';
  796 + with FExperiment do
  797 + if ComboCurrentCondition.ItemIndex <> -1 then
  798 + begin
  799 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  800 + WriteString(LS, KEY_PROMPT_MESSAGE, '');
  801 + WriteString(LS, KEY_PROMPT_STYLE, '');
  802 + end;
  803 + end;
288 804  
289 805 EditQuestion.Visible := CheckBoxShouldAskQuestion.Checked;
290 806 CGQuestion.Visible := CheckBoxShouldAskQuestion.Checked;
291 807 end;
292 808  
  809 +procedure TFormDesigner.ChkCleanDotsChange(Sender: TObject);
  810 +begin
  811 + if ChkCleanDots.Checked then
  812 + ChkDots.Checked := not ChkCleanDots.Checked;
  813 +end;
  814 +
  815 +procedure TFormDesigner.ChkDotsChange(Sender: TObject);
  816 +begin
  817 + if ChkDots.Checked then
  818 + ChkCleanDots.Checked := not ChkDots.Checked;
  819 +end;
  820 +
  821 +procedure TFormDesigner.ComboCurrentConditionChange(Sender: TObject);
  822 +begin
  823 + LoadSectionCondition(SEC_CONDITION + IntToStr(ComboCurrentCondition.ItemIndex + 1));
  824 +end;
  825 +
  826 +procedure TFormDesigner.EditConditionNameChange(Sender: TObject);
  827 +begin
  828 +
  829 +end;
  830 +
  831 +procedure TFormDesigner.EditConditionNameEditingDone(Sender: TObject);
  832 +var
  833 + LS: string;
  834 +begin
  835 + with FExperiment do
  836 + if ComboCurrentCondition.ItemIndex <> -1 then
  837 + begin
  838 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  839 + WriteString(LS, KEY_COND_NAME, EditConditionName.Text);
  840 + ComboCurrentCondition.Items[ComboCurrentCondition.ItemIndex] :=
  841 + SEC_CONDITION + IntToStr(ComboCurrentCondition.ItemIndex + 1) + '|' + EditConditionName.Text;
  842 + ListBoxConditions.Items.Text := ComboCurrentCondition.Items.Text;
  843 + end;
  844 +end;
  845 +
  846 +procedure TFormDesigner.EditQuestionChange(Sender: TObject);
  847 +begin
  848 +
  849 +end;
  850 +
  851 +procedure TFormDesigner.EditQuestionEditingDone(Sender: TObject);
  852 +var
  853 + LS: string;
  854 +begin
  855 + with FExperiment do
  856 + if ComboCurrentCondition.ItemIndex <> -1 then
  857 + begin
  858 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  859 + WriteString(LS, KEY_PROMPT_MESSAGE, EditQuestion.Text);
  860 + end;
  861 +end;
  862 +
293 863 procedure TFormDesigner.CheckBoxBroadcastChange(Sender: TObject);
294 864 begin
295   - if TCheckBox(Sender).Checked then
296   - TCheckBox(Sender).Caption := 'a todos'
297   - else
298   - TCheckBox(Sender).Caption := 'ao participante';
  865 + case TCheckBox(Sender).State of
  866 + cbChecked: TCheckBox(Sender).Caption := 'a todos';
  867 + cbUnchecked: TCheckBox(Sender).Caption := 'ao participante';
  868 + cbGrayed: TCheckBox(Sender).Caption := 'a ninguém';
  869 + end;
  870 +end;
  871 +
  872 +procedure TFormDesigner.BtnAppendCondClick(Sender: TObject);
  873 +var
  874 + i: integer;
  875 +begin
  876 + i := ComboCurrentCondition.Items.Add('');
  877 + ComboCurrentCondition.Items[i] :=
  878 + SEC_CONDITION + IntToStr(i + 1) + '|' + EditConditionName.Text;
  879 + ComboCurrentCondition.ItemIndex := i;
  880 + SaveSectionCondition(SEC_CONDITION + IntToStr(i + 1));
  881 + ListBoxConditions.Items.Text := ComboCurrentCondition.Items.Text;
  882 +end;
  883 +
  884 +procedure TFormDesigner.BtnAppendContingencyClick(Sender: TObject);
  885 +var
  886 + i: integer;
  887 + LS, LC : string;
  888 +
  889 +begin
  890 + i := ComboCurrentContingency.Items.Add('');
  891 + LS := ExtractDelimited(1,ComboCurrentCondition.Items[ComboCurrentCondition.ItemIndex],['|']);
  892 + LC := GetLC(CheckBoxIsMeta.Checked);
  893 + ComboCurrentContingency.Items[i] :=
  894 + LC + '|' + EditContingencyName.Text;
  895 + ComboCurrentContingency.ItemIndex := i;
  896 + SaveContingency(LS,LC);
  897 + ListBoxContingencies.Items.Text := ComboCurrentContingency.Items.Text;
  898 +end;
  899 +
  900 +procedure TFormDesigner.BtnRemoveCondClick(Sender: TObject);
  901 +var
  902 + i: integer;
  903 + MustReorder: boolean;
  904 +
  905 + procedure Reorder(index : integer);
  906 + var
  907 + j, i: integer;
  908 + Section: TStringList;
  909 + KeyName,Line,SectionName: string;
  910 + begin
  911 + Section := TStringList.Create;
  912 + with FExperiment do
  913 + for i := index to ComboCurrentCondition.Items.Count - 1 do
  914 + begin
  915 + SectionName := ExtractDelimited(1, ComboCurrentCondition.Items[i], ['|']);
  916 + ReadSectionValues(SectionName, Section);
  917 + EraseSection(SectionName);
  918 + SectionName := SEC_CONDITION + IntToStr(i + 1);
  919 + for Line in Section do
  920 + begin
  921 + KeyName := Section.ExtractName(Line);
  922 + WriteString(SectionName, KeyName, Section.Values[KeyName]);
  923 + end;
  924 + Section.Clear;
  925 + ComboCurrentCondition.Items[i] :=
  926 + SectionName + '|' + ExtractDelimited(2, ComboCurrentCondition.Items[i], ['|']);
  927 + end;
  928 + Section.Free;
  929 + end;
  930 +
  931 +begin
  932 + i := ComboCurrentCondition.ItemIndex;
  933 + MustReorder := i < ComboCurrentCondition.Items.Count - 1;
  934 + ComboCurrentCondition.Items.Delete(i);
  935 + if MustReorder then
  936 + Reorder(i);
  937 + case ComboCurrentCondition.Items.Count of
  938 + 0: {do nothing};
  939 + 1..MaxInt:
  940 + if i = 1 then
  941 + ComboCurrentCondition.ItemIndex := i
  942 + else
  943 + ComboCurrentCondition.ItemIndex := i -1;
  944 + end;
  945 + ListBoxConditions.Items.Text := ComboCurrentCondition.Items.Text;
  946 +end;
299 947  
  948 +procedure TFormDesigner.CGQuestionItemClick(Sender: TObject; Index: integer);
  949 +var
  950 + LS: String;
  951 +begin
  952 + with FExperiment do
  953 + if ComboCurrentCondition.ItemIndex <> -1 then
  954 + begin
  955 + LS := SEC_CONDITION+IntToStr(ComboCurrentCondition.ItemIndex+1);
  956 + WriteString(LS, KEY_PROMPT_STYLE, GetPromptQuestionStringFromCGQuestion);
  957 + end;
300 958 end;
301 959  
302 960 procedure TFormDesigner.CheckBoxIsMetaChange(Sender: TObject);
303 961 var
304   - i: Integer;
  962 + i: integer;
  963 + CH: TCheckBox;
  964 +
  965 + procedure CreateChkBox(N, C: string; AOwner: TWinControl);
  966 + begin
  967 + CH := TCheckBox.Create(AOwner);
  968 + CH.Name := N;
  969 + CH.Caption := C;
  970 + CH.Parent := AOwner;
  971 + end;
  972 +
305 973 begin
  974 + while GBContingencyRows.ComponentCount > 0 do
  975 + GBContingencyRows.Components[0].Free;
  976 +
  977 + while GBContingencyColors.ComponentCount > 0 do
  978 + GBContingencyColors.Components[0].Free;
  979 +
306 980 if TCheckBox(Sender).Checked then
307   - begin
308   - ComboBoxRows.Items.Clear;
309   - ComboBoxRows.Items.Append('PARES');
310   - ComboBoxRows.Items.Append('IMPARES');
311   -
312   - ComboBoxColors.Items.Clear;
313   - ComboBoxColors.Items.Append('CORES IGUAIS');
314   - ComboBoxColors.Items.Append('CORES DIFERENTES');
315   - ComboBoxColors.Items.Append('TUDO EXCETO CORES IGUAIS');
316   - ComboBoxColors.Items.Append('TUDO EXCETO CORES DIFERENTES');
317   - end
318   - else
319 981 begin
320   - ComboBoxRows.Items.Clear;
321   - for i:=0 to 9 do
322   - ComboBoxRows.Items.Append(IntToStr(i+1));
323   -
324   - ComboBoxRows.Items.Append('PAR');
325   - ComboBoxRows.Items.Append('IMPAR');
326   -
327   - ComboBoxColors.Items.Clear;
328   - ComboBoxColors.Items.Append('AMARELO');
329   - ComboBoxColors.Items.Append('VERMELHO');
330   - ComboBoxColors.Items.Append('ROXO');
331   - ComboBoxColors.Items.Append('AZUL');
332   - ComboBoxColors.Items.Append('VERDE');
  982 + CreateChkBox('ChkEven', 'PARES', GBContingencyRows);
  983 + CreateChkBox('ChkOdd', 'IMPARES', GBContingencyRows);
  984 +
  985 + CreateChkBox('ChkNot', 'TUDO EXCETO', GBContingencyColors);
  986 + CreateChkBox('ChkEqual', 'CORES IGUAIS', GBContingencyColors);
  987 + CreateChkBox('ChkDiff', 'CORES DIFERENTES', GBContingencyColors);
  988 + LabelIf.Caption := 'SE OS PARTICIPANTES ESCOLHEREM';
333 989 end
  990 + else
  991 + begin
  992 + for i := 0 to 9 do
  993 + CreateChkBox('Chk' + IntToStr(i + 1), IntToStr(i + 1), GBContingencyRows);
  994 +
  995 + CreateChkBox('ChkEven', 'PAR', GBContingencyRows);
  996 + CreateChkBox('ChkOdd', 'IMPAR', GBContingencyRows);
  997 +
  998 + CreateChkBox('ChkY', 'AMARELO', GBContingencyColors);
  999 + CreateChkBox('ChkR', 'VERMELHO', GBContingencyColors);
  1000 + CreateChkBox('ChkM', 'ROXO', GBContingencyColors);
  1001 + CreateChkBox('ChkB', 'AZUL', GBContingencyColors);
  1002 + CreateChkBox('ChkG', 'VERDE', GBContingencyColors);
  1003 + LabelIf.Caption := 'SE O PARTICIPANTE ESCOLHER';
  1004 + end;
334 1005 end;
335 1006  
336 1007 end.
337   -
... ...
experiment_designer/lib/x86_64-linux/experiment_designer.compiled
  Diff comments   View file @17c83ca
1 1 <?xml version="1.0" encoding="UTF-8"?>
2 2 <CONFIG>
3 3 <Compiler Value="/usr/bin/fpc" Date="1449313866"/>
4   - <Params Value=" -MObjFPC -Scghi -Cg -O1 -g -gl -l -vewnhibq -Fi/home/rafael/git/stimulus_control/tests/lacs-matrix/experiment_designer/lib/x86_64-linux -Fl/opt/gnome/lib -Fu/home/rafael/git/stimulus_control/tests/lacs-matrix/units -Fu/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux/gtk2 -Fu/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux -Fu/usr/share/lazarus/1.6.2/components/lazutils/lib/x86_64-linux -Fu/usr/share/lazarus/1.6.2/packager/units/x86_64-linux -Fu/home/rafael/git/stimulus_control/tests/lacs-matrix/experiment_designer/ -FU/home/rafael/git/stimulus_control/tests/lacs-matrix/experiment_designer/lib/x86_64-linux/ -dLCL -dLCLgtk2 experiment_designer.lpr"/>
  4 + <Params Value=" -MObjFPC -Scghi -Cg -O1 -g -gl -l -vewnhibq -Fi/home/rafael/git/stimulus_control/tests/lacs-matrix/experiment_designer/lib/x86_64-linux -Fl/opt/gnome/lib -Fu/home/rafael/git/stimulus_control/tests/lacs-matrix/units -Fu/home/rafael/git/stimulus_control/units -Fu/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux/gtk2 -Fu/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux -Fu/usr/share/lazarus/1.6.2/components/lazutils/lib/x86_64-linux -Fu/usr/share/lazarus/1.6.2/packager/units/x86_64-linux -Fu/home/rafael/git/stimulus_control/tests/lacs-matrix/experiment_designer/ -FU/home/rafael/git/stimulus_control/tests/lacs-matrix/experiment_designer/lib/x86_64-linux/ -dLCL -dLCLgtk2 experiment_designer.lpr"/>
5 5 </CONFIG>
... ...