Проблема с редактором карт

[Wicort]

Всем привет.
Оглашаю свою проблему.
Делаю простенький редактор карт. При поднятии формы всё тупо заливается водой. Далее справа выбираем поверхность, которую собираемся рисовать. Пи клике на карте, вычисляется нужная ячейка карты, которая заполняется новым значением. После этого карта перерисовывается (вернее должна перерисовываться). Здесь и появляется проблема: карта затирается, но заново не рисуется Подскажите, в чём может быть проблема? Исходники во вложении.

[Вадим Буренков]

Посмотрел исходник.
При первом запуске карта (вода) рисуется так:

for i:= 1 to StrToInt(MapWidth.Text) do
begin
for j:= 1 to StrToInt(MapHeight.Text) do
begin
DrawSprite('0',i,j);
end;
end;

Потом при нажатии клавиши ты пытаешься перерисовать карту процедурой drawmap, а она наверное работает не правильно.

Лучше переделай программу так:
Есть массив с ячейками карты: координатами является индекс ячейки а типом изображения является номер (например byte);
Есть единая процедура прорисовки. В нее передается массив с ячейками и она его рисует.
Процедура прорисовки выполняется в таймере.

[Wicort]

Пробовал с таймером, но во-первых, разницы ни какой, во-вторых - лишняя нагрузка: зачем мне перерисовывать карту, например, каждую секунду, если можно только при ее изменении. Это же не сама игра, а только редактор. Я понимаю, что проблема где-то в drawMap, но не могу понять, где именно. Ведь если при первом запуске вызвать вместо цикла

for i:= 1 to StrToInt(MapWidth.Text) do
begin
for j:= 1 to StrToInt(MapHeight.Text) do
begin
DrawSprite('0',i,j);
end;
end;

эту функцию, то она отрабатывает нормально

[Вадим Буренков]

Делать можно как угодно, главное чтоб редактор работал . Я предложил тебе нормальный вариант создания редактора. Плюс в том что ты будешь видель карту на экране такой же какая она в памяти, все глюки будут видны. И никакой лишней нагрузки, я всегда в своих редакторах использую таймер.

[Wicort]

Блин, я это понимаю, но проблема то сейчас не в том, использовать таймер или нет. Проблема в том, почему карта не рисуется, где ошибка?

[pro100-delphi]

Вадим Буренков, в первом ответе всё правильно сказал

[Wicort]

Люди, вы что, издеваетесь? Всё что написал Видим и так у меня есть, только не через Таймер. Ключевая фраза:

Потом при нажатии клавиши ты пытаешься перерисовать карту процедурой drawmap, а она наверное работает не правильно.

Но вот по этому поводу пока никто ничего дельного не сказал

[Вадим Буренков]

Попробуй переписать программу заново, ну или хотя бы всю часть по выводу графики. Начмнай с малого, после добавления каждой строчки кода перекомпилируй программу, следи за ошибками. А как ты еще хотел ? У меня нет времени ловить чужие ошибки, своих хватает .

[Wicort]

я и не прошу переписать мне программу) а лишь надеюсь, что кто-то заметит в ней то, что я не вижу