Download as
Browse Code »

Commit 2118a2c90b4a7689fac081314cd85c19a2daba64

Authored by Carlos Picanco
1 parent 59f13fb3
Exists in master

designer: fix dummy saving operation

Showing 2 changed files with 126 additions and 125 deletions   Show diff stats
experiment_designer/form_main.lfm
  Diff comments   View file @2118a2c
... ... @@ -3,7 +3,7 @@ object FormDesigner: TFormDesigner
3 3 Height = 656
4 4 Top = 29
5 5 Width = 653
6   - HorzScrollBar.Page = 521
  6 + HorzScrollBar.Page = 346
7 7 VertScrollBar.Page = 637
8 8 AutoScroll = True
9 9 Caption = 'Planejar Experimento'
... ... @@ -18,12 +18,12 @@ object FormDesigner: TFormDesigner
18 18 LCLVersion = '1.6.2.0'
19 19 object PageControl: TPageControl
20 20 Left = 0
21   - Height = 793
  21 + Height = 765
22 22 Top = 0
23 23 Width = 643
24   - ActivePage = TabSheetConditions
  24 + ActivePage = TabSheetExperiment
25 25 Align = alClient
26   - TabIndex = 1
  26 + TabIndex = 0
27 27 TabOrder = 0
28 28 object TabSheetExperiment: TTabSheet
29 29 Caption = 'Experimento'
... ... @@ -32,7 +32,7 @@ object FormDesigner: TFormDesigner
32 32 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
33 33 ChildSizing.Layout = cclLeftToRightThenTopToBottom
34 34 ChildSizing.ControlsPerLine = 1
35   - ClientHeight = 760
  35 + ClientHeight = 732
36 36 ClientWidth = 637
37 37 object GBConditions: TGroupBox
38 38 Left = 0
... ... @@ -249,7 +249,7 @@ object FormDesigner: TFormDesigner
249 249 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
250 250 ChildSizing.Layout = cclLeftToRightThenTopToBottom
251 251 ChildSizing.ControlsPerLine = 1
252   - ClientHeight = 760
  252 + ClientHeight = 732
253 253 ClientWidth = 637
254 254 object ComboCurrentCondition: TComboBox
255 255 Left = 0
... ... @@ -655,14 +655,14 @@ object FormDesigner: TFormDesigner
655 655 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
656 656 ChildSizing.Layout = cclLeftToRightThenTopToBottom
657 657 ChildSizing.ControlsPerLine = 1
658   - ClientHeight = 760
  658 + ClientHeight = 732
659 659 ClientWidth = 637
660 660 Enabled = False
661 661 object RGContingencyType: TRadioGroup
662 662 Left = 0
663   - Height = 58
  663 + Height = 59
664 664 Top = 10
665   - Width = 628
  665 + Width = 637
666 666 AutoFill = True
667 667 Caption = 'Mostrar'
668 668 ChildSizing.LeftRightSpacing = 6
... ... @@ -672,8 +672,8 @@ object FormDesigner: TFormDesigner
672 672 ChildSizing.ShrinkVertical = crsScaleChilds
673 673 ChildSizing.Layout = cclLeftToRightThenTopToBottom
674 674 ChildSizing.ControlsPerLine = 1
675   - ClientHeight = 41
676   - ClientWidth = 624
  675 + ClientHeight = 42
  676 + ClientWidth = 633
