Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: programmer  
Собственные библиотеки паскаль
maestrodanДата: Вторник, 14.06.2011, 18:35 | Сообщение # 1
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Здравствуйте, вобщем есть ли какието ограничения в мп по сохданию библиотек по сравнению с турбо паскалем?
а то вроди читал, что можно вставить только процедуры и функции, а типы и переменные нельзя
 
maestrodanДата: Вторник, 14.06.2011, 23:24 | Сообщение # 2
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Люди, подскажите, где в юните ошибка?

unit graphic;
interface
type p=array[1..10] of string;
p1=array[1..10,1..10] of string;
var i,j,i1,j1,n,m:integer;

procedure graphmenu(point:p;n,j:integer);
procedure graphmenu3d(point:p1;n,m,i1,j1:integer);

implementation
procedure graphmenu3d(point:p1;n,m,i1,j1:integer);
begin
showcanvas;
i1:=1;
j1:=1;
repeat
for i:=1 to n do
for j:=1 to m do
if (i1=i) and (j1=j) then
begin
setcolor(255,0,100);
drawtext(point[i,j],40*(j-1),20*i);
setcolor(0,255,125);
drawrect(40*(j-1),20*i,25,15);
end
else
begin
setcolor(255,0,255);
drawtext(point[i,j],40*(j-1),20*i);
setcolor(152,0,255);
drawrect(40*(j-1),20*i,25,15);
end;
repeat
repaint;
delay(150);
until getkeypressed<>0;
if keytoaction(getkeypressed)=ga_up then
if i1>1 then
i1:=i1-1;
if keytoaction(getkeypressed)=ga_down then
if i1<m then
i1:=i1+1;
if keytoaction(getkeypressed)=ga_left then
if j1>1 then
j1:=j1-1;
if keytoaction(getkeypressed)=ga_right then
if j1<n then
j1:=j1+1;
setcolor(255,255,255);
fillrect(0,0,getwidth,GetHeight);
until keytoaction(getkeyclicked)=ga_fire;
end;

procedure graphmenu(point:p;n,j:integer);
begin
showcanvas;
j:=1;
repeat
for i:=1 to n do
if j=i then
begin
setcolor(255,0,100);
drawtext(point[i],15,20*i);
setcolor(0,255,125);
drawrect(10,20*i,100,15);
end
else
begin
setcolor(255,0,255);
drawtext(point[i],10,20*i);
setcolor(152,0,255);
drawrect(5,20*i,100,15);
end;
repeat
repaint;
delay(150);
until getkeypressed<>0;
if keytoaction(getkeypressed)=ga_up then
if j>1 then
j:=j-1;
if keytoaction(getkeypressed)=ga_down then
if j<5 then
j:=j+1;
setcolor(255,255,255);
fillrect(0,0,getwidth,GetHeight);
until keytoaction(getkeyclicked)=ga_fire;
end;
end.
 
  • Страница 1 из 1
  • 1
Поиск: