diff --git a/experiment_designer/form_main.lfm b/experiment_designer/form_main.lfm index 1a188cd..141abe0 100644 --- a/experiment_designer/form_main.lfm +++ b/experiment_designer/form_main.lfm @@ -3,12 +3,12 @@ object FormDesigner: TFormDesigner Height = 656 Top = 29 Width = 653 - HorzScrollBar.Page = 346 - VertScrollBar.Page = 637 + HorzScrollBar.Page = 315 + VertScrollBar.Page = 636 AutoScroll = True Caption = 'Planejar Experimento' - ClientHeight = 637 - ClientWidth = 643 + ClientHeight = 636 + ClientWidth = 636 Menu = MainMenu1 OnActivate = FormActivate OnCreate = FormCreate @@ -18,9 +18,9 @@ object FormDesigner: TFormDesigner LCLVersion = '1.6.2.0' object PageControl: TPageControl Left = 0 - Height = 765 + Height = 745 Top = 0 - Width = 643 + Width = 636 ActivePage = TabSheetExperiment Align = alClient TabIndex = 0 @@ -32,77 +32,76 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 732 - ClientWidth = 637 + ClientHeight = 717 + ClientWidth = 628 object GBConditions: TGroupBox Left = 0 - Height = 97 + Height = 100 Top = 10 - Width = 637 + Width = 628 Caption = 'Condições' ClientHeight = 80 - ClientWidth = 633 + ClientWidth = 624 TabOrder = 5 object ListBoxConditions: TListBox Left = 0 Height = 80 Top = 0 - Width = 633 + Width = 624 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 ScrollWidth = 631 TabOrder = 0 - TopIndex = -1 end end object LabelResearcherName: TLabel Left = 0 Height = 15 - Top = 112 - Width = 637 + Top = 115 + Width = 628 Caption = 'Nome do Pesquisador' ParentColor = False end object EditResearcherName: TEdit Left = 0 - Height = 25 + Height = 23 Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.' - Top = 132 - Width = 637 + Top = 135 + Width = 628 OnEditingDone = EditExperimentEditingDone TabOrder = 0 end object LabelExperimentName: TLabel Left = 0 Height = 15 - Top = 162 - Width = 637 + Top = 163 + Width = 628 Caption = 'Nome do Experimento' ParentColor = False end object EditExperimentName: TEdit Left = 0 - Height = 25 + Height = 23 Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.' - Top = 182 - Width = 637 + Top = 183 + Width = 628 OnEditingDone = EditExperimentEditingDone TabOrder = 1 end object GBExperimentAim: TGroupBox Left = 0 - Height = 159 - Top = 212 - Width = 637 + Height = 162 + Top = 211 + Width = 628 Caption = 'Objetivo do Experimento' ClientHeight = 142 - ClientWidth = 633 + ClientWidth = 624 TabOrder = 2 object MemoExperimentAim: TMemo Left = 0 Height = 142 Top = 0 - Width = 633 + Width = 624 Align = alCustom Anchors = [akTop, akLeft, akRight] OnEditingDone = EditExperimentEditingDone @@ -111,10 +110,10 @@ object FormDesigner: TFormDesigner end object CGGlobal: TCheckGroup Left = 0 - Height = 134 + Height = 127 Hint = 'Aplicáveis ao longo de todo o experimento' - Top = 376 - Width = 637 + Top = 378 + Width = 628 AutoFill = True Caption = 'Configurações globais' ChildSizing.LeftRightSpacing = 6 @@ -125,8 +124,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 117 - ClientWidth = 633 + ClientHeight = 107 + ClientWidth = 624 Items.Strings = ( 'Enviar histórico do bate-papo a novos participantes' 'Gerar participantes automaticamente' @@ -143,9 +142,9 @@ object FormDesigner: TFormDesigner end object RGPoints: TRadioGroup Left = 0 - Height = 59 - Top = 515 - Width = 637 + Height = 58 + Top = 510 + Width = 628 AutoFill = True Caption = 'Tipo de pontuação Individual' ChildSizing.LeftRightSpacing = 6 @@ -155,8 +154,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 42 - ClientWidth = 633 + ClientHeight = 38 + ClientWidth = 624 ItemIndex = 0 Items.Strings = ( 'A e B' @@ -167,21 +166,21 @@ object FormDesigner: TFormDesigner end object GBMatrix: TGroupBox Left = 0 - Height = 143 - Top = 579 - Width = 637 + Height = 134 + Top = 573 + Width = 628 Caption = 'Tipo da Matrix' ChildSizing.LeftRightSpacing = 5 ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 126 - ClientWidth = 633 + ClientHeight = 114 + ClientWidth = 624 TabOrder = 6 object ChkColors: TCheckBox Left = 5 - Height = 21 + Height = 19 Top = 0 - Width = 239 + Width = 215 Caption = '5 cores' Checked = True Enabled = False @@ -191,9 +190,9 @@ object FormDesigner: TFormDesigner end object ChkRows: TCheckBox Left = 5 - Height = 21 - Top = 21 - Width = 239 + Height = 19 + Top = 19 + Width = 215 Caption = '10 linhas' Checked = True Enabled = False @@ -203,18 +202,18 @@ object FormDesigner: TFormDesigner end object ChkCols: TCheckBox Left = 5 - Height = 21 - Top = 42 - Width = 239 + Height = 19 + Top = 38 + Width = 215 Caption = '10 colunas' OnClick = ChkMatrixTypeClick TabOrder = 2 end object ChkDots: TCheckBox Left = 5 - Height = 21 - Top = 63 - Width = 239 + Height = 19 + Top = 57 + Width = 215 Caption = 'Com Círculos Preechidos' OnChange = ChkDotsChange OnClick = ChkMatrixTypeClick @@ -222,9 +221,9 @@ object FormDesigner: TFormDesigner end object ChkCleanDots: TCheckBox Left = 5 - Height = 21 - Top = 84 - Width = 239 + Height = 19 + Top = 76 + Width = 215 Caption = 'Com Círculos Vazados' OnChange = ChkCleanDotsChange OnClick = ChkMatrixTypeClick @@ -232,9 +231,9 @@ object FormDesigner: TFormDesigner end object ChkDotsCleanDots: TCheckBox Left = 5 - Height = 21 - Top = 105 - Width = 239 + Height = 19 + Top = 95 + Width = 215 Caption = 'Com Círculos Vazados e Preenchidos' OnChange = ChkDotsCleanDotsChange OnClick = ChkMatrixTypeClick @@ -249,14 +248,14 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 732 - ClientWidth = 637 + ClientHeight = 751 + ClientWidth = 628 object ComboCurrentCondition: TComboBox Left = 0 Height = 23 Top = 10 - Width = 649 - ItemHeight = 0 + Width = 628 + ItemHeight = 15 OnChange = ComboCurrentConditionChange Style = csDropDownList TabOrder = 0 @@ -265,39 +264,39 @@ object FormDesigner: TFormDesigner Left = 0 Height = 26 Top = 38 - Width = 649 + Width = 628 ChildSizing.LeftRightSpacing = 25 ChildSizing.HorizontalSpacing = 50 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 3 ClientHeight = 26 - ClientWidth = 649 + ClientWidth = 628 TabOrder = 1 object BtnAppendCond: TButton Left = 25 Height = 25 Hint = 'Selecione contingências na lista abaixo se deseja inclui-las na condição a ser adicionada.' Top = 0 - Width = 167 + Width = 160 Caption = 'Adicionar' OnClick = BtnAppendCondClick TabOrder = 0 end object BtnRemoveCond: TButton - Left = 242 + Left = 235 Height = 25 Top = 0 - Width = 163 + Width = 156 Caption = 'Remover' OnClick = BtnRemoveCondClick TabOrder = 1 end object BtnReorderCond: TButton - Left = 455 + Left = 441 Height = 25 Top = 0 - Width = 169 + Width = 162 Caption = 'Reordenar' OnClick = BtnReorderCondClick TabOrder = 2 @@ -308,23 +307,22 @@ object FormDesigner: TFormDesigner Left = 0 Height = 100 Top = 69 - Width = 649 + Width = 628 Caption = 'Contingências e Metacontingências da Condição Selecionada' - ClientHeight = 83 - ClientWidth = 645 + ClientHeight = 80 + ClientWidth = 624 TabOrder = 8 object ListBoxContingencies: TListBox Left = 0 Height = 80 Hint = 'CTRL+Clique para selecionar múltiplas contingências.' Top = 0 - Width = 645 + Width = 624 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 MultiSelect = True ScrollWidth = 643 TabOrder = 0 - TopIndex = -1 end end object LabelConditionName: TLabel @@ -332,7 +330,7 @@ object FormDesigner: TFormDesigner Height = 15 Hint = 'Nome da condição no relatório.' Top = 174 - Width = 649 + Width = 628 Caption = 'Nome da Condição' ParentColor = False end @@ -340,7 +338,7 @@ object FormDesigner: TFormDesigner Left = 0 Height = 23 Top = 194 - Width = 649 + Width = 628 OnEditingDone = EditConditionNameEditingDone TabOrder = 2 end @@ -348,7 +346,7 @@ object FormDesigner: TFormDesigner Left = 0 Height = 15 Top = 222 - Width = 649 + Width = 628 Caption = 'Número de Jogadores / Turnos' ParentColor = False end @@ -356,7 +354,7 @@ object FormDesigner: TFormDesigner Left = 0 Height = 23 Top = 242 - Width = 649 + Width = 628 MaxValue = 5 MinValue = 2 OnEditingDone = SpinEditTurnValueEditingDone @@ -367,20 +365,20 @@ object FormDesigner: TFormDesigner Left = 0 Height = 58 Top = 270 - Width = 649 + Width = 628 Caption = 'Somar pontos ao iniciar condição' ChildSizing.LeftRightSpacing = 50 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.ControlsPerLine = 2 - ClientHeight = 41 - ClientWidth = 645 + ClientHeight = 38 + ClientWidth = 624 TabOrder = 9 object LabelPA: TLabel Left = 50 Height = 15 Top = 0 - Width = 136 + Width = 131 Caption = 'A' ParentColor = False end @@ -388,58 +386,58 @@ object FormDesigner: TFormDesigner Left = 50 Height = 23 Top = 15 - Width = 136 + Width = 131 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 0 end object LabelPB: TLabel - Left = 186 + Left = 181 Height = 15 Top = 0 - Width = 136 + Width = 131 Caption = 'B' ParentColor = False end object SpinEditOnConditionBeginB: TSpinEdit - Left = 186 + Left = 181 Height = 23 Top = 15 - Width = 136 + Width = 131 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 1 end object LabelPI: TLabel - Left = 322 + Left = 312 Height = 15 Top = 0 - Width = 138 + Width = 133 Caption = 'Individual' ParentColor = False end object SpinEditOnConditionBeginI: TSpinEdit - Left = 322 + Left = 312 Height = 23 Top = 15 - Width = 138 + Width = 133 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 2 end object LabelPG: TLabel - Left = 460 + Left = 445 Height = 15 Top = 0 - Width = 135 + Width = 129 Caption = 'Grupo' ParentColor = False end object SpinEditOnConditionBeginG: TSpinEdit - Left = 460 + Left = 445 Height = 23 Top = 15 - Width = 135 + Width = 129 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 3 @@ -449,7 +447,7 @@ object FormDesigner: TFormDesigner Left = 0 Height = 15 Top = 333 - Width = 649 + Width = 628 Caption = 'Ciclos para mudança de geração / linhagem' ParentColor = False end @@ -457,7 +455,7 @@ object FormDesigner: TFormDesigner Left = 0 Height = 23 Top = 353 - Width = 649 + Width = 628 MaxValue = 1000 MinValue = 1 OnEditingDone = SpinEditCyclesValueEditingDone @@ -468,21 +466,21 @@ object FormDesigner: TFormDesigner Left = 0 Height = 162 Top = 381 - Width = 649 + Width = 628 Caption = 'Apresentar pergunta ao final do ciclo' ChildSizing.LeftRightSpacing = 50 ChildSizing.VerticalSpacing = 5 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 145 - ClientWidth = 645 + ClientHeight = 142 + ClientWidth = 624 TabOrder = 5 object CheckBoxShouldAskQuestion: TCheckBox Left = 50 Height = 19 Top = 0 - Width = 545 + Width = 524 Caption = 'Não' OnChange = CheckBoxShouldAskQuestionChange TabOrder = 0 @@ -491,7 +489,7 @@ object FormDesigner: TFormDesigner Left = 50 Height = 15 Top = 24 - Width = 545 + Width = 524 Caption = 'Texto da Pergunta' ParentColor = False Visible = False @@ -500,17 +498,17 @@ object FormDesigner: TFormDesigner Left = 50 Height = 23 Top = 44 - Width = 545 + Width = 524 + OnDblClick = EditQuestionDblClick OnEditingDone = EditQuestionEditingDone TabOrder = 1 - Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?' Visible = False end object CGQuestion: TCheckGroup Left = 50 Height = 70 Top = 72 - Width = 545 + Width = 524 AutoFill = True Caption = 'O que deve acontecer quando todos responderem sim?' ChildSizing.LeftRightSpacing = 6 @@ -521,8 +519,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 53 - ClientWidth = 541 + ClientHeight = 50 + ClientWidth = 520 Items.Strings = ( 'Reverter consequências das metacontingências e contingências' 'Inverter pontos A e B quando pontos B forem consequências' @@ -531,7 +529,7 @@ object FormDesigner: TFormDesigner TabOrder = 2 Visible = False Data = { - 020000000303 + 020000000202 } end end @@ -539,9 +537,9 @@ object FormDesigner: TFormDesigner Left = 0 Height = 77 Top = 548 - Width = 649 + Width = 628 AutoFill = True - Caption = 'Estilo do critério de finalização da condição' + Caption = 'Critério de finalização da condição' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize @@ -549,8 +547,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 60 - ClientWidth = 645 + ClientHeight = 57 + ClientWidth = 624 ItemIndex = 2 Items.Strings = ( 'Finalizar após um número de ciclos' @@ -564,21 +562,21 @@ object FormDesigner: TFormDesigner Left = 0 Height = 111 Top = 630 - Width = 649 + Width = 628 Caption = 'Valores do critério de finalização da condição' ChildSizing.LeftRightSpacing = 50 ChildSizing.VerticalSpacing = 5 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 94 - ClientWidth = 645 + ClientHeight = 91 + ClientWidth = 624 TabOrder = 7 object LabelEndCriteriaAbsCycles: TLabel Left = 50 Height = 15 Top = 0 - Width = 545 + Width = 524 Caption = 'Número de ciclos' ParentColor = False end @@ -586,7 +584,7 @@ object FormDesigner: TFormDesigner Left = 50 Height = 23 Top = 20 - Width = 545 + Width = 524 MaxValue = 1000 OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone TabOrder = 0 @@ -596,13 +594,13 @@ object FormDesigner: TFormDesigner Left = 50 Height = 43 Top = 48 - Width = 545 + Width = 524 Caption = 'Porcentagem de entrelaçamentos' ChildSizing.HorizontalSpacing = 5 ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 4 - ClientHeight = 26 - ClientWidth = 541 + ClientHeight = 23 + ClientWidth = 520 TabOrder = 1 object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit Left = 0 @@ -654,8 +652,8 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 732 - ClientWidth = 637 + ClientHeight = 762 + ClientWidth = 628 Enabled = False object RGContingencyType: TRadioGroup Left = 0 @@ -671,7 +669,7 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 41 + ClientHeight = 38 ClientWidth = 624 Items.Strings = ( 'Contingências Operantes' @@ -685,7 +683,7 @@ object FormDesigner: TFormDesigner Height = 23 Top = 73 Width = 628 - ItemHeight = 0 + ItemHeight = 15 OnChange = ComboCurrentContingencyChange Style = csDropDownList TabOrder = 0 @@ -762,7 +760,7 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 98 + ClientHeight = 95 ClientWidth = 624 ItemIndex = 0 Items.Strings = ( @@ -841,7 +839,7 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 327 + ClientHeight = 324 ClientWidth = 624 TabOrder = 6 Visible = False @@ -875,7 +873,7 @@ object FormDesigner: TFormDesigner Height = 23 Top = 15 Width = 230 - ItemHeight = 0 + ItemHeight = 15 OnChange = ConsequenceStyleChange Style = csDropDownList TabOrder = 1 @@ -894,7 +892,7 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 60 + ClientHeight = 57 ClientWidth = 390 ItemIndex = 0 Items.Strings = ( diff --git a/experiment_designer/form_main.pas b/experiment_designer/form_main.pas index ff5beda..2e7309e 100644 --- a/experiment_designer/form_main.pas +++ b/experiment_designer/form_main.pas @@ -153,6 +153,7 @@ type procedure EditConditionNameEditingDone(Sender: TObject); procedure EditContingencyNameEditingDone(Sender: TObject); procedure EditMessDone(Sender: TObject); + procedure EditQuestionDblClick(Sender: TObject); procedure EditQuestionEditingDone(Sender: TObject); procedure EditExperimentEditingDone(Sender: TObject); procedure FormActivate(Sender: TObject); @@ -1600,6 +1601,11 @@ begin end; end; +procedure TFormDesigner.EditQuestionDblClick(Sender: TObject); +begin + TEdit(Sender).Text := 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?'; +end; + procedure TFormDesigner.ConsequenceMessageEditingDone(Sender: TObject); var LS, LC: String; -- libgit2 0.21.2