Download as
Browse Code »

Commit 30142fecbfd385e29a7edf6131173cf38f343d8c

Authored by Carlos Picanco
1 parent 1718b23f
Exists in master

designer: fix initial state of question controls 

- also add double click event for standard question message
Showing 2 changed files with 134 additions and 130 deletions   Show diff stats
experiment_designer/form_main.lfm
  Diff comments   View file @30142fe
... ... @@ -3,12 +3,12 @@ object FormDesigner: TFormDesigner
3 3 Height = 656
4 4 Top = 29
5 5 Width = 653
6   - HorzScrollBar.Page = 346
7   - VertScrollBar.Page = 637
  6 + HorzScrollBar.Page = 315
  7 + VertScrollBar.Page = 636
8 8 AutoScroll = True
9 9 Caption = 'Planejar Experimento'
10   - ClientHeight = 637
11   - ClientWidth = 643
  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 = 765
  21 + Height = 745
22 22 Top = 0
23   - Width = 643
  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 = 732
36   - ClientWidth = 637
  35 + ClientHeight = 717
  36 + ClientWidth = 628
37 37 object GBConditions: TGroupBox
38 38 Left = 0
39   - Height = 97
  39 + Height = 100
40 40 Top = 10
41   - Width = 637
  41 + Width = 628
42 42 Caption = 'Condições'
43 43 ClientHeight = 80
44   - ClientWidth = 633
  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 = 633
  50 + Width = 624
51 51 Anchors = [akTop, akLeft, akRight]
52 52 ItemHeight = 0
53 53 ScrollWidth = 631
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 = 637
  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 = 637
  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 = 637
  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 = 637
  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 = 637
  93 + Height = 162
  94 + Top = 211
  95 + Width = 628
97 96 Caption = 'Objetivo do Experimento'
98 97 ClientHeight = 142
99   - ClientWidth = 633
  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 = 633
  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 = 134
  113 + Height = 127
115 114 Hint = 'Aplicáveis ao longo de todo o experimento'
116   - Top = 376
117   - Width = 637
  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 = 117
129   - ClientWidth = 633
  127 + ClientHeight = 107
  128 + ClientWidth = 624
