Download as
Browse Code »

Commit 10ea36505c4c9033dd9f4f1cc8b074b435c768f8

Authored by Carlos Picanco
1 parent 6e329499
Exists in master

fix empty contingencies on ini file

Showing 2 changed files with 140 additions and 139 deletions   Show diff stats
experiment_designer/form_main.lfm
  Diff comments   View file @10ea365
@@ -650,14 +650,14 @@ object FormDesigner: TFormDesigner @@ -650,14 +650,14 @@ object FormDesigner: TFormDesigner
650 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 650 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
651 ChildSizing.Layout = cclLeftToRightThenTopToBottom 651 ChildSizing.Layout = cclLeftToRightThenTopToBottom
652 ChildSizing.ControlsPerLine = 1 652 ChildSizing.ControlsPerLine = 1
653 - ClientHeight = 711  
654 - ClientWidth = 658 653 + ClientHeight = 762
  654 + ClientWidth = 628
655 Enabled = False 655 Enabled = False
656 object RGContingencyType: TRadioGroup 656 object RGContingencyType: TRadioGroup
657 Left = 0 657 Left = 0
658 - Height = 59 658 + Height = 58
659 Top = 10 659 Top = 10
660 - Width = 658 660 + Width = 628
661 AutoFill = True 661 AutoFill = True
662 Caption = 'Mostrar' 662 Caption = 'Mostrar'
663 ChildSizing.LeftRightSpacing = 6 663 ChildSizing.LeftRightSpacing = 6
@@ -667,8 +667,8 @@ object FormDesigner: TFormDesigner @@ -667,8 +667,8 @@ object FormDesigner: TFormDesigner
667 ChildSizing.ShrinkVertical = crsScaleChilds 667 ChildSizing.ShrinkVertical = crsScaleChilds
668 ChildSizing.Layout = cclLeftToRightThenTopToBottom 668 ChildSizing.Layout = cclLeftToRightThenTopToBottom
669 ChildSizing.ControlsPerLine = 1 669 ChildSizing.ControlsPerLine = 1
670 - ClientHeight = 39  
671 - ClientWidth = 654 670 + ClientHeight = 38
  671 + ClientWidth = 624
