Вопросы

[psih1]

вот делаю чтото на подобие painta сделал рисование кистью а как сделать рисование точкой пытался посмотрите что не так

program paint;
const
  SPEED = 1; // Скорость движения
var
  i    : Integer;
  x, y : Integer; // позиция
  key  : Integer;
  
begin
// Инициализация
  x   := 32; // позиция  по X
  y   := 32; // и по Y соответственно :)
  i     :=2;// толшина
// Подготовка поля вывода
  SetColor(255, 255,255);
  FillRect(0, 0, GetWidth, GetHeight);
  
  
// Отрисовка и обработка ввода
  repeat
  // Получаем код зажатой клавиши
    key := GetKeyPressed;
  // Вот что бывает, когда нет возможности использовать case ;)
    if key = KE_KEY6 then  x   := x + SPEED;
    if key = KE_KEY8 then  y  := y + SPEED;
    if key = KE_KEY4 then x   := x - SPEED;
    if key = KE_KEY2 then y   := y- SPEED;
    if key = KE_KEY5 then 
    begin
    setColor(125, 125, 125); 
    FillRect(x ,y, i,i );
  end;
  // контролируем выход за границы экрана
    if x< 0 then x := 0;
    if y < 0 then y := 0;
    if x > GetWidth  - i then x:= GetWidth  - i;
    if y > GetHeight - i then y := GetHeight - i;
  // Рисуем новой позиции
setColor(0, 0, 0); 
fillRect(x,y, i, i); 
  // Вывод этого безобразия на экран и задержка на 20 мс  
    repaint;  
    delay(20);
  until GetKeyClicked = KE_KEY0; // Закрыть приложение при нажатии "0"
end. 


[cherepets]

не увидел проблемы. у тебя i - размер кисти. (кстати, в художественном магазине рядом с моим универом кисти почему-то не квадратные)

поставь его 1 и будет рисование точкой.

[psih1]

да не я имею виду жмеш на 5 и точка отрисовывается а у меня получается я рисую и тут же она стирается

[cherepets]

ну, например, делай скрин и дальше рисуй на нем
imagefromcanvas(x,y,width,height: integer):image;

вместо "подготовки поля..."

[psih1]

Как сделать описание процедуры для модуля

procedure cls;//Процедура отчистки экрана
begin
setcolor(255,255,255);//Устанавливаем белый цвет
FillRect(0, 0, GetWidth, GetHeight);//рисуем закрашенный прямоугольник на весь экран
setcolor(0,0,0);//возвращаем цвет
end; 


[cherepets]

в interface ты пишешь только название и что входит.
например:

function shit(a,b:integer):string;

а потом пишешь её целиком уже в implementation:

function shit(a,b:integer):string;
begin
shit:=''+a+b;
end;

[psih1]

Все разобрался уже

[psih1]

Вот в чем косяк

[cherepets]

списки параметров отличаются. сделай одинаковые

[psih1]

Я вроде все правильно сделал

unit progame;

interface

    {Описание функций и процедур }

function Collision:boolean;//Процедура проверки столкновения

procedure cls(cls: integer); //Процедура отчистки экрана



implementation

    {Сама реализация данных функций и процедур }
function Collision:boolean;//Процедура проверки столкновения
const//Обьявляем константы, это неизменяеммые значения
mapsize=9;//размер карты, но так как массив карты начинается с нуля то карта равна mapsize+1
var
rs:boolean;
zx,zy,x,y,px,py:integer;
map:array [0..mapsize,0..mapsize] of integer;//массив карты
begin
rs:=false;
for x:=0 to mapsize do//создаем цикл
for y:=0 to mapsize do//создаем ещё один цикл
begin
zx:=x*32;zy:=y*32;
if (map[x,y]=1)and not rs then if (px+32>zx)and(px<zx+32)and(py+32>zy)and(py<zy+32) then rs:=true;//Проверяем столкновение
end;
Collision:=rs;
end;



procedure cls;//Процедура отчистки экрана
begin
setcolor(255,255,255);//Устанавливаем белый цвет
FillRect(0, 0, GetWidth, GetHeight);//рисуем закрашенный прямоугольник на весь экран
setcolor(0,0,0);//возвращаем цвет
end;




initialization

    {Какая-то начальная инициализация переменных при загрузке модуля }

end. 


[psih1]

Ппц теперь совсем белый экран посмотрите исходник пожалуста

[odd]

Ругается на строку объявления константы. Может выкинуть эту константу вообще?

[psih1]

Это размеры карты без нее вобще даже не компилируется

[RoboMiha]

Const
Nr1 : array [1..60] of string =
 ('100000','010000','110000','001000',
  '101000','011000','111000','000100',
  '100100','010100','110100','001100',
  '101100','011100','111100','000010',
  '100010','010010','110010','001010',
  '101010','011010','111010','000110',
  '100110','010110','110110','001110',
  '101110','011110','111110','000001',
  '100001','010001','110001','001001',
  '101001','011001','111001','000101',
  '100101','010101','110101','001101',
  '101101','011101','111101','000011',
  '100011','010011','110011','001011', 
  '101011','011011','111011','000111',
  '100111','010111','110111','001111'); 


По-всякому пробовал - на делфи норм, а МР не компилит...

[odd]

Лучше сохрани эти значения в файле и при старте программы всё прочитай из файла и заполни так массив. И константами в MP лучше не пользоваться. Используй обычные переменные.

И в описании процедура CLS должна принимать какое-то целое число, а реально она ничего не принимает. Или исправь описание или саму процедуру.