130 129 Items.Strings = (
131 130 'Enviar histórico do bate-papo a novos participantes'
132 131 'Gerar participantes automaticamente'
... ... @@ -143,9 +142,9 @@ object FormDesigner: TFormDesigner
143 142 end
144 143 object RGPoints: TRadioGroup
145 144 Left = 0
146   - Height = 59
147   - Top = 515
148   - Width = 637
  145 + Height = 58
  146 + Top = 510
  147 + Width = 628
149 148 AutoFill = True
150 149 Caption = 'Tipo de pontuação Individual'
151 150 ChildSizing.LeftRightSpacing = 6
... ... @@ -155,8 +154,8 @@ object FormDesigner: TFormDesigner
155 154 ChildSizing.ShrinkVertical = crsScaleChilds
156 155 ChildSizing.Layout = cclLeftToRightThenTopToBottom
157 156 ChildSizing.ControlsPerLine = 1
158   - ClientHeight = 42
159   - ClientWidth = 633
  157 + ClientHeight = 38
  158 + ClientWidth = 624
160 159 ItemIndex = 0
161 160 Items.Strings = (
162 161 'A e B'
... ... @@ -167,21 +166,21 @@ object FormDesigner: TFormDesigner
167 166 end
168 167 object GBMatrix: TGroupBox
169 168 Left = 0
170   - Height = 143
171   - Top = 579
172   - Width = 637
  169 + Height = 134
  170 + Top = 573
  171 + Width = 628
173 172 Caption = 'Tipo da Matrix'
174 173 ChildSizing.LeftRightSpacing = 5
175 174 ChildSizing.Layout = cclLeftToRightThenTopToBottom
176 175 ChildSizing.ControlsPerLine = 1
177   - ClientHeight = 126
178   - ClientWidth = 633
  176 + ClientHeight = 114
  177 + ClientWidth = 624
179 178 TabOrder = 6
180 179 object ChkColors: TCheckBox
181 180 Left = 5
182   - Height = 21
  181 + Height = 19
183 182 Top = 0
184   - Width = 239
  183 + Width = 215
185 184 Caption = '5 cores'
186 185 Checked = True
187 186 Enabled = False
... ... @@ -191,9 +190,9 @@ object FormDesigner: TFormDesigner
191 190 end
192 191 object ChkRows: TCheckBox
193 192 Left = 5
194   - Height = 21
195   - Top = 21
196   - Width = 239
  193 + Height = 19
  194 + Top = 19
  195 + Width = 215
197 196 Caption = '10 linhas'
198 197 Checked = True
199 198 Enabled = False
... ... @@ -203,18 +202,18 @@ object FormDesigner: TFormDesigner
203 202 end
204 203 object ChkCols: TCheckBox
205 204 Left = 5
206   - Height = 21
207   - Top = 42
208   - Width = 239
  205 + Height = 19
  206 + Top = 38
  207 + Width = 215
209 208 Caption = '10 colunas'
210 209 OnClick = ChkMatrixTypeClick
211 210 TabOrder = 2
212 211 end
213 212 object ChkDots: TCheckBox
214 213 Left = 5
215   - Height = 21
216   - Top = 63
217   - Width = 239
  214 + Height = 19
  215 + Top = 57
  216 + Width = 215
218 217 Caption = 'Com Círculos Preechidos'
219 218 OnChange = ChkDotsChange
220 219 OnClick = ChkMatrixTypeClick
... ... @@ -222,9 +221,9 @@ object FormDesigner: TFormDesigner
222 221 end
223 222 object ChkCleanDots: TCheckBox
224 223 Left = 5
225   - Height = 21
226   - Top = 84
227   - Width = 239
  224 + Height = 19
  225 + Top = 76
  226 + Width = 215
228 227 Caption = 'Com Círculos Vazados'
229 228 OnChange = ChkCleanDotsChange
230 229 OnClick = ChkMatrixTypeClick
... ... @@ -232,9 +231,9 @@ object FormDesigner: TFormDesigner
232 231 end
233 232 object ChkDotsCleanDots: TCheckBox
234 233 Left = 5
235   - Height = 21
236   - Top = 105
237   - Width = 239
  234 + Height = 19
  235 + Top = 95
  236 + Width = 215
238 237 Caption = 'Com Círculos Vazados e Preenchidos'
239 238 OnChange = ChkDotsCleanDotsChange
240 239 OnClick = ChkMatrixTypeClick
... ... @@ -249,14 +248,14 @@ object FormDesigner: TFormDesigner
249 248 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
250 249 ChildSizing.Layout = cclLeftToRightThenTopToBottom
251 250 ChildSizing.ControlsPerLine = 1
252   - ClientHeight = 732
253   - ClientWidth = 637
  251 + ClientHeight = 751
  252 + ClientWidth = 628
254 253 object ComboCurrentCondition: TComboBox
255 254 Left = 0
256 255 Height = 23
257 256 Top = 10
258   - Width = 649
259   - ItemHeight = 0
  257 + Width = 628
  258 + ItemHeight = 15
260 259 OnChange = ComboCurrentConditionChange
261 260 Style = csDropDownList
262 261 TabOrder = 0
... ... @@ -265,39 +264,39 @@ object FormDesigner: TFormDesigner
265 264 Left = 0
266 265 Height = 26
267 266 Top = 38
268   - Width = 649
  267 + Width = 628
269 268 ChildSizing.LeftRightSpacing = 25
270 269 ChildSizing.HorizontalSpacing = 50
271 270 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
272 271 ChildSizing.Layout = cclLeftToRightThenTopToBottom
273 272 ChildSizing.ControlsPerLine = 3
274 273 ClientHeight = 26
275   - ClientWidth = 649
  274 + ClientWidth = 628
276 275 TabOrder = 1
277 276 object BtnAppendCond: TButton
278 277 Left = 25
279 278 Height = 25
280 279 Hint = 'Selecione contingências na lista abaixo se deseja inclui-las na condição a ser adicionada.'
281 280 Top = 0
282   - Width = 167
  281 + Width = 160
283 282 Caption = 'Adicionar'
284 283 OnClick = BtnAppendCondClick
285 284 TabOrder = 0
286 285 end
287 286 object BtnRemoveCond: TButton
288   - Left = 242
  287 + Left = 235
289 288 Height = 25
290 289 Top = 0
291   - Width = 163
  290 + Width = 156
292 291 Caption = 'Remover'
293 292 OnClick = BtnRemoveCondClick
294 293 TabOrder = 1
295 294 end
296 295 object BtnReorderCond: TButton
297   - Left = 455
  296 + Left = 441
298 297 Height = 25
299 298 Top = 0
300   - Width = 169
  299 + Width = 162
301 300 Caption = 'Reordenar'
302 301 OnClick = BtnReorderCondClick
303 302 TabOrder = 2
... ... @@ -308,23 +307,22 @@ object FormDesigner: TFormDesigner
308 307 Left = 0
309 308 Height = 100
310 309 Top = 69
311   - Width = 649
  310 + Width = 628
312 311 Caption = 'Contingências e Metacontingências da Condição Selecionada'
313   - ClientHeight = 83
314   - ClientWidth = 645
  312 + ClientHeight = 80
  313 + ClientWidth = 624
315 314 TabOrder = 8
316 315 object ListBoxContingencies: TListBox
317 316 Left = 0
318 317 Height = 80
319 318 Hint = 'CTRL+Clique para selecionar múltiplas contingências.'
320 319 Top = 0
321   - Width = 645
  320 + Width = 624
322 321 Anchors = [akTop, akLeft, akRight]
323 322 ItemHeight = 0
324 323 MultiSelect = True
325 324 ScrollWidth = 643
326 325 TabOrder = 0
327   - TopIndex = -1
328 326 end
329 327 end
330 328 object LabelConditionName: TLabel
... ... @@ -332,7 +330,7 @@ object FormDesigner: TFormDesigner
332 330 Height = 15
333 331 Hint = 'Nome da condição no relatório.'
334 332 Top = 174
335   - Width = 649
  333 + Width = 628
336 334 Caption = 'Nome da Condição'
337 335 ParentColor = False
338 336 end
... ... @@ -340,7 +338,7 @@ object FormDesigner: TFormDesigner
340 338 Left = 0
341 339 Height = 23
342 340 Top = 194
343   - Width = 649
  341 + Width = 628
344 342 OnEditingDone = EditConditionNameEditingDone
345 343 TabOrder = 2
346 344 end
... ... @@ -348,7 +346,7 @@ object FormDesigner: TFormDesigner
348 346 Left = 0
349 347 Height = 15
350 348 Top = 222
351   - Width = 649
  349 + Width = 628
352 350 Caption = 'Número de Jogadores / Turnos'
353 351 ParentColor = False
354 352 end
... ... @@ -356,7 +354,7 @@ object FormDesigner: TFormDesigner
356 354 Left = 0
357 355 Height = 23
358 356 Top = 242
359   - Width = 649
  357 + Width = 628
360 358 MaxValue = 5
361 359 MinValue = 2
362 360 OnEditingDone = SpinEditTurnValueEditingDone
... ... @@ -367,20 +365,20 @@ object FormDesigner: TFormDesigner
367 365 Left = 0
368 366 Height = 58
369 367 Top = 270
370   - Width = 649
  368 + Width = 628
371 369 Caption = 'Somar pontos ao iniciar condição'
372 370 ChildSizing.LeftRightSpacing = 50
373 371 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
374 372 ChildSizing.Layout = cclTopToBottomThenLeftToRight
375 373 ChildSizing.ControlsPerLine = 2
376   - ClientHeight = 41
377   - ClientWidth = 645
  374 + ClientHeight = 38
  375 + ClientWidth = 624
378 376 TabOrder = 9
379 377 object LabelPA: TLabel
380 378 Left = 50
381 379 Height = 15
382 380 Top = 0
383   - Width = 136
  381 + Width = 131
384 382 Caption = 'A'
385 383 ParentColor = False
386 384 end
... ... @@ -388,58 +386,58 @@ object FormDesigner: TFormDesigner
388 386 Left = 50
389 387 Height = 23
390 388 Top = 15
391   - Width = 136
  389 + Width = 131
392 390 MaxValue = 0
393 391 OnEditingDone = SpinEditOnConditionBeginAEditingDone
394 392 TabOrder = 0
395 393 end
396 394 object LabelPB: TLabel
397   - Left = 186
  395 + Left = 181
398 396 Height = 15
399 397 Top = 0
400   - Width = 136
  398 + Width = 131
401 399 Caption = 'B'
402 400 ParentColor = False
403 401 end
404 402 object SpinEditOnConditionBeginB: TSpinEdit
405   - Left = 186
  403 + Left = 181
406 404 Height = 23
407 405 Top = 15
408   - Width = 136
  406 + Width = 131
409 407 MaxValue = 0
410 408 OnEditingDone = SpinEditOnConditionBeginAEditingDone
411 409 TabOrder = 1
412 410 end
413 411 object LabelPI: TLabel
414   - Left = 322
  412 + Left = 312
415 413 Height = 15
416 414 Top = 0
417   - Width = 138
  415 + Width = 133
418 416 Caption = 'Individual'
419 417 ParentColor = False
420 418 end
421 419 object SpinEditOnConditionBeginI: TSpinEdit
422   - Left = 322
  420 + Left = 312
423 421 Height = 23
424 422 Top = 15
425   - Width = 138
  423 + Width = 133
426 424 MaxValue = 0
427 425 OnEditingDone = SpinEditOnConditionBeginAEditingDone
428 426 TabOrder = 2
429 427 end
430 428 object LabelPG: TLabel
431   - Left = 460
  429 + Left = 445
432 430 Height = 15
433 431 Top = 0
434   - Width = 135
  432 + Width = 129
435 433 Caption = 'Grupo'
436 434 ParentColor = False
437 435 end
438 436 object SpinEditOnConditionBeginG: TSpinEdit
439   - Left = 460
  437 + Left = 445
440 438 Height = 23
441 439 Top = 15
442   - Width = 135
  440 + Width = 129
443 441 MaxValue = 0
444 442 OnEditingDone = SpinEditOnConditionBeginAEditingDone
445 443 TabOrder = 3
... ... @@ -449,7 +447,7 @@ object FormDesigner: TFormDesigner
449 447 Left = 0
450 448 Height = 15
451 449 Top = 333
452   - Width = 649
  450 + Width = 628
453 451 Caption = 'Ciclos para mudança de geração / linhagem'
454 452 ParentColor = False
455 453 end
... ... @@ -457,7 +455,7 @@ object FormDesigner: TFormDesigner
457 455 Left = 0
458 456 Height = 23
459 457 Top = 353
460   - Width = 649
  458 + Width = 628
461 459 MaxValue = 1000
462 460 MinValue = 1
463 461 OnEditingDone = SpinEditCyclesValueEditingDone
... ... @@ -468,21 +466,21 @@ object FormDesigner: TFormDesigner
468 466 Left = 0
469 467 Height = 162
470 468 Top = 381
471   - Width = 649
  469 + Width = 628
472 470 Caption = 'Apresentar pergunta ao final do ciclo'
473 471 ChildSizing.LeftRightSpacing = 50
474 472 ChildSizing.VerticalSpacing = 5
475 473 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
476 474 ChildSizing.Layout = cclLeftToRightThenTopToBottom
477 475 ChildSizing.ControlsPerLine = 1
478   - ClientHeight = 145
479   - ClientWidth = 645
  476 + ClientHeight = 142
  477 + ClientWidth = 624
480 478 TabOrder = 5
481 479 object CheckBoxShouldAskQuestion: TCheckBox
482 480 Left = 50
483 481 Height = 19
484 482 Top = 0
485   - Width = 545
  483 + Width = 524
486 484 Caption = 'Não'
487 485 OnChange = CheckBoxShouldAskQuestionChange
488 486 TabOrder = 0
... ... @@ -491,7 +489,7 @@ object FormDesigner: TFormDesigner
491 489 Left = 50
492 490 Height = 15
493 491 Top = 24
494   - Width = 545
  492 + Width = 524
495 493 Caption = 'Texto da Pergunta'
496 494 ParentColor = False
497 495 Visible = False
... ... @@ -500,17 +498,17 @@ object FormDesigner: TFormDesigner
500 498 Left = 50
501 499 Height = 23
502 500 Top = 44
503   - Width = 545
  501 + Width = 524
  502 + OnDblClick = EditQuestionDblClick
504 503 OnEditingDone = EditQuestionEditingDone
505 504 TabOrder = 1
506   - Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?'
507 505 Visible = False
508 506 end
509 507 object CGQuestion: TCheckGroup
510 508 Left = 50
511 509 Height = 70
512 510 Top = 72
513   - Width = 545
  511 + Width = 524
514 512 AutoFill = True
515 513 Caption = 'O que deve acontecer quando todos responderem sim?'
516 514 ChildSizing.LeftRightSpacing = 6
... ... @@ -521,8 +519,8 @@ object FormDesigner: TFormDesigner
521 519 ChildSizing.ShrinkVertical = crsScaleChilds
522 520 ChildSizing.Layout = cclLeftToRightThenTopToBottom
523 521 ChildSizing.ControlsPerLine = 1
524   - ClientHeight = 53
525   - ClientWidth = 541
  522 + ClientHeight = 50
  523 + ClientWidth = 520
526 524 Items.Strings = (
527 525 'Reverter consequências das metacontingências e contingências'
528 526 'Inverter pontos A e B quando pontos B forem consequências'
... ... @@ -531,7 +529,7 @@ object FormDesigner: TFormDesigner
531 529 TabOrder = 2
532 530 Visible = False
533 531 Data = {
534   - 020000000303
  532 + 020000000202
535 533 }
536 534 end
537 535 end
... ... @@ -539,9 +537,9 @@ object FormDesigner: TFormDesigner
539 537 Left = 0
540 538 Height = 77
541 539 Top = 548
542   - Width = 649
  540 + Width = 628
543 541 AutoFill = True
544   - Caption = 'Estilo do critério de finalização da condição'
  542 + Caption = 'Critério de finalização da condição'
545 543 ChildSizing.LeftRightSpacing = 6
546 544 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
547 545 ChildSizing.EnlargeVertical = crsHomogenousChildResize
... ... @@ -549,8 +547,8 @@ object FormDesigner: TFormDesigner
549 547 ChildSizing.ShrinkVertical = crsScaleChilds
550 548 ChildSizing.Layout = cclLeftToRightThenTopToBottom
551 549 ChildSizing.ControlsPerLine = 1
552   - ClientHeight = 60
553   - ClientWidth = 645
  550 + ClientHeight = 57
  551 + ClientWidth = 624
554 552 ItemIndex = 2
555 553 Items.Strings = (
556 554 'Finalizar após um número de ciclos'
... ... @@ -564,21 +562,21 @@ object FormDesigner: TFormDesigner
564 562 Left = 0
565 563 Height = 111
566 564 Top = 630
567   - Width = 649
  565 + Width = 628
568 566 Caption = 'Valores do critério de finalização da condição'
569 567 ChildSizing.LeftRightSpacing = 50
570 568 ChildSizing.VerticalSpacing = 5
571 569 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
572 570 ChildSizing.Layout = cclLeftToRightThenTopToBottom
573 571 ChildSizing.ControlsPerLine = 1
574   - ClientHeight = 94
575   - ClientWidth = 645
  572 + ClientHeight = 91
  573 + ClientWidth = 624
576 574 TabOrder = 7
577 575 object LabelEndCriteriaAbsCycles: TLabel
578 576 Left = 50
579 577 Height = 15
580 578 Top = 0
581   - Width = 545
  579 + Width = 524
582 580 Caption = 'Número de ciclos'
583 581 ParentColor = False
584 582 end
... ... @@ -586,7 +584,7 @@ object FormDesigner: TFormDesigner
586 584 Left = 50
587 585 Height = 23
588 586 Top = 20
589   - Width = 545
  587 + Width = 524
590 588 MaxValue = 1000
591 589 OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone
592 590 TabOrder = 0
... ... @@ -596,13 +594,13 @@ object FormDesigner: TFormDesigner
596 594 Left = 50
597 595 Height = 43
598 596 Top = 48
599   - Width = 545
  597 + Width = 524
600 598 Caption = 'Porcentagem de entrelaçamentos'
601 599 ChildSizing.HorizontalSpacing = 5
602 600 ChildSizing.Layout = cclLeftToRightThenTopToBottom
603 601 ChildSizing.ControlsPerLine = 4
604   - ClientHeight = 26
605   - ClientWidth = 541
  602 + ClientHeight = 23
  603 + ClientWidth = 520
606 604 TabOrder = 1
607 605 object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit
608 606 Left = 0
... ... @@ -654,8 +652,8 @@ object FormDesigner: TFormDesigner
654 652 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
655 653 ChildSizing.Layout = cclLeftToRightThenTopToBottom
656 654 ChildSizing.ControlsPerLine = 1
657   - ClientHeight = 732
658   - ClientWidth = 637
  655 + ClientHeight = 762
  656 + ClientWidth = 628
659 657 Enabled = False
660 658 object RGContingencyType: TRadioGroup
661 659 Left = 0
... ... @@ -671,7 +669,7 @@ object FormDesigner: TFormDesigner
671 669 ChildSizing.ShrinkVertical = crsScaleChilds
672 670 ChildSizing.Layout = cclLeftToRightThenTopToBottom
673 671 ChildSizing.ControlsPerLine = 1
674   - ClientHeight = 41
  672 + ClientHeight = 38
675 673 ClientWidth = 624
676 674 Items.Strings = (
677 675 'Contingências Operantes'
... ... @@ -685,7 +683,7 @@ object FormDesigner: TFormDesigner
685 683 Height = 23
686 684 Top = 73
687 685 Width = 628
688   - ItemHeight = 0
  686 + ItemHeight = 15
689 687 OnChange = ComboCurrentContingencyChange
690 688 Style = csDropDownList
691 689 TabOrder = 0
... ... @@ -762,7 +760,7 @@ object FormDesigner: TFormDesigner
762 760 ChildSizing.ShrinkVertical = crsScaleChilds
763 761 ChildSizing.Layout = cclLeftToRightThenTopToBottom
764 762 ChildSizing.ControlsPerLine = 1
765   - ClientHeight = 98
  763 + ClientHeight = 95
766 764 ClientWidth = 624
767 765 ItemIndex = 0
768 766 Items.Strings = (
... ... @@ -841,7 +839,7 @@ object FormDesigner: TFormDesigner
841 839 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
842 840 ChildSizing.Layout = cclLeftToRightThenTopToBottom
843 841 ChildSizing.ControlsPerLine = 2
844   - ClientHeight = 327
  842 + ClientHeight = 324
845 843 ClientWidth = 624
846 844 TabOrder = 6
847 845 Visible = False
... ... @@ -875,7 +873,7 @@ object FormDesigner: TFormDesigner
875 873 Height = 23
876 874 Top = 15
877 875 Width = 230
878   - ItemHeight = 0
  876 + ItemHeight = 15
879 877 OnChange = ConsequenceStyleChange
880 878 Style = csDropDownList
881 879 TabOrder = 1
... ... @@ -894,7 +892,7 @@ object FormDesigner: TFormDesigner
894 892 ChildSizing.ShrinkVertical = crsScaleChilds
895 893 ChildSizing.Layout = cclLeftToRightThenTopToBottom
896 894 ChildSizing.ControlsPerLine = 1
897   - ClientHeight = 60
  895 + ClientHeight = 57
898 896 ClientWidth = 390
899 897 ItemIndex = 0
900 898 Items.Strings = (
... ...
experiment_designer/form_main.pas
  Diff comments   View file @30142fe
... ... @@ -153,6 +153,7 @@ type
153 153 procedure EditConditionNameEditingDone(Sender: TObject);
154 154 procedure EditContingencyNameEditingDone(Sender: TObject);
155 155 procedure EditMessDone(Sender: TObject);
  156 + procedure EditQuestionDblClick(Sender: TObject);
156 157 procedure EditQuestionEditingDone(Sender: TObject);
157 158 procedure EditExperimentEditingDone(Sender: TObject);
158 159 procedure FormActivate(Sender: TObject);
... ... @@ -1600,6 +1601,11 @@ begin
1600 1601 end;
1601 1602 end;
1602 1603  
  1604 +procedure TFormDesigner.EditQuestionDblClick(Sender: TObject);
  1605 +begin
  1606 + TEdit(Sender).Text := 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?';
  1607 +end;
  1608 +
1603 1609 procedure TFormDesigner.ConsequenceMessageEditingDone(Sender: TObject);
1604 1610 var
1605 1611 LS, LC: String;
... ...