Помогите с Turbo Paskal, организовать выбор цвета пера в простейшей рисовалке Поделиться Опции

[Pic-nic]

Ребят! курсовик горит...помогите пожалуйста, кто может!!
Вобщем имеется программа типа Паинта(простейшая рисовалка), написанная на Паскале. Необходимо в ней организовать палитру (хотяб пару цветов,остальные по аналогии сам добавлю) так чтоб, цвет можно было выбрать щелчком мыши..и всёё!

исходник прикрепляю..

[A.Vas]

Pic-nic,
можно сделать выбор цвета двумя способами:
1. Нарисовать сетку с цветами и рассчитывать выбранный цвет по координатам клика.
2. Просто получить цвет точки под курсором мыши.

P.S. Исходник не читал - не умею понимать неоформленный код без комментариев и осмысленных названий, да ещё и на паскале.

[Pic-nic]

Нарисовать сетку, и при клике по цвету, присвоить его код(цвета) переменной Q или W

{--------------основной код программы}
begin
start_prog;

main_col:=Q; { "Q" -это код цвета для левой кн.мыши}
bg_col:=W; { "W" -это код цвета для правой кн.мыши}
ch:='a';x:=320;y:=240;
initmouse;
setsteptopixel(8,8);
outmouse;

while ch<>#27 do
begin
if keypressed then ch:=readkey;
if (posmouse_x<>x) or (posmouse_y<>y) then
begin
x:=posmouse_x;
y:=posmouse_y;
if (mousepressed) and (keysmouse=1) then piatno(x-10,y-10,main_col,10);
if (mousepressed) and (keysmouse=2) then brush(x-10,y-10,bg_col,10);
{ if (mousepressed) and (keysmouse=2) then marker(x,y,14,10);}
end;
end;
closegraph;
closemouse;
end.

A.Vas, извините за кривоту. Я пока новичок в программировании

[DmT]

Те градиентную палитру или дискретную?
И выучи ты как орфографически-корректно пишется по-английски слово "паскаль", а то пичалька v__v

[Pic-nic]

Те градиентную палитру или дискретную?
И выучи ты как орфографически-корректно пишется по-английски слово "паскаль", а то пичалька v__v

Дискретную, она проще задается.

pascal

[A.Vas]

Pic-nic,
на мой взгляд, задача должна работать как-то так. Я не помню паскаля в целом и тонкостей работы с мышью в частности, поэтому решение пишу в псевдокоде - на паскале перепишешь сам.

Код

begin
    инициализация_программы;
    repeat
        если (нажата какая-нибудь кнопка мыши), то
        begin
            если (мышь находится в области рисования), то
                рисуем объект в области рисования около указателя;
            если (мышь находится над палитной), то
            begin
                получаем цвет точки под указателем; {ЕМНИП, это функция getpixel}
                сохраняем его в переменную для левой или правой кнопки мыши;
            end
            {здесь можно продолжить обработку нажатия мыши в различных областях экрана -
            например, над панелью инструментов или ещё какой-нибудь панелью с кнопками}
        end
        если (нажата клавиша клавиатуры), то
        begin
            если (нажата клавиша выхода), то
                создаём условия для выхода из цикла;
            {аналогичным образом обрабатываем нажатия других клавиш, если это необходимо}
        end
    until (условие выхода) {выход по нажатию клавиши, клику какой-нибудь области, etc.}
    завершение работы; {освобождение мыши, выход из графического режима...}
end.

[Pic-nic]

A.Vas, спасибо!!

Pic-nic,

Код

begin
                получаем цвет точки под указателем; {ЕМНИП, это функция getpixel}
                сохраняем его в переменную для левой или правой кнопки мыши;
            end
    

Вот, за это отдельное спасибо!! Буду пробовать, вроде осваиваюсь.

[Pic-nic]

Ура!! У меня получилось..вобщем справился своими силами. Спасибо, пацаны, всем, кто откликнулся...

A.Vas, сделал по координатам, без использования "getpixel", т.к. до конца не разобрался с этой процедурой. Будет возможность - рейтинг подниму,не забуду!

Если кому интересно, вот моя прога.


просьба к модераторам - закрыть тему!

Сообщение отредактировал Pic-nic - 18.1.2011, 2:10