Цветовая палитра для рисовалки - Pascal ABC

Формулировка задачи:

Помогите сделать цветовую палитру для вот этот рисовалки
uses
  GraphABC, Events;
 
procedure MouseDown(x, y, mb: integer);
begin
  MoveTo(x, y);
end;
 
procedure MouseMove(x, y, mb: integer);
begin
  SetWindowCaption('Рисовалка ');
  if mb = 1 then
  begin
    setpencolor(clblack);
    setpenwidth(2);
    LineTo(x, y)
  end
  else
  if mb = 2 then 
  begin
    setpenwidth(15);
    setpencolor(clwhite);
    LineTo(x, y)
  end
else
end;
 
begin
  OnMouseDown := MouseDown;
  OnMouseMove := MouseMove
end.

Код к задаче: «Цветовая палитра для рисовалки - Pascal ABC»

textual
uses
  GraphABC, Events;
var c:integer;
procedure MouseDown(x, y, mb: integer);
begin
  MoveTo(x, y);
end;
 
procedure MouseMove(x, y, mb: integer);
begin
  if mb = 1 then
  begin
    setpencolor(c);
    setpenwidth(2);
    LineTo(x, y)
  end
  else
  if mb = 2 then
  begin
    setpenwidth(15);
    setpencolor(clwhite);
    LineTo(x, y)
  end
else
end;
procedure KeyPress(key: char);
begin
case Upcase(key) of
'R':c:=clRed;
'G':c:=clGreen;
'B':c:=clBlue;
//и так далее
end;
end;
begin
  SetWindowCaption('Рисовалка ');
  setfontsize(10);
  textout(50,0,'Выбор цвета клавишами: r/R-красный  g/G-зеленый  b/B-синий');
  OnMouseDown := MouseDown;
  OnMouseMove := MouseMove;
  OnKeyPress := KeyPress;
end.

10   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