делаю курсовик... так вот, сетку выводит, цифры вписывает, а клетки закрашивать в зависимости от значений основной матрицы или от щелчка мыши отказывается! вроде много вариантов прописывала а все равно нет! =( П О М О Г И Т Е !!!!
язык - Паскаль, процедура написана и вызывается. Интересно - вот код : procedure reshen_mish; var koordX,koordY:word; begin if mousePressed then getMouseXY(koordX,koordY); bar(koordX,koordY,koordX+10,koordY+10); x:=(koordX div 10)*10; x1:=x+10;y:=(koordY div 10)*10;y1:=y+10; i:=(y div 10)mod 10; j:=(x div 10)mod 10; if buttonPressed=1 then begin setfillstyle(1,8);osnmas[i,j]:=2; end; if buttonPressed=2 then begin setfillstyle(1,15);osnmas[i,j]:=1; end; bar(x,y,x1,y1); end;
но она все равно не работает...
и еще вопрос - почему мышка только до середины экрана доходит, а дальше - никак!... вы же здесь умные - помогите!!!
Вот более полно о программе: выводится сетка размерностью заданная пользователем. Весь кроссворд состоит из 3 массивов. Основной (тот что в центре) – «характеризуется» от 0 до 2, причем 0 – неизвестная клетка, 1 закрашено белым, 2 – закрашено черным(в моем случае - темно серым). В программе возможны разные варианты решения- ручной - когда пользователь с помощью мышки сам закрашивает клетки( что и не работает) и автоматический - когда компьютер должен сам вывести ответ. так же возможны варианты выбора кроссворда из сохраненного списка или ввод своего. что еще написать - не знаю. Если что еще не понятно- спрашивайте!
vitaann, ты же телепат, наверное? Тогда прочти у меня в мыслях, что надо сделать, чтобы программа работала... А то я как-то затрудняюсь догадываться, как же собственно реализовано вот это: mousePressed, вот это: buttonPressed, и вот это: getMouseXY.
Вся программа, я так понимаю, разработана для спецслужб и ее нам нельзя видеть полностью ни в коем случае?