[Andrey93]

Здравствуйте.
Пишу игру "Морской бой".
Есть процедура, которая на канвасе формы рисует игровое поле(просто линии). Есть кнопка(Button1:TButton), которая делает авторасстановку кораблей. Для ручной расстановки есть объекты RadioGroup1 и RadioGroup2 типа TRadioGroup.
Сначала рисуется первое поле(слева). После нажатия на кнопку Button1 скрываются RadioGroup1 и RadioGroup2 (RadioGroupX.Visible:=false), на их месте рисуется второе поле. Но рисуется оно почему-то некорректно.

До нажатия на Button1:

После нажатия:


Получается, что второе поле рисуется на том месте, где были объекты RadioGroup, у которых даже нет своего canvas'а.

Вот код процедуры рисования поля (Переменная Game включается после расстановки или нажатия на Button1, Sea - фоновый рисунок, dx1 и dx2 - расстояние от левого края формы).

Код:

procedure TFormGame.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    Draw(0,0,Sea);
    pen.Color:=clBlack;
    DrawField(Sender,dx1);
    if Game then
      DrawField(Sender,dx2);
  end;
end;

Процедура DrawField(Sender:TObject;dx:integer) рисует только линии, буквы и цифры.

Нужно, чтобы второе поле рисовалось корректно.
Я пробовал уничтожать объекты RadioGroup(Free или Destroy). Всё равно поле рисуется некорректно, а программа выдаёт ошибку


Что посоветуете?

[dimsog]

Лучший вариант - использовать 2StringGrid'a с ручной отрисовкой.