677 677 Items.Strings = (
678 678 'Contingências Operantes'
679 679 'Metacontingências'
... ... @@ -683,9 +683,9 @@ object FormDesigner: TFormDesigner
683 683 end
684 684 object ComboCurrentContingency: TComboBox
685 685 Left = 0
686   - Height = 23
687   - Top = 73
688   - Width = 628
  686 + Height = 27
  687 + Top = 74
  688 + Width = 637
689 689 ItemHeight = 0
690 690 OnChange = ComboCurrentContingencyChange
691 691 Style = csDropDownList
... ... @@ -694,39 +694,39 @@ object FormDesigner: TFormDesigner
694 694 object PanelContingenciesButtons: TPanel
695 695 Left = 0
696 696 Height = 26
697   - Top = 101
698   - Width = 628
  697 + Top = 106
  698 + Width = 637
699 699 ChildSizing.LeftRightSpacing = 25
700 700 ChildSizing.HorizontalSpacing = 50
701 701 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
702 702 ChildSizing.Layout = cclLeftToRightThenTopToBottom
703 703 ChildSizing.ControlsPerLine = 3
704 704 ClientHeight = 26
705   - ClientWidth = 628
  705 + ClientWidth = 637
706 706 TabOrder = 1
707 707 object BtnAppendContingency: TButton
708 708 Left = 25
709 709 Height = 25
710 710 Top = 0
711   - Width = 160
  711 + Width = 161
712 712 Caption = 'Adicionar'
713 713 OnClick = BtnAppendContingencyClick
714 714 TabOrder = 0
715 715 end
716 716 object BtnRemoveContingency: TButton
717   - Left = 235
  717 + Left = 236
718 718 Height = 25
719 719 Top = 0
720   - Width = 156
  720 + Width = 158
721 721 Caption = 'Remover'
722 722 OnClick = BtnRemoveContingencyClick
723 723 TabOrder = 1
724 724 end
725 725 object BtnReorderContingency: TButton
726   - Left = 441
  726 + Left = 444
727 727 Height = 25
728 728 Top = 0
729   - Width = 162
  729 + Width = 168
730 730 Caption = 'Reordenar'
731 731 OnClick = BtnReorderContingencyClick
732 732 TabOrder = 2
... ... @@ -736,24 +736,24 @@ object FormDesigner: TFormDesigner
736 736 object LabelContingencyName: TLabel
737 737 Left = 0
738 738 Height = 15
739   - Top = 132
740   - Width = 628
  739 + Top = 137
  740 + Width = 637
741 741 Caption = 'Nome da contingência'
742 742 ParentColor = False
743 743 end
744 744 object EditContingencyName: TEdit
745 745 Left = 0
746   - Height = 23
747   - Top = 152
748   - Width = 628
  746 + Height = 25
  747 + Top = 157
  748 + Width = 637
749 749 OnEditingDone = EditContingencyNameEditingDone
750 750 TabOrder = 2
751 751 end
752 752 object RGContingencyStyle: TRadioGroup
753 753 Left = 0
754   - Height = 115
755   - Top = 180
756   - Width = 628
  754 + Height = 122
  755 + Top = 187
  756 + Width = 637
757 757 AutoFill = True
758 758 Caption = 'Estilo da Resposta'
759 759 ChildSizing.LeftRightSpacing = 6
... ... @@ -763,8 +763,8 @@ object FormDesigner: TFormDesigner
763 763 ChildSizing.ShrinkVertical = crsScaleChilds
764 764 ChildSizing.Layout = cclLeftToRightThenTopToBottom
765 765 ChildSizing.ControlsPerLine = 1
766   - ClientHeight = 98
767   - ClientWidth = 624
  766 + ClientHeight = 105
  767 + ClientWidth = 633
768 768 ItemIndex = 0
769 769 Items.Strings = (
770 770 'Extinção'
... ... @@ -780,8 +780,8 @@ object FormDesigner: TFormDesigner
780 780 object LabelIf: TLabel
781 781 Left = 0
782 782 Height = 15
783   - Top = 300
784   - Width = 628
  783 + Top = 314
  784 + Width = 637
785 785 Alignment = taCenter
786 786 Caption = 'SE O PARTICIPANTE ESCOLHER'
787 787 ParentColor = False
... ... @@ -789,9 +789,9 @@ object FormDesigner: TFormDesigner
789 789 end
790 790 object GBContingencyRows: TGroupBox
791 791 Left = 0
792   - Height = 19
793   - Top = 320
794   - Width = 628
  792 + Height = 17
  793 + Top = 334
  794 + Width = 637
795 795 Caption = 'Linhas'
796 796 ChildSizing.LeftRightSpacing = 5
797 797 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
... ... @@ -803,8 +803,8 @@ object FormDesigner: TFormDesigner
803 803 object LabelOperator: TLabel
804 804 Left = 0
805 805 Height = 15
806   - Top = 344
807   - Width = 628
  806 + Top = 356
  807 + Width = 637
808 808 Alignment = taCenter
809 809 Caption = 'E'
810 810 ParentColor = False
... ... @@ -812,9 +812,9 @@ object FormDesigner: TFormDesigner
812 812 end
813 813 object GBContingencyColors: TGroupBox
814 814 Left = 0
815   - Height = 19
816   - Top = 364
817   - Width = 628
  815 + Height = 17
  816 + Top = 376
  817 + Width = 637
818 818 Caption = 'Cores'
819 819 ChildSizing.HorizontalSpacing = 5
820 820 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
... ... @@ -826,8 +826,8 @@ object FormDesigner: TFormDesigner
826 826 object LabelThen: TLabel
827 827 Left = 0
828 828 Height = 15
829   - Top = 388
830   - Width = 628
  829 + Top = 398
  830 + Width = 637
831 831 Alignment = taCenter
832 832 Caption = 'ENTÃO'
833 833 ParentColor = False
... ... @@ -835,47 +835,47 @@ object FormDesigner: TFormDesigner
835 835 end
836 836 object GBContingencyConsequence: TGroupBox
837 837 Left = 0
838   - Height = 344
839   - Top = 408
840   - Width = 628
  838 + Height = 364
  839 + Top = 418
  840 + Width = 637
841 841 Caption = 'Consequência'
842 842 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
843 843 ChildSizing.Layout = cclLeftToRightThenTopToBottom
844 844 ChildSizing.ControlsPerLine = 2
845   - ClientHeight = 327
846   - ClientWidth = 624
  845 + ClientHeight = 347
  846 + ClientWidth = 633
847 847 TabOrder = 6
848 848 Visible = False
849 849 object LabelCsq1: TLabel
850 850 Left = 0
851 851 Height = 15
852 852 Top = 0
853   - Width = 394
  853 + Width = 409
854 854 Caption = 'Pontos'
855 855 ParentColor = False
856 856 end
857 857 object LabelCsq2: TLabel
858   - Left = 394
  858 + Left = 409
859 859 Height = 15
860 860 Top = 0
861   - Width = 230
  861 + Width = 224
862 862 Caption = 'do Tipo'
863 863 ParentColor = False
864 864 end
865 865 object SpinEditContingencyPoints: TSpinEdit
866 866 Left = 0
867   - Height = 23
  867 + Height = 27
868 868 Top = 15
869   - Width = 394
  869 + Width = 409
870 870 MaxValue = 0
871 871 OnEditingDone = ConsequenceStyleChange
872 872 TabOrder = 0
873 873 end
874 874 object CBPointsType: TComboBox
875   - Left = 394
876   - Height = 23
  875 + Left = 409
  876 + Height = 27
877 877 Top = 15
878   - Width = 230
  878 + Width = 224
879 879 ItemHeight = 0
880 880 OnChange = ConsequenceStyleChange
881 881 Style = csDropDownList
... ... @@ -883,9 +883,9 @@ object FormDesigner: TFormDesigner
883 883 end
884 884 object RGBroadcastMessage: TRadioGroup
885 885 Left = 0
886   - Height = 77
887   - Top = 38
888   - Width = 394
  886 + Height = 80
  887 + Top = 42
  888 + Width = 409
889 889 AutoFill = True
890 890 Caption = 'Apresentar mensagem de notificação'
891 891 ChildSizing.LeftRightSpacing = 6
... ... @@ -895,8 +895,8 @@ object FormDesigner: TFormDesigner
895 895 ChildSizing.ShrinkVertical = crsScaleChilds
896 896 ChildSizing.Layout = cclLeftToRightThenTopToBottom
897 897 ChildSizing.ControlsPerLine = 1
898   - ClientHeight = 60
899   - ClientWidth = 390
  898 + ClientHeight = 63
  899 + ClientWidth = 405
900 900 ItemIndex = 0
901 901 Items.Strings = (
902 902 'a todos os participantes'
... ... @@ -907,11 +907,11 @@ object FormDesigner: TFormDesigner
907 907 TabOrder = 9
908 908 end
909 909 object CheckBoxImutableMessage: TCheckBox
910   - Left = 394
911   - Height = 77
  910 + Left = 409
  911 + Height = 80
912 912 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.'
913   - Top = 38
914   - Width = 230
  913 + Top = 42
  914 + Width = 224
915 915 AutoSize = False
916 916 Caption = 'imutável'
917 917 OnChange = CheckBoxImutableMessageChange
... ... @@ -919,136 +919,136 @@ object FormDesigner: TFormDesigner
919 919 end
920 920 object LabelCsq3: TLabel
921 921 Left = 0
922   - Height = 23
923   - Top = 115
924   - Width = 394
  922 + Height = 25
  923 + Top = 122
  924 + Width = 409
925 925 Caption = 'Texto no início da mensagem'
926 926 ParentColor = False
927 927 end
928 928 object EditMessPrefix: TEdit
929   - Left = 394
930   - Height = 23
931   - Top = 115
932   - Width = 230
  929 + Left = 409
  930 + Height = 25
  931 + Top = 122
  932 + Width = 224
933 933 OnEditingDone = EditMessDone
934 934 TabOrder = 2
935 935 Text = '$NICNAME'
936 936 end
937 937 object LabelCsq4: TLabel
938 938 Left = 0
939   - Height = 23
940   - Top = 138
941   - Width = 394
  939 + Height = 25
  940 + Top = 147
  941 + Width = 409
942 942 Caption = 'Prefixo ao perder pontos'
943 943 ParentColor = False
944 944 end
945 945 object EditMessPrefixLoss: TEdit
946   - Left = 394
947   - Height = 23
948   - Top = 138
949   - Width = 230
  946 + Left = 409
  947 + Height = 25
  948 + Top = 147
  949 + Width = 224
950 950 OnEditingDone = EditMessDone
951 951 TabOrder = 3
952 952 Text = 'perdeu'
953 953 end
954 954 object LabelCsq5: TLabel
955 955 Left = 0
956   - Height = 23
957   - Top = 161
958   - Width = 394
  956 + Height = 25
  957 + Top = 172
  958 + Width = 409
959 959 Caption = 'Sufixo ao perder pontos (Singular)'
960 960 ParentColor = False
961 961 end
962 962 object EditMessSufixLossSingular: TEdit
963   - Left = 394
964   - Height = 23
965   - Top = 161
966   - Width = 230
  963 + Left = 409
  964 + Height = 25
  965 + Top = 172
  966 + Width = 224
967 967 OnEditingDone = EditMessDone
968 968 TabOrder = 4
969 969 Text = 'ponto.'
970 970 end
971 971 object LabelCsq6: TLabel
972 972 Left = 0
973   - Height = 23
974   - Top = 184
975   - Width = 394
  973 + Height = 25
  974 + Top = 197
  975 + Width = 409
976 976 Caption = 'Sufixo ao perder pontos (Plural)'
977 977 ParentColor = False
978 978 end
979 979 object EditMessSufixLossPlural: TEdit
980   - Left = 394
981   - Height = 23
982   - Top = 184
983   - Width = 230
  980 + Left = 409
  981 + Height = 25
  982 + Top = 197
  983 + Width = 224
984 984 OnEditingDone = EditMessDone
985 985 TabOrder = 5
986 986 Text = 'pontos.'
987 987 end
988 988 object LabelCsq7: TLabel
989 989 Left = 0
990   - Height = 23
991   - Top = 207
992   - Width = 394
  990 + Height = 25
  991 + Top = 222
  992 + Width = 409
993 993 Caption = 'Prefixo ao ganhar pontos'
994 994 ParentColor = False
995 995 end
996 996 object EditMessPrefixEarn: TEdit
997   - Left = 394
998   - Height = 23
999   - Top = 207
1000   - Width = 230
  997 + Left = 409
  998 + Height = 25
  999 + Top = 222
  1000 + Width = 224
1001 1001 OnEditingDone = EditMessDone
1002 1002 TabOrder = 6
1003 1003 Text = 'ganhou'
1004 1004 end
1005 1005 object LabelCsq8: TLabel
1006 1006 Left = 0
1007   - Height = 23
1008   - Top = 230
1009   - Width = 394
  1007 + Height = 25
  1008 + Top = 247
  1009 + Width = 409
1010 1010 Caption = 'Sufixo ao ganhar pontos (Singular)'
1011 1011 ParentColor = False
1012 1012 end
1013 1013 object EditMessSufixEarnSingular: TEdit
1014   - Left = 394
1015   - Height = 23
1016   - Top = 230
1017   - Width = 230
  1014 + Left = 409
  1015 + Height = 25
  1016 + Top = 247
  1017 + Width = 224
1018 1018 OnEditingDone = EditMessDone
1019 1019 TabOrder = 7
1020 1020 Text = 'ponto.'
1021 1021 end
1022 1022 object LabelCsq9: TLabel
1023 1023 Left = 0
1024   - Height = 23
1025   - Top = 253
1026   - Width = 394
  1024 + Height = 25
  1025 + Top = 272
  1026 + Width = 409
1027 1027 Caption = 'Sufixo ao ganhar pontos (Plural)'
1028 1028 ParentColor = False
1029 1029 end
1030 1030 object EditMessSufixEarnPlural: TEdit
1031   - Left = 394
1032   - Height = 23
1033   - Top = 253
1034   - Width = 230
  1031 + Left = 409
  1032 + Height = 25
  1033 + Top = 272
  1034 + Width = 224
1035 1035 OnEditingDone = EditMessDone
1036 1036 TabOrder = 8
1037 1037 Text = 'pontos.'
1038 1038 end
1039 1039 object LabelCsq10: TLabel
1040 1040 Left = 0
1041   - Height = 23
1042   - Top = 276
1043   - Width = 394
  1041 + Height = 25
  1042 + Top = 297
  1043 + Width = 409
1044 1044 Caption = 'Sufixo 0 pontos'
1045 1045 ParentColor = False
1046 1046 end
1047 1047 object EditMessSufixZero: TEdit
1048   - Left = 394
1049   - Height = 23
1050   - Top = 276
1051   - Width = 230
  1048 + Left = 409
  1049 + Height = 25
  1050 + Top = 297
  1051 + Width = 224
1052 1052 OnEditingDone = EditMessDone
1053 1053 TabOrder = 11
1054 1054 Text = 'não ganhou nem perdeu pontos.'
... ... @@ -1056,8 +1056,8 @@ object FormDesigner: TFormDesigner
1056 1056 object ButtonPreviewMessage: TButton
1057 1057 Left = 0
1058 1058 Height = 25
1059   - Top = 299
1060   - Width = 394
  1059 + Top = 322
  1060 + Width = 409
1061 1061 Caption = 'Ver como a mensagem pode ser apresentada'
1062 1062 OnClick = ButtonPreviewMessageClick
1063 1063 TabOrder = 12
... ...
experiment_designer/form_main.pas
  Diff comments   View file @2118a2c
... ... @@ -370,7 +370,8 @@ end;
370 370  
371 371 procedure TFormDesigner.RGContingencyStyleExit(Sender: TObject);
372 372 begin
373   - SaveContingency(ExtractDelimited(1,ComboCurrentCondition.Text,['|']),ExtractDelimited(1,ComboCurrentContingency.Text,['|']));
  373 + if ComboCurrentContingency.ItemIndex <> -1 then
  374 + SaveContingency(ExtractDelimited(1,ComboCurrentCondition.Text,['|']),ExtractDelimited(1,ComboCurrentContingency.Text,['|']));
374 375 end;
375 376  
376 377  
... ...