IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Работа с окнами, использование библиотеки Crt
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской

Репутация: -  0  +


абсолютно не представляю как делать.
Создать окно в рамке с тенью на фоне, заполненном псевдографическим символом #176 желтого цвета, с текстом из файла. Выполнять перемещение окна вверх, вниз, вправо или влево с сохранением фона по клавишам управления курсором.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Тебе надо посмотреть модуль Win.Pas который шел с Турбо-Паскалем 6.0 ... Там были реализованы функции и процедуры для работы с окнами... Сам исходник модуля (с примером использования) я присоединил...


Прикрепленные файлы
Прикрепленный файл  win_unit.zip ( 5.93 килобайт ) Кол-во скачиваний: 207
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 146
Пол: Мужской

Репутация: -  2  +


http://forum.sources.ru/index.php?showtopic=42637&hl=
Хех по-моему она самая ... прямо в точности слово в слово
shyrik Ты случаем не Астраханец ;)

Сообщение отредактировано: Amro -


--------------------
Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь.
Закон программиста: Семь раз отрежь, ошибся, отмерь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской

Репутация: -  0  +


Amro
зашибись,круто,пасиб.
случаем из Астрахани,откуда меня знаешь???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской

Репутация: -  0  +


в той проге есть ошибка,её вроде исправил,но текст выводится не на окно а на фон,в чём поблема.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской

Репутация: -  0  +


вот кому надо моя прога, она и полегче и по меньше и код у неё понятнее чем в той которая по ссылке.
Цитата
uses crt;
Var
Finp:text;
i,X,Y:Integer;
ch:char;
Screen: array [1..25,1..80,1..2] of byte absolute  $b800:0000;
SaveScreen: array [1..25,1..80,1..2] of byte;
procedure SaveBackGround(flag:boolean);
var
i,j,k:Integer;
begin
if flag then for i:=1 to 25 do for j:=1 to 80 do for k:=1 to 2 do
  SaveScreen[i,j,k]:=Screen[i,j,k]
else for i:=1 to 25 do for j:=1 to 80 do for k:=1 to 2 do
  Screen[i,j,k]:=SaveScreen[i,j,k];
end;
procedure ShowWindow;
Var
StrInp:string;
begin  {⥭м}
Window(X+1,Y+1,x+40,Y+14);
TextBackground(Black);
clrscr;
Window(X,Y,X+39,Y+13);
TextBackground(lightgray);
Clrscr;
{аЁбгҐв а ¬Єг}
gotoxy(2,1); For i:=2 to 39 do write(chr(196));
for i:=2 to 13 do begin gotoxy(1,i); write(chr(179)); end;
for i:=2 to 13 do begin gotoxy(40,i); write(chr(179)); end;
  gotoxy(2,14); for i:=2 to 39 do write(chr(196));
  gotoxy(1,1); write(chr(218));
  gotoxy(40,1); write(chr(191));
  gotoxy(1,14); write(chr(192));
  Window(X,Y,X+40,Y+13);
  gotoxy(40,14); write(chr(217));
  Window(X+1,Y+1,X+38, Y+12);
  {$I-}
  reset(Finp);
  {$I+}
  while not EOF(Finp) do begin
    readln(Finp,StrInp);
    writeln(StrInp);
  end;
end;
procedure FillWindow;
begin
TextColor(0); gotoxy(1,1);
for i:=1 to 1999 do write(chr(176));
Screen[25,80,1]:=176; Screen[25,80,2]:=100;
end;
Begin
Assign(Finp,'123.TXT');
window(1,1,80,25);
TextBackground(yellow);
TextColor(White);
Clrscr;
X:=20;
y:=6;
FillWindow;
SaveBackGround(true);
ShowWindow;
repeat
  if KeyPressed then begin
ch:=Readkey;
if (ch=chr(75)) or (ch=chr(77)) or (ch=chr(72))
    or (ch=chr(80)) or (ch=chr(27))
    then begin
  window(1,1,80,25);
  SaveBackGround(false);
  ShowWindow;
end;
end
else ch:=chr(20);
if (ch=chr(75)) and (X>1) then Dec(X);
if (ch=chr(77)) and (X<40) then Inc(X);
if (ch=chr(72)) and (Y>1) then Dec(Y);
if (ch=chr(80)) and (Y<11) then Inc(Y);
until ch=chr(27);
TextColor(White);
End.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 21:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name