globus_ussr
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет, есть вот такой код, помогите допилить, строка двигается но есть ряд недоработок:
1. при движении строки, командная строка исчезает, т.е. не до конца решена проблема запуска программы в фоновом режиме, а из этого вытекает и вторая проблемма:
2. при движении текста, фон под ним должен сохранятся, а после того, как текст "проедет", фон+возможный текс, по верх которого все это ездило, должен восстановиться.
Код: {$M $1000, 0, 0}
Program Stroka;
uses Crt, Dos;
type video = array[1..25,1..80] of
record
symbol:char;
attr:byte;
end;
var
memory: video absolute $B800:$0000;
OldVector: Procedure;
OldKey: Procedure;
vkl:boolean;
time,time1,s:real;
str:string[80];
str1: array[1..25,1..80] of char;
i,j,code1,code2,n,k,dlin,p,m,x,y: integer;
Procedure SetCurSize(BegLine, EndLine: Byte);
Var Regs:Registers;
Begin
With Regs Do
Begin
AH:=$01; CH:=BegLine; CL:=EndLine;
End;
Intr($10,Regs);
End;
|
Подробнее... [?]
ЗЫ у кого есть реальные предложения, пишите, договоримся. |
