Тестер. Как выделить правильные ответы зелёным, а не правильные красным?

@hammer91 · Регистрация: 31.01.2013

Здравствуйте программисты!! у меня такая проблема. Как можно сделать в режиме обучения:
1. Чтобы правильные ответы как-нибудь выделялись красным, а не правильные зелёным цветом, можно по нажатию кнопки. (ну или хоть как нибудь их пометить)
2. Чтобы в конце оценочного тестирования можно было вернуться назад к вопросам и так же просмотреть свои ошибки, где будет так же выделены правильные ответы зелёным и не правильные красным.
Нашел где-то на форуме что можно сделать при помощи

Delphi

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if RadioGroup1.ItemIndex = -1 then Exit; 
  TRadioButton(RadioGroup1.Controls[RadioGroup1.ItemIndex]).Color := RGB(Random(255), Random(255), Random(255)); 
end;

но как это реализовать в этой программе ни как не пойму.... помогите пожалуйста. Заранее спасибо!!

@Fenix_dragon · 31.01.2013, 18:00

берёш массив, куда записываеш правильные ответы. потом проверяеш, если выбранный ответ - правильный, то цвет метки, или что там у тебя будет синим (красным, зелёным и т.п.)

Одиночка · 31.01.2013, 20:01

Ну, во-первых, Если используешь XPManifest - твой код закраски итемсов в радиогруппе работать не будет.
Если вдруг надумаешь его убрать - кроме самого компонента, нужно будет убрать и ссылку на него в Uses формы 4.
Вот в твоей процедуре: GenerateNewQ я сделал подсветку так. Только если выделять весь фон - получается не красиво. Лучше выделять цвет текста:

Delphi

//Процедра подсветки итемсов в заданном  RadioGroup
//в S - строка с номером правильного ответа
Procedure LightButton(RadioGroup:TRadioGroup;S:String);
Var
  i : Integer;
Begin
  For i:=0 To 3 Do
  If i=StrToInt(S) Then
  RadioGroup.Buttons[i].Font.Color:=clRed Else
  RadioGroup.Buttons[i].Font.Color:=clGreen;
End;
 
procedure TForm7.GenerateNewQ;        {расcтановка вопросов}
 begin
   begin
 inc(num);
   label1.Caption:=Q+inttostr(num)+_of+inttostr(N);
   readln(S); label2.Caption:= S;
   readln(S); RadioGroup1.Items.Strings[0]:= S;
   readln(S); RadioGroup1.Items.Strings[1]:= S;
   readln(S); RadioGroup1.Items.Strings[2]:= S;
   readln(S); RadioGroup1.Items.Strings[3]:= S;
   readln(S); label15.Caption:=S;         {правельный ответ}
   LightButton(RadioGroup1,S); //Подсветка нужного итемса !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   RadioGroup1.Buttons[ri].Checked:= false;

И так для каждой радиогруппы.
Можешь установить какой-нибудь глобальный флаг, который будет признаком - нужно подсвечивать итемсы или нет. И в процедуре подсветки его использовать.
В общем суть понятна? Можешь сделать кнопку просмотр результатов, в которой установишь флаг разрешения подсветки и пройдёшь по всем радиогруппам с подсветкой итемсов. В этом случае это значение номера правильного ответа можно брать из Label-ов, в которые ты их записываешь при чтении вопросов.

@hammer91 · 01.02.2013, 04:01 **[ТС]**

Спасибо большое, сделел как вы сказали, работает..! только вы немного с цветом напутали (надо было цвета местами поменять,но это не важно) буду разбираться дальше!)

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	31.01.2013, 18:00	2
	берёш массив, куда записываеш правильные ответы. потом проверяеш, если выбранный ответ - правильный, то цвет метки, или что там у тебя будет синим (красным, зелёным и т.п.) 0

@hammer91 2 / 2 / 0 Регистрация: 31.01.2013 Сообщений: 13
	01.02.2013, 04:01 [ТС]	4
	Спасибо большое, сделел как вы сказали, работает..! только вы немного с цветом напутали (надо было цвета местами поменять,но это не важно) буду разбираться дальше!) 0

Опции темы