672 Items.Strings = ( 672 Items.Strings = (
673 'Contingências Operantes' 673 'Contingências Operantes'
674 'Metacontingências' 674 'Metacontingências'
@@ -679,8 +679,8 @@ object FormDesigner: TFormDesigner @@ -679,8 +679,8 @@ object FormDesigner: TFormDesigner
679 object ComboCurrentContingency: TComboBox 679 object ComboCurrentContingency: TComboBox
680 Left = 0 680 Left = 0
681 Height = 23 681 Height = 23
682 - Top = 74  
683 - Width = 658 682 + Top = 73
  683 + Width = 628
684 ItemHeight = 15 684 ItemHeight = 15
685 OnChange = ComboCurrentContingencyChange 685 OnChange = ComboCurrentContingencyChange
686 Style = csDropDownList 686 Style = csDropDownList
@@ -689,39 +689,39 @@ object FormDesigner: TFormDesigner @@ -689,39 +689,39 @@ object FormDesigner: TFormDesigner
689 object PanelContingenciesButtons: TPanel 689 object PanelContingenciesButtons: TPanel
690 Left = 0 690 Left = 0
691 Height = 26 691 Height = 26
692 - Top = 106  
693 - Width = 658 692 + Top = 101
  693 + Width = 628
694 ChildSizing.LeftRightSpacing = 25 694 ChildSizing.LeftRightSpacing = 25
695 ChildSizing.HorizontalSpacing = 50 695 ChildSizing.HorizontalSpacing = 50
696 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 696 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
697 ChildSizing.Layout = cclLeftToRightThenTopToBottom 697 ChildSizing.Layout = cclLeftToRightThenTopToBottom
698 ChildSizing.ControlsPerLine = 3 698 ChildSizing.ControlsPerLine = 3
699 ClientHeight = 26 699 ClientHeight = 26
700 - ClientWidth = 658 700 + ClientWidth = 628
701 TabOrder = 1 701 TabOrder = 1
702 object BtnAppendContingency: TButton 702 object BtnAppendContingency: TButton
703 Left = 25 703 Left = 25
704 Height = 25 704 Height = 25
705 Top = 0 705 Top = 0
706 - Width = 168 706 + Width = 160
707 Caption = 'Adicionar' 707 Caption = 'Adicionar'
708 OnClick = BtnAppendContingencyClick 708 OnClick = BtnAppendContingencyClick
709 TabOrder = 0 709 TabOrder = 0
710 end 710 end
711 object BtnRemoveContingency: TButton 711 object BtnRemoveContingency: TButton
712 - Left = 243 712 + Left = 235
713 Height = 25 713 Height = 25
714 Top = 0 714 Top = 0
715 - Width = 165 715 + Width = 156
716 Caption = 'Remover' 716 Caption = 'Remover'
717 OnClick = BtnRemoveContingencyClick 717 OnClick = BtnRemoveContingencyClick
718 TabOrder = 1 718 TabOrder = 1
719 end 719 end
720 object BtnReorderContingency: TButton 720 object BtnReorderContingency: TButton
721 - Left = 458 721 + Left = 441
722 Height = 25 722 Height = 25
723 Top = 0 723 Top = 0
724 - Width = 175 724 + Width = 162
725 Caption = 'Reordenar' 725 Caption = 'Reordenar'
726 OnClick = BtnReorderContingencyClick 726 OnClick = BtnReorderContingencyClick
727 TabOrder = 2 727 TabOrder = 2
@@ -731,24 +731,24 @@ object FormDesigner: TFormDesigner @@ -731,24 +731,24 @@ object FormDesigner: TFormDesigner
731 object LabelContingencyName: TLabel 731 object LabelContingencyName: TLabel
732 Left = 0 732 Left = 0
733 Height = 15 733 Height = 15
734 - Top = 137  
735 - Width = 658 734 + Top = 132
  735 + Width = 628
736 Caption = 'Nome da contingência' 736 Caption = 'Nome da contingência'
737 ParentColor = False 737 ParentColor = False
738 end 738 end
739 object EditContingencyName: TEdit 739 object EditContingencyName: TEdit
740 Left = 0 740 Left = 0
741 - Height = 25  
742 - Top = 157  
743 - Width = 658 741 + Height = 23
  742 + Top = 152
  743 + Width = 628
744 OnEditingDone = EditContingencyNameEditingDone 744 OnEditingDone = EditContingencyNameEditingDone
745 TabOrder = 2 745 TabOrder = 2
746 end 746 end
747 object RGContingencyStyle: TRadioGroup 747 object RGContingencyStyle: TRadioGroup
748 Left = 0 748 Left = 0
749 - Height = 122  
750 - Top = 187  
751 - Width = 658 749 + Height = 115
  750 + Top = 180
  751 + Width = 628
752 AutoFill = True 752 AutoFill = True
753 Caption = 'Estilo da Resposta' 753 Caption = 'Estilo da Resposta'
754 ChildSizing.LeftRightSpacing = 6 754 ChildSizing.LeftRightSpacing = 6
@@ -758,8 +758,8 @@ object FormDesigner: TFormDesigner @@ -758,8 +758,8 @@ object FormDesigner: TFormDesigner
758 ChildSizing.ShrinkVertical = crsScaleChilds 758 ChildSizing.ShrinkVertical = crsScaleChilds
759 ChildSizing.Layout = cclLeftToRightThenTopToBottom 759 ChildSizing.Layout = cclLeftToRightThenTopToBottom
760 ChildSizing.ControlsPerLine = 1 760 ChildSizing.ControlsPerLine = 1
761 - ClientHeight = 102  
762 - ClientWidth = 654 761 + ClientHeight = 95
  762 + ClientWidth = 624
763 ItemIndex = 0 763 ItemIndex = 0
764 Items.Strings = ( 764 Items.Strings = (
765 'Extinção' 765 'Extinção'
@@ -775,8 +775,8 @@ object FormDesigner: TFormDesigner @@ -775,8 +775,8 @@ object FormDesigner: TFormDesigner
775 object LabelIf: TLabel 775 object LabelIf: TLabel
776 Left = 0 776 Left = 0
777 Height = 15 777 Height = 15
778 - Top = 314  
779 - Width = 658 778 + Top = 300
  779 + Width = 628
780 Alignment = taCenter 780 Alignment = taCenter
781 Caption = 'SE O PARTICIPANTE ESCOLHER' 781 Caption = 'SE O PARTICIPANTE ESCOLHER'
782 ParentColor = False 782 ParentColor = False
@@ -784,9 +784,9 @@ object FormDesigner: TFormDesigner @@ -784,9 +784,9 @@ object FormDesigner: TFormDesigner
784 end 784 end
785 object GBContingencyRows: TGroupBox 785 object GBContingencyRows: TGroupBox
786 Left = 0 786 Left = 0
787 - Height = 17  
788 - Top = 334  
789 - Width = 658 787 + Height = 19
  788 + Top = 320
  789 + Width = 628
790 Caption = 'Linhas' 790 Caption = 'Linhas'
791 ChildSizing.LeftRightSpacing = 5 791 ChildSizing.LeftRightSpacing = 5
792 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 792 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@@ -798,8 +798,8 @@ object FormDesigner: TFormDesigner @@ -798,8 +798,8 @@ object FormDesigner: TFormDesigner
798 object LabelOperator: TLabel 798 object LabelOperator: TLabel
799 Left = 0 799 Left = 0
800 Height = 15 800 Height = 15
801 - Top = 356  
802 - Width = 658 801 + Top = 344
  802 + Width = 628
803 Alignment = taCenter 803 Alignment = taCenter
804 Caption = 'E' 804 Caption = 'E'
805 ParentColor = False 805 ParentColor = False
@@ -807,9 +807,9 @@ object FormDesigner: TFormDesigner @@ -807,9 +807,9 @@ object FormDesigner: TFormDesigner
807 end 807 end
808 object GBContingencyColors: TGroupBox 808 object GBContingencyColors: TGroupBox
809 Left = 0 809 Left = 0
810 - Height = 17  
811 - Top = 376  
812 - Width = 658 810 + Height = 19
  811 + Top = 364
  812 + Width = 628
813 Caption = 'Cores' 813 Caption = 'Cores'
814 ChildSizing.HorizontalSpacing = 5 814 ChildSizing.HorizontalSpacing = 5
815 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 815 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@@ -821,8 +821,8 @@ object FormDesigner: TFormDesigner @@ -821,8 +821,8 @@ object FormDesigner: TFormDesigner
821 object LabelThen: TLabel 821 object LabelThen: TLabel
822 Left = 0 822 Left = 0
823 Height = 15 823 Height = 15
824 - Top = 398  
825 - Width = 658 824 + Top = 388
  825 + Width = 628
826 Alignment = taCenter 826 Alignment = taCenter
827 Caption = 'ENTÃO' 827 Caption = 'ENTÃO'
828 ParentColor = False 828 ParentColor = False
@@ -830,47 +830,47 @@ object FormDesigner: TFormDesigner @@ -830,47 +830,47 @@ object FormDesigner: TFormDesigner
830 end 830 end
831 object GBContingencyConsequence: TGroupBox 831 object GBContingencyConsequence: TGroupBox
832 Left = 0 832 Left = 0
833 - Height = 364  
834 - Top = 418  
835 - Width = 658 833 + Height = 344
  834 + Top = 408
  835 + Width = 628
836 Caption = 'Consequência' 836 Caption = 'Consequência'
837 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 837 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
838 ChildSizing.Layout = cclLeftToRightThenTopToBottom 838 ChildSizing.Layout = cclLeftToRightThenTopToBottom
839 ChildSizing.ControlsPerLine = 2 839 ChildSizing.ControlsPerLine = 2
840 - ClientHeight = 344  
841 - ClientWidth = 654 840 + ClientHeight = 324
  841 + ClientWidth = 624
842 TabOrder = 6 842 TabOrder = 6
843 Visible = False 843 Visible = False
844 object LabelCsq1: TLabel 844 object LabelCsq1: TLabel
845 Left = 0 845 Left = 0
846 Height = 15 846 Height = 15
847 Top = 0 847 Top = 0
848 - Width = 420 848 + Width = 394
849 Caption = 'Pontos' 849 Caption = 'Pontos'
850 ParentColor = False 850 ParentColor = False
851 end 851 end
852 object LabelCsq2: TLabel 852 object LabelCsq2: TLabel
853 - Left = 420 853 + Left = 394
854 Height = 15 854 Height = 15
855 Top = 0 855 Top = 0
856 - Width = 234 856 + Width = 230
857 Caption = 'do Tipo' 857 Caption = 'do Tipo'
858 ParentColor = False 858 ParentColor = False
859 end 859 end
860 object SpinEditContingencyPoints: TSpinEdit 860 object SpinEditContingencyPoints: TSpinEdit
861 Left = 0 861 Left = 0
862 - Height = 27 862 + Height = 23
863 Top = 15 863 Top = 15
864 - Width = 420 864 + Width = 394
865 MaxValue = 0 865 MaxValue = 0
866 OnEditingDone = ConsequenceStyleChange 866 OnEditingDone = ConsequenceStyleChange
867 TabOrder = 0 867 TabOrder = 0
868 end 868 end
869 object CBPointsType: TComboBox 869 object CBPointsType: TComboBox
870 - Left = 420 870 + Left = 394
871 Height = 23 871 Height = 23
872 Top = 15 872 Top = 15
873 - Width = 234 873 + Width = 230
874 ItemHeight = 15 874 ItemHeight = 15
875 OnChange = ConsequenceStyleChange 875 OnChange = ConsequenceStyleChange
876 Style = csDropDownList 876 Style = csDropDownList
@@ -878,9 +878,9 @@ object FormDesigner: TFormDesigner @@ -878,9 +878,9 @@ object FormDesigner: TFormDesigner
878 end 878 end
879 object RGBroadcastMessage: TRadioGroup 879 object RGBroadcastMessage: TRadioGroup
880 Left = 0 880 Left = 0
881 - Height = 80  
882 - Top = 42  
883 - Width = 420 881 + Height = 77
  882 + Top = 38
  883 + Width = 394
884 AutoFill = True 884 AutoFill = True
885 Caption = 'Apresentar mensagem de notificação' 885 Caption = 'Apresentar mensagem de notificação'
886 ChildSizing.LeftRightSpacing = 6 886 ChildSizing.LeftRightSpacing = 6
@@ -890,8 +890,8 @@ object FormDesigner: TFormDesigner @@ -890,8 +890,8 @@ object FormDesigner: TFormDesigner
890 ChildSizing.ShrinkVertical = crsScaleChilds 890 ChildSizing.ShrinkVertical = crsScaleChilds
891 ChildSizing.Layout = cclLeftToRightThenTopToBottom 891 ChildSizing.Layout = cclLeftToRightThenTopToBottom
892 ChildSizing.ControlsPerLine = 1 892 ChildSizing.ControlsPerLine = 1
893 - ClientHeight = 60  
894 - ClientWidth = 416 893 + ClientHeight = 57
  894 + ClientWidth = 390
895 ItemIndex = 0 895 ItemIndex = 0
896 Items.Strings = ( 896 Items.Strings = (
897 'a todos os participantes' 897 'a todos os participantes'
@@ -902,11 +902,11 @@ object FormDesigner: TFormDesigner @@ -902,11 +902,11 @@ object FormDesigner: TFormDesigner
902 TabOrder = 9 902 TabOrder = 9
903 end 903 end
904 object CheckBoxImutableMessage: TCheckBox 904 object CheckBoxImutableMessage: TCheckBox
905 - Left = 420  
906 - Height = 80 905 + Left = 394
  906 + Height = 77
907 Hint = 'Marque se deseja uma mensagem fixa; o programa não atualizará o texto da mensagem caso o valor da pontuação mude ao longo do experimento.' 907 Hint = 'Marque se deseja uma mensagem fixa; o programa não atualizará o texto da mensagem caso o valor da pontuação mude ao longo do experimento.'
908 - Top = 42  
909 - Width = 234 908 + Top = 38
  909 + Width = 230
910 AutoSize = False 910 AutoSize = False
911 Caption = 'imutável' 911 Caption = 'imutável'
912 OnChange = CheckBoxImutableMessageChange 912 OnChange = CheckBoxImutableMessageChange
@@ -914,136 +914,136 @@ object FormDesigner: TFormDesigner @@ -914,136 +914,136 @@ object FormDesigner: TFormDesigner
914 end 914 end
915 object LabelCsq3: TLabel 915 object LabelCsq3: TLabel
916 Left = 0 916 Left = 0
917 - Height = 25  
918 - Top = 122  
919 - Width = 420 917 + Height = 23
  918 + Top = 115
  919 + Width = 394
920 Caption = 'Texto no início da mensagem' 920 Caption = 'Texto no início da mensagem'
921 ParentColor = False 921 ParentColor = False
922 end 922 end
923 object EditMessPrefix: TEdit 923 object EditMessPrefix: TEdit
924 - Left = 420  
925 - Height = 25  
926 - Top = 122  
927 - Width = 234 924 + Left = 394
  925 + Height = 23
  926 + Top = 115
  927 + Width = 230
928 OnEditingDone = EditMessDone 928 OnEditingDone = EditMessDone
929 TabOrder = 2 929 TabOrder = 2
930 Text = '$NICNAME' 930 Text = '$NICNAME'
931 end 931 end
932 object LabelCsq4: TLabel 932 object LabelCsq4: TLabel
933 Left = 0 933 Left = 0
934 - Height = 25  
935 - Top = 147  
936 - Width = 420 934 + Height = 23
  935 + Top = 138
  936 + Width = 394
937 Caption = 'Prefixo ao perder pontos' 937 Caption = 'Prefixo ao perder pontos'
938 ParentColor = False 938 ParentColor = False
939 end 939 end
940 object EditMessPrefixLoss: TEdit 940 object EditMessPrefixLoss: TEdit
941 - Left = 420  
942 - Height = 25  
943 - Top = 147  
944 - Width = 234 941 + Left = 394
  942 + Height = 23
  943 + Top = 138
  944 + Width = 230
945 OnEditingDone = EditMessDone 945 OnEditingDone = EditMessDone
946 TabOrder = 3 946 TabOrder = 3
947 Text = 'perdeu' 947 Text = 'perdeu'
948 end 948 end
949 object LabelCsq5: TLabel 949 object LabelCsq5: TLabel
950 Left = 0 950 Left = 0
951 - Height = 25  
952 - Top = 172  
953 - Width = 420 951 + Height = 23
  952 + Top = 161
  953 + Width = 394
954 Caption = 'Sufixo ao perder pontos (Singular)' 954 Caption = 'Sufixo ao perder pontos (Singular)'
955 ParentColor = False 955 ParentColor = False
956 end 956 end
957 object EditMessSufixLossSingular: TEdit 957 object EditMessSufixLossSingular: TEdit
958 - Left = 420  
959 - Height = 25  
960 - Top = 172  
961 - Width = 234 958 + Left = 394
  959 + Height = 23
  960 + Top = 161
  961 + Width = 230
962 OnEditingDone = EditMessDone 962 OnEditingDone = EditMessDone
963 TabOrder = 4 963 TabOrder = 4
964 Text = 'ponto.' 964 Text = 'ponto.'
965 end 965 end
966 object LabelCsq6: TLabel 966 object LabelCsq6: TLabel
967 Left = 0 967 Left = 0
968 - Height = 25  
969 - Top = 197  
970 - Width = 420 968 + Height = 23
  969 + Top = 184
  970 + Width = 394
971 Caption = 'Sufixo ao perder pontos (Plural)' 971 Caption = 'Sufixo ao perder pontos (Plural)'
972 ParentColor = False 972 ParentColor = False
973 end 973 end
974 object EditMessSufixLossPlural: TEdit 974 object EditMessSufixLossPlural: TEdit
975 - Left = 420  
976 - Height = 25  
977 - Top = 197  
978 - Width = 234 975 + Left = 394
  976 + Height = 23
  977 + Top = 184
  978 + Width = 230
979 OnEditingDone = EditMessDone 979 OnEditingDone = EditMessDone
980 TabOrder = 5 980 TabOrder = 5
981 Text = 'pontos.' 981 Text = 'pontos.'
982 end 982 end
983 object LabelCsq7: TLabel 983 object LabelCsq7: TLabel
984 Left = 0 984 Left = 0
985 - Height = 25  
986 - Top = 222  
987 - Width = 420 985 + Height = 23
  986 + Top = 207
  987 + Width = 394
988 Caption = 'Prefixo ao ganhar pontos' 988 Caption = 'Prefixo ao ganhar pontos'
989 ParentColor = False 989 ParentColor = False
990 end 990 end
991 object EditMessPrefixEarn: TEdit 991 object EditMessPrefixEarn: TEdit
992 - Left = 420  
993 - Height = 25  
994 - Top = 222  
995 - Width = 234 992 + Left = 394
  993 + Height = 23
  994 + Top = 207
  995 + Width = 230
996 OnEditingDone = EditMessDone 996 OnEditingDone = EditMessDone
997 TabOrder = 6 997 TabOrder = 6
998 Text = 'ganhou' 998 Text = 'ganhou'
999 end 999 end
1000 object LabelCsq8: TLabel 1000 object LabelCsq8: TLabel
1001 Left = 0 1001 Left = 0
1002 - Height = 25  
1003 - Top = 247  
1004 - Width = 420 1002 + Height = 23
  1003 + Top = 230
  1004 + Width = 394
1005 Caption = 'Sufixo ao ganhar pontos (Singular)' 1005 Caption = 'Sufixo ao ganhar pontos (Singular)'
1006 ParentColor = False 1006 ParentColor = False
1007 end 1007 end
1008 object EditMessSufixEarnSingular: TEdit 1008 object EditMessSufixEarnSingular: TEdit
1009 - Left = 420  
1010 - Height = 25  
1011 - Top = 247  
1012 - Width = 234 1009 + Left = 394
  1010 + Height = 23
  1011 + Top = 230
  1012 + Width = 230
1013 OnEditingDone = EditMessDone 1013 OnEditingDone = EditMessDone
1014 TabOrder = 7 1014 TabOrder = 7
1015 Text = 'ponto.' 1015 Text = 'ponto.'
1016 end 1016 end
1017 object LabelCsq9: TLabel 1017 object LabelCsq9: TLabel
1018 Left = 0 1018 Left = 0
1019 - Height = 25  
1020 - Top = 272  
1021 - Width = 420 1019 + Height = 23
  1020 + Top = 253
  1021 + Width = 394
1022 Caption = 'Sufixo ao ganhar pontos (Plural)' 1022 Caption = 'Sufixo ao ganhar pontos (Plural)'
1023 ParentColor = False 1023 ParentColor = False
1024 end 1024 end
1025 object EditMessSufixEarnPlural: TEdit 1025 object EditMessSufixEarnPlural: TEdit
1026 - Left = 420  
1027 - Height = 25  
1028 - Top = 272  
1029 - Width = 234 1026 + Left = 394
  1027 + Height = 23
  1028 + Top = 253
  1029 + Width = 230
1030 OnEditingDone = EditMessDone 1030 OnEditingDone = EditMessDone
1031 TabOrder = 8 1031 TabOrder = 8
1032 Text = 'pontos.' 1032 Text = 'pontos.'
1033 end 1033 end
1034 object LabelCsq10: TLabel 1034 object LabelCsq10: TLabel
1035 Left = 0 1035 Left = 0
1036 - Height = 25  
1037 - Top = 297  
1038 - Width = 420 1036 + Height = 23
  1037 + Top = 276
  1038 + Width = 394
1039 Caption = 'Sufixo 0 pontos' 1039 Caption = 'Sufixo 0 pontos'
1040 ParentColor = False 1040 ParentColor = False
1041 end 1041 end
1042 object EditMessSufixZero: TEdit 1042 object EditMessSufixZero: TEdit
1043 - Left = 420  
1044 - Height = 25  
1045 - Top = 297  
1046 - Width = 234 1043 + Left = 394
  1044 + Height = 23
  1045 + Top = 276
  1046 + Width = 230
1047 OnEditingDone = EditMessDone 1047 OnEditingDone = EditMessDone
1048 TabOrder = 11 1048 TabOrder = 11
1049 Text = 'não ganhou nem perdeu pontos.' 1049 Text = 'não ganhou nem perdeu pontos.'
@@ -1051,8 +1051,8 @@ object FormDesigner: TFormDesigner @@ -1051,8 +1051,8 @@ object FormDesigner: TFormDesigner
1051 object ButtonPreviewMessage: TButton 1051 object ButtonPreviewMessage: TButton
1052 Left = 0 1052 Left = 0
1053 Height = 25 1053 Height = 25
1054 - Top = 322  
1055 - Width = 420 1054 + Top = 299
  1055 + Width = 394
1056 Caption = 'Ver como a mensagem pode ser apresentada' 1056 Caption = 'Ver como a mensagem pode ser apresentada'
1057 OnClick = ButtonPreviewMessageClick 1057 OnClick = ButtonPreviewMessageClick
1058 TabOrder = 12 1058 TabOrder = 12
experiment_designer/form_main.pas
  Diff comments   View file @10ea365
@@ -1038,28 +1038,29 @@ end; @@ -1038,28 +1038,29 @@ end;
1038 1038
1039 procedure TFormDesigner.SaveContingency(ASection, AContingency: string); 1039 procedure TFormDesigner.SaveContingency(ASection, AContingency: string);
1040 begin 1040 begin
1041 - with FExperiment do  
1042 - begin  
1043 - WriteString(ASection, AContingency + KEY_CONT_NAME, EditContingencyName.Text);  
1044 - WriteString(ASection, AContingency + KEY_CRITERIA, GetContingencyCriteria);  
1045 - WriteString(ASection, AContingency + KEY_CONSEQUE, GetConsequenceStyle);  
1046 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_PREPEND, EditMessPrefix.Text);  
1047 -  
1048 - if EditMessPrefixLoss.Text <> '' then  
1049 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_PREPEND_LOSS,EditMessPrefixLoss.Text);  
1050 - if EditMessSufixLossSingular.Text <> '' then  
1051 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_LOSS_S,EditMessSufixLossSingular.Text);  
1052 - if EditMessSufixLossPlural.Text <> '' then  
1053 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_LOSS_P,EditMessSufixLossPlural.Text);  
1054 - if EditMessPrefixEarn.Text <> '' then  
1055 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_PREPEND_EARN,EditMessPrefixEarn.Text);  
1056 - if EditMessSufixEarnSingular.Text <> '' then  
1057 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_EARN_S,EditMessSufixEarnSingular.Text);  
1058 - if EditMessSufixEarnPlural.Text <> '' then  
1059 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_EARN_P,EditMessSufixEarnPlural.Text);  
1060 - if EditMessSufixZero.Text <> '' then  
1061 - WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_ZERO, EditMessSufixZero.Text);  
1062 - end; 1041 + if ASection <> '' then
  1042 + with FExperiment do
  1043 + begin
  1044 + WriteString(ASection, AContingency + KEY_CONT_NAME, EditContingencyName.Text);
  1045 + WriteString(ASection, AContingency + KEY_CRITERIA, GetContingencyCriteria);
  1046 + WriteString(ASection, AContingency + KEY_CONSEQUE, GetConsequenceStyle);
  1047 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_PREPEND, EditMessPrefix.Text);
  1048 +
  1049 + if EditMessPrefixLoss.Text <> '' then
  1050 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_PREPEND_LOSS,EditMessPrefixLoss.Text);
  1051 + if EditMessSufixLossSingular.Text <> '' then
  1052 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_LOSS_S,EditMessSufixLossSingular.Text);
  1053 + if EditMessSufixLossPlural.Text <> '' then
  1054 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_LOSS_P,EditMessSufixLossPlural.Text);
  1055 + if EditMessPrefixEarn.Text <> '' then
  1056 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_PREPEND_EARN,EditMessPrefixEarn.Text);
  1057 + if EditMessSufixEarnSingular.Text <> '' then
  1058 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_EARN_S,EditMessSufixEarnSingular.Text);
  1059 + if EditMessSufixEarnPlural.Text <> '' then
  1060 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_EARN_P,EditMessSufixEarnPlural.Text);
  1061 + if EditMessSufixZero.Text <> '' then
  1062 + WriteString(ASection, AContingency + KEY_CONSEQUE_MESSAGE_APPEND_ZERO, EditMessSufixZero.Text);
  1063 + end;
1063 end; 1064 end;
1064 1065
1065 procedure TFormDesigner.EraseContingency(ASection, AContingency: string); 1066 procedure TFormDesigner.EraseContingency(ASection, AContingency: